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

datetimectrls: less hints

Browse Source 
git-svn-id: trunk@64684 -
This commit is contained in:
mattias 2021-02-28 08:52:07 +00:00
parent ac82b9e9bc
commit 0e564b2d8b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/datetimectrls/datetimepicker.pas
View File

@ -273,8 +273,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 SetFocusIfPossible; procedure SetFocusIfPossible;
procedure AutoResizeButton; procedure AutoResizeButton;
@ -304,7 +304,7 @@ type
procedure MouseLeave; override; procedure MouseLeave; override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
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(const CallChangeFromSetDateTime: Boolean = False); virtual; procedure UpdateDate(const CallChangeFromSetDateTime: Boolean = False); virtual;
procedure DoEnter; override; procedure DoEnter; override;
procedure DoExit; override; procedure DoExit; override;
@ -314,7 +314,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;