paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-15 06:39:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fillrect var -> const (bug 3268)

Browse Source
This commit is contained in:
marco 2004-11-14 18:05:54 +00:00
parent 60e0494a74
commit a1a46ff3a0
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/wininc/func.inc
View File

@ -593,7 +593,7 @@ function GetSysColor(nIndex:longint):DWORD; external 'user32' name 'GetSysColor'
function GetSysColorBrush(nIndex:longint):HBRUSH; external 'user32' name 'GetSysColorBrush'; function GetSysColorBrush(nIndex:longint):HBRUSH; external 'user32' name 'GetSysColorBrush';
function SetSysColors(cElements:longint; var lpaElements:wINT; var lpaRgbValues:COLORREF):WINBOOL; external 'user32' name 'SetSysColors'; function SetSysColors(cElements:longint; var lpaElements:wINT; var lpaRgbValues:COLORREF):WINBOOL; external 'user32' name 'SetSysColors';
function DrawFocusRect(hDC:HDC; var lprc:RECT):WINBOOL; external 'user32' name 'DrawFocusRect'; function DrawFocusRect(hDC:HDC; var lprc:RECT):WINBOOL; external 'user32' name 'DrawFocusRect';
function FillRect(hDC:HDC; var lprc:RECT; hbr:HBRUSH):longint; external 'user32' name 'FillRect'; function FillRect(hDC:HDC; const lprc:RECT; hbr:HBRUSH):longint; external 'user32' name 'FillRect';
function FrameRect(hDC:HDC; var lprc:RECT; hbr:HBRUSH):longint; external 'user32' name 'FrameRect'; function FrameRect(hDC:HDC; var lprc:RECT; hbr:HBRUSH):longint; external 'user32' name 'FrameRect';
function InvertRect(hDC:HDC; var lprc:RECT):WINBOOL; external 'user32' name 'InvertRect'; function InvertRect(hDC:HDC; var lprc:RECT):WINBOOL; external 'user32' name 'InvertRect';
function SetRect(lprc:LPRECT; xLeft:longint; yTop:longint; xRight:longint; yBottom:longint):WINBOOL; external 'user32' name 'SetRect'; function SetRect(lprc:LPRECT; xLeft:longint; yTop:longint; xRight:longint; yBottom:longint):WINBOOL; external 'user32' name 'SetRect';
@ -2334,7 +2334,10 @@ end;
{ {
$Log$ $Log$
Revision 1.20 2004-08-26 15:57:23 michael Revision 1.21 2004-11-14 18:05:54 marco
* fillrect var -> const (bug 3268)
Revision 1.20 2004/08/26 15:57:23 michael
+ Some missing functions/defines as per bug 3270 from Frank Kintrup + Some missing functions/defines as per bug 3270 from Frank Kintrup
Revision 1.19 2004/02/08 17:11:34 marco Revision 1.19 2004/02/08 17:11:34 marco