From 0df68abf33f78e28ebd660d60b5c07e6e121d384 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 22 Mar 2020 11:10:57 +0000
Subject: [PATCH] metadata_viewer: Add drivecombobox to Delphi version of
 MetadataViewer demo.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7335 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../metadata_viewer/MetadataViewer.dproj      |  2 +-
 .../metadata_viewer/mdvmain.dfm               | 32 +++++++++++--------
 .../metadata_viewer/mdvmain.pas               |  7 ++++
 3 files changed, 27 insertions(+), 14 deletions(-)

diff --git a/components/fpexif/delphi examples/metadata_viewer/MetadataViewer.dproj b/components/fpexif/delphi examples/metadata_viewer/MetadataViewer.dproj
index 1a6b38151..3f3391350 100644
--- a/components/fpexif/delphi examples/metadata_viewer/MetadataViewer.dproj	
+++ b/components/fpexif/delphi examples/metadata_viewer/MetadataViewer.dproj	
@@ -134,7 +134,7 @@
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
-        <DCCReference Include="mdvMain.pas">
+        <DCCReference Include="mdvmain.pas">
             <Form>Form1</Form>
         </DCCReference>
         <BuildConfiguration Include="Debug">
diff --git a/components/fpexif/delphi examples/metadata_viewer/mdvmain.dfm b/components/fpexif/delphi examples/metadata_viewer/mdvmain.dfm
index cfc4497bf..7a9311362 100644
--- a/components/fpexif/delphi examples/metadata_viewer/mdvmain.dfm	
+++ b/components/fpexif/delphi examples/metadata_viewer/mdvmain.dfm	
@@ -32,11 +32,12 @@ object MainForm: TMainForm
     TabOrder = 0
     object Splitter1: TSplitter
       Left = 0
-      Top = 269
+      Top = 288
       Width = 274
       Height = 5
       Cursor = crVSplit
       Align = alTop
+      ExplicitTop = 269
     end
     object PreviewImage: TImage
       Left = 0
@@ -51,7 +52,7 @@ object MainForm: TMainForm
     end
     object ShellTreeView: TDirectoryOutline
       Left = 0
-      Top = 0
+      Top = 19
       Width = 274
       Height = 269
       Hint = 'Navigate to the folder with your images.'
@@ -88,19 +89,22 @@ object MainForm: TMainForm
         80008000800080008000}
       TabOrder = 0
       OnChange = ShellTreeViewChange
+      ExplicitTop = 0
       Data = {10}
     end
     object ShellListView: TFileListBox
       Left = 0
-      Top = 274
+      Top = 293
       Width = 274
-      Height = 260
+      Height = 241
       Hint = 'Select the image for which you want to see the metadata'
       Align = alClient
       Mask = '*.jpg;*.jpeg;*.jpe;*.tiff;*.tif'
       ShowGlyphs = True
       TabOrder = 2
       OnChange = ShellListViewChange
+      ExplicitTop = 274
+      ExplicitHeight = 260
     end
     object Panel4: TPanel
       Left = 0
@@ -121,6 +125,17 @@ object MainForm: TMainForm
         ParentColor = False
       end
     end
+    object DriveComboBox1: TDriveComboBox
+      Left = 0
+      Top = 0
+      Width = 274
+      Height = 19
+      Align = alTop
+      TabOrder = 3
+      OnChange = DriveComboBox1Change
+      ExplicitLeft = 3
+      ExplicitTop = -4
+    end
   end
   object Panel2: TPanel
     Left = 279
@@ -170,10 +185,6 @@ object MainForm: TMainForm
       OnChange = PageControl1Change
       object PgMetadata: TTabSheet
         Caption = 'Meta data'
-        ExplicitLeft = 0
-        ExplicitTop = 0
-        ExplicitWidth = 0
-        ExplicitHeight = 0
         object TagListView: TListView
           Left = 0
           Top = 0
@@ -215,7 +226,6 @@ object MainForm: TMainForm
           AutoSize = True
           BevelOuter = bvNone
           TabOrder = 1
-          ExplicitTop = 501
           object CbDecodeMakerNotes: TCheckBox
             Left = 0
             Top = 0
@@ -231,10 +241,6 @@ object MainForm: TMainForm
       end
       object PgImage: TTabSheet
         Caption = 'Image'
-        ExplicitLeft = 0
-        ExplicitTop = 0
-        ExplicitWidth = 0
-        ExplicitHeight = 0
         object Image: TImage
           Left = 0
           Top = 0
diff --git a/components/fpexif/delphi examples/metadata_viewer/mdvmain.pas b/components/fpexif/delphi examples/metadata_viewer/mdvmain.pas
index e8c4e30ce..894023f06 100644
--- a/components/fpexif/delphi examples/metadata_viewer/mdvmain.pas	
+++ b/components/fpexif/delphi examples/metadata_viewer/mdvmain.pas	
@@ -42,6 +42,7 @@ type
     ShellListView: TFileListbox;
     Splitter1: TSplitter;
     Splitter2: TSplitter;
+    DriveComboBox1: TDriveComboBox;
     procedure BtnChangeDateClick(Sender: TObject);
     procedure CbShowTagIDsChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -59,6 +60,7 @@ type
       Selected: Boolean);
     procedure ShellTreeViewChange(Sender: TObject);
     procedure ShellListViewChange(Sender: TObject);
+    procedure DriveComboBox1Change(Sender: TObject);
   private
     FFileName: String;
     FImgInfo: TImgInfo;
@@ -243,6 +245,11 @@ begin
   end;
 end;
 
+procedure TMainForm.DriveComboBox1Change(Sender: TObject);
+begin
+  ShellTreeView.Drive := DriveComboBox1.Drive;
+end;
+
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
   try