Changeset 93 for trunk/Packages/Common/UScaleDPI.pas

Timestamp:

Jul 20, 2018, 10:25:06 AM (6 years ago)

Author:

chronos

Message:

• Modified: Updated Common, CoolTranslator and TemplateGenerics packages.
• Fixed: FormMain initialization was not completed if last opened file was not found.

Location:

trunk

Files:

• . (modified) (1 prop)
• Packages/Common/UScaleDPI.pas (modified) (5 diffs)

trunk

@@ -6 +6 @@
 compiled
 heaptrclog.trc
+LazFuck.dbg

@@ -6 +6 @@
 compiled
 heaptrclog.trc
+LazFuck.dbg

trunk/Packages/Common/UScaleDPI.pas

@@ -215 +215 @@
   I: Integer;
 begin
+  ImgList.BeginUpdate;
   NewWidth := ScaleX(ImgList.Width, FromDPI.X);
   NewHeight := ScaleY(ImgList.Height, FromDPI.Y);
@@ -226 +227 @@
     Temp[I] := TBitmap.Create;
     Temp[I].SetSize(NewWidth, NewHeight);
-    {$ifdef linux}
-    Temp[I].PixelFormat := pf24bit;
-    {$else}
     Temp[I].PixelFormat := pf32bit;
-    {$endif}
     Temp[I].TransparentColor := TempBmp.TransparentColor;
     //Temp[I].TransparentMode := TempBmp.TransparentMode;
@@ -252 +249 @@
     Temp[i].Free;
   end;
+  ImgList.EndUpdate;
 end;
 
@@ -288 +286 @@
   WinControl: TWinControl;
   ToolBarControl: TToolBar;
-  OldAnchors: TAnchors;
-  OldAutoSize: Boolean;
+  //OldAnchors: TAnchors;
+  //OldAutoSize: Boolean;
 begin
   //if Control is TMemo then Exit;
@@ -320 +318 @@
         MinWidth := ScaleX(MinWidth, FromDPI.X);
         MinHeight := ScaleY(MinHeight, FromDPI.Y);
-        Width := ScaleX(Width, FromDPI.X);
+        // Workaround to bad band width auto sizing
+        //Width := ScaleX(Width, FromDPI.X);
+        Width := ScaleX(Control.Width + 28, FromDPI.X);
         //Control.Invalidate;
       end;
+    // Workaround for bad autosizing of coolbar
+    if AutoSize then begin
+      AutoSize := False;
+      Height := ScaleY(Height, FromDPI.Y);
+      AutoSize := True;
+    end;
     EndUpdate;
   end;

@@ -6 +6 @@
 compiled
 heaptrclog.trc
+LazFuck.dbg