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

EasyDockSite: Replace const string arrays with RTTI value and WriteStr()

Browse Source 
git-svn-id: trunk@34760 -
This commit is contained in:
juha 2012-01-15 23:51:35 +00:00
parent c91ec1c5f9
commit 911e1f4389
1 changed files with 7 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
examples/dockmanager/package/easydocksite.pas
View File

@ -355,23 +355,6 @@ function FindOwnedComponent(const AName: string; AOwner: TComponent): TComponen
const
CustomDockSiteID = 1;
const
AlignNames: array[TAlign] of string = (
'alNone', 'alTop', 'alBottom', 'alLeft', 'alRight', 'alClient', 'alCustom'
);
PartNames: array[TEasyZonePart] of string =
(
'zpNowhere', // not in any zone
'zpClient', // on client control
'zpAll', // total header rect
'zpCaption', // header caption
'zpSizer', // splitter/sizer
{$IFDEF restore}
'zpRestoreButton', // header restore button
{$ENDIF}
'zpCloseButton' // header close button
);
//var AppDockBookClass: TDockBookClass;
var //debug only, these are valid only until drop
@ -2049,6 +2032,7 @@ function TEasyDockManager.GetDockEdge(ADockObject: TDragDockObject): boolean;
var
CanDock: boolean; //dummy
r: TRect;
s: string;
begin
(* Determine dock target(?) and align.
Called with current DockRect (should use InfluenceRect?)
@ -2058,17 +2042,18 @@ begin
//test
exit(false);
if false then Result:=inherited GetDockEdge(ADockObject);
if false then
Result:=inherited GetDockEdge(ADockObject);
{$IFDEF old}
//ADockObject.DockRect
Result := DockSite.DockClientCount = 0; //do nothing if docked clients exist!
if Result then begin
ADockObject.DropAlign := DetectAlign(ADockObject.DockRect, ADockObject.DragPos);
{$IFDEF VerboseDrag}
WriteStr(s, ADockObject.DropAlign);
DebugLn('dockedge x(%d-%d) y(%d-%d) %s', [
ADockObject.DockRect.Left, ADockObject.DockRect.Right,
ADockObject.DockRect.Top, ADockObject.DockRect.Bottom,
AlignNames[ADockObject.DropAlign]
ADockObject.DockRect.Top, ADockObject.DockRect.Bottom, s
]);
{$ELSE}
{$ENDIF}
@ -2082,11 +2067,11 @@ begin
{$ELSE}
DebugLn('DropOnControl ', DbgS(ADockObject.DropOnControl));
ADockObject.DropAlign := DetectAlign(ADockObject.DockRect, ADockObject.DragPos);
WriteStr(s, ADockObject.DropAlign);
Result := True;
DebugLn('dockedge x(%d-%d) y(%d-%d) %s', [
ADockObject.DockRect.Left, ADockObject.DockRect.Right,
ADockObject.DockRect.Top, ADockObject.DockRect.Bottom,
AlignNames[ADockObject.DropAlign]
ADockObject.DockRect.Top, ADockObject.DockRect.Bottom, s
]);
{$ENDIF}
end;