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

fixes for current fpc 1.1

Browse Source 
git-svn-id: trunk@3215 -
This commit is contained in:
mattias 2002-08-19 15:15:20 +00:00
parent 5598cc0a7f
commit 2ff1eed9f6
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/vclglobals.pp
View File

@ -95,27 +95,6 @@ const
csPanel = 51; csPanel = 51;
csScrollBox = 52; csScrollBox = 52;
type
//TODO: check this against lcllinux
TgComponentStyle = LongInt;
AnsiChar = Char; //Should be moved
WideChar = Char;
Short = SmallInt;
HFont = LongWord;
THAndle = Integer;
hwnd = THandle;
TCaption = string;
//TMessage = Pointer;
HMENU = type LongWord;
HPEN = type LongWord;
HBitmap = type LongWord;
HPalette = type LongWord;
HDC = type LongWord;
HBRUSH = type LongWord;
const const
{Mouse message key states} {Mouse message key states}
MK_LBUTTON = 1; MK_LBUTTON = 1;