paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-10 08:18:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix TDragObjectEx and other Ex object Create constructors (by patch of Hans-Peter Diettrich, part of #0013427)

Browse Source 
git-svn-id: trunk@19187 -
This commit is contained in:
paul 2009-04-01 14:23:44 +00:00
parent ef83008c93
commit e9ab826ce1
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -345,7 +345,7 @@ type
function GetDragCursor(Accepted: Boolean; X, Y: Integer): TCursor; virtual; function GetDragCursor(Accepted: Boolean; X, Y: Integer): TCursor; virtual;
public public
constructor Create(AControl: TControl); virtual; constructor Create(AControl: TControl); virtual;
constructor AutoCreate(AControl: TControl); virtual; constructor AutoCreate(AControl: TControl);
procedure HideDragImage; virtual; procedure HideDragImage; virtual;
procedure ShowDragImage; virtual; procedure ShowDragImage; virtual;

9
lcl/include/dragobject.inc
View File

@ -66,7 +66,8 @@ end;
constructor TDragObjectEx.Create(AControl: TControl); constructor TDragObjectEx.Create(AControl: TControl);
begin begin
inherited AutoCreate(AControl); inherited Create(AControl);
FAutoCreated := True;
end; end;
{ TDragControlObject } { TDragControlObject }
@ -88,7 +89,8 @@ end;
constructor TDragControlObjectEx.Create(AControl: TControl); constructor TDragControlObjectEx.Create(AControl: TControl);
begin begin
inherited AutoCreate(AControl); inherited Create(AControl);
FAutoCreated := True;
end; end;
{ TDragDockObject } { TDragDockObject }
@ -114,7 +116,8 @@ end;
constructor TDragDockObjectEx.Create(AControl: TControl); constructor TDragDockObjectEx.Create(AControl: TControl);
begin begin
inherited AutoCreate(AControl); inherited Create(AControl);
FAutoCreated := True;
end; end;
// included by controls.pp // included by controls.pp