kleinBild3 V16.12.29

.hidden/CHANGELOG

@@ -1,3 +1,6 @@
+* Thu Dec 22 2016 Jo Lichter <[email protected]> 16.12.29
+- new: Qt5-Toolkit and small improvements
+
 * Tue Dec 06 2016 Jo Lichter <[email protected]> 16.12.28
 - update2: Color Management!
 - ImageMagick version 6.8.9-9  to working better with "sRGB" instead of "RGB"

.project

@@ -3,22 +3,22 @@
 Title=kleinBild3
 Startup=frmStart
 Icon=camera-photo32.png
-Version=16.12.28
+Version=16.12.29
 Component=gb.image
-Component=gb.qt4
+Component=gb.qt5
 Component=gb.form
 Component=gb.settings
-Description="kleinBild3 - Qt4 GUI für ImageMagick"
+Description="kleinBild3 - Qt5 GUI für ImageMagick"
 Authors="www.jolichter.de"
 TabSize=2
 Translate=1
 Language=de
 Maintainer=Jo Lichter
-Vendor=jolichterde
+Vendor=lichter-it
 [email protected]
 Url=http://www.jolichter.de
 License=Freeware
-PackageName=kleinbild3-16.12.28
+PackageName=kleinbild3-16.12.29
 Packager=1
 Systems=autotools,debian
 Menus=debian:"Applications/Graphics"

.settings

@@ -20,7 +20,7 @@ SearchString=True
 [OpenFile]
 Count=1
 Active=1
-File[1]=".hidden/CHANGELOG:0.0"
+File[1]=".src/frmStart.form"
 
 [Watches]
 Count=0

.src/frmStart.class

@@ -53,13 +53,13 @@ Dim i As Integer
     Try Shell "convert -version" Wait To strImageMagickVer
     If strImageMagickVer = "" Then
       Message.Warning(("Fehler ImageMagick!" & Chr(10) & "ImageMagick und libjpeg-progs muß installiert sein damit das Programm funktioniert!") & Chr(10) &
-      ("z.B. per Terminal:") & Chr(10) & "sudo apt-get install imagemagick libjpeg-progs" & Chr(10) & Chr(10) &
+      ("z.B. per Terminal:") & Chr(10) & "sudo apt install imagemagick libjpeg-progs" & Chr(10) & Chr(10) &
       "Versuche diese Tools nun automatisch zu installieren." & Chr(10) &
       "Dafür wird eine Internetverbindung und das Root-Passwort benötigt!", (" OK "))
 
-      'Clipboard.Copy("sudo apt-get install imagemagick libjpeg-progs")
+      'Clipboard.Copy("sudo apt install imagemagick libjpeg-progs")
       'TRY SHELL ("gnome-terminal")
-        strCommand = "apt-get install imagemagick libjpeg-progs"
+        strCommand = "apt install imagemagick libjpeg-progs"
         Try Shell "gksudo " & strCommand Wait    ' wenn GNOME
         Try Shell "kdesudo " & strCommand Wait   ' wenn KDE
     Endif
@@ -70,14 +70,13 @@ Dim i As Integer
 
  ' Info
 lblVersion.Text = "Version: kleinBild3 " & strVersion & Chr(10) & Chr(10) & strImageMagickVerShort
-lblInfo.Text = "Kleines GUI um Bilder mit dem Command Line Tool 'ImageMagick' schnell und einfach mit nur einem Klick" &
+lblInfo.Text = "Kleines Qt5-GUI um Bilder mit dem Command Line Tool 'ImageMagick' schnell und einfach mit nur einem Klick" &
 Chr(10) & "zu verkleinern und verlustfrei zu drehen (das Original und die exif-Daten bleiben dabei erhalten)." &
 Chr(10) & "Die Bildgröße wird nur geändert wenn die gewünschte Zielgröße tatsächlich kleiner ist." &
-Chr(10) & "Da der I.E. keine CMYK-Bilder anzeigen kann, werden diese nach RGB umgewandelt!" &
 Chr(10) & Chr(10) & "Mit kleinBild3 können exif-Daten entfernt werden und PDF-Dateien in Bilder umgewandelt werden (u.v.m)." &
 Chr(10) & "Bilder mit exif-Daten werden automatisch orientiert (automatische Drehung) und gespeichert." &
 Chr(10) & Chr(10) & "Falls 'ImageMagick' und 'libjpeg-progs' nicht installiert sind, einfach per Terminal (Konsole) installieren." &
-Chr(10) & "Befehl: sudo apt-get install imagemagick libjpeg-progs" & Chr(10) & Chr(10) &
+Chr(10) & "Befehl: sudo apt install imagemagick libjpeg-progs" & Chr(10) & Chr(10) &
 "Das Programm ist Freeware. Die Installation und Gebrauch geschieht auf eigene Gefahr!" &
 Chr(10) & Chr(10) & Chr(10) & "Aktuelle Updates gibt es auf meiner Homepage."
 
@@ -163,8 +162,7 @@ Public Sub Form_KeyPress()
   Select Case Key.Code
      Case Key.Escape
      Me.Close ' Beenden
-     ' Key.Delete funzt leider nur wenn die Form SetFocus ist, aber dann funzt der Cursor hoch+runter im FileChooser1 nicht mehr ;-(
-     Case Key.F4 And TabStrip1.Index = 0 And btnDeleteFile.Enabled = True
+     Case Key.Delete And TabStrip1.Index = 0 And btnDeleteFile.Enabled = True
      btnDeleteFile_Click() ' Delete File
   End Select
 
@@ -707,11 +705,11 @@ strSelectedDateiExt = LCase$(Mid$(strSelectedPath, RInStr(strSelectedPath, ".")
         Kill strSelectedDateiOhneExt & "_gedreht_.jpg" ' 0 Byte Datei löschen
 
         Message.Warning(("Fehler libjpeg-progs!" & Chr(10) & "libjpeg-progs muß installiert sein um Bilder verlustfrei zu drehen!") & Chr(10) &
-        ("z.B. per Terminal:") & Chr(10) & "sudo apt-get install libjpeg-progs" & Chr(10) & Chr(10) &
+        ("z.B. per Terminal:") & Chr(10) & "sudo apt install libjpeg-progs" & Chr(10) & Chr(10) &
         "Versuche das Tools nun automatisch zu installieren." & Chr(10) &
         "Dafür wird eine Internetverbindung und das Root-Passwort benötigt!", (" OK "))
 
-        strCommand = "apt-get install libjpeg-progs"
+        strCommand = "apt install libjpeg-progs"
         Try Shell "gksudo " & strCommand Wait    ' wenn GNOME
         Try Shell "kdesudo " & strCommand Wait   ' wenn KDE
 
@@ -773,11 +771,11 @@ strSelectedDateiExt = LCase$(Mid$(strSelectedPath, RInStr(strSelectedPath, ".")
         Kill strSelectedDateiOhneExt & "_gedreht_.jpg" ' 0 Byte Datei löschen
 
         Message.Warning(("Fehler libjpeg-progs!" & Chr(10) & "libjpeg-progs muß installiert sein um Bilder verlustfrei zu drehen!") & Chr(10) &
-        ("z.B. per Terminal:") & Chr(10) & "sudo apt-get install libjpeg-progs" & Chr(10) & Chr(10) &
+        ("z.B. per Terminal:") & Chr(10) & "sudo apt install libjpeg-progs" & Chr(10) & Chr(10) &
         "Versuche das Tools nun automatisch zu installieren." & Chr(10) &
         "Dafür wird eine Internetverbindung und das Root-Passwort benötigt!", (" OK "))
 
-        strCommand = "`apt-get install libjpeg-progs`"
+        strCommand = "`apt install libjpeg-progs`"
 
         Try Shell "gksudo " & strCommand Wait    ' wenn GNOME
         Try Shell "kdesudo " & strCommand Wait   ' wenn KDE

.src/frmStart.form

@@ -15,18 +15,18 @@
       MoveScaled(0,1,113,62)
     }
     { btnChangePic Button
-      MoveScaled(2,64,21.5,4)
+      MoveScaled(2,64,21.5714,4)
       Mouse = Mouse.Pointing
       ToolTip = ("markierte Bilder verkleinern")
-      Text = ("&Bild verkleinern")
+      Text = ("Bild verkleinern")
       Picture = Picture["emblem-photos.png"]
     }
     { btnDeleteFile Button
-      MoveScaled(26,64,21.5,4)
+      MoveScaled(24,64,23,4)
       Mouse = Mouse.Pointing
       ToolTip = ("markierte unwiderruflich löschen!")
-      Text = ("&Datei löschen (F4)")
-      Picture = Picture["gtk-undelete-rtl.png"]
+      Text = ("Datei löschen (Entf)")
+      Picture = Picture["image-missing.png"]
     }
     { cbxDbkClick CheckBox
       MoveScaled(2,69,36,4)
@@ -40,7 +40,7 @@
     { picVorschauBox PictureBox
       MoveScaled(87,63,22,13)
       Mouse = Mouse.Pointing
-      ToolTip = ("Datei öffnen...")
+      ToolTip = ("Datei öffnen") & "..."
       Alignment = Align.Center
       Border = Border.Sunken
     }
@@ -82,7 +82,7 @@
       Picture = Picture["object-rotate-right.png"]
     }
     { picPDF PictureBox
-      MoveScaled(26,72,3.5,3.5)
+      MoveScaled(26,72,3.5714,3.5714)
       Picture = Picture["application-pdf.png"]
       Alignment = Align.Center
     }
@@ -214,12 +214,12 @@
       MoveScaled(3,4,108,64)
       Text = ("kleinBild3 - GUI für ImageMagick")
       { lblVersion Label
-        MoveScaled(4,10,101,12)
+        MoveScaled(4,8,101,12)
         Text = ("Label1")
         Alignment = Align.TopNormal
       }
       { lblInfo Label
-        MoveScaled(4,25,101,35)
+        MoveScaled(4,23,101,37)
         Text = ("Label5")
         Alignment = Align.TopNormal
       }
@@ -233,7 +233,7 @@
     Index = 0
   }
   { btnChangePicAll Button
-    MoveScaled(39,1,75,4)
+    MoveScaled(42,1,72,4)
     Font = Font["-2"]
     Mouse = Mouse.Pointing
     ToolTip = ("Bei vielen Bilder kann dieses sehr zeitintensiv sein!")
@@ -244,7 +244,7 @@
     MoveScaled(1,84,21,4)
     Font = Font["Bold"]
     Mouse = Mouse.Pointing
-    Text = ("Beenden (&Esc)")
+    Text = ("Beenden (Esc)")
     Picture = Picture["window-close.png"]
   }
   { lblTABInfo Label

.startup

@@ -2,10 +2,10 @@ frmStart
 kleinBild3
 0
 0
-16.12.28
+16.12.29
 
 gb.image
-gb.qt4
+gb.qt5
 gb.form
 gb.settings
 

README.md

@@ -1,6 +1,6 @@
 # kleinBild3
 ### Bilder mit nur einem Klick verkleinern für LINUX in Gambas3 entwickelt
-- hat eine Qt4-GUI
+- hat eine Qt5-GUI
 - schnelles verkleinern von Bilder mit einem Klick
 - Qualitätsstufen für die Bildkompression und Pixelgröße ist bei JPEG einstellbar
 - kann einen ganzen Ordner mit Bilder verkleinern und umbenennen