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

LCL: TCustomAbstractGroupedEdit: unbind the overloaded Color property from inherited property

Browse Source 
git-svn-id: trunk@54191 -
This commit is contained in:
ondrej 2017-02-19 12:39:30 +00:00
parent d3776d5030
commit 0da26ddcc1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/groupededit.pp
View File

@ -244,7 +244,7 @@ type
procedure Loaded; override; procedure Loaded; override;
procedure Reset; virtual; procedure Reset; virtual;
procedure SetAutoSize(AValue: Boolean); override; procedure SetAutoSize(AValue: Boolean); override;
procedure SetColor(AValue: TColor); override; procedure SetColor(AValue: TColor); reintroduce;
procedure SetCursor(AValue: TCursor); override; procedure SetCursor(AValue: TCursor); override;
procedure ShouldAutoAdjust(var AWidth, AHeight: Boolean); override; procedure ShouldAutoAdjust(var AWidth, AHeight: Boolean); override;
@ -255,7 +255,6 @@ type
property BuddyCursor: TCursor read GetBuddyCursor write SetBuddyCursor default crDefault; property BuddyCursor: TCursor read GetBuddyCursor write SetBuddyCursor default crDefault;
property BuddyHint: TTranslateString read GetBuddyHint write SetBuddyHint; property BuddyHint: TTranslateString read GetBuddyHint write SetBuddyHint;
property BuddyWidth: Integer read GetBuddyWidth write SetBuddyWidth; property BuddyWidth: Integer read GetBuddyWidth write SetBuddyWidth;
property Color: TColor read GetColor write SetColor stored True default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
property DirectInput : Boolean read GetDirectInput write SetDirectInput default True; property DirectInput : Boolean read GetDirectInput write SetDirectInput default True;
property BaseEditor: TGEEdit read FEdit; property BaseEditor: TGEEdit read FEdit;
property EditMask: String read GetEditMask write SetEditMask; property EditMask: String read GetEditMask write SetEditMask;
@ -290,6 +289,7 @@ type
property CanUndo: Boolean read GetCanUndo; property CanUndo: Boolean read GetCanUndo;
property CaretPos: TPoint read GetCaretPos write SetCaretPos; property CaretPos: TPoint read GetCaretPos write SetCaretPos;
property CharCase: TEditCharCase read GetCharCase write SetCharCase default ecNormal; property CharCase: TEditCharCase read GetCharCase write SetCharCase default ecNormal;
property Color: TColor read GetColor write SetColor stored True default {$ifdef UseCLDefault}clDefault{$else}clWindow{$endif};
property ParentColor: Boolean read GetParentColor write SetParentColor default False; property ParentColor: Boolean read GetParentColor write SetParentColor default False;
property EchoMode: TEchoMode read GetEchoMode write SetEchoMode default emNormal; property EchoMode: TEchoMode read GetEchoMode write SetEchoMode default emNormal;
property HideSelection: Boolean read GetHideSelection write SetHideSelection default False; property HideSelection: Boolean read GetHideSelection write SetHideSelection default False;