mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-10 10:19:27 +02:00
LCL: removed obsolete ldock
git-svn-id: trunk@34513 -
This commit is contained in:
mattias
parent
cac40f27dc
commit
234a338878
7
.gitattributes
vendored
7
.gitattributes
vendored
@ -3292,9 +3292,6 @@ docs/xml/lcl/lcltype.xml svneol=LF#text/xml eol=lf
|
||||
docs/xml/lcl/lclunicodedata.xml svneol=native#text/plain
|
||||
docs/xml/lcl/lclversion.xml svneol=native#text/plain
|
||||
docs/xml/lcl/lconvencoding.xml svneol=LF#text/plain eol=lf
|
||||
docs/xml/lcl/ldockctrl.xml svneol=LF#text/xml eol=lf
|
||||
docs/xml/lcl/ldockctrledit.xml svneol=LF#text/xml eol=lf
|
||||
docs/xml/lcl/ldocktree.xml svneol=LF#text/xml eol=lf
|
||||
docs/xml/lcl/lmessages.xml svneol=LF#text/xml eol=lf
|
||||
docs/xml/lcl/lresources.xml svneol=LF#text/xml eol=lf
|
||||
docs/xml/lcl/maps.xml svneol=native#text/plain
|
||||
@ -5887,10 +5884,6 @@ lcl/lclstrconsts.pas svneol=native#text/pascal
|
||||
lcl/lcltype.pp svneol=native#text/pascal
|
||||
lcl/lclunicodedata.pas svneol=native#text/pascal
|
||||
lcl/lclversion.pas svneol=native#text/pascal
|
||||
lcl/ldockctrl.pas svneol=native#text/pascal
|
||||
lcl/ldockctrledit.lfm svneol=native#text/plain
|
||||
lcl/ldockctrledit.pas svneol=native#text/pascal
|
||||
lcl/ldocktree.pas svneol=native#text/pascal
|
||||
lcl/lmessages.pp svneol=native#text/pascal
|
||||
lcl/lresources.pp svneol=native#text/pascal
|
||||
lcl/maps.pp svneol=native#text/pascal
|
||||
|
||||
@ -1,828 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<fpdoc-descriptions>
|
||||
<package name="lcl">
|
||||
<!--
|
||||
====================================================================
|
||||
LDockCtrl
|
||||
====================================================================
|
||||
-->
|
||||
<module name="LDockCtrl">
|
||||
<short>This unit contains visual components for docking and streaming</short>
|
||||
<descr/>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Classes">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="SysUtils">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="LCLProc">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Controls">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Forms">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Menus">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="LCLStrConsts">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="LDockCtrlEdit">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="LDockTree">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- object Visibility: default -->
|
||||
<element name="TCustomLazControlDocker">
|
||||
<short>
|
||||
<var>TCustomLazControlDocker</var> - a component to connect a form to the TLazDockingManager</short>
|
||||
<descr>
|
||||
<p>
|
||||
<var>TCustomLazControlDocker</var> - a component to connect a form to the <var>TLazDockingManager</var>
|
||||
</p>
|
||||
<p>When the control gets visible TCustomLazControlDocker restores the layout.</p>
|
||||
<p>Before the control gets invisible, TCustomLazControlDocker saves the layout</p>
|
||||
</descr>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- object Visibility: default -->
|
||||
<element name="TCustomLazDockingManager">
|
||||
<short>
|
||||
<var>TCustomLazDockingManager</var> - base class for <var>TLazDockingManager</var>, a class for managing docking controls</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazDockingManager.FDockerCount">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazDockingManager.FDockers">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazDockingManager.FManager">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- function Visibility: private -->
|
||||
<element name="TCustomLazDockingManager.GetDockers">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- function result Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.GetDockers.Result">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.GetDockers.Index">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: protected -->
|
||||
<element name="TCustomLazDockingManager.Remove">
|
||||
<short>
|
||||
<var>Remove</var> - detaches any controls attached to the specified docker, then nullifies the docker</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.Remove.Docker">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- function Visibility: protected -->
|
||||
<element name="TCustomLazDockingManager.Add">
|
||||
<short>
|
||||
<var>Add</var> - provided the specified Docker is of the correct type, sets up the control to use a docking manager and returns an integer pointer</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- function result Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.Add.Result">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.Add.Docker">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- constructor Visibility: public -->
|
||||
<element name="TCustomLazDockingManager.Create">
|
||||
<short>
|
||||
<var>Create</var> - constructor for <var>TCustomLazDockingManager</var>: calls inherited <var>Create</var> then sets up lists, managers and configurations</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.Create.TheOwner">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- destructor Visibility: public -->
|
||||
<element name="TCustomLazDockingManager.Destroy">
|
||||
<short>
|
||||
<var>Destroy</var> - destructor for <var>TCustomLazDockingManager</var>: frees dockers, managers and configs, then calls inherited <var>Destroy</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TComponent.Destroy">TComponent.Destroy</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<!-- function Visibility: public -->
|
||||
<element name="TCustomLazDockingManager.FindDockerByName">
|
||||
<short>
|
||||
<var>FindDockerByName</var> - returns the identity of a Control Docker given the Docker name</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- function result Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.FindDockerByName.Result">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.FindDockerByName.ADockerName">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.FindDockerByName.Ignore">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- function Visibility: public -->
|
||||
<element name="TCustomLazDockingManager.CreateUniqueName">
|
||||
<short>
|
||||
<var>CreateUniqueName</var> - returns a unique name given a string name</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- function result Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.CreateUniqueName.Result">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.CreateUniqueName.AName">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.CreateUniqueName.Ignore">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazDockingManager.Manager">
|
||||
<short>
|
||||
<var>Manager</var> - the <var>TAnchoredDockManager</var> for the current class</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazDockingManager.DockerCount">
|
||||
<short>
|
||||
<var>DockerCount</var> - the number of dockers in the list</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazDockingManager.Dockers">
|
||||
<short>
|
||||
<var>Dockers</var> - the indexed list of dockers</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazDockingManager.Dockers.Index">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- object Visibility: default -->
|
||||
<element name="TLazDockingManager">
|
||||
<short>
|
||||
<var>TLazDockingManager</var> - class of <var>TCustomLazDockingManager</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- object Visibility: default -->
|
||||
<element name="TCustomLazControlDocker">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.FControl">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.FDockerName">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.FExtendPopupMenu">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.FLocalizedName">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.FManager">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.FPopupMenuItem">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.SetControl">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.SetControl.AValue">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.SetDockerName">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.SetDockerName.AValue">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.SetExtendPopupMenu">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.SetExtendPopupMenu.AValue">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.SetLocalizedName">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.SetLocalizedName.AValue">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.SetManager">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.SetManager.AValue">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TCustomLazControlDocker.PopupMenuItemClick">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.PopupMenuItemClick.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: protected -->
|
||||
<element name="TCustomLazControlDocker.UpdatePopupMenu">
|
||||
<short>
|
||||
<var>UpdatePopupMenu</var> - alters the popup menu to reflect changes</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- procedure Visibility: protected -->
|
||||
<element name="TCustomLazControlDocker.Loaded">
|
||||
<short>
|
||||
<var>Loaded</var> - calls inherited method then calls <var>UpdatePopupMenu</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TComponent.Loaded">TComponent.Loaded</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<!-- procedure Visibility: protected -->
|
||||
<element name="TCustomLazControlDocker.ShowDockingEditor">
|
||||
<short>
|
||||
<var>ShowDockingEditor</var> - makes a popup docking editor dialog appear</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- function Visibility: protected -->
|
||||
<element name="TCustomLazControlDocker.GetLocalizedName">
|
||||
<short>
|
||||
<var>GetLocalizedName</var> - returns a string with the localised name for the docker</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- function result Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.GetLocalizedName.Result">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- constructor Visibility: public -->
|
||||
<element name="TCustomLazControlDocker.Create">
|
||||
<short>
|
||||
<var>Create</var> - constructor for <var>TCustomLazControlDocker</var>: calls inherited <var>Create</var> then extends the popup menu</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TComponent.Create">TComponent.Create</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TCustomLazControlDocker.Create.TheOwner">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazControlDocker.Control">
|
||||
<short>The <var>Control</var> that is to be docked</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazControlDocker.Manager">
|
||||
<short>The docking <var>Manager</var> that is to be used to dock the current control</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazControlDocker.ExtendPopupMenu">
|
||||
<short>
|
||||
<var>ExtendPopupMenu</var> - True if the popup menuis to be extended</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazControlDocker.PopupMenuItem">
|
||||
<short>
|
||||
<var>PopupMenuItem</var> - an item in the popup menu</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazControlDocker.LocalizedName">
|
||||
<short>The <var>LocalizedName</var> of the current docker</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TCustomLazControlDocker.DockerName">
|
||||
<short>
|
||||
<var>DockerName</var> - the name of the current docker</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- object Visibility: default -->
|
||||
<element name="TLazControlDocker">
|
||||
<short>
|
||||
<var>TLazControlDocker</var> - a component to connect a form to the <var>TLazDockingManager</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: published -->
|
||||
<element name="TLazControlDocker.Control" link="#LCL.LDockCtrl.TCustomLazControlDocker.Control">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: published -->
|
||||
<element name="TLazControlDocker.Manager" link="#LCL.LDockCtrl.TCustomLazControlDocker.Manager">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: published -->
|
||||
<element name="TLazControlDocker.ExtendPopupMenu" link="#LCL.LDockCtrl.TCustomLazControlDocker.ExtendPopupMenu">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: published -->
|
||||
<element name="TLazControlDocker.DockerName" link="#LCL.LDockCtrl.TCustomLazControlDocker.DockerName">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="Register">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode">
|
||||
<short>
|
||||
<var>TLazDockConfigNode</var> - a node to be configured in a docking control</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Create">
|
||||
<short>
|
||||
<var>Create</var> - constructor for a new node given a parent node and an optional name for the new node</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Destroy">
|
||||
<short>
|
||||
<var>Destroy</var> - destructor for <var>TLazDocConfigNode</var>: frees parents and children, the calls inherited <var>Destroy</var>
|
||||
</short>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TPersistent.Destroy">TPersistent.Destroy</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Clear">
|
||||
<short>
|
||||
<var>Clear</var> - performs Free and Clear for all child nodes</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Assign">
|
||||
<short>
|
||||
<var>Assign</var> - systematically copies sizes, anchors, titles and other details from <var>Source</var> to a new node.</short>
|
||||
<descr>
|
||||
<var>Assign</var> - systematically copies sizes, anchors, titles and other details from <var>Source</var> to a new node. If <var>Source</var> is of the wrong type, calls inherited <var>Assign</var>, which usually raises an exception</descr>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TPersistent.Assign">TPersistent.Assign</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.FindByName">
|
||||
<short>
|
||||
<var>FindByName</var> - searches through a tree of nodes to find one that matches the given name</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.IndexOf">
|
||||
<short>
|
||||
<var>IndexOf</var> - returns the index value of the given string in the list of child nodes</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.GetScreenBounds">
|
||||
<short>
|
||||
<var>GetScreenBounds</var> - returns the bounds of the area occupied by the node, as screen coordinates</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.FindNeighbour">
|
||||
<short>
|
||||
<var>FindNeighbour</var> - returns the identity of the neighbouring node on the given side; optionally ignores splitters.</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.IsTheOnlyNeighbour">
|
||||
<short>
|
||||
<var>IsTheOnlyNeighbour</var> - returns True if the nominated node is the only neighbour on the specified side</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.SaveToConfig">
|
||||
<short>
|
||||
<var>SaveToConfig</var> - saves details of the configuration to a config file in the given Path</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.LoadFromConfig">
|
||||
<short>
|
||||
<var>LoadFromConfig</var> - loads configuration details from a file in the given path</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.GetPath">
|
||||
<short>
|
||||
<var>GetPath</var> - returns the path name for the configuration file relevant to the current node</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.WriteDebugReport">
|
||||
<short>
|
||||
<var>WriteDebugReport</var> - produces a formatted report with details of the node for which debugging is needed</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.DebugLayoutAsString">
|
||||
<short>
|
||||
<var>DebugLayoutAsString</var> - returns a string specifying the layout of the required debugging report</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Bounds">
|
||||
<short>The <var>Bounds</var> of the current node</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.ClientBounds">
|
||||
<short>
|
||||
<var>ClientBounds</var> - the bounds of the node's clients</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Parent">
|
||||
<short>The <var>Parent</var> of the current node</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Sides">
|
||||
<short>The <var>Sides</var> of the node to which anchoring is to be performed</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.ChildCount">
|
||||
<short>
|
||||
<var>ChildCount</var> - the number of child nodes</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Children">
|
||||
<short>
|
||||
<var>Children</var> - the child nodes in an indexed list</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.TheType">
|
||||
<short>
|
||||
<var>TheType</var> of node (see definition of <var>TLDConfigNodeType</var>)</short>
|
||||
<seealso>
|
||||
<link id="#LCL.LDockCtrl.TLDConfigNodeType">TLDConfigNodeType</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.Name">
|
||||
<short>The <var>Name</var> of the node</short>
|
||||
</element>
|
||||
<element name="TLazDockConfigNode.WindowState">
|
||||
<short>
|
||||
<var>WindowState</var> - the state of the window in which the node is placed</short>
|
||||
</element>
|
||||
<element name="TAnchoredDockManager">
|
||||
<short>
|
||||
<var>TAnchoredDockManager</var> - a manager for anchored docking controls</short>
|
||||
</element>
|
||||
<element name="TAnchoredDockManager.DisableLayout">
|
||||
<short>
|
||||
<var>DisableLayout</var> - disables layout specifically for the given control; calls inherited method</short>
|
||||
<seealso>
|
||||
<link id="#LCL.LDockTree.TCustomAnchoredDockManager.DisableLayout">TCustomAnchoredDockManager.DisableLayout</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TAnchoredDockManager.EnableLayout">
|
||||
<short>
|
||||
<var>EnableLayout</var> - enables layout specifically for the given control; calls inherited method</short>
|
||||
<seealso>
|
||||
<link id="#LCL.LDockTree.TCustomAnchoredDockManager.EnableLayout">TCustomAnchoredDockManager.EnableLayout</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TAnchoredDockManager.Configs">
|
||||
<short>
|
||||
<var>Configs</var> - the configuration settings for the current control</short>
|
||||
</element>
|
||||
<element name="TLazDockerConfig">
|
||||
<short>
|
||||
<var>TLazDockerConfig</var> - a class containing a tree of nodes for configuring a named docker</short>
|
||||
</element>
|
||||
<element name="TLazDockerConfig.Create">
|
||||
<short>
|
||||
<var>Create</var> - constructor for <var>TLazDockerConfig</var>: sets up local variables to hold the docker name and a root node</short>
|
||||
<seealso>
|
||||
<link id="#rtl.System.TObject.Create">TObject.Create</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TLazDockerConfig.Destroy">
|
||||
<short>
|
||||
<var>Destroy</var> - destructor for <var>TLazDockerConfig</var>: removes the root then calls inherited <var>Destroy</var>
|
||||
</short>
|
||||
<seealso>
|
||||
<link id="#rtl.System.TObject.Destroy">TObject.Destroy</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TLazDockerConfig.WriteDebugReport">
|
||||
<short>
|
||||
<var>WriteDebugReport</var> - produces a nicely formatted debugging report</short>
|
||||
</element>
|
||||
<element name="TLazDockerConfig.DockerName">
|
||||
<short>
|
||||
<var>DockerName</var> - the name of the Docker to be configured</short>
|
||||
</element>
|
||||
<element name="TLazDockerConfig.Root">
|
||||
<short>The <var>Root</var> node of the configuration</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.FindControlByDockerName">
|
||||
<short>
|
||||
<var>FindControlByDockerName</var> - returns the identity of a control given its docker name</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.FindDockerByControl">
|
||||
<short>
|
||||
<var>FindDockerByControl</var> - returns the identity of a Control Docker given its control identity</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.GetControlConfigName">
|
||||
<short>
|
||||
<var>GetControlConfigName</var> - returns a config name for the nominated control</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.DisableLayout">
|
||||
<short>
|
||||
<var>DisableLayout</var> - finds whether the docker control exists then disables its layout</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.EnableLayout">
|
||||
<short>
|
||||
<var>EnableLayout</var> - finds whether the docker control exists then enables its layout</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.SaveToConfig">
|
||||
<short>
|
||||
<var>SaveToConfig</var> - saves details to a config storage file</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.LoadFromConfig">
|
||||
<short>
|
||||
<var>LoadFromConfig</var> - loads details from a config storage file</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.AddOrReplaceConfig">
|
||||
<short>
|
||||
<var>AddOrReplaceConfig</var> adds a new docker config, or replace if it already exists</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.ClearConfigs">
|
||||
<short>
|
||||
<var>ClearConfigs</var> - free all the docking configurations</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.GetConfigWithDockerName">
|
||||
<short>
|
||||
<var>GetConfigWithDockerName</var> - returns the configuration detail for the named docker</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.CreateLayout">
|
||||
<short>
|
||||
<var>CreateLayout</var> - returns a layout configuration node for the named docker</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.ConfigIsCompatible">
|
||||
<short>
|
||||
<var>ConfigIsCompatible</var> - checks that the nominated root node has a compatible configuration</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.WriteDebugReport">
|
||||
<short>
|
||||
<var>WriteDebugReport</var> - produces a formatted report of status for debugging</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.ConfigCount">
|
||||
<short>
|
||||
<var>ConfigCount</var> - the number of configuration nodes</short>
|
||||
</element>
|
||||
<element name="TCustomLazDockingManager.Configs">
|
||||
<short>
|
||||
<var>Configs</var> - the indexed list of config nodes</short>
|
||||
</element>
|
||||
<element name="TLCDMenuItem">
|
||||
<short>
|
||||
<var>TLCDMenuItem</var> - an item in a Control Docker Menu</short>
|
||||
</element>
|
||||
<element name="TLCDMenuItem.Menu">
|
||||
<short>
|
||||
<var>Menu</var> - a popup menu for this item</short>
|
||||
</element>
|
||||
<element name="TLCDMenuItem.Item">
|
||||
<short>
|
||||
<var>Item</var> - the actual contents of this menu item</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.ControlVisibleChanging">
|
||||
<short>
|
||||
<var>ControlVisibleChanging</var> - debugging method to indicate if <var>Visible</var> state of the control is changing</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.CreateFormAndDockWithSplitter">
|
||||
<short>
|
||||
<var>CreateFormAndDockWithSplitter</var> - add a splitter to Side and dock to it. Returns True if successful</short>
|
||||
<descr>
|
||||
<p>Add a splitter to Side and dock to it. For example:</p>
|
||||
<pre>Side=akLeft
|
||||
--------+ -------------+
|
||||
---+| ---+#+------+|
|
||||
A || A |#| ||
|
||||
---+| ---+#| ||
|
||||
====| -> ====#| Self ||
|
||||
---+| ---+#| ||
|
||||
B || B |#| ||
|
||||
---+| ---+#+------+|
|
||||
--------+ -------------+</pre>
|
||||
<p>If A has no parent, a TLazDockForm is created.</p>
|
||||
<p>To get space for Self, either A,B are shrunk
|
||||
and/or the parent of A,B is enlarged (including the grand parents of A,B)</p>
|
||||
</descr>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.DockAsPage">
|
||||
<short>
|
||||
<var>DockAsPage</var> - dock as a page as specified in <var>Layout</var>. Returns True if successful</short>
|
||||
<descr>
|
||||
<p>
|
||||
<var>DockAsPage</var> - dock as a page as specified in <var>Layout</var>.</p>
|
||||
<p>Requirements: Parent in Layout is a <var>ldcntPage</var> and a parent control exists.</p>
|
||||
</descr>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.FixControlBounds">
|
||||
<short>
|
||||
<var>FixControlBounds</var> - fix bounds after inserting AddedControl</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.ShrinkNeighbourhood">
|
||||
<short>
|
||||
<var>ShrinkNeighbourhood</var> - shrink neighbour controls according to Layout</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.FindPageNeighbours">
|
||||
<short>
|
||||
<var>FindPageNeighbours</var> - returns a list of the neighbour controls for the docker</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.Notification">
|
||||
<short>
|
||||
<var>Notification</var> - calls inherited method, then performs specified operation depending on type of component, usually involving removal</short>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TComponent.Notification">TComponent.Notification</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.FindLCDMenuItem">
|
||||
<short>
|
||||
<var>FindLCDMenuItem</var> - returns an item from the specified menu</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.Destroy">
|
||||
<short>
|
||||
<var>Destroy</var> - destructor for <var>TCustomLazControlDocker</var>: calls inherited <var>Destroy </var>and removes all associated controls</short>
|
||||
<seealso>
|
||||
<link id="#rtl.Classes.TComponent.Destroy">TComponent.Destroy</link>
|
||||
</seealso>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.GetLayoutFromControl">
|
||||
<short>
|
||||
<var>GetLayoutFromControl</var> - returns a dock config node containing the control's layout</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.SaveLayout">
|
||||
<short>
|
||||
<var>SaveLayout</var> - stores the layout, usually just before hiding a control or closing a form</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.RestoreLayout">
|
||||
<short>
|
||||
<var>RestoreLayout</var> from its stored location, when the control is unhidden or the form is re-loaded</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.DisableLayout">
|
||||
<short>
|
||||
<var>DisableLayout</var> and increment the count of locked layouts</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.EnableLayout">
|
||||
<short>
|
||||
<var>EnableLayout</var> and decrement the count of locked layouts</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.ControlIsDocked">
|
||||
<short>
|
||||
<var>ControlIsDocked</var> - checks that the control and its parent actually exist and at least one of them is a dock form or a dock page</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.GetControlName">
|
||||
<short>
|
||||
<var>GetControlName</var> - returns the string name of the specified control</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.AddPopupMenu">
|
||||
<short>
|
||||
<var>AddPopupMenu</var> - if the menu does not yet exist, creates the structure and menu items for a popup menu</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.RemovePopupMenu">
|
||||
<short>
|
||||
<var>RemovePopupMenu</var> - removes menu, usually during the process of removing the docking control</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.Enabled">
|
||||
<short>
|
||||
<var>Enabled</var> - true if layout is to be automatically restored on show</short>
|
||||
</element>
|
||||
<element name="TCustomLazControlDocker.LayoutLock">
|
||||
<short>
|
||||
<var>LayoutLock</var> - the number of layouts that are locked</short>
|
||||
</element>
|
||||
<element name="TLazControlDocker.Enabled" link="#LCL.LDockCtrl.TCustomLazControlDocker.Enabled"/>
|
||||
</module>
|
||||
<!-- LDockCtrl -->
|
||||
</package>
|
||||
</fpdoc-descriptions>
|
||||
@ -1,384 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<fpdoc-descriptions>
|
||||
<package name="lcl">
|
||||
<!--
|
||||
====================================================================
|
||||
LDockCtrlEdit
|
||||
====================================================================
|
||||
-->
|
||||
<module name="LDockCtrlEdit">
|
||||
<short>This unit contains a dialog to dock or undock a control to another</short>
|
||||
<descr/>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Classes">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="SysUtils">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="LResources">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Forms">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Controls">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Graphics">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Dialogs">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="Buttons">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- unresolved type reference Visibility: default -->
|
||||
<element name="StdCtrls">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- enumeration type Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- enumeration value Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult.ldcedrNone">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- enumeration value Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult.ldcedrUndock">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- enumeration value Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult.ldcedrDockLeft">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- enumeration value Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult.ldcedrDockRight">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- enumeration value Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult.ldcedrDockTop">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- enumeration value Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult.ldcedrDockBottom">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- enumeration value Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlgResult.ldcedrDockPage">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- object Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg">
|
||||
<short>
|
||||
<var>TLazDockControlEditorDlg</var> - a dialog to control the docking or undocking of a control with another</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.CancelButton">
|
||||
<short>
|
||||
<var>CancelButton</var> - hitting this button cancels the action</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockControlComboBox">
|
||||
<short>
|
||||
<var>DockControlComboBox</var> displays the various actions for selection</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockPageButton">
|
||||
<short>
|
||||
<var>DockPageButton</var> - a SpeedButton for moving the whole page</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockBottomButton">
|
||||
<short>
|
||||
<var>DockBottomButton</var> - a SpeedButton for docking the bottom border</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockTopButton">
|
||||
<short>
|
||||
<var>DockTopButton</var> - a SpeedButton for docking the top border</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockRightButton">
|
||||
<short>
|
||||
<var>DockRightButton</var> - a SpeedButton for docking the right border</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockLeftButton">
|
||||
<short>
|
||||
<var>DockLeftButton</var> - a SpeedButton for docking the left border</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockGroupBox">
|
||||
<short>
|
||||
<var>DockGroupBox</var> - a GroupBox to contain the docking buttons</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockControlLabel">
|
||||
<short>
|
||||
<var>DockControlLabel</var> - a label for the dock control</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.UndockButton">
|
||||
<short>
|
||||
<var>UndockButton</var> - a buton for undocking the control</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.UndockGroupBox">
|
||||
<short>
|
||||
<var>UndockGroupBox</var> - a box to contain the undock button and any associated elements</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockBottomButtonClick">
|
||||
<short>
|
||||
<var>DockBottomButtonClick</var> - method for responding to a click on the <var>DockBottomButton</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockBottomButtonClick.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockControlComboBoxEditingDone">
|
||||
<short>
|
||||
<var>DockControlComboBoxEditingDone</var> - method invoked when editing of the ComboBox is done</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockControlComboBoxEditingDone.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockLeftButtonClick">
|
||||
<short>
|
||||
<var>DockLeftButtonClick</var> - method to respond to a click on the DockLeftButton</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockLeftButtonClick.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockPageButtonClick">
|
||||
<short>
|
||||
<var>DockPageButtonClick</var> - method to respond to a click on the <var>DockPageButton</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockPageButtonClick.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockRightButtonClick">
|
||||
<short>
|
||||
<var>DockRightButtonClick</var> - method to respond to a click on the <var>DockRightButton</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockRightButtonClick.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockTopButtonClick">
|
||||
<short>
|
||||
<var>DockTopButtonClick</var> - method to respond to a click on the <var>DockTopButton</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.DockTopButtonClick.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.FormCreate">
|
||||
<short>
|
||||
<var>FormCreate</var> - method for creating the dialog form</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.FormCreate.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.UndockButtonClick">
|
||||
<short>
|
||||
<var>UndockButtonClick</var> - method to respond to a click on the <var>UndockButton</var>
|
||||
</short>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.UndockButtonClick.Sender">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TLazDockControlEditorDlg.FCurrentControlName">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- variable Visibility: private -->
|
||||
<element name="TLazDockControlEditorDlg.FDlgResult">
|
||||
<short/>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TLazDockControlEditorDlg.CheckSetDlgResult">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.CheckSetDlgResult.NewDlgResult">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TLazDockControlEditorDlg.SetCurrentControlName">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- argument Visibility: default -->
|
||||
<element name="TLazDockControlEditorDlg.SetCurrentControlName.AValue">
|
||||
<short/>
|
||||
</element>
|
||||
<!-- procedure Visibility: private -->
|
||||
<element name="TLazDockControlEditorDlg.UpdateButtonEnabled">
|
||||
<short/>
|
||||
<descr/>
|
||||
<errors/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TLazDockControlEditorDlg.DlgResult">
|
||||
<short>
|
||||
<var>DlgResult</var> - the result of the dialog: shows whether a moving button, an enlarging button or another control was pressed</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<!-- property Visibility: public -->
|
||||
<element name="TLazDockControlEditorDlg.CurrentControlName">
|
||||
<short>
|
||||
<var>CurrentControlName</var> - the name of the current control (the one being docked)</short>
|
||||
<descr/>
|
||||
<seealso/>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeGroupBox">
|
||||
<short>
|
||||
<var>EnlargeGroupBox</var> - a GroupBox to contain the Enlarge buttons</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeLeftSpeedButton">
|
||||
<short>
|
||||
<var>EnlargeLeftSpeedButton</var> - a SpeedButton for enlarging the docking control by moving the left border</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeRightSpeedButton">
|
||||
<short>
|
||||
<var>EnlargeRightSpeedButton</var> - a Speedbutton for enlarging the docking control by moving its right border</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeTopSpeedButton">
|
||||
<short>
|
||||
<var>EnlargeTopSpeedButton</var> - a SpeedButton for enlarging the docking control by moving its top border</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeBottomSpeedButton">
|
||||
<short>
|
||||
<var>EnlargeBottomSpeedButton</var> - a SpeedButton for enlarging the docking control by moving its bottom border</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeBottomSpeedButtonClick">
|
||||
<short>
|
||||
<var>EnlargeBottomSpeedButtonClick</var> - method to respond to a click on the <var>EnlargeBottomSpeedButton</var>
|
||||
</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeLeftSpeedButtonClick">
|
||||
<short>
|
||||
<var>EnlargeLeftSpeedButtonClick</var> - method to respond to a click on the <var>EnlargeLeftSpeedButton</var>
|
||||
</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeRightSpeedButtonClick">
|
||||
<short>
|
||||
<var>EnlargeRightSpeedButtonClick</var> - method to respond to a click on the <var>EnlargeRightSpeedButton</var>
|
||||
</short>
|
||||
</element>
|
||||
<element name="TLazDockControlEditorDlg.EnlargeTopSpeedButtonClick">
|
||||
<short>
|
||||
<var>EnlargeTopSpeedButtonClick</var> - method to respond to a click on the <var>EnlargeTopSpeedButton</var>
|
||||
</short>
|
||||
</element>
|
||||
</module>
|
||||
<!-- LDockCtrlEdit -->
|
||||
</package>
|
||||
</fpdoc-descriptions>
|
||||
File diff suppressed because it is too large
Load Diff
@ -15,18 +15,18 @@ uses
|
||||
IniPropStorage, InterfaceBase, IntfGraphics, LazConfigStorage, LazHelpHTML,
|
||||
LazHelpIntf, LazLinkedList, LCLClasses, LCLIntf, LCLMemManager,
|
||||
LCLMessageGlue, LCLProc, LCLResCache, LCLStrConsts, LCLType, Menus,
|
||||
LCLUnicodeData, LCLVersion, LDockCtrl, LDockCtrlEdit, LDockTree, LMessages,
|
||||
LResources, maps, MaskEdit, PairSplitter, PopupNotifier, PostScriptCanvas,
|
||||
PostScriptPrinter, postscriptunicode, Printers, PropertyStorage, RubberBand,
|
||||
ShellCtrls, Spin, StdActns, StdCtrls, StringHashList, TextStrings, Themes,
|
||||
TmSchema, Toolwin, Translations, UTF8Process, UTrace, XMLPropStorage,
|
||||
Messages, WSArrow, WSButtons, WSCalendar, WSCheckLst, WSComCtrls,
|
||||
WSControls, WSDesigner, WSDialogs, WSExtCtrls, WSExtDlgs, WSFactory,
|
||||
WSForms, WSGrids, WSImgList, WSLCLClasses, WSMenus, WSPairSplitter, WSProc,
|
||||
WSReferences, WSSpin, WSStdCtrls, WSToolwin, ActnList, Arrow, AsyncProcess,
|
||||
ButtonPanel, Buttons, Calendar, RegisterLCL, ValEdit, lazcanvas, lazdialogs,
|
||||
lazregions, customdrawn_common, customdrawncontrols, customdrawndrawers,
|
||||
lazdeviceapis, LazarusPackageIntf;
|
||||
LCLUnicodeData, LCLVersion, LDockTree, LMessages, LResources, maps,
|
||||
MaskEdit, PairSplitter, PopupNotifier, PostScriptCanvas, PostScriptPrinter,
|
||||
postscriptunicode, Printers, PropertyStorage, RubberBand, ShellCtrls, Spin,
|
||||
StdActns, StdCtrls, StringHashList, TextStrings, Themes, TmSchema, Toolwin,
|
||||
Translations, UTF8Process, UTrace, XMLPropStorage, Messages, WSArrow,
|
||||
WSButtons, WSCalendar, WSCheckLst, WSComCtrls, WSControls, WSDesigner,
|
||||
WSDialogs, WSExtCtrls, WSExtDlgs, WSFactory, WSForms, WSGrids, WSImgList,
|
||||
WSLCLClasses, WSMenus, WSPairSplitter, WSProc, WSReferences, WSSpin,
|
||||
WSStdCtrls, WSToolwin, ActnList, Arrow, AsyncProcess, ButtonPanel, Buttons,
|
||||
Calendar, RegisterLCL, ValEdit, lazcanvas, lazdialogs, lazregions,
|
||||
customdrawn_common, customdrawncontrols, customdrawndrawers, lazdeviceapis,
|
||||
LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
628
lcl/lclbase.lpk
628
lcl/lclbase.lpk
File diff suppressed because it is too large
Load Diff
3955
lcl/ldockctrl.pas
3955
lcl/ldockctrl.pas
File diff suppressed because it is too large
Load Diff
@ -1,514 +0,0 @@
|
||||
object LazDockControlEditorDlg: TLazDockControlEditorDlg
|
||||
Left = 292
|
||||
Height = 318
|
||||
Top = 196
|
||||
Width = 200
|
||||
HorzScrollBar.Page = 199
|
||||
VertScrollBar.Page = 317
|
||||
ActiveControl = UndockButton
|
||||
AutoSize = True
|
||||
Caption = 'LazDockControlEditorDlg'
|
||||
ClientHeight = 318
|
||||
ClientWidth = 200
|
||||
Constraints.MinHeight = 200
|
||||
Constraints.MinWidth = 200
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.25'
|
||||
object UndockGroupBox: TGroupBox
|
||||
Height = 51
|
||||
Width = 193
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
Caption = 'UndockGroupBox'
|
||||
ChildSizing.LeftRightSpacing = 5
|
||||
ChildSizing.TopBottomSpacing = 5
|
||||
ClientHeight = 33
|
||||
ClientWidth = 189
|
||||
TabOrder = 0
|
||||
object UndockButton: TButton
|
||||
Left = 5
|
||||
Height = 23
|
||||
Top = 5
|
||||
Width = 95
|
||||
AutoSize = True
|
||||
Caption = 'UndockButton'
|
||||
OnClick = UndockButtonClick
|
||||
TabOrder = 0
|
||||
end
|
||||
end
|
||||
object DockGroupBox: TGroupBox
|
||||
AnchorSideTop.Control = UndockGroupBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Height = 167
|
||||
Top = 57
|
||||
Width = 193
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 6
|
||||
Caption = 'DockGroupBox'
|
||||
ChildSizing.LeftRightSpacing = 5
|
||||
ChildSizing.TopBottomSpacing = 5
|
||||
ClientHeight = 149
|
||||
ClientWidth = 189
|
||||
TabOrder = 1
|
||||
object DockControlLabel: TLabel
|
||||
AnchorSideTop.Control = DockControlComboBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 9
|
||||
Height = 14
|
||||
Top = 8
|
||||
Width = 84
|
||||
BorderSpacing.Around = 2
|
||||
Caption = 'DockControlLabel'
|
||||
ParentColor = False
|
||||
end
|
||||
object DockLeftButton: TSpeedButton
|
||||
AnchorSideLeft.Control = DockGroupBox
|
||||
AnchorSideTop.Control = DockGroupBox
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = DockPageButton
|
||||
AnchorSideBottom.Control = DockBottomButton
|
||||
Left = 39
|
||||
Height = 30
|
||||
Top = 74
|
||||
Width = 30
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Right = 10
|
||||
BorderSpacing.Bottom = 10
|
||||
Caption = 'To Left'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = DockLeftButtonClick
|
||||
ShowCaption = False
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object DockRightButton: TSpeedButton
|
||||
AnchorSideLeft.Control = DockPageButton
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = DockLeftButton
|
||||
AnchorSideRight.Control = DockGroupBox
|
||||
Left = 119
|
||||
Height = 30
|
||||
Top = 74
|
||||
Width = 30
|
||||
BorderSpacing.Left = 10
|
||||
Caption = 'To Right'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = DockRightButtonClick
|
||||
ShowCaption = False
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object DockTopButton: TSpeedButton
|
||||
AnchorSideLeft.Control = DockGroupBox
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = DockLeftButton
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = DockPageButton
|
||||
Left = 79
|
||||
Height = 30
|
||||
Top = 34
|
||||
Width = 30
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Bottom = 10
|
||||
Caption = 'To Top'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = DockTopButtonClick
|
||||
ShowCaption = False
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object DockBottomButton: TSpeedButton
|
||||
AnchorSideLeft.Control = DockGroupBox
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = DockLeftButton
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideBottom.Control = DockGroupBox
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 79
|
||||
Height = 30
|
||||
Top = 114
|
||||
Width = 30
|
||||
Anchors = [akLeft, akBottom]
|
||||
BorderSpacing.Bottom = 5
|
||||
Caption = 'To Bottom'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = DockBottomButtonClick
|
||||
ShowCaption = False
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object DockPageButton: TSpeedButton
|
||||
AnchorSideLeft.Control = DockGroupBox
|
||||
AnchorSideLeft.Side = asrCenter
|
||||
AnchorSideTop.Control = DockLeftButton
|
||||
Left = 79
|
||||
Height = 30
|
||||
Top = 74
|
||||
Width = 30
|
||||
Caption = 'As Page'
|
||||
Color = clBtnFace
|
||||
NumGlyphs = 0
|
||||
OnClick = DockPageButtonClick
|
||||
ShowCaption = False
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object DockControlComboBox: TComboBox
|
||||
AnchorSideLeft.Control = DockControlLabel
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
Left = 97
|
||||
Height = 21
|
||||
Top = 5
|
||||
Width = 71
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
BorderSpacing.Left = 4
|
||||
ItemHeight = 13
|
||||
MaxLength = 0
|
||||
OnEditingDone = DockControlComboBoxEditingDone
|
||||
TabOrder = 0
|
||||
Text = 'DockControlComboBox'
|
||||
end
|
||||
end
|
||||
object CancelButton: TButton
|
||||
AnchorSideTop.Control = EnlargeGroupBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 55
|
||||
Height = 23
|
||||
Top = 287
|
||||
Width = 90
|
||||
Anchors = [akTop]
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 10
|
||||
BorderSpacing.Bottom = 6
|
||||
Caption = 'CancelButton'
|
||||
ModalResult = 2
|
||||
TabOrder = 2
|
||||
end
|
||||
object EnlargeGroupBox: TGroupBox
|
||||
AnchorSideTop.Control = DockGroupBox
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Height = 53
|
||||
Top = 224
|
||||
Width = 193
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoSize = True
|
||||
Caption = 'EnlargeGroupBox'
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.HorizontalSpacing = 6
|
||||
ChildSizing.VerticalSpacing = 6
|
||||
ChildSizing.Layout = cclTopToBottomThenLeftToRight
|
||||
ClientHeight = 35
|
||||
ClientWidth = 189
|
||||
TabOrder = 3
|
||||
object EnlargeLeftSpeedButton: TSpeedButton
|
||||
Left = 6
|
||||
Height = 23
|
||||
Top = 6
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
C6070000424DC607000000000000360000002800000016000000160000000100
|
||||
2000000000009007000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000037337FF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000036733FF19844AFF04733BFF00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000000000000056F
|
||||
37FF258C56FF77CEA5FF047339FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000004733BFF359D67FF77D6A7FF84D6
|
||||
ADFF04733BFF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000004773DFF46AF7BFF73D7A7FF1EB76BFF84D6ADFF05773BFF0473
|
||||
3BFF04733BFF04733BFF04733BFF04733BFF037339FF00000000000000000000
|
||||
000000000000000000000000000000000000000000000000000008773DFF5AC6
|
||||
8FFF6BD79FFF17BF6BFF0CB55EFF84D7ADFF7FCFA5FF7FCEA7FF7FCEA7FF7FCE
|
||||
A7FF7FCEA7FF7BCFA5FF047339FF000000000000000000000000000000000000
|
||||
00000000000000000000000000000E7B43FF67CF97FF5FD697FF12BD67FF0DB5
|
||||
63FF0BAF5BFF09A756FF079F53FF069E4EFF069E4EFF069E4EFF099F52FF7BCF
|
||||
A5FF047339FF0000000000000000000000000000000000000000000000000477
|
||||
3BFF14864BFF73CF9EFF4ECF8CFF0FBF63FF0EB763FF0CB55FFF0AAF5BFF08A5
|
||||
56FF069D52FF069E4EFF069E4EFF069E4EFF099F52FF7BCFA5FF047339FF0000
|
||||
00000000000000000000000000000000000003773DFF218C57FF7BD7A5FF4ECE
|
||||
8DFF2BBF73FF31BF77FF29BF73FF1FB767FF13AF5FFF07A552FF069E4EFF069E
|
||||
4EFF069E4EFF069E4EFF0C9C52FF87CEA7FF04773BFF00000000000000000000
|
||||
0000000000000000000003773DFF278E5AFF85D6AFFF5ECE95FF39BF7BFF3DBF
|
||||
7FFF43BF7FFF46BD7FFF47BD7FFF43B57BFF39AF73FF2FAF6BFF31AF6FFF37AF
|
||||
73FF42B77BFF9CD7B7FF04773BFF000000000000000000000000000000000000
|
||||
00000000000004773BFF17864AFF86CEA7FF77CF9FFF46BD7FFF4ABD85FF4BBF
|
||||
86FF4FBD86FF4FB786FF53BD87FF53BD87FF4FB786FF4FB784FF4EB784FF9DD6
|
||||
BDFF04773BFF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000D7B43FF7BC79DFF8CD7AFFF52BD87FF53BF85FF57BF87FF5BBD
|
||||
8DFF5ABD8EFF5ABD8EFF5BBD8DFF57BF87FF57BD86FFA5DEBDFF04773BFF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000006773BFF6BBD8FFF9CD7B7FF63BF94FF63BF8FFFAFDFC7FFAFDEC7FFAFDE
|
||||
C7FFAFDFC7FFADDFC6FFAFDEC6FFA5DEBFFF04773BFF00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000377
|
||||
3BFF56AF7FFFA5DEBFFF7BCE9FFFAFDEC6FF05773DFF04733BFF04733BFF0473
|
||||
3BFF04733BFF04733BFF03773BFF000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000004773BFF3F9F
|
||||
6FFFADDFC6FFB7E7CFFF04733BFF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000003773BFF298C5AFFA7D7
|
||||
BDFF04733BFF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000157F4AFF04733BFF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000004773BFF00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000
|
||||
}
|
||||
NumGlyphs = 0
|
||||
OnClick = EnlargeLeftSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object EnlargeRightSpeedButton: TSpeedButton
|
||||
Left = 35
|
||||
Height = 23
|
||||
Top = 6
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
C6070000424DC607000000000000360000002800000016000000160000000100
|
||||
2000000000009007000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000037339FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000004733BFF19854BFF036733FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000473
|
||||
3BFF77C69CFF298E5AFF036F35FF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000047339FF7FCEA7FF77CF
|
||||
A5FF399D6BFF047339FF00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000003773BFF04733BFF0473
|
||||
3BFF04733BFF04733BFF04733BFF04773BFF7FCEA7FF1EB567FF73D79FFF4BB5
|
||||
7BFF04773BFF0000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000004733BFF77C69DFF7FCEA7FF7FCEA7FF7FCE
|
||||
A7FF7FCEA7FF7FCEA7FF7FCFA5FF0DAD5BFF14B763FF67D69FFF5BC68FFF0977
|
||||
3FFF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000004773BFF77C69DFF0D9D53FF069E4EFF069E4EFF069E4EFF069E
|
||||
4EFF079F53FF09A756FF0BAF5BFF0FB563FF5AD694FF6BCF9DFF0F7B43FF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000477
|
||||
3BFF77C69DFF0D9D53FF069E4EFF069E4EFF069E4EFF069E4EFF069C4FFF08A5
|
||||
56FF0AAF5BFF0CB55FFF0EB763FF4ACF8DFF73D6A5FF17874EFF03773BFF0000
|
||||
0000000000000000000000000000000000000000000004773BFF7FCFA7FF109E
|
||||
57FF069E4EFF069E4EFF069E4EFF069E4EFF069E4EFF11A55BFF1EAF67FF2BB7
|
||||
6FFF33BD77FF2DBF77FF4FCE8DFF7FD7A7FF238F5AFF03773DFF000000000000
|
||||
000000000000000000000000000004773BFF96D7B5FF43B77BFF35AD73FF2FAF
|
||||
6BFF2FAF6BFF37AF73FF46B77BFF47B57BFF47BD7FFF43BD7FFF43BF7FFF3DBF
|
||||
7FFF5ECE97FF8DD6AFFF2B955FFF03773DFF0000000000000000000000000000
|
||||
00000000000004733BFF97D6B5FF4BB77FFF4AB57FFF4FB784FF4FB786FF53BD
|
||||
87FF53BD87FF4FB786FF4FBD86FF4BBF86FF4ABD85FF77CFA5FF87D7AFFF1B85
|
||||
4FFF04773BFF0000000000000000000000000000000000000000000000000477
|
||||
3BFF9ED7B7FF53BD84FF53BD84FF57BF87FF5BBD8DFF5ABD8EFF5ABD8EFF5BBD
|
||||
8DFF57BF87FF57BF87FF8CD7AFFF7FCEA5FF0F7F46FF00000000000000000000
|
||||
0000000000000000000000000000000000000000000004733BFF9DD7BDFFA7DF
|
||||
C6FFAFDEC6FFADDFC6FFAFDFC7FFAFDEC7FFAFDEC7FF6BC797FF67C797FF9ED6
|
||||
B7FF6FBF97FF07773DFF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000003773BFF04733BFF04733BFF04733BFF0473
|
||||
3BFF04733BFF04773DFFADDFC6FF7FCEA7FFA7DFC6FF5BAF86FF03773BFF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000477
|
||||
3BFFB7DFCEFFAFDEC7FF469E73FF04773BFF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000004773BFFA5DEBFFF2D8F
|
||||
5FFF03773BFF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000000000004773BFF157F4AFF00000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000004773BFF00000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000
|
||||
}
|
||||
NumGlyphs = 0
|
||||
OnClick = EnlargeRightSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object EnlargeTopSpeedButton: TSpeedButton
|
||||
Left = 64
|
||||
Height = 23
|
||||
Top = 6
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
C6070000424DC607000000000000360000002800000016000000160000000100
|
||||
2000000000009007000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000004733BFF04733BFF04733BFF04733BFF04733BFF04733BFF04733BFF0473
|
||||
3BFF04733BFF04733BFF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000004733BFF86DE
|
||||
ADFF86DEAFFF87DEAFFF87DEB5FF84DFB5FF87DEB5FF87DEAFFF86DEAFFF0877
|
||||
3DFF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000004733BFF86DFADFF0FBD67FF11C6
|
||||
6BFF12C76BFF13CF6FFF12C76BFF11C66BFF84DEADFF08773DFF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000004733BFF86DEADFF10BF67FF12C76BFF14CF6FFF15D7
|
||||
73FF14CF6FFF12C76BFF84DFAFFF08773DFF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000004733BFF86DEADFF10BD67FF11C76BFF13CE6FFF13CE6FFF13CE6FFF11C7
|
||||
6BFF84DEADFF08773DFF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000004733BFF8DDE
|
||||
B5FF0EBD63FF10BD67FF11C767FF11C66BFF11C767FF10BD67FF7FDEADFF0877
|
||||
3DFF000000000000000000000000000000000000000000000000000000000000
|
||||
000004773BFF05773BFF05773BFF05773BFF057B3DFF96DEBDFF19B767FF0EB7
|
||||
63FF0EBD63FF0FBF63FF0EBD63FF0EB763FF7FD7AFFF0C7F42FF05773BFF0477
|
||||
39FF04733BFF04773BFF00000000000000000000000000000000000000001885
|
||||
4AFF94D6AFFF9DDFBFFF9FDEBFFF9DDFBDFF33BF77FF1CB567FF0EB75EFF0CB7
|
||||
5EFF0CB55FFF0CAF5EFF7BD6A5FF7FD6A7FF84D6A7FF77C79CFF167F4BFF0000
|
||||
00000000000000000000000000000000000000000000000000002B8E5AFF9CD6
|
||||
BDFF5EC68EFF47BD7FFF39B777FF2FB573FF23B76BFF12AD5FFF0BAD5BFF0AAD
|
||||
57FF09A557FF1DAF63FF77CE9DFF218D53FF04773BFF00000000000000000000
|
||||
00000000000000000000000000000000000003773DFF439D6FFF9FD7BDFF53BD
|
||||
84FF3DB777FF33B573FF27AD6BFF1BAD63FF0FA55AFF07A552FF13A75AFF6FC7
|
||||
9EFF2F9663FF04773BFF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000004773BFF5FAF84FF96D7B5FF47B57BFF37AD
|
||||
73FF29AD67FF1CA75EFF109E57FF0B9C53FF67C797FF3FA76FFF04773BFF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000003773BFF77BD97FF85CEA7FF3BAF73FF2DAD6BFF1FA5
|
||||
63FF139F57FF5ABD8EFF4EAF7FFF04773BFF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000B7B42FF86C7A7FF6FC796FF2FAF6BFF21A563FF57BF86FF5EBD
|
||||
8DFF06773DFF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000157F47FF8ECEAFFF53BD87FF53BD86FF6FC797FF0A7B43FF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000002386
|
||||
56FF8ECEAFFF7FCEA5FF16864AFF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000339663FF258F
|
||||
5AFF03773BFF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000003773DFF04773BFF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000
|
||||
}
|
||||
NumGlyphs = 0
|
||||
OnClick = EnlargeTopSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
object EnlargeBottomSpeedButton: TSpeedButton
|
||||
Left = 93
|
||||
Height = 23
|
||||
Top = 6
|
||||
Width = 23
|
||||
Color = clBtnFace
|
||||
Glyph.Data = {
|
||||
C6070000424DC607000000000000360000002800000016000000160000000100
|
||||
2000000000009007000064000000640000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000036F37FF037339FF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00001C8C53FF2D9663FF03773DFF000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000000000000127F46FF73D7A7FF7BD7
|
||||
ADFF1E8E52FF0000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000000000000000000000B7B43FF6BCE9EFF46CE8CFF3BCE86FF77D7A7FF127F
|
||||
46FF000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000577
|
||||
3DFF5EC78EFF57CF95FF11C76BFF12C76BFF4EDE96FF6BD69EFF097B3FFF0000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000005773DFF5AB787FF63CF97FF11BD
|
||||
67FF11C66BFF13CE6FFF14CE73FF63DF9DFF5AC78FFF05773DFF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000004773BFF52AD7FFF8DDEB5FF1BB767FF0FBD63FF10BF67FF12C6
|
||||
6BFF12C76BFF16C76FFF6FDEA7FF47B57BFF05773DFF00000000000000000000
|
||||
000000000000000000000000000000000000000000000000000003773DFF429F
|
||||
6FFF9DDFBDFF53C78DFF3BBF7BFF13B763FF0FBD63FF10BD67FF10BF67FF10BF
|
||||
67FF1ABF6BFF77D6A5FF319C67FF04773BFF0000000000000000000000000000
|
||||
000000000000000000000000000000000000319563FFA5DEBFFF63C795FF4EBD
|
||||
87FF47BF85FF3BBF7BFF1FBD6BFF0EB563FF0EB763FF0EB763FF11B763FF27BF
|
||||
6FFF7BD7A5FF1F8E52FF04773BFF000000000000000000000000000000000000
|
||||
0000000000001F8552FFA5DEBDFFAFDFC6FFA7DFC7FFA5DEBFFF4ABD84FF42BF
|
||||
7FFF39BF7BFF29BD6FFF0FB55FFF0BAF5BFF85D7AFFF7FD6A7FF7FD6A7FF73C7
|
||||
9EFF117F46FF000000000000000000000000000000000000000004773BFF0473
|
||||
3BFF04733BFF04733BFF05773DFFA5DEBFFF4BBD7FFF43B77BFF37B577FF31B5
|
||||
73FF21B567FF0BA757FF84D6A7FF05773DFF04773BFF04773BFF04773BFF0477
|
||||
3BFF000000000000000000000000000000000000000000000000000000000000
|
||||
000004733BFFA7DFC6FF4BB77FFF42B77BFF39B573FF31AF6FFF27AF67FF16A5
|
||||
5BFF7FCFA5FF04733BFF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000004733BFFA7DF
|
||||
C6FF4EB784FF46B77BFF3BAF73FF31AF6FFF27A767FF1BA75FFF7FCFA7FF0473
|
||||
3BFF000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000000000000000000004733BFFA7DEC6FF4FB785FF46B7
|
||||
7BFF3BAF73FF31AF6FFF27A767FF1CA75EFF84CEA5FF04733BFF000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000004733BFFA7DEC6FF4FB785FF46B77BFF3BAF73FF31AF
|
||||
6FFF27A767FF1CA75EFF85CEA5FF04733BFF0000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
000004733BFFA7DFC6FFA7DFBDFF9DDEBDFF9CD6B7FF97D6B7FF8ED6AFFF8DCF
|
||||
AFFF86CEA7FF04733BFF00000000000000000000000000000000000000000000
|
||||
000000000000000000000000000000000000000000000000000004773BFF0473
|
||||
3BFF04733BFF04733BFF04733BFF04733BFF04733BFF04733BFF04733BFF0477
|
||||
3BFF000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
0000000000000000000000000000000000000000000000000000000000000000
|
||||
00000000000000000000
|
||||
}
|
||||
NumGlyphs = 0
|
||||
OnClick = EnlargeBottomSpeedButtonClick
|
||||
ShowHint = True
|
||||
ParentShowHint = False
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -1,230 +0,0 @@
|
||||
{ $Id: ldocktree.pas 8153 2005-11-14 21:53:06Z mattias $ }
|
||||
{
|
||||
/***************************************************************************
|
||||
LDockCtrlEdit.pas
|
||||
-----------------
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
Author: Mattias Gaertner
|
||||
|
||||
Abstract:
|
||||
This unit contains a dialog to dock or undock a control to another.
|
||||
}
|
||||
unit LDockCtrlEdit;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
|
||||
StdCtrls;
|
||||
|
||||
type
|
||||
TLazDockControlEditorDlgResult = (
|
||||
ldcedrNone,
|
||||
ldcedrUndock,
|
||||
ldcedrDockLeft,
|
||||
ldcedrDockRight,
|
||||
ldcedrDockTop,
|
||||
ldcedrDockBottom,
|
||||
ldcedrDockPage,
|
||||
ldcedrEnlargeLeft,
|
||||
ldcedrEnlargeTop,
|
||||
ldcedrEnlargeRight,
|
||||
ldcedrEnlargeBottom
|
||||
);
|
||||
|
||||
{ TLazDockControlEditorDlg }
|
||||
|
||||
TLazDockControlEditorDlg = class(TForm)
|
||||
CancelButton: TButton;
|
||||
DockControlComboBox: TComboBox;
|
||||
DockPageButton: TSpeedButton;
|
||||
DockBottomButton: TSpeedButton;
|
||||
DockTopButton: TSpeedButton;
|
||||
DockRightButton: TSpeedButton;
|
||||
DockLeftButton: TSpeedButton;
|
||||
DockGroupBox: TGroupBox;
|
||||
DockControlLabel: TLabel;
|
||||
EnlargeGroupBox: TGroupBox;
|
||||
EnlargeLeftSpeedButton: TSpeedButton;
|
||||
EnlargeRightSpeedButton: TSpeedButton;
|
||||
EnlargeTopSpeedButton: TSpeedButton;
|
||||
EnlargeBottomSpeedButton: TSpeedButton;
|
||||
UndockButton: TButton;
|
||||
UndockGroupBox: TGroupBox;
|
||||
procedure DockBottomButtonClick(Sender: TObject);
|
||||
procedure DockControlComboBoxEditingDone(Sender: TObject);
|
||||
procedure DockLeftButtonClick(Sender: TObject);
|
||||
procedure DockPageButtonClick(Sender: TObject);
|
||||
procedure DockRightButtonClick(Sender: TObject);
|
||||
procedure DockTopButtonClick(Sender: TObject);
|
||||
procedure EnlargeBottomSpeedButtonClick(Sender: TObject);
|
||||
procedure EnlargeLeftSpeedButtonClick(Sender: TObject);
|
||||
procedure EnlargeRightSpeedButtonClick(Sender: TObject);
|
||||
procedure EnlargeTopSpeedButtonClick(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure UndockButtonClick(Sender: TObject);
|
||||
private
|
||||
FCurrentControlName: string;
|
||||
FDlgResult: TLazDockControlEditorDlgResult;
|
||||
procedure CheckSetDlgResult(NewDlgResult: TLazDockControlEditorDlgResult);
|
||||
procedure SetCurrentControlName(const AValue: string);
|
||||
procedure UpdateButtonEnabled;
|
||||
public
|
||||
property DlgResult: TLazDockControlEditorDlgResult read FDlgResult write FDlgResult;
|
||||
property CurrentControlName: string read FCurrentControlName write SetCurrentControlName;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$ifndef ver2_2}
|
||||
{$R *.lfm}
|
||||
{$ENDIF}
|
||||
|
||||
{ TLazDockControlEditorDlg }
|
||||
|
||||
procedure TLazDockControlEditorDlg.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Caption := 'Docking';
|
||||
|
||||
UndockGroupBox.Caption := 'Undock';
|
||||
UndockButton.Caption := 'Undock (make it a single, normal window)';
|
||||
|
||||
DockPageButton.Hint := 'Dock as page';
|
||||
DockBottomButton.Hint := 'Dock to bottom';
|
||||
DockTopButton.Hint := 'Dock to top';
|
||||
DockRightButton.Hint := 'Dock to right';
|
||||
DockLeftButton.Hint := 'Dock to left';
|
||||
|
||||
DockPageButton.LoadGlyphFromLazarusResource('lcl_dock_to_page');
|
||||
DockBottomButton.LoadGlyphFromLazarusResource('lcl_dock_to_bottom');
|
||||
DockTopButton.LoadGlyphFromLazarusResource('lcl_dock_to_top');
|
||||
DockRightButton.LoadGlyphFromLazarusResource('lcl_dock_to_right');
|
||||
DockLeftButton.LoadGlyphFromLazarusResource('lcl_dock_to_left');
|
||||
|
||||
DockGroupBox.Caption := 'Dock to control';
|
||||
DockControlLabel.Caption := 'To control';
|
||||
|
||||
EnlargeGroupBox.Caption := 'Enlarge one side';
|
||||
EnlargeLeftSpeedButton.Hint := 'Left';
|
||||
EnlargeTopSpeedButton.Hint := 'Top';
|
||||
EnlargeRightSpeedButton.Hint := 'Right';
|
||||
EnlargeBottomSpeedButton.Hint := 'Bottom';
|
||||
|
||||
CancelButton.Caption := 'Cancel';
|
||||
|
||||
UpdateButtonEnabled;
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.DockLeftButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrDockLeft);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.DockPageButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrDockPage);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.DockBottomButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrDockBottom);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.DockControlComboBoxEditingDone(
|
||||
Sender: TObject);
|
||||
begin
|
||||
UpdateButtonEnabled;
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.DockRightButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrDockRight);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.DockTopButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrDockTop);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.EnlargeBottomSpeedButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrEnlargeBottom);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.EnlargeLeftSpeedButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrEnlargeLeft);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.EnlargeRightSpeedButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrEnlargeRight);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.EnlargeTopSpeedButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrEnlargeTop);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.UndockButtonClick(Sender: TObject);
|
||||
begin
|
||||
CheckSetDlgResult(ldcedrUndock);
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.CheckSetDlgResult(
|
||||
NewDlgResult: TLazDockControlEditorDlgResult);
|
||||
begin
|
||||
if NewDlgResult in [ldcedrDockLeft,ldcedrDockRight,ldcedrDockTop,
|
||||
ldcedrDockBottom,ldcedrDockPage] then
|
||||
begin
|
||||
if DockControlComboBox.Items.IndexOf(DockControlComboBox.Text)<0 then
|
||||
begin
|
||||
MessageDlg('Incomplete','Please select first a control,'
|
||||
+' to which '+CurrentControlName+' should be docked.',mtError,
|
||||
[mbCancel],0);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
DlgResult:=NewDlgResult;
|
||||
ModalResult:=mrOk;
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.SetCurrentControlName(const AValue: string);
|
||||
begin
|
||||
if FCurrentControlName=AValue then exit;
|
||||
FCurrentControlName:=AValue;
|
||||
end;
|
||||
|
||||
procedure TLazDockControlEditorDlg.UpdateButtonEnabled;
|
||||
var
|
||||
SelectionValid: Boolean;
|
||||
begin
|
||||
SelectionValid:=DockControlComboBox.Items.IndexOf(DockControlComboBox.Text)>=0;
|
||||
DockPageButton.Enabled:=SelectionValid;
|
||||
DockBottomButton.Enabled:=SelectionValid;
|
||||
DockTopButton.Enabled:=SelectionValid;
|
||||
DockRightButton.Enabled:=SelectionValid;
|
||||
DockLeftButton.Enabled:=SelectionValid;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I lcl_dock_to_images.lrs}
|
||||
|
||||
end.
|
||||
3339
lcl/ldocktree.pas
3339
lcl/ldocktree.pas
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user