paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 04:35:57 +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 EditingDone; virtual;
procedure ExecuteDefaultAction; virtual; procedure ExecuteDefaultAction; virtual;
procedure ExecuteCancelAction; virtual; procedure ExecuteCancelAction; virtual;
procedure BeginDrag(Immediate: Boolean; Threshold: Integer); procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
procedure BeginDrag(Immediate: Boolean);
procedure BringToFront; procedure BringToFront;
function ColorIsStored: boolean; virtual; function ColorIsStored: boolean; virtual;
function HasParent: Boolean; override; function HasParent: Boolean; override;

8
lcl/include/control.inc
View File

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