Changeset 349 for branches/highdpi/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Apr 6, 2021, 8:11:02 PM (4 years ago)

Author:

chronos

Message:

• Modified: Merged trunk branch version r348 into highdpi branch.

File:

• branches/highdpi/Packages/CevoComponents/DrawDlg.pas (modified) (3 diffs)

branches/highdpi/Packages/CevoComponents/DrawDlg.pas

@@ -86 +86 @@
 procedure TDrawDlg.OnEraseBkgnd(var Msg: TMessage);
 begin
+  // Full area should be covered by Paint method
 end;
 
@@ -202 +203 @@
     if Components[cix] is TButtonBase then
     begin
-      TButtonBase(Components[cix]).Graphic := GrExt[HGrSystem].Data;
+      TButtonBase(Components[cix]).Graphic := HGrSystem.Data;
       // if ButtonDownSound <> '*' then
       // DownSound := GetSoundsDir + DirectorySeparator + ButtonDownSound + '.wav';
@@ -210 +211 @@
         TButtonA(Components[cix]).Font := UniFont[ftButton];
       if Components[cix] is TButtonB then
-        TButtonB(Components[cix]).Mask := GrExt[HGrSystem].Mask;
+        TButtonB(Components[cix]).Mask := HGrSystem.Mask;
     end;
 end;