Changeset 107 for trunk

Timestamp:

Oct 11, 2016, 4:44:43 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Do not scale images and toolbar every main window hide/show operation.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (3 diffs)
• Forms/UFormMain.pas (modified) (1 diff)
• Languages/AcronymDecoder.cs.po (modified) (1 diff)
• UCore.pas (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 782
   Caption = 'Acronym Decoder'
-  ClientHeight = 422
+  ClientHeight = 417
   ClientWidth = 782
   Menu = MainMenu1
@@ -17 +17 @@
   object Panel1: TPanel
     Left = 0
-    Height = 396
+    Height = 391
     Top = 26
     Width = 782
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 396
+    ClientHeight = 391
     ClientWidth = 782
     TabOrder = 1
     object CheckBoxExactMath: TCheckBox
       Left = 8
-      Height = 24
+      Height = 29
       Top = 3
-      Width = 104
+      Width = 124
       Caption = 'Exact match'
       OnChange = CheckBoxExactMathChange
@@ -44 +44 @@
     object ListViewAcronyms: TListView
       Left = 8
-      Height = 324
+      Height = 319
       Top = 64
       Width = 767

trunk/Forms/UFormMain.pas

@@ -430 +430 @@
     ListViewFilter1.StringGrid.SetFocus;
   end;
-  Core.ScaleDPI1.ScaleImageList(ImageList1, Core.ScaleDPI1.DesignDPI);
-  Core.ScaleDPI1.ScaleControl(ToolBar1, Core.ScaleDPI1.DesignDPI);
 end;
 

trunk/Languages/AcronymDecoder.cs.po

@@ -898 +898 @@
 msgid "Process import sources"
 msgstr "Zpracovat zdroje importu"
+

trunk/UCore.pas

@@ -165 +165 @@
 
 procedure TCore.ScaleDPI;
-var
-  I: Integer;
 begin
-  //ScaleDPI1.DPI := Point(150, 150);
-  with ScaleDPI1 do
-  if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
-    for I := 0 to Screen.FormCount - 1 do begin
-      //StoreDimensions(Screen.Forms[I], StoredDimension);
-      //ScaleDimensions(Screen.Forms[I], StoredDimension);
-    end;
-  end;
+  Core.ScaleDPI1.ScaleImageList(FormMain.ImageList1, Core.ScaleDPI1.DesignDPI);
+  Core.ScaleDPI1.ScaleControl(FormMain.ToolBar1, Core.ScaleDPI1.DesignDPI);
 end;