Changeset 313 for trunk/Packages/CevoComponents/DrawDlg.pas

Timestamp:

Mar 17, 2021, 11:11:55 AM (4 years ago)

Author:

chronos

Message:

• Modified: LoadGraphicSet now returns TGrExtDescr reference. Replaced integer index references to GrExt with with direct class reference to TGrExtDescr.

File:

• trunk/Packages/CevoComponents/DrawDlg.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -202 +202 @@
     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 +210 @@
         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;