moved TColorButton to dialogs.pp

git-svn-id: trunk@2735 -
This commit is contained in:
mattias 2002-08-18 04:57:00 +00:00
parent a2f417f735
commit 7f87b594da
2 changed files with 11 additions and 4 deletions

View File

@ -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

View File

@ -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