fpexif: Adapt to better work in Delphi.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7908 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/fpexif/delphi examples/metadata_viewer/MetadataViewer.dproj

@@ -7,7 +7,7 @@
         <TargetedPlatforms>3</TargetedPlatforms>
         <AppType>Application</AppType>
         <FrameworkType>VCL</FrameworkType>
-        <ProjectVersion>18.6</ProjectVersion>
+        <ProjectVersion>18.8</ProjectVersion>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">

components/fpexif/delphi examples/metadata_viewer/mdvmain.dfm

@@ -37,7 +37,6 @@ object MainForm: TMainForm
       Height = 5
       Cursor = crVSplit
       Align = alTop
-      ExplicitTop = 269
     end
     object PreviewImage: TImage
       Left = 0
@@ -89,7 +88,6 @@ object MainForm: TMainForm
         80008000800080008000}
       TabOrder = 0
       OnChange = ShellTreeViewChange
-      ExplicitTop = 0
       Data = {10}
     end
     object ShellListView: TFileListBox
@@ -103,8 +101,6 @@ object MainForm: TMainForm
       ShowGlyphs = True
       TabOrder = 2
       OnChange = ShellListViewChange
-      ExplicitTop = 274
-      ExplicitHeight = 260
     end
     object Panel4: TPanel
       Left = 0
@@ -125,16 +121,23 @@ object MainForm: TMainForm
         ParentColor = False
       end
     end
-    object DriveComboBox1: TDriveComboBox
+    object Panel5: TPanel
       Left = 0
       Top = 0
       Width = 274
       Height = 19
       Align = alTop
+      BevelOuter = bvNone
       TabOrder = 3
-      OnChange = DriveComboBox1Change
-      ExplicitLeft = 3
-      ExplicitTop = -4
+      OnResize = Panel5Resize
+      object DriveComboBox1: TDriveComboBox
+        Left = 0
+        Top = 0
+        Width = 274
+        Height = 19
+        TabOrder = 0
+        OnChange = DriveComboBox1Change
+      end
     end
   end
   object Panel2: TPanel
@@ -152,7 +155,6 @@ object MainForm: TMainForm
       Height = 5
       Cursor = crVSplit
       Align = alBottom
-      ExplicitTop = 562
     end
     object Panel3: TPanel
       Left = 0
@@ -250,7 +252,6 @@ object MainForm: TMainForm
           Center = True
           Proportional = True
           Stretch = True
-          ExplicitHeight = 545
         end
       end
     end

components/fpexif/delphi examples/metadata_viewer/mdvmain.pas

@@ -43,6 +43,7 @@ type
     Splitter1: TSplitter;
     Splitter2: TSplitter;
     DriveComboBox1: TDriveComboBox;
+    Panel5: TPanel;
     procedure BtnChangeDateClick(Sender: TObject);
     procedure CbShowTagIDsChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -61,6 +62,7 @@ type
     procedure ShellTreeViewChange(Sender: TObject);
     procedure ShellListViewChange(Sender: TObject);
     procedure DriveComboBox1Change(Sender: TObject);
+    procedure Panel5Resize(Sender: TObject);
   private
     FFileName: String;
     FImgInfo: TImgInfo;
@@ -463,6 +465,11 @@ begin
   end;
 end;
 
+procedure TMainForm.Panel5Resize(Sender: TObject);
+begin
+  DriveCombobox1.Width := Panel5.Width;
+end;
+
 procedure TMainForm.SaveToIni;
 var
   ini: TCustomIniFile;