paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 19:24:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

DateTimePicker: code cleanup

Browse Source 
git-svn-id: trunk@45316 -
This commit is contained in:
zoran 2014-06-03 07:18:58 +00:00
parent 51c0c59b2b
commit ef1f0b14a6
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/datetimectrls/datetimepicker.pas
View File

@ -46,8 +46,7 @@ uses
clocale, // needed to initialize default locale settings on Linux.
{$endif}
Classes, SysUtils, Controls, LCLType, Graphics, Math, StdCtrls, Buttons,
ExtCtrls, Forms, ComCtrls, Types, LMessages, LCLProc, CalControlWrapper
;
ExtCtrls, Forms, ComCtrls, Types, LMessages, LCLProc, CalControlWrapper;
const
{ We will deal with the NullDate value the special way. It will be especially
@ -245,8 +244,7 @@ type
procedure MoveSelectionLR(const ToLeft: Boolean);
procedure DestroyCalendarForm;
procedure DropDownCalendarForm;
procedure UpdateShowArrowButton(NewDateMode: TDTDateMode;
NewKind: TDateTimeKind);
procedure UpdateShowArrowButton;
procedure DestroyUpDown;
procedure DestroyArrowBtn;
procedure ArrowMouseDown(Sender: TObject; Button: TMouseButton;
@ -863,7 +861,7 @@ end;
procedure TCustomDateTimePicker.SetDateMode(const AValue: TDTDateMode);
begin
FDateMode := AValue;
UpdateShowArrowButton(AValue, FKind);
UpdateShowArrowButton;
end;
procedure TCustomDateTimePicker.SetHideDateTimeParts(AValue: TDateTimeParts);
@ -1763,7 +1761,7 @@ begin
MoveSelectionLR(False);
FRecalculatingTextSizesNeeded := True;
UpdateShowArrowButton(FDateMode, FKind);
UpdateShowArrowButton;
UpdateDate;
end;
end;
@ -3470,8 +3468,7 @@ begin
end;
end;
procedure TCustomDateTimePicker.UpdateShowArrowButton(
NewDateMode: TDTDateMode; NewKind: TDateTimeKind);
procedure TCustomDateTimePicker.UpdateShowArrowButton;
procedure CreateArrowBtn;
begin
@ -3519,12 +3516,12 @@ var
ReallyShowArrowButton: Boolean;
begin
if NewDateMode = dmNone then begin
if FDateMode = dmNone then begin
DestroyArrowBtn;
DestroyUpDown;
end else begin
ReallyShowArrowButton := (NewDateMode = dmComboBox) and
ReallyShowArrowButton := (FDateMode = dmComboBox) and
not (dtpDay in FEffectiveHideDateTimeParts);
if (ReallyShowArrowButton <> Assigned(FArrowButton)) or