paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-25 07:48:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed name conflict

Browse Source 
git-svn-id: trunk@6805 -
This commit is contained in:
mattias 2005-02-18 18:25:57 +00:00
parent dc28842255
commit 4c8073cce8
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/customupdown.inc
View File

@ -22,18 +22,18 @@ Type
{ TUpDownButton }
TUpDownButton = Class(TSpeedButton)
Private
private
BTimer : TTimer;
FUpDown : TCustomUpDown;
FButtonType : TUDBtnType;
Protected
protected
procedure Click; Override;
procedure ButtonMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ButtonMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure DblClick(Sender: TObject);
Public
procedure DoubleClick(Sender: TObject);
public
constructor CreateWithParams(UpDown : TCustomUpDown;
ButtonType : TUDBtnType);
@ -72,7 +72,7 @@ begin
end;
end;
procedure TUpDownButton.DblClick(Sender: TObject);
procedure TUpDownButton.DoubleClick(Sender: TObject);
begin
Click;
end;
@ -120,7 +120,7 @@ begin
ControlStyle := ControlStyle + [csNoFocus];
OnMouseDown := @ButtonMouseDown;
OnMouseUp := @ButtonMouseUp;
OnDblClick := @DblClick;
OnDblClick := @DoubleClick;
end;
Procedure TUpDownButton.Paint;