paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 00:40:03 +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

27
lcl/controls.pp
View File

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