paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 18:09:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: comments

Browse Source 
git-svn-id: trunk@25785 -
This commit is contained in:
mattias 2010-05-30 22:11:50 +00:00
parent 9dc8e28df8
commit dd770a60f3
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lcl/controls.pp
View File

@ -510,14 +510,14 @@ type
DropCtl: TControl); virtual; abstract; overload; DropCtl: TControl); virtual; abstract; overload;
procedure LoadFromStream(Stream: TStream); virtual; abstract; procedure LoadFromStream(Stream: TStream); virtual; abstract;
procedure PaintSite(DC: HDC); virtual; abstract; procedure PaintSite(DC: HDC); virtual; abstract;
procedure MessageHandler(Sender: TControl; var Message: TLMessage); virtual; abstract; procedure MessageHandler(Sender: TControl; var Message: TLMessage); virtual;
procedure PositionDockRect(ADockObject: TDragDockObject); virtual; overload; procedure PositionDockRect(ADockObject: TDragDockObject); virtual; overload;
procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign; procedure PositionDockRect(Client, DropCtl: TControl; DropAlign: TAlign;
var DockRect: TRect); virtual; abstract; overload; var DockRect: TRect); virtual; abstract; overload;
procedure RemoveControl(Control: TControl); virtual; abstract; procedure RemoveControl(Control: TControl); virtual; abstract;
procedure ResetBounds(Force: Boolean); virtual; abstract; procedure ResetBounds(Force: Boolean); virtual; abstract;
procedure SaveToStream(Stream: TStream); virtual; abstract; procedure SaveToStream(Stream: TStream); virtual; abstract;
procedure SetReplacingControl(Control: TControl); virtual; abstract; procedure SetReplacingControl(Control: TControl); virtual;
function AutoFreeByControl: Boolean; virtual; function AutoFreeByControl: Boolean; virtual;
end; end;
@ -3761,6 +3761,11 @@ begin
end; end;
end; end;
procedure TDockManager.SetReplacingControl(Control: TControl);
begin
end;
function TDockManager.AutoFreeByControl: Boolean; function TDockManager.AutoFreeByControl: Boolean;
begin begin
Result := True; Result := True;
@ -3773,12 +3778,12 @@ end;
function TDockManager.GetDockEdge(ADockObject: TDragDockObject): boolean; function TDockManager.GetDockEdge(ADockObject: TDragDockObject): boolean;
begin begin
(* Determine the DropAlign. { Determine the DropAlign.
ADockObject contains valid DragTarget, DragPos, DragTargetPos relative dock site, ADockObject contains valid DragTarget, DragPos, DragTargetPos relative
and DropOnControl. dock site, and DropOnControl.
Return True if ADockObject.DropAlign has been determined. Return True if ADockObject.DropAlign has been determined.
*) }
Result := False; //not implemented Result := False; // use the DockSite.GetDockEdge
end; end;
procedure TDockManager.InsertControl(ADockObject: TDragDockObject); procedure TDockManager.InsertControl(ADockObject: TDragDockObject);
@ -3787,6 +3792,12 @@ begin
ADockObject.DropOnControl); ADockObject.DropOnControl);
end; end;
procedure TDockManager.MessageHandler(Sender: TControl; var Message: TLMessage
);
begin
end;
initialization initialization
//DebugLn('controls.pp - initialization'); //DebugLn('controls.pp - initialization');
RegisterPropertyToSkip(TControl, 'Ctl3D', 'VCL compatibility property', ''); RegisterPropertyToSkip(TControl, 'Ctl3D', 'VCL compatibility property', '');