paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-03 19:25:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: THandle of LCLIntf now PtrUint on all platforms, bites the platform specific system.THandle especially on 64bit systems, but this is since years so maybe not a big bit

Browse Source 
git-svn-id: trunk@26564 -
This commit is contained in:
mattias 2010-07-10 07:02:35 +00:00
parent 152fbbfa9c
commit 99f1be30f3
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/lcltype.pp
View File

@ -88,12 +88,9 @@ type
TDockImageOperation = (disShow, disMove, disHide); TDockImageOperation = (disShow, disMove, disHide);
{$ifndef WINDOWS} {$ifndef WINDOWS}
{$IFDEF CPU64}
// temp solution for 32bit system.Thandle
THandle = type PtrUInt; THandle = type PtrUInt;
HANDLE = THandle; HANDLE = THandle;
PHandle = ^THandle; PHandle = ^THandle;
{$ENDIF}
{ Provided for compatibility with Windows registry ONLY } { Provided for compatibility with Windows registry ONLY }
HKEY = Integer; HKEY = Integer;