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

LCL: published T(DB)CheckBox.Color and ParentColor (bug #8185)

Browse Source 
git-svn-id: trunk@10540 -
This commit is contained in:
vincents 2007-01-30 15:33:39 +00:00
parent 2a4b6678f2
commit 7ef1dc90d4
4 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/buttons.pp
View File

@ -93,7 +93,6 @@ type
procedure UpdateRolesForForm; override;
public
property Active: boolean read FActive stored false;
property Color default clBtnFace;
property Default: Boolean read FDefault write SetDefault default false;
property ModalResult: TModalResult read FModalResult write SetModalResult default mrNone;
property Cancel: Boolean read FCancel write SetCancel default false;

2
lcl/dbctrls.pp
View File

@ -416,6 +416,7 @@ Type
property Anchors;
property AutoSize;
property Caption;
property Color;
property DataField: string read GetDataField write SetDataField;
property DataSource: TDataSource read GetDataSource write SetDataSource;
property DragCursor;
@ -434,6 +435,7 @@ Type
property OnMouseMove;
property OnMouseUp;
property OnStartDrag;
property ParentColor;
property ParentShowHint;
property PopupMenu;
property ReadOnly: Boolean read GetReadOnly write SetReadOnly default False;

1
lcl/include/buttoncontrol.inc
View File

@ -70,6 +70,7 @@ begin
FUseOnChange:=DefaultButtonControlUseOnChange;
ControlStyle:=ControlStyle-csMultiClicks-[csAcceptsControls];
Color:=clBtnFace;
ParentColor:=false;
end;
{ TButtonActionLink }

4
lcl/stdctrls.pp
View File

@ -906,8 +906,10 @@ type
property Checked: Boolean read GetChecked write SetChecked stored IsCheckedStored default False;
property ClicksDisabled: Boolean read FClicksDisabled write FClicksDisabled;
property UseOnChange: boolean read FUseOnChange write FUseOnChange stored UseOnChangeIsStored;
property ParentColor default false;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
public
property Color default clBtnFace;
constructor Create(TheOwner: TComponent); override;
end;
@ -974,6 +976,7 @@ type
property BorderSpacing;
property Caption;
property Checked;
property Color;
property Constraints;
property DragCursor;
property DragKind;
@ -997,6 +1000,7 @@ type
property OnMouseUp;
property OnResize;
property OnStartDrag;
property ParentColor;
property ParentShowHint;
property PopupMenu;
property ShowHint;