paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-26 11:28:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

moved TBevelCut to controls.pp

Browse Source 
git-svn-id: trunk@4826 -
This commit is contained in:
mattias 2003-11-22 17:22:15 +00:00
parent 65d50d2e4e
commit ac30a1f0ee
3 changed files with 26 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -164,6 +164,7 @@ type
TDate = type TDateTime; TDate = type TDateTime;
TTime = type TDateTime; TTime = type TDateTime;
// ToDo: move this to a message definition unit
TCMMouseWheel = record TCMMouseWheel = record
MSg: Cardinal; MSg: Cardinal;
ShiftState : TShiftState; ShiftState : TShiftState;
@ -203,6 +204,8 @@ type
TBorderStyle = bsNone..bsSingle; TBorderStyle = bsNone..bsSingle;
TControlBorderStyle = TBorderStyle; TControlBorderStyle = TBorderStyle;
TBevelCut = TGraphicsBevelCut;
TMouseButton = (mbLeft, mbRight, mbMiddle); TMouseButton = (mbLeft, mbRight, mbMiddle);
const const
@ -1847,6 +1850,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.158 2003/11/22 17:22:14 mattias
moved TBevelCut to controls.pp
Revision 1.157 2003/11/03 16:57:47 peter Revision 1.157 2003/11/03 16:57:47 peter
* change $ifdef ver1_1 to $ifndef ver1_0 so it works also with * change $ifdef ver1_1 to $ifndef ver1_0 so it works also with
fpc 1.9.x fpc 1.9.x

7
lcl/graphics.pp
View File

@ -157,8 +157,6 @@ type
PercentDone: Byte; RedrawNow: Boolean; const R: TRect; PercentDone: Byte; RedrawNow: Boolean; const R: TRect;
const Msg: string; var DoContinue: Boolean) of object; const Msg: string; var DoContinue: Boolean) of object;
TBevelCut = TGraphicsBevelCut;
{ For Delphi compatibility } { For Delphi compatibility }
TPixelFormat = ( TPixelFormat = (
pfDevice, pfDevice,
@ -715,7 +713,7 @@ type
Procedure FillRect(X1,Y1,X2,Y2 : Integer); Procedure FillRect(X1,Y1,X2,Y2 : Integer);
procedure FloodFill(X, Y: Integer; FillColor: TColor; FillStyle: TFillStyle); procedure FloodFill(X, Y: Integer; FillColor: TColor; FillStyle: TFillStyle);
procedure Frame3d(var ARect : TRect; const FrameWidth : integer; procedure Frame3d(var ARect : TRect; const FrameWidth : integer;
const Style: TBevelCut); const Style: TGraphicsBevelCut);
procedure Frame(const ARect: TRect); // border using pen procedure Frame(const ARect: TRect); // border using pen
procedure Frame(X1,Y1,X2,Y2 : Integer); // border using pen procedure Frame(X1,Y1,X2,Y2 : Integer); // border using pen
procedure FrameRect(const ARect: TRect); // border using brush procedure FrameRect(const ARect: TRect); // border using brush
@ -1259,6 +1257,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.97 2003/11/22 17:22:14 mattias
moved TBevelCut to controls.pp
Revision 1.96 2003/11/03 16:57:47 peter Revision 1.96 2003/11/03 16:57:47 peter
* change $ifdef ver1_1 to $ifndef ver1_0 so it works also with * change $ifdef ver1_1 to $ifndef ver1_0 so it works also with
fpc 1.9.x fpc 1.9.x

5
lcl/include/canvas.inc
View File

@ -597,7 +597,7 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCanvas.Frame3d(var ARect: TRect; const FrameWidth : integer; procedure TCanvas.Frame3d(var ARect: TRect; const FrameWidth : integer;
const Style : TBevelCut); const Style : TGraphicsBevelCut);
begin begin
Changing; Changing;
RequiredState([csHandleValid]); RequiredState([csHandleValid]);
@ -1236,6 +1236,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.55 2003/11/22 17:22:15 mattias
moved TBevelCut to controls.pp
Revision 1.54 2003/11/03 16:57:47 peter Revision 1.54 2003/11/03 16:57:47 peter
* change $ifdef ver1_1 to $ifndef ver1_0 so it works also with * change $ifdef ver1_1 to $ifndef ver1_0 so it works also with
fpc 1.9.x fpc 1.9.x