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

MG: added patch from Andrew

Browse Source 
git-svn-id: trunk@2147 -
This commit is contained in:
lazarus 2002-08-17 23:41:02 +00:00
parent cec6dbb819
commit b83afc9fc3
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/winapi.inc
View File

@ -605,6 +605,11 @@ begin
Result := InterfaceObject.RightJustifyMenuItem(hndMenu, bRightJustify);
end;
Function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean;
begin
Result := InterfaceObject.RoundRect(DC, X1, Y1, X2, Y2, RX, RY);
end;
function RestoreDC(DC: HDC; SavedDC: Integer): Boolean;
begin
Result := InterfaceObject.RestoreDC(DC, SavedDC)
@ -1277,6 +1282,9 @@ end;
{ =============================================================================
$Log$
Revision 1.49 2002/09/18 17:07:25 lazarus
MG: added patch from Andrew
Revision 1.48 2002/09/12 05:56:15 lazarus
MG: gradient fill, minor issues from Andrew

4
lcl/include/winapih.inc
View File

@ -171,6 +171,7 @@ function ReleaseCapture : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function ReleaseDC(hWnd: HWND; DC: HDC): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function RightJustifyMenuItem(HndMenu: HMenu; bRightJustify: boolean): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function SaveDC(DC: HDC): Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
Function ScreenToClient(Handle : HWND; var P : TPoint) : Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
@ -306,6 +307,9 @@ Function RGB(R, G, B : Byte) : TColorRef;
{ =============================================================================
$Log$
Revision 1.43 2002/09/18 17:07:25 lazarus
MG: added patch from Andrew
Revision 1.42 2002/09/12 05:56:15 lazarus
MG: gradient fill, minor issues from Andrew