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

added uses LCLType to get the correct THandle type

Browse Source 
git-svn-id: trunk@7471 -
This commit is contained in:
vincents 2005-08-01 13:00:09 +00:00
parent 637b578aab
commit ef4a1cefe8
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lclrescache.pas
View File

@ -25,7 +25,7 @@ unit LCLResCache;
interface interface
uses uses
Classes, SysUtils, FPCAdds, LCLProc, AvgLvlTree; Classes, SysUtils, FPCAdds, LCLType, LCLProc, AvgLvlTree;
{off $DEFINE CheckResCacheConsistency} {off $DEFINE CheckResCacheConsistency}

1
lcl/lcltype.pp
View File

@ -83,6 +83,7 @@ type
// temp solution for 32bit system.Thandle // temp solution for 32bit system.Thandle
THandle = type PtrInt; THandle = type PtrInt;
HANDLE = THandle; HANDLE = THandle;
PHandle = ^THandle;
{$ENDIF} {$ENDIF}
{ Provided for compatibility with Windows registry ONLY } { Provided for compatibility with Windows registry ONLY }