Changeset 522 for GraphicTest/Packages/Graphics32/GR32_XPThemes.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_XPThemes.pas (modified) (2 diffs)

GraphicTest/Packages/Graphics32/GR32_XPThemes.pas

@@ -229 +229 @@
 constructor TThemeNexus.Create;
 begin
-  FWindowHandle := Classes.AllocateHWnd(WndProc);
+  FWindowHandle := {$IFDEF FPC}Classes.{$ENDIF}AllocateHWnd(WndProc);
   OpenVisualStyles;
 end;
@@ -236 +236 @@
 begin
   CloseVisualStyles;
-  Classes.DeallocateHWnd(FWindowHandle);
+  {$IFDEF FPC}Classes.{$ENDIF}DeallocateHWnd(FWindowHandle);
   inherited;
 end;