paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: started new client rectangle

Browse Source 
git-svn-id: trunk@981 -
This commit is contained in:
lazarus 2002-02-09 01:47:33 +00:00
parent 7db307f022
commit bc2b413643
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lcl/controls.pp
View File

@ -453,9 +453,14 @@ type
FVisible: Boolean; FVisible: Boolean;
procedure DoConstrainedResize(var NewWidth, NewHeight : integer); procedure DoConstrainedResize(var NewWidth, NewHeight : integer);
procedure CheckMenuPopup(const P : TSmallPoint); procedure CheckMenuPopup(const P : TSmallPoint);
function GetClientHeight: Integer;
function GetClientWidth: Integer;
procedure SetAlign(Value : TAlign); procedure SetAlign(Value : TAlign);
procedure SetAutoSize(value : Boolean); procedure SetAutoSize(value : Boolean);
procedure SetBoundsRect(const Rect : TRect); procedure SetBoundsRect(const Rect : TRect);
procedure SetClientHeight(Value: Integer);
procedure SetClientSize(Value: TPoint);
procedure SetClientWidth(Value: Integer);
procedure SetConstraints(const Value : TSizeConstraints); procedure SetConstraints(const Value : TSizeConstraints);
procedure SetColor(Value : TColor); procedure SetColor(Value : TColor);
procedure SetCursor(Value : TCursor); procedure SetCursor(Value : TCursor);
@ -592,31 +597,31 @@ type
Function Dragging : Boolean; Function Dragging : Boolean;
procedure Show; procedure Show;
procedure Update; //override; //pbd procedure Update; //override; //pbd
public
property Anchors : TAnchors read FAnchors write FAnchors default [akLeft,akTop]; property Anchors : TAnchors read FAnchors write FAnchors default [akLeft,akTop];
property Align : TAlign read FAlign write SetAlign; property Align : TAlign read FAlign write SetAlign;
property BoundsRect : TRect read GetBoundsRect write SetBoundsRect; property BoundsRect : TRect read GetBoundsRect write SetBoundsRect;
property Caption: TCaption read GetText write SetText stored IsCaptionStored; property Caption: TCaption read GetText write SetText stored IsCaptionStored;
property Cursor: TCursor read FCursor write SetCursor default crDefault;
property Color : TColor read FCOlor write SetColor; {should change the WRITE to do something eventually}
property Constraints : TSizeConstraints read FConstraints write SetConstraints;
property ControlState: TControlState read FControlState write FControlState;
property ClientOrigin: TPoint read GetClientOrigin; property ClientOrigin: TPoint read GetClientOrigin;
property ClientRect: TRect read GetClientRect; property ClientRect: TRect read GetClientRect;
property Ctl3D : Boolean read FCtl3D write FCtl3D; //Is this needed for anything other than compatability? property ClientHeight: Integer read GetClientHeight write SetClientHeight stored False;
property ClientWidth: Integer read GetClientWidth write SetClientWidth stored False;
property Constraints : TSizeConstraints read FConstraints write SetConstraints;
property ControlState: TControlState read FControlState write FControlState;
property ControlStyle : TControlStyle read FControlStyle write FControlStyle; property ControlStyle : TControlStyle read FControlStyle write FControlStyle;
property Color : TColor read FCOlor write SetColor; {should change the WRITE to do something eventually}
property Ctl3D : Boolean read FCtl3D write FCtl3D; //Is this needed for anything other than compatability?
property Cursor: TCursor read FCursor write SetCursor default crDefault;
property Enabled: Boolean read GetEnabled write SetEnabled default True; property Enabled: Boolean read GetEnabled write SetEnabled default True;
property Font : TFont read FFont write FFont; property Font : TFont read FFont write FFont;
property HostDockSite : TWincontrol read FHostDockSite write FHostDockSite; property HostDockSite : TWincontrol read FHostDockSite write FHostDockSite;
property ClientHeight : Integer read FHeight write SetHeight;
property ClientWidth : Integer read FWidth write SetWidth;
property Parent : TWinControl read FParent write SetParent; property Parent : TWinControl read FParent write SetParent;
property ShowHint : Boolean read FShowHint write SetShowHint; property ShowHint : Boolean read FShowHint write SetShowHint;
property Visible: Boolean read FVisible write SetVisible; property Visible: Boolean read FVisible write SetVisible;
{events} property WindowProc: TWndMethod read FWindowProc write FWindowProc;
public
property OnResize: TNotifyEvent read FOnResize write FOnResize; property OnResize: TNotifyEvent read FOnResize write FOnResize;
property OnClick: TNotifyEvent read FOnClick write FOnClick; property OnClick: TNotifyEvent read FOnClick write FOnClick;
// property Owner: TComponent read FOwner write FOwner;
property WindowProc: TWndMethod read FWindowProc write FWindowProc;
published published
property Left: Integer read FLeft write SetLeft; property Left: Integer read FLeft write SetLeft;
property Height: Integer read FHeight write SetHeight; property Height: Integer read FHeight write SetHeight;
@ -749,6 +754,7 @@ type
function DoKeyPress(var Message: TLMKey): Boolean; function DoKeyPress(var Message: TLMKey): Boolean;
function DoKeyUp(var Message: TLMKey): Boolean; function DoKeyUp(var Message: TLMKey): Boolean;
function GetClientOrigin: TPoint; override; function GetClientOrigin: TPoint; override;
function GetClientRect: TRect; override;
function GetDeviceContext(var WindowHandle: HWnd): HDC; override; function GetDeviceContext(var WindowHandle: HWnd): HDC; override;
Function IsControlMouseMsg(var Message : TLMMouse): Boolean; Function IsControlMouseMsg(var Message : TLMMouse): Boolean;
property BorderWidth : TBorderWidth read FBorderWidth write SetBorderWidth default 0; property BorderWidth : TBorderWidth read FBorderWidth write SetBorderWidth default 0;
@ -1198,6 +1204,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.44 2002/04/24 16:11:17 lazarus
MG: started new client rectangle
Revision 1.43 2002/04/24 09:29:06 lazarus Revision 1.43 2002/04/24 09:29:06 lazarus
MG: fixed typos MG: fixed typos