Changeset 210 for trunk/UCore.pas

Timestamp:

Sep 20, 2021, 2:37:10 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated windows installer script to use InnoSetup 6.
• Fixed: Correctly scale toolbar with images.

File:

• trunk/UCore.pas (modified) (2 diffs)

trunk/UCore.pas

@@ -126 +126 @@
 
 function TCore.GetAppShareDir(Dir: string): string;
+{$IFDEF Linux}
 var
   NewDir: string;
+{$ENDIF}
 begin
   Result := ExtractFileDir(Application.ExeName) + DirectorySeparator + Dir;
@@ -256 +258 @@
   //Core.ScaleDPI1.DPI := Point(200, 200);
   {$IFDEF WINDOWS}
-  Core.ScaleDPI1.ScaleImageList(ImageList1, Core.ScaleDPI1.DesignDPI);
+   Core.ScaleDPI1.ScaleImageList(ImageList1, Core.ScaleDPI1.DesignDPI);
   {$ENDIF}
 end;