Changeset 522 for GraphicTest/Packages/Graphics32/GR32_Dsgn_Bitmap.pas

Timestamp:

Apr 17, 2019, 10:42:18 AM (5 years ago)

Author:

chronos

Message:

• Modified: Updated Graphics32 library.

Location:

GraphicTest/Packages/Graphics32

Files:

• . (modified) (1 prop)
• GR32_Dsgn_Bitmap.pas (modified) (2 diffs)

GraphicTest/Packages/Graphics32/GR32_Dsgn_Bitmap.pas

@@ -43 +43 @@
 {$ELSE}
   Windows, ExtDlgs, ToolWin, Registry, ImgList, Consts, DesignIntf,
-DesignEditors, VCLEditors,
+  DesignEditors, VCLEditors,
 {$ENDIF}
   Forms, Controls, ComCtrls, ExtCtrls, StdCtrls, Graphics, Dialogs, Menus,
@@ -373 +373 @@
     BitmapEditor := TBitmap32Editor.Create(nil);
     try
+      {$IFDEF FPC}
+      BitmapEditor.Bitmap32 := TBitmap32(GetObjectValue);
+      {$ELSE}
       BitmapEditor.Bitmap32 := TBitmap32(Pointer(GetOrdValue));
+      {$ENDIF}
       if BitmapEditor.Execute then
       begin