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

+ some delphi compatibility stuff added

Browse Source 
git-svn-id: trunk@7652 -
This commit is contained in:
florian 2007-06-13 20:44:24 +00:00
parent 2bcbebc438
commit 631187d30d
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win/wininc/redef.inc
View File

@ -74,6 +74,15 @@ type
TBitmapFileHeader = BITMAPFILEHEADER; TBitmapFileHeader = BITMAPFILEHEADER;
PBitmapFileHeader = ^TBitmapFileHeader; PBitmapFileHeader = ^TBitmapFileHeader;
TOwnerDrawState = set of (
odSelected,odGrayed,odDisabled,odChecked,
odFocused,odDefault,odHotLight,odInactive,odNoAccel,odNoFocusRect,
odReserved1,odReserved2,odComboBoxEdit);
type
PKeyboardState = ^TKeyboardState;
TKeyboardState = array[0..255] of Byte;
const const
{ dll names } { dll names }
advapi32 = 'advapi32.dll'; advapi32 = 'advapi32.dll';
@ -973,7 +982,9 @@ function AnsiUpper(lpsz:LPSTR):LPSTR; external 'user32' name 'CharUpperA';
function AnsiUpperBuff(lpsz:LPSTR; cchLength:DWORD):DWORD; external 'user32' name 'CharUpperBuffA'; function AnsiUpperBuff(lpsz:LPSTR; cchLength:DWORD):DWORD; external 'user32' name 'CharUpperBuffA';
function AnsiLower(lpsz:LPSTR):LPSTR; external 'user32' name 'CharLowerA'; function AnsiLower(lpsz:LPSTR):LPSTR; external 'user32' name 'CharLowerA';
function AnsiLowerBuff(lpsz:LPSTR; cchLength:DWORD):DWORD; external 'user32' name 'CharLowerBuffA'; function AnsiLowerBuff(lpsz:LPSTR; cchLength:DWORD):DWORD; external 'user32' name 'CharLowerBuffA';
function CreateIcon(hInstance:HINST; nWidth:longint; nHeight:longint; cPlanes:BYTE; cBitsPixel:BYTE;lpbANDbits:pointer; lpbXORbits:pointer):HICON; external 'user32' name 'CreateIcon';
function GetKeyboardState(var KeyState:TKeyboardState):WINBOOL; external 'user32' name 'GetKeyboardState';
function SetKeyboardState(var KeyState:TKeyboardState):WINBOOL; external 'user32' name 'SetKeyboardState';
{$endif read_interface} {$endif read_interface}