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

* tcursorinfo incorrectly was aliassed to console_cursor_info, which is incorrect for

Browse Source 
getcursorinfo in redef.inc. Added cursor_info structs as per MSDN. Mantis 15745

git-svn-id: trunk@14898 -
This commit is contained in:
marco 2010-02-13 14:06:08 +00:00
parent b99d54383c
commit 54b15ba318
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/win/wininc/struct.inc
View File

@ -988,7 +988,6 @@ Const
_CONSOLE_CURSOR_INFO = CONSOLE_CURSOR_INFO; _CONSOLE_CURSOR_INFO = CONSOLE_CURSOR_INFO;
TCONSOLECURSORINFO = CONSOLE_CURSOR_INFO; TCONSOLECURSORINFO = CONSOLE_CURSOR_INFO;
PCONSOLECURSORINFO = ^CONSOLE_CURSOR_INFO; PCONSOLECURSORINFO = ^CONSOLE_CURSOR_INFO;
TCURSORINFO = CONSOLE_CURSOR_INFO;
COORD = record COORD = record
X : SHORT; X : SHORT;
@ -7498,6 +7497,15 @@ type
PGRADIENT_RECT = ^_GRADIENT_RECT; PGRADIENT_RECT = ^_GRADIENT_RECT;
LPGRADIENT_RECT = PGRADIENT_RECT; LPGRADIENT_RECT = PGRADIENT_RECT;
CURSORINFO = record
cbSize : DWORD;
flags : DWORD;
hCursor : HCURSOR;
ptScreenPos : POINT;
end;
PCURSORINFO = ^CURSORINFO;
TCURSORINFO = CURSORINFO;
const const
SECURITY_DESCRIPTOR_MIN_LENGTH = SIZEOF(SECURITY_DESCRIPTOR); SECURITY_DESCRIPTOR_MIN_LENGTH = SIZEOF(SECURITY_DESCRIPTOR);