Support for Delphi 12 Community Edition

#718
FrankBijnen · Jan 21, 2025 · 3d1cab1 · 3d1cab1
1 parent a1023f9
commit 3d1cab1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/Source/ExifToolsGui_ShellList.pas b/Source/ExifToolsGui_ShellList.pas
@@ -1224,6 +1224,9 @@ constructor TShellListView.Create(AOwner: TComponent);
 
   FPopulating := false;
   DoubleBuffered := true;
+{$IFNDEF VER350}
+  DoubleBufferedMode := TDoubleBufferedMode.dbmRequested;
+{$ENDIF}
   StyleElements := [seFont, seBorder];
   FThumbNailSize := 0;
   FGenerating := 0;

diff --git a/Source/Main.pas b/Source/Main.pas
@@ -2470,7 +2470,7 @@ procedure TFMain.EditQuickKeyDown(Sender: TObject; var Key: Word; Shift: TShiftS
 
 procedure TFMain.ShowPreview;
 var
-{$IFDEF DEBUG}
+{$IFDEF DEBUG_META}
   MetaData: TMetaData;
   Tag: string;
 {$ENDIF}
@@ -2502,7 +2502,7 @@ procedure TFMain.ShowPreview;
           8:
             Rotate := 270;
         end;
- {$IFDEF DEBUG}
+ {$IFDEF DEBUG_META}
         MetaData := TMetaData.Create;
         try
           MetaData.ReadMeta(FPath, [gmXMP, gmGPS]);