paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 06:18:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: gtk2: fixed compilation

Browse Source 
git-svn-id: trunk@53319 -
This commit is contained in:
mattias 2016-11-08 15:53:44 +00:00
parent 8f1ee7af01
commit f8c567425b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2windows.pas
View File

@ -4,13 +4,15 @@ unit gtk2windows;
interface
{$ifdef Windows}
uses
Windows;
function GetWin32AppHandle: THandle; // Beware LCLType.THandle <> Windows.THandle
{$endif}
implementation
{$ifdef Windows}
const
ClsName: array[0..6] of char = 'Window'#0;
PrivateAppHandle: THandle = 0;
@ -50,5 +52,6 @@ finalization
Windows.UnregisterClass(@ClsName, System.HInstance);
end;
{$endif}
end.