paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-21 14:25:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

datetimectrls: clean up

Browse Source 
git-svn-id: branches/fixes_1_6@51710 -
This commit is contained in:
mattias 2016-02-26 13:01:53 +00:00
parent 89a3125fcd
commit f4bc518797
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/datetimectrls/datetimepicker.pas
View File

@ -257,8 +257,8 @@ type
procedure UpdateShowArrowButton; procedure UpdateShowArrowButton;
procedure DestroyUpDown; procedure DestroyUpDown;
procedure DestroyArrowBtn; procedure DestroyArrowBtn;
procedure ArrowMouseDown(Sender: TObject; Button: TMouseButton; procedure ArrowMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure UpDownClick(Sender: TObject; Button: TUDBtnType); procedure UpDownClick(Sender: TObject; Button: TUDBtnType);
procedure CheckBoxChange(Sender: TObject); procedure CheckBoxChange(Sender: TObject);
procedure SetFocusIfPossible; procedure SetFocusIfPossible;
@ -281,7 +281,7 @@ type
procedure KeyPress(var Key: char); override; procedure KeyPress(var Key: char); override;
procedure SelectTextPartUnderMouse(XMouse: Integer); procedure SelectTextPartUnderMouse(XMouse: Integer);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override; function DoMouseWheel({%H-}Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint): Boolean; override;
procedure UpdateDate; virtual; procedure UpdateDate; virtual;
procedure DoEnter; override; procedure DoEnter; override;
procedure DoExit; override; procedure DoExit; override;
@ -291,7 +291,7 @@ type
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override; procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure CalculatePreferredSize(var PreferredWidth, procedure CalculatePreferredSize(var PreferredWidth,
PreferredHeight: integer; WithThemeSpace: Boolean); override; PreferredHeight: integer; {%H-}WithThemeSpace: Boolean); override;
procedure SetBiDiMode(AValue: TBiDiMode); override; procedure SetBiDiMode(AValue: TBiDiMode); override;
procedure IncreaseCurrentTextPart; procedure IncreaseCurrentTextPart;
@ -538,10 +538,10 @@ type
procedure CloseCalendarForm(const AndSetTheDate: Boolean = False); procedure CloseCalendarForm(const AndSetTheDate: Boolean = False);
procedure CalendarKeyDown(Sender: TObject; var Key: Word; procedure CalendarKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); {%H-}Shift: TShiftState);
procedure CalendarResize(Sender: TObject); procedure CalendarResize(Sender: TObject);
procedure CalendarMouseUp(Sender: TObject; Button: TMouseButton; procedure CalendarMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); {%H-}Shift: TShiftState; X, Y: Integer);
procedure VisibleOfParentChanged(Sender: TObject); procedure VisibleOfParentChanged(Sender: TObject);
protected protected