pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:TRxTimeEdit set enabled for buttons

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5989 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-07-28 06:11:28 +00:00
parent e688582c1c
commit c774cc8a2f
5 changed files with 250 additions and 130 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/rx/trunk/rxcontrols/rxtimeedit.pas
View File

@@ -57,6 +57,7 @@ type
procedure DoChangeValue(AValue:integer);
procedure WMSetFocus(var Message: TLMSetFocus); message LM_SETFOCUS;
procedure WMKillFocus(var Message: TLMKillFocus); message LM_KILLFOCUS;
procedure SetEnabled(Value: Boolean); override;
protected
procedure SetParent(AParent: TWinControl); override;
procedure DoPositionButton; virtual;
@@ -244,6 +245,12 @@ begin
inherited;
end;
procedure TCustomRxTimeEdit.SetEnabled(Value: Boolean);
begin
inherited SetEnabled(Value);
FButton.Enabled:=Value;
end;
procedure TCustomRxTimeEdit.SetParent(AParent: TWinControl);
begin
inherited SetParent(AParent);