kleinBild3 V16.12.30

.hidden/CHANGELOG

@@ -1,5 +1,8 @@
+* Mon Dec 26 2016 Jo Lichter <[email protected]> 16.12.30
+- new: Qt4/Qt5-Toolkit and small improvements
+
 * Thu Dec 22 2016 Jo Lichter <[email protected]> 16.12.29
-- new: Qt5-Toolkit and small improvements
+- new: Qt5-Toolkit
 
 * Tue Dec 06 2016 Jo Lichter <[email protected]> 16.12.28
 - update2: Color Management!

.project

@@ -3,12 +3,12 @@
 Title=kleinBild3
 Startup=frmStart
 Icon=camera-photo32.png
-Version=16.12.29
+Version=16.12.30
 Component=gb.image
-Component=gb.qt5
+Component=gb.gui.qt
 Component=gb.form
 Component=gb.settings
-Description="kleinBild3 - Qt5 GUI für ImageMagick"
+Description="kleinBild3 - Qt4/Qt5 GUI für ImageMagick"
 Authors="www.jolichter.de"
 TabSize=2
 Translate=1
@@ -18,9 +18,10 @@ Vendor=lichter-it
 [email protected]
 Url=http://www.jolichter.de
 License=Freeware
-PackageName=kleinbild3-16.12.29
+PackageName=kleinbild3-16.12.30
 Packager=1
 Systems=autotools,debian
 Menus=debian:"Applications/Graphics"
 Categories=debian:"Graphics"
 Groups=debian:"graphics"
+Tags=Photography,Qt

.settings

@@ -18,9 +18,7 @@ SearchComment=False
 SearchString=True
 
 [OpenFile]
-Count=1
-Active=1
-File[1]=".src/frmStart.form"
+Count=0
 
 [Watches]
 Count=0

.src/frmStart.class

@@ -70,7 +70,7 @@ Dim i As Integer
 
  ' Info
 lblVersion.Text = "Version: kleinBild3 " & strVersion & Chr(10) & Chr(10) & strImageMagickVerShort
-lblInfo.Text = "Kleines Qt5-GUI um Bilder mit dem Command Line Tool 'ImageMagick' schnell und einfach mit nur einem Klick" &
+lblInfo.Text = "Kleines Qt4/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) & Chr(10) & "Mit kleinBild3 können exif-Daten entfernt werden und PDF-Dateien in Bilder umgewandelt werden (u.v.m)." &
@@ -235,8 +235,8 @@ strSelectedPaths = FileChooser1.SelectedPaths  ' multiPfade + vollständiger Dat
       Try intDateiGroesse = Round(Stat(strSelectedPath).Size / 1.024) ' Label Dateigröße
 
  ' Label Ordner + Dateiname
-      If Len(strSelectedPath) > 45 Then
-         lblDateiOrt.Text = "..." & Right$(strSelectedPath, 45)
+      If Len(strSelectedPath) > 66 Then
+         lblDateiOrt.Text = "..." & Right$(strSelectedPath, 66)
       Else
          lblDateiOrt.Text = strSelectedPath
       Endif
@@ -260,7 +260,7 @@ Else ' oder wenn eine Datei markiert ist
   strSelectedLeseDir = Left$(strSelectedPath, RInStr(strSelectedPath, "/") - 1)
   Settings["Einstellung/SelectedLeseDir"] = strSelectedLeseDir
 ' Vorschaubild zeigt ein Bild entsprechend der EXIF Orientation richtig an
-   strVorschauShell = "convert -auto-orient -thumbnail x75 '" & strSelectedPath & "' /tmp/kleinBild-thumbnail.png"
+   strVorschauShell = "convert -auto-orient -thumbnail x120 '" & strSelectedPath & "' /tmp/kleinBild-thumbnail.png"
     Try Shell strVorschauShell Wait
      Try picVorschaubild = Picture.Load("/tmp/kleinBild-thumbnail.png")
       picVorschauBox.Picture = picVorschaubild ' kein try notwendig
@@ -270,8 +270,8 @@ Endif
 
 
  ' Text für den btnChangePicAll Schalter
- If Len(strSelectedLeseDir) > 50 Then
-   btnChangePicAll.text = "&Alle JPG im Ordner '..." & Right$(strSelectedLeseDir, 50) & "' verkleinern"
+ If Len(strSelectedLeseDir) > 66 Then
+   btnChangePicAll.text = "&Alle JPG im Ordner '..." & Right$(strSelectedLeseDir, 66) & "' verkleinern"
  Else
    btnChangePicAll.text = "&Alle JPG im Ordner '" & strSelectedLeseDir & "' verkleinern"
  Endif
@@ -545,7 +545,7 @@ strSelectedDateiExt = LCase$(Mid$(strSelectedPath, RInStr(strSelectedPath, ".")
       If bolDisplayHelp = True Then frmHelpDisplay.Show()
 
     ' Bild mit ImageMagick anzeigen (Bild entsprechend der EXIF Orientation)
-      strDisplayShell = "display -auto-orient -geometry 800x600 " & "'" & strSelectedPath & "'"
+      strDisplayShell = "display -auto-orient -geometry 960x720 " & "'" & strSelectedPath & "'"
       Try Shell strDisplayShell ' kein WAIT
 
 

.src/frmStart.form

@@ -1,88 +1,88 @@
 # Gambas Form File 3.0
 
 { Form Form
-  MoveScaled(0,0,115,89)
+  MoveScaled(0,0,137.1429,102.8571)
   Text = ("kleinBild3 - GUI")
   Icon = Picture["camera-photo16.png"]
   Resizable = False
   { TabStrip1 TabStrip
-    MoveScaled(0,1,115,82)
+    MoveScaled(0,1,137,95)
     Count = 3
     Index = 0
     Text = ("Bilder")
     Picture = Picture["camera-photo16.png"]
     { FileChooser1 FileChooser
-      MoveScaled(0,1,113,62)
+      MoveScaled(0,1,136,74)
     }
     { btnChangePic Button
-      MoveScaled(2,64,21.5714,4)
+      MoveScaled(2,76,21.5714,4)
       Mouse = Mouse.Pointing
       ToolTip = ("markierte Bilder verkleinern")
       Text = ("Bild verkleinern")
       Picture = Picture["emblem-photos.png"]
     }
     { btnDeleteFile Button
-      MoveScaled(24,64,23,4)
+      MoveScaled(24,76,23,4)
       Mouse = Mouse.Pointing
       ToolTip = ("markierte unwiderruflich löschen!")
       Text = ("Datei löschen (Entf)")
       Picture = Picture["image-missing.png"]
     }
     { cbxDbkClick CheckBox
-      MoveScaled(2,69,36,4)
+      MoveScaled(2,81,36,4)
       Text = ("Einzelbild verkleinern mit Doppelklick")
     }
     { cbxPDF CheckBox
-      MoveScaled(2,72,24,4)
+      MoveScaled(2,85,24,4)
       ToolTip = ("beim verkleinern wird das Bild\nin eine PDF-Datei umgewandelt")
       Text = ("Bild in PDF umwandeln")
     }
     { picVorschauBox PictureBox
-      MoveScaled(87,63,22,13)
+      MoveScaled(109,75,22,14)
       Mouse = Mouse.Pointing
       ToolTip = ("Datei öffnen") & "..."
       Alignment = Align.Center
       Border = Border.Sunken
     }
     { lblDateiGroesse Label
-      MoveScaled(51,64,35,3)
+      MoveScaled(70,76,38,3)
       Font = Font["-1"]
       ToolTip = ("Dateigröße")
       Text = ("DateiGroesse")
       Alignment = Align.Right
     }
     { lblPixel Label
-      MoveScaled(48,68,38,3)
+      MoveScaled(70,80,38,3)
       Font = Font["-1"]
       ToolTip = ("exif Pixeldaten")
       Text = ("Pixel")
       Alignment = Align.TopRight
     }
     { lblDateiOrt Label
-      MoveScaled(40,71,46,3)
+      MoveScaled(37,84,71,3)
       Font = Font["-1"]
       ToolTip = ("Ort und Name")
       Text = ("DateiOrt")
       Alignment = Align.Right
     }
     { btnRotateLeft ToolButton
-      MoveScaled(109,63,4,4)
+      MoveScaled(131,75,4,4)
       ToolTip = ("Bild links drehen")
       Picture = Picture["object-rotate-left.png"]
     }
     { btnPicInfo ToolButton
-      MoveScaled(109,67,4,4)
+      MoveScaled(131,80,4,4)
       Font = Font["Bold"]
       ToolTip = ("mehr Dateiinfos")
       Picture = Picture["tomboy-tag.png"]
     }
     { btnRotateRight ToolButton
-      MoveScaled(109,71,4,4)
+      MoveScaled(131,85,4,4)
       ToolTip = ("Bild rechts drehen")
       Picture = Picture["object-rotate-right.png"]
     }
     { picPDF PictureBox
-      MoveScaled(26,72,3.5714,3.5714)
+      MoveScaled(26,85,3.5714,3.5714)
       Picture = Picture["application-pdf.png"]
       Alignment = Align.Center
     }
@@ -211,44 +211,44 @@
     Text = ("Info")
     Picture = Picture["dialog-information.png"]
     { fraInfo Frame
-      MoveScaled(3,4,108,64)
+      MoveScaled(3,4,128,74)
       Text = ("kleinBild3 - GUI für ImageMagick")
       { lblVersion Label
-        MoveScaled(4,8,101,12)
+        MoveScaled(4,8,119,12)
         Text = ("Label1")
         Alignment = Align.TopNormal
       }
       { lblInfo Label
-        MoveScaled(4,23,101,37)
+        MoveScaled(4,23,119,48)
         Text = ("Label5")
         Alignment = Align.TopNormal
       }
     }
     { lblHomepage Label
-      MoveScaled(59,70,51,4)
+      MoveScaled(78,82,51,4)
       Font = Font["Italic,+2"]
       Text = ("Homepage: www.JoLichter.de")
       Alignment = Align.Right
     }
     Index = 0
   }
   { btnChangePicAll Button
-    MoveScaled(42,1,72,4)
+    MoveScaled(42,1,95,4)
     Font = Font["-2"]
     Mouse = Mouse.Pointing
     ToolTip = ("Bei vielen Bilder kann dieses sehr zeitintensiv sein!")
     Text = ("btnChangePicAll")
     Picture = Picture["media-playback-start.png"]
   }
   { btnEnd Button
-    MoveScaled(1,84,21,4)
+    MoveScaled(1,97,21,4)
     Font = Font["Bold"]
     Mouse = Mouse.Pointing
     Text = ("Beenden (Esc)")
     Picture = Picture["window-close.png"]
   }
   { lblTABInfo Label
-    MoveScaled(24,84,88,4)
+    MoveScaled(24,97,111,4)
     Font = Font["+1"]
     Text = ("lblTABInfo")
     Alignment = Align.Right

.startup

@@ -2,10 +2,10 @@ frmStart
 kleinBild3
 0
 0
-16.12.29
+16.12.30
 
 gb.image
-gb.qt5
+gb.gui.qt
 gb.form
 gb.settings