paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 01:36:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

combined BeginDrag overloads

Browse Source 
git-svn-id: trunk@8927 -
This commit is contained in:
mattias 2006-03-13 00:20:11 +00:00
parent d475a8f893
commit a220d6ec82
2 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/controls.pp
View File

@ -1132,8 +1132,7 @@ type
procedure EditingDone; virtual;
procedure ExecuteDefaultAction; virtual;
procedure ExecuteCancelAction; virtual;
procedure BeginDrag(Immediate: Boolean; Threshold: Integer);
procedure BeginDrag(Immediate: Boolean);
procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
procedure BringToFront;
function ColorIsStored: boolean; virtual;
function HasParent: Boolean; override;

8
lcl/include/control.inc
View File

@ -85,14 +85,6 @@ begin
end;
end;
{------------------------------------------------------------------------------
procedure TControl.BeginDrag(Immediate: Boolean);
------------------------------------------------------------------------------}
procedure TControl.BeginDrag(Immediate: Boolean);
begin
BeginDrag(Immediate, -1);
end;
{------------------------------------------------------------------------------
TControl.BeginAutoDrag
------------------------------------------------------------------------------}