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

LCL: TUpDown: override directly instead of indirect via events

Browse Source 
git-svn-id: trunk@46772 -
This commit is contained in:
mattias 2014-11-07 10:02:46 +00:00
parent 1a30c3ba70
commit 5ebadd515f
1 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/include/customupdown.inc
View File

@ -21,11 +21,11 @@ Type
FUpDown : TCustomUpDown;
FButtonType : TUDBtnType;
protected
procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DoubleClick(Sender: TObject);
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer
); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
override;
procedure DblClick; override;
public
constructor CreateWithParams(UpDown : TCustomUpDown;
ButtonType : TUDBtnType);
@ -34,8 +34,8 @@ Type
procedure Paint; override;
end;
procedure TUpDownButton.ButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TUpDownButton.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
if Button = mbLeft then begin
With FUpDown do begin
@ -54,8 +54,8 @@ begin
end;
end;
procedure TUpDownButton.ButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TUpDownButton.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
begin
With FUpDown do
If Assigned(BTimer) then begin
@ -66,7 +66,7 @@ begin
end;
end;
procedure TUpDownButton.DoubleClick(Sender: TObject);
procedure TUpDownButton.DblClick;
begin
Click;
end;
@ -121,9 +121,6 @@ begin
Parent := FUpDown;
ControlStyle := ControlStyle + [csNoFocus, csNoDesignSelectable];
OnMouseDown := @ButtonMouseDown;
OnMouseUp := @ButtonMouseUp;
OnDblClick := @DoubleClick;
end;
procedure TUpDownButton.Paint;