paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-01 04:49:26 +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; procedure UpdateRolesForForm; override;
public public
property Active: boolean read FActive stored false; property Active: boolean read FActive stored false;
property Color default clBtnFace;
property Default: Boolean read FDefault write SetDefault default false; property Default: Boolean read FDefault write SetDefault default false;
property ModalResult: TModalResult read FModalResult write SetModalResult default mrNone; property ModalResult: TModalResult read FModalResult write SetModalResult default mrNone;
property Cancel: Boolean read FCancel write SetCancel default false; property Cancel: Boolean read FCancel write SetCancel default false;

2
lcl/dbctrls.pp
View File

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

1
lcl/include/buttoncontrol.inc
View File

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

4
lcl/stdctrls.pp
View File

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