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

EditButton: fix wrong value of TTimeEdit.Time in TTimeEdit.OnExit (Issue #0028434).

Browse Source 
git-svn-id: trunk@49570 -
This commit is contained in:
bart 2015-07-25 21:17:53 +00:00
parent 45a4348cdf
commit dab2caa6c5
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/editbtn.pas
View File

@ -887,8 +887,7 @@ type
function GetDefaultGlyphName: String; override; function GetDefaultGlyphName: String; override;
procedure ButtonClick; override; procedure ButtonClick; override;
procedure EditDblClick; override; procedure EditDblClick; override;
procedure EditExit; override; procedure EditEditingDone; override;
procedure EditKeyDown(var Key: word; Shift: TShiftState); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
property Time: TDateTime read GetTime write SetTime; property Time: TDateTime read GetTime write SetTime;
@ -3043,18 +3042,13 @@ begin
OpenTimePopup; OpenTimePopup;
end; end;
procedure TTimeEdit.EditExit;
procedure TTimeEdit.EditEditingDone;
begin begin
inherited EditExit;
ParseInput; ParseInput;
inherited EditEditingDone;
end; end;
procedure TTimeEdit.EditKeyDown(var Key: word; Shift: TShiftState);
begin
if Key = VK_RETURN then
ParseInput;
inherited EditKeyDown(Key, Shift);
end;
constructor TTimeEdit.Create(AOwner: TComponent); constructor TTimeEdit.Create(AOwner: TComponent);
begin begin