Changeset 180 for Docking/CoolDocking/UCoolDockLayout.pas

Timestamp:

Mar 8, 2011, 1:57:42 PM (13 years ago)

Author:

george

Message:

• Added: Customization of layouts in "Customize docking" window.

File:

• Docking/CoolDocking/UCoolDockLayout.pas (modified) (3 diffs)

Docking/CoolDocking/UCoolDockLayout.pas

@@ -1 +1 @@
 unit UCoolDockLayout;
 
-{$mode objfpc}{$H+}
+{$mode Delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Contnrs, URectangle, UCoolDocking, Forms,
+  Classes, SysUtils, FileUtil, Contnrs, URectangle, Forms, UCoolDockCommon,
   DOM, XMLWrite, XMLRead;
 
@@ -52 +52 @@
     procedure SaveToFile(FileName: string);
     procedure PopulateStringList(List: TStrings);
+    function FindByName(Name: string): TCoolDockLayout;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -171 +172 @@
   for I := 0 to Items.Count - 1 do
     List.AddObject(TCoolDockLayout(Items[I]).Name, TCoolDockLayout(Items[I]));
+end;
+
+function TCoolDockLayoutList.FindByName(Name: string): TCoolDockLayout;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Items.Count) and (TCoolDockLayout(Items[I]).Name <> Name) do Inc(I);
+  if I < Items.Count then Result := TCoolDockLayout(Items[I]) else Result := nil;
 end;