diff --git a/lcl/graphics.pp b/lcl/graphics.pp index c6dc208e3a..858ce81782 100644 --- a/lcl/graphics.pp +++ b/lcl/graphics.pp @@ -543,8 +543,8 @@ type Procedure FillRect(const ARect : TRect); Procedure FillRect(X1,Y1,X2,Y2 : Integer); procedure FloodFill(X, Y: Integer; FillColor: TColor; FillStyle: TFillStyle); - procedure Frame3d(var Rect : TRect; const FrameWidth : integer; - const Style : TBevelCut); + procedure Frame3d(var ARect : TRect; const FrameWidth : integer; + const Style: TBevelCut); procedure Frame(const ARect: TRect); // border using pen procedure Frame(X1,Y1,X2,Y2 : Integer); // border using pen procedure FrameRect(const ARect: TRect); // border using brush @@ -962,6 +962,9 @@ end. { ============================================================================= $Log$ + Revision 1.68 2003/06/13 21:08:53 mattias + moved TColorButton to dialogs.pp + Revision 1.67 2003/05/19 08:16:32 mattias fixed allocation of dc backcolor diff --git a/lcl/include/canvas.inc b/lcl/include/canvas.inc index 98b2e7206c..b5329a7feb 100644 --- a/lcl/include/canvas.inc +++ b/lcl/include/canvas.inc @@ -549,10 +549,11 @@ end; Returns: Nothing ------------------------------------------------------------------------------} -procedure TCanvas.Frame3d(var Rect : TRect; const FrameWidth : integer; const Style : TBevelCut); +procedure TCanvas.Frame3d(var ARect: TRect; const FrameWidth : integer; + const Style : TBevelCut); begin RequiredState([csHandleValid]); - LCLLinux.Frame3d(FHandle, Rect, FrameWidth, Style); + LCLLinux.Frame3d(FHandle, ARect, FrameWidth, Style); end; {------------------------------------------------------------------------------ @@ -1171,6 +1172,9 @@ end; { ============================================================================= $Log$ + Revision 1.45 2003/06/13 21:08:53 mattias + moved TColorButton to dialogs.pp + Revision 1.44 2003/06/13 10:37:20 mattias fixed AV on StretchDraw 0x0