Changeset 131

Timestamp:

Jan 22, 2022, 5:38:13 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Scale toolbar and menu icons.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (9 diffs)
• Forms/UFormMessages.pas (modified) (1 diff)
• Forms/UFormSourceCode.pas (modified) (1 diff)
• UCore.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -36 +36 @@
   object ToolBarMain: TToolBar
     Left = 0
-    Height = 31
+    Height = 33
     Top = 0
     Width = 1032
@@ -133 +133 @@
   object PageControlRight: TPageControl
     Left = 560
-    Height = 611
-    Top = 31
+    Height = 609
+    Top = 33
     Width = 472
     ActivePage = TabSheetDebug
@@ -144 +144 @@
     object TabSheetDebug: TTabSheet
       Caption = 'Debug'
-      ClientHeight = 607
+      ClientHeight = 605
       ClientWidth = 390
       ParentFont = False
@@ -206 +206 @@
       object PanelMemory: TPanel
         Left = 0
-        Height = 98
+        Height = 96
         Top = 509
         Width = 390
@@ -218 +218 @@
   object Splitter1: TSplitter
     Left = 554
-    Height = 611
-    Top = 31
+    Height = 609
+    Top = 33
     Width = 6
     Align = alRight
@@ -226 +226 @@
   object PanelLeft: TPanel
     Left = 0
-    Height = 611
-    Top = 31
+    Height = 609
+    Top = 33
     Width = 554
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 611
+    ClientHeight = 609
     ClientWidth = 554
     ParentFont = False
@@ -237 +237 @@
     object PageControlMain: TPageControl
       Left = 0
-      Height = 463
+      Height = 461
       Top = 0
       Width = 554
@@ -257 +257 @@
       Left = 0
       Height = 142
-      Top = 469
+      Top = 467
       Width = 554
       ActivePage = TabSheetMessages
@@ -274 +274 @@
       Left = 0
       Height = 6
-      Top = 463
+      Top = 461
       Width = 554
       Align = alBottom

trunk/Forms/UFormMessages.pas

@@ -47 +47 @@
 procedure TFormMessages.FormCreate(Sender: TObject);
 begin
-
 end;
 

trunk/Forms/UFormSourceCode.pas

@@ -178 +178 @@
 begin
   SynEditSource.Highlighter := nil;
-  BFHighlighter.Free;
+  FreeAndNil(BFHighlighter);
 end;
 
 procedure TFormSourceCode.UpdateInterface;
 begin
-
 end;
 

trunk/UCore.pas

@@ -194 +194 @@
         ScaleDimensions(Screen.Forms[I], StoredDimension);
       end;
-      // TODO: Transparent image scaling not working properly under linux Gtk2
-      // Also screen DPI is not correctly detected under linux Gtk2
-      {$IFDEF WINDOWS}
       ScaleImageList(ImageListMain, DesignDPI);
-      {$ENDIF}
     end;
   end;