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

LCL: define Windows compatible PInt in LCLType.

Browse Source 
git-svn-id: trunk@42169 -
This commit is contained in:
juha 2013-07-21 19:46:33 +00:00
parent 4999eb619b
commit 1552d8b462
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/lcltype.pp
View File

@ -85,6 +85,7 @@ type
TOnShowSelectItemDialogResult = procedure (ASelectedItem: Integer) of object; TOnShowSelectItemDialogResult = procedure (ASelectedItem: Integer) of object;
{$ifndef WINDOWS} {$ifndef WINDOWS}
PInt = ^integer;
THandle = type PtrUInt; // define our own, because the SysUtils.THandle = System.THandle is a longint THandle = type PtrUInt; // define our own, because the SysUtils.THandle = System.THandle is a longint
HANDLE = THandle; HANDLE = THandle;
PHandle = ^THandle; PHandle = ^THandle;