paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:49:33 +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

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

@ -68,12 +68,21 @@ type
palPalEntry : array[Byte] of TPaletteEntry;
end;
PMaxLogPalette = ^TMaxLogPalette;
POSVersionInfoA = POSVERSIONINFO;
TBitmapFileHeader = BITMAPFILEHEADER;
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
{ dll names }
advapi32 = 'advapi32.dll';
@ -102,7 +111,7 @@ const
CP_UTF7 = 65000;
CP_UTF8 = 65001;
CREATE_NO_WINDOW = $08000000;
VK_ATTN = 246;
VK_CRSEL = 247;
VK_EXSEL = 248;
@ -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 AnsiLower(lpsz:LPSTR):LPSTR; external 'user32' name 'CharLowerA';
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}