Changeset 55 for Docking


Ignore:
Timestamp:
Sep 20, 2010, 1:15:16 PM (14 years ago)
Author:
george
Message:
  • Opraveno: Neuvolněná paměť vytvářených sdružených oken.
  • Opraveno: Komponenta formuláře pro volby kotvení předělána z TForm na TComponent, které volá TForm.Show pomocí metody Execute.
Location:
Docking/CoolDocking
Files:
5 added
1 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/CoolDocking.lpk

    r54 r55  
    2222      </Other>
    2323    </CompilerOptions>
    24     <Files Count="1">
     24    <Files Count="3">
    2525      <Item1>
    2626        <Filename Value="UCoolDocking.pas"/>
    … …  
    2828        <UnitName Value="UCoolDocking"/>
    2929      </Item1>
     30      <Item2>
     31        <Filename Value="UCoolDockCustomize.pas"/>
     32        <UnitName Value="UCoolDockCustomize"/>
     33      </Item2>
     34      <Item3>
     35        <Filename Value="ReadMe.txt"/>
     36        <Type Value="Binary"/>
     37      </Item3>
    3038    </Files>
    3139    <i18n>

  • Docking/CoolDocking/CoolDocking.pas

    r54 r55  
    88
    99uses
    10   UCoolDocking, LazarusPackageIntf;
     10  UCoolDocking, UCoolDockCustomize, LazarusPackageIntf;
    1111
    1212implementation

  • Docking/CoolDocking/Demo/Demo.lpi

    r54 r55  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="34">
     37    <Units Count="39">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
     42        <EditorIndex Value="10"/>
    4243        <WindowIndex Value="0"/>
    4344        <TopLine Value="1"/>
    44         <CursorPos X="7" Y="3"/>
    45         <UsageCount Value="39"/>
     45        <CursorPos X="1" Y="18"/>
     46        <UsageCount Value="41"/>
     47        <Loaded Value="True"/>
    4648        <DefaultSyntaxHighlighter Value="Delphi"/>
    4749      </Unit0>
    … …  
    5254        <ResourceBaseClass Value="Form"/>
    5355        <UnitName Value="UMainForm"/>
     56        <IsVisibleTab Value="True"/>
    5457        <EditorIndex Value="0"/>
    5558        <WindowIndex Value="0"/>
    56         <TopLine Value="50"/>
    57         <CursorPos X="61" Y="51"/>
    58         <UsageCount Value="39"/>
     59        <TopLine Value="53"/>
     60        <CursorPos X="3" Y="73"/>
     61        <UsageCount Value="41"/>
    5962        <Loaded Value="True"/>
    6063        <LoadedDesigner Value="True"/>
    … …  
    6467        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6568        <UnitName Value="Controls"/>
    66         <WindowIndex Value="0"/>
    67         <TopLine Value="3846"/>
    68         <CursorPos X="1" Y="3853"/>
     69        <EditorIndex Value="4"/>
     70        <WindowIndex Value="0"/>
     71        <TopLine Value="1689"/>
     72        <CursorPos X="15" Y="1702"/>
    6973        <UsageCount Value="19"/>
     74        <Loaded Value="True"/>
    7075      </Unit2>
    7176      <Unit3>
    … …  
    8792      <Unit5>
    8893        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    89         <WindowIndex Value="0"/>
    90         <TopLine Value="6343"/>
    91         <CursorPos X="1" Y="6359"/>
     94        <EditorIndex Value="5"/>
     95        <WindowIndex Value="0"/>
     96        <TopLine Value="5966"/>
     97        <CursorPos X="14" Y="5976"/>
    9298        <UsageCount Value="18"/>
     99        <Loaded Value="True"/>
    93100      </Unit5>
    94101      <Unit6>
    … …  
    102109      <Unit7>
    103110        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\classesh.inc"/>
    104         <WindowIndex Value="0"/>
    105         <TopLine Value="113"/>
    106         <CursorPos X="3" Y="120"/>
    107         <UsageCount Value="11"/>
     111        <EditorIndex Value="11"/>
     112        <WindowIndex Value="0"/>
     113        <TopLine Value="259"/>
     114        <CursorPos X="14" Y="272"/>
     115        <UsageCount Value="11"/>
     116        <Loaded Value="True"/>
    108117      </Unit7>
    109118      <Unit8>
    … …  
    125134        <Filename Value="E:\Programy\Lazarus\lcl\lclproc.pas"/>
    126135        <UnitName Value="LCLProc"/>
    127         <WindowIndex Value="0"/>
    128         <TopLine Value="1330"/>
    129         <CursorPos X="1" Y="1346"/>
    130         <UsageCount Value="10"/>
     136        <EditorIndex Value="7"/>
     137        <WindowIndex Value="0"/>
     138        <TopLine Value="192"/>
     139        <CursorPos X="11" Y="205"/>
     140        <UsageCount Value="10"/>
     141        <Loaded Value="True"/>
    131142      </Unit10>
    132143      <Unit11>
    … …  
    166177        <ResourceBaseClass Value="Form"/>
    167178        <UnitName Value="UDockForm"/>
     179        <EditorIndex Value="1"/>
    168180        <WindowIndex Value="0"/>
    169181        <TopLine Value="1"/>
    170182        <CursorPos X="47" Y="8"/>
    171         <UsageCount Value="38"/>
     183        <UsageCount Value="40"/>
     184        <Loaded Value="True"/>
    172185        <DefaultSyntaxHighlighter Value="Delphi"/>
    173186      </Unit15>
    … …  
    217230        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    218231        <UnitName Value="ExtCtrls"/>
    219         <WindowIndex Value="0"/>
    220         <TopLine Value="1183"/>
    221         <CursorPos X="24" Y="1199"/>
    222         <UsageCount Value="11"/>
     232        <EditorIndex Value="3"/>
     233        <WindowIndex Value="0"/>
     234        <TopLine Value="1153"/>
     235        <CursorPos X="32" Y="1160"/>
     236        <UsageCount Value="11"/>
     237        <Loaded Value="True"/>
    223238      </Unit21>
    224239      <Unit22>
    … …  
    271286        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    272287        <UnitName Value="Themes"/>
     288        <EditorIndex Value="13"/>
    273289        <WindowIndex Value="0"/>
    274290        <TopLine Value="550"/>
    275         <CursorPos X="1" Y="556"/>
     291        <CursorPos X="26" Y="560"/>
    276292        <UsageCount Value="13"/>
     293        <Loaded Value="True"/>
    277294      </Unit28>
    278295      <Unit29>
    … …  
    312329        <Filename Value="..\UCoolDocking.pas"/>
    313330        <UnitName Value="UCoolDocking"/>
    314         <IsVisibleTab Value="True"/>
    315         <EditorIndex Value="1"/>
    316         <WindowIndex Value="0"/>
    317         <TopLine Value="334"/>
    318         <CursorPos X="15" Y="354"/>
     331        <EditorIndex Value="2"/>
     332        <WindowIndex Value="0"/>
     333        <TopLine Value="37"/>
     334        <CursorPos X="35" Y="50"/>
    319335        <UsageCount Value="10"/>
    320336        <Loaded Value="True"/>
    321337        <DefaultSyntaxHighlighter Value="Delphi"/>
    322338      </Unit33>
     339      <Unit34>
     340        <Filename Value="..\ReadMe.txt"/>
     341        <EditorIndex Value="14"/>
     342        <WindowIndex Value="0"/>
     343        <TopLine Value="1"/>
     344        <CursorPos X="24" Y="7"/>
     345        <UsageCount Value="10"/>
     346        <Loaded Value="True"/>
     347        <DefaultSyntaxHighlighter Value="None"/>
     348      </Unit34>
     349      <Unit35>
     350        <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\lists.inc"/>
     351        <EditorIndex Value="12"/>
     352        <WindowIndex Value="0"/>
     353        <TopLine Value="641"/>
     354        <CursorPos X="3" Y="643"/>
     355        <UsageCount Value="10"/>
     356        <Loaded Value="True"/>
     357      </Unit35>
     358      <Unit36>
     359        <Filename Value="E:\Programy\Lazarus\lcl\include\custompanel.inc"/>
     360        <EditorIndex Value="9"/>
     361        <WindowIndex Value="0"/>
     362        <TopLine Value="27"/>
     363        <CursorPos X="3" Y="32"/>
     364        <UsageCount Value="10"/>
     365        <Loaded Value="True"/>
     366      </Unit36>
     367      <Unit37>
     368        <Filename Value="E:\Programy\Lazarus\lcl\include\customcontrol.inc"/>
     369        <EditorIndex Value="8"/>
     370        <WindowIndex Value="0"/>
     371        <TopLine Value="50"/>
     372        <CursorPos X="18" Y="61"/>
     373        <UsageCount Value="10"/>
     374        <Loaded Value="True"/>
     375      </Unit37>
     376      <Unit38>
     377        <Filename Value="E:\Programy\Lazarus\lcl\include\controlsproc.inc"/>
     378        <EditorIndex Value="6"/>
     379        <WindowIndex Value="0"/>
     380        <TopLine Value="84"/>
     381        <CursorPos X="45" Y="90"/>
     382        <UsageCount Value="10"/>
     383        <Loaded Value="True"/>
     384      </Unit38>
    323385    </Units>
    324     <JumpHistory Count="2" HistoryIndex="0">
     386    <JumpHistory Count="28" HistoryIndex="27">
    325387      <Position1>
    326388        <Filename Value="..\UCoolDocking.pas"/>
    … …  
    329391      <Position2>
    330392        <Filename Value="..\UCoolDocking.pas"/>
    331         <Caret Line="531" Column="1" TopLine="514"/>
     393        <Caret Line="354" Column="15" TopLine="334"/>
    332394      </Position2>
     395      <Position3>
     396        <Filename Value="..\UCoolDocking.pas"/>
     397        <Caret Line="308" Column="11" TopLine="303"/>
     398      </Position3>
     399      <Position4>
     400        <Filename Value="..\UCoolDocking.pas"/>
     401        <Caret Line="320" Column="59" TopLine="312"/>
     402      </Position4>
     403      <Position5>
     404        <Filename Value="..\UCoolDocking.pas"/>
     405        <Caret Line="354" Column="65" TopLine="338"/>
     406      </Position5>
     407      <Position6>
     408        <Filename Value="..\UCoolDocking.pas"/>
     409        <Caret Line="105" Column="37" TopLine="93"/>
     410      </Position6>
     411      <Position7>
     412        <Filename Value="..\UCoolDocking.pas"/>
     413        <Caret Line="677" Column="89" TopLine="674"/>
     414      </Position7>
     415      <Position8>
     416        <Filename Value="..\UCoolDocking.pas"/>
     417        <Caret Line="267" Column="36" TopLine="254"/>
     418      </Position8>
     419      <Position9>
     420        <Filename Value="..\UCoolDocking.pas"/>
     421        <Caret Line="106" Column="40" TopLine="92"/>
     422      </Position9>
     423      <Position10>
     424        <Filename Value="UMainForm.pas"/>
     425        <Caret Line="51" Column="53" TopLine="50"/>
     426      </Position10>
     427      <Position11>
     428        <Filename Value="..\UCoolDocking.pas"/>
     429        <Caret Line="674" Column="23" TopLine="663"/>
     430      </Position11>
     431      <Position12>
     432        <Filename Value="UMainForm.pas"/>
     433        <Caret Line="66" Column="47" TopLine="51"/>
     434      </Position12>
     435      <Position13>
     436        <Filename Value="UMainForm.pas"/>
     437        <Caret Line="68" Column="47" TopLine="53"/>
     438      </Position13>
     439      <Position14>
     440        <Filename Value="UMainForm.pas"/>
     441        <Caret Line="70" Column="47" TopLine="55"/>
     442      </Position14>
     443      <Position15>
     444        <Filename Value="UMainForm.pas"/>
     445        <Caret Line="96" Column="29" TopLine="75"/>
     446      </Position15>
     447      <Position16>
     448        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
     449        <Caret Line="561" Column="39" TopLine="550"/>
     450      </Position16>
     451      <Position17>
     452        <Filename Value="..\UCoolDocking.pas"/>
     453        <Caret Line="477" Column="12" TopLine="469"/>
     454      </Position17>
     455      <Position18>
     456        <Filename Value="..\UCoolDocking.pas"/>
     457        <Caret Line="733" Column="3" TopLine="749"/>
     458      </Position18>
     459      <Position19>
     460        <Filename Value="..\UCoolDocking.pas"/>
     461        <Caret Line="768" Column="1" TopLine="749"/>
     462      </Position19>
     463      <Position20>
     464        <Filename Value="Demo.lpr"/>
     465        <Caret Line="3" Column="7" TopLine="1"/>
     466      </Position20>
     467      <Position21>
     468        <Filename Value="..\UCoolDocking.pas"/>
     469        <Caret Line="730" Column="29" TopLine="724"/>
     470      </Position21>
     471      <Position22>
     472        <Filename Value="..\UCoolDocking.pas"/>
     473        <Caret Line="50" Column="35" TopLine="37"/>
     474      </Position22>
     475      <Position23>
     476        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
     477        <Caret Line="1196" Column="23" TopLine="1189"/>
     478      </Position23>
     479      <Position24>
     480        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
     481        <Caret Line="1160" Column="32" TopLine="1153"/>
     482      </Position24>
     483      <Position25>
     484        <Filename Value="E:\Programy\Lazarus\lcl\include\customcontrol.inc"/>
     485        <Caret Line="61" Column="18" TopLine="50"/>
     486      </Position25>
     487      <Position26>
     488        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     489        <Caret Line="6329" Column="9" TopLine="6316"/>
     490      </Position26>
     491      <Position27>
     492        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     493        <Caret Line="6330" Column="7" TopLine="6316"/>
     494      </Position27>
     495      <Position28>
     496        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
     497        <Caret Line="5976" Column="14" TopLine="5966"/>
     498      </Position28>
    333499    </JumpHistory>
    334500  </ProjectOptions>
    … …  
    359525    </CodeGeneration>
    360526    <Linking>
     527      <Debugging>
     528        <UseHeaptrc Value="True"/>
     529      </Debugging>
    361530      <Options>
    362531        <Win32>

  • Docking/CoolDocking/Demo/UMainForm.lfm

    r54 r55  
    3030    TabOrder = 1
    3131  end
     32  object TabControl1: TTabControl
     33    Left = 173
     34    Height = 150
     35    Top = 16
     36    Width = 200
     37    TabOrder = 2
     38    TabStop = False
     39  end
     40  object Button2: TButton
     41    Left = 94
     42    Height = 25
     43    Top = 10
     44    Width = 75
     45    Caption = 'Customize'
     46    OnClick = Button2Click
     47    TabOrder = 3
     48  end
    3249  object CoolDockMaster1: TCoolDockMaster
    3350    TabsEnabled = False
    3451    DefaultHeaderPos = hpAuto
    35     left = 376
    36     top = 24
     52    left = 384
     53  end
     54  object CoolDockCustomize1: TCoolDockCustomize
     55    left = 472
    3756  end
    3857end

  • Docking/CoolDocking/Demo/UMainForm.pas

    r54 r55  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    9   ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UDockForm;
     9  ComCtrls, ExtCtrls, Buttons, Menus, UCoolDocking, UCoolDockCustomize,
     10  UDockForm;
    1011
    1112type
    … …  
    1516  TMainForm = class(TForm)
    1617    Button1: TButton;
     18    Button2: TButton;
     19    CoolDockCustomize1: TCoolDockCustomize;
    1720    CoolDockMaster1: TCoolDockMaster;
    1821    Panel1: TPanel;
     22    TabControl1: TTabControl;
    1923    procedure Button1Click(Sender: TObject);
     24    procedure Button2Click(Sender: TObject);
    2025    procedure FormCreate(Sender: TObject);
    2126    procedure FormDestroy(Sender: TObject);
    … …  
    5459begin
    5560  NewDockForm.ManualDock(Panel1);
    56 //  NewDockForm.ManualDock(Panel1, nil, a);
     61 // NewDockForm.ManualDock(Panel1);
    5762  ConjoinedDockForm1 := TCoolDockManager(Panel1.DockManager).CreateContainer(alRight);
    5863  ConjoinedDockForm1.Name := 'Model';;
    … …  
    8792end;
    8893
     94procedure TMainForm.Button2Click(Sender: TObject);
     95begin
     96  CoolDockCustomize1.Execute;
     97end;
     98
    8999end.
    90100

  • Docking/CoolDocking/UCoolDocking.pas

    r54 r55  
    99uses
    1010  Classes, SysUtils, Controls, LCLType, LMessages, Graphics, StdCtrls,
    11   Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil;
     11  Buttons, ExtCtrls, Contnrs, Forms, ComCtrls, Dialogs, Menus, FileUtil,
     12  UCoolDockCustomize, DOM, XMLWrite, XMLRead;
    1213
    1314const
    … …  
    8889    procedure InsertControlPanel(Control: TControl; InsertAt: TAlign;
    8990      DropCtl: TControl);
     91    procedure PopupMenuTabCloseClick(Sender: TObject);
    9092    procedure SetDockStyle(const AValue: TDockStyle);
    9193    procedure SetMoveDuration(const AValue: Integer);
    … …  
    102104    procedure PopupMenuPositionTopClick(Sender: TObject);
    103105    procedure PopupMenuPositionBottomClick(Sender: TObject);
     106    procedure PopupMenuUndockClick(Sender: TObject);
    104107    procedure Timer1Timer(Sender: TObject);
     108    procedure TabControlMouseDown(Sender: TObject; Button: TMouseButton;
     109      Shift: TShiftState; X, Y: Integer);
    105110  public
    106111    constructor Create(ADockSite: TWinControl); override;
    … …  
    168173  SPositionRight = 'Right';
    169174  SPositionBottom = 'Bottom';
     175  SUndock = 'Undock';
    170176
    171177procedure Register;
    172178begin
    173179  RegisterComponents('CoolDocking', [TCoolDockMaster]);
     180  RegisterComponents('CoolDocking', [TCoolDockCustomize]);
    174181end;
    175182
    … …  
    254261  NewMenuItem.Caption := SRenameForm;
    255262  NewMenuItem.OnClick := PopupMenuRenameClick;
     263  PopupMenu1.Items.Add(NewMenuItem);
     264
     265  NewMenuItem := TMenuItem.Create(PopupMenu1);
     266  NewMenuItem.Caption := SUndock;
     267  NewMenuItem.OnClick := PopupMenuUndockClick;
    256268  PopupMenu1.Items.Add(NewMenuItem);
    257269
    … …  
    264276    OnChange := TabControlChange;
    265277    PopupMenu := PopupMenu1;
     278    OnMouseDown := TabControlMouseDown;
    266279  end;
    267280  TabsPos := hpTop;
    … …  
    344357      if DockStyle = dsList then Visible := True;
    345358      Align := alClient;
    346       PopupMenu := PopupMenu1;
    347359    end;
    348360
    … …  
    376388    if (not Assigned(FDockSite.Parent)) then begin
    377389      // Create conjointed form
    378       NewConjoinDockForm := TCoolDockConjoinForm.Create(nil);
     390      NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
    379391      NewConjoinDockForm.Visible := True;
    380392      NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
    … …  
    382394      Control.ManualDock(NewConjoinDockForm.Panel, nil, InsertAt);
    383395    end else begin
    384       NewConjoinDockForm := TCoolDockConjoinForm.Create(nil);
     396      NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
    385397      NewConjoinDockForm.Visible := True;
    386398      NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
    … …  
    464476    FDockPanels.Remove(ClientPanel);
    465477    if FDockSite.DockClientCount = 2 then FDockDirection := ddNone;
     478    UpdateClientSize;
    466479    //FDockSite.Invalidate;
    467480    //if (FDockSite is TCoolDockConjoinForm) and (FDockSite.DockClientCount = 1) then
    … …  
    498511  NewConjoinDockForm: TCoolDockConjoinForm;
    499512begin
    500   NewConjoinDockForm := TCoolDockConjoinForm.Create(nil);
     513  NewConjoinDockForm := TCoolDockConjoinForm.Create(Application);
    501514  NewConjoinDockForm.Visible := True;
    502515  NewConjoinDockForm.BoundsRect := FDockSite.BoundsRect;
    … …  
    632645procedure TCoolDockManager.PopupMenuCloseClick(Sender: TObject);
    633646begin
    634 //  TForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
     647  TForm(TCoolDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
     648end;
     649
     650procedure TCoolDockManager.PopupMenuTabCloseClick(Sender: TObject);
     651begin
     652  if TabControl.TabIndex <> -1 then
     653    TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Control.Hide;
    635654end;
    636655
    … …  
    665684end;
    666685
     686procedure TCoolDockManager.PopupMenuUndockClick(Sender: TObject);
     687begin
     688
     689end;
     690
    667691procedure TCoolDockManager.Timer1Timer(Sender: TObject);
    668692begin
    669693//  TimerMoveForm.Width := TimerMoveForm.Width
     694end;
     695
     696procedure TCoolDockManager.TabControlMouseDown(Sender: TObject; Button: TMouseButton;
     697      Shift: TShiftState; X, Y: Integer);
     698begin
     699  if (Button = mbLeft) and (TabControl.TabIndex <> -1) then begin
     700    DragManager.DragStart(TCoolDockClientPanel(FDockPanels[TabControl.TabIndex]).Control, False, 1);
     701  end;
    670702end;
    671703
    … …  
    803835
    804836procedure TCoolDockMaster.SaveLayoutToStream(Stream: TStream);
    805 begin
    806 
     837var
     838  Doc: TXMLDocument;
     839  RootNode: TDOMNode;
     840  NewNode: TDOMNode;
     841  NewNode2: TDOMNode;
     842  I: Integer;
     843begin
     844  Doc := TXMLDocument.Create;
     845  with Doc do try
     846    RootNode := CreateElement('DockLayout');
     847    AppendChild(RootNode);
     848    with RootNode do begin
     849      for I := 0 to Application.ComponentCount - 1 do begin
     850        if Application.Components[I] is TForm then
     851        with Application.Components[I] as TForm do
     852        if Assigned(HostDockSite) then
     853        begin
     854          NewNode := OwnerDocument.CreateElement('Form');
     855
     856          if HostDockSite.Parent is TForm then begin
     857            NewNode2 := OwnerDocument.CreateElement('ParentFormName');
     858            NewNode2.TextContent := UTF8Decode(HostDockSite.Parent.Name);
     859            NewNode.AppendChild(NewNode2);
     860
     861            NewNode2 := OwnerDocument.CreateElement('ParentFormClassName');
     862            NewNode2.TextContent := UTF8Decode(HostDockSite.Parent.ClassName);
     863            NewNode.AppendChild(NewNode2);
     864          end;
     865
     866          NewNode2 := OwnerDocument.CreateElement('Name');
     867          NewNode2.TextContent := UTF8Decode(Name);
     868          NewNode.AppendChild(NewNode2);
     869
     870          NewNode2 := OwnerDocument.CreateElement('Caption');
     871          NewNode2.TextContent := UTF8Decode(Caption);
     872          NewNode.AppendChild(NewNode2);
     873
     874          NewNode2 := OwnerDocument.CreateElement('Width');
     875          NewNode2.TextContent := IntToStr(Width);
     876          NewNode.AppendChild(NewNode2);
     877
     878          NewNode2 := OwnerDocument.CreateElement('Height');
     879          NewNode2.TextContent := IntToStr(Height);
     880          NewNode.AppendChild(NewNode2);
     881
     882          NewNode2 := OwnerDocument.CreateElement('UndockWidth');
     883          NewNode2.TextContent := IntToStr(UndockWidth);
     884          NewNode.AppendChild(NewNode2);
     885
     886          NewNode2 := OwnerDocument.CreateElement('UndockHeight');
     887          NewNode2.TextContent := IntToStr(UndockHeight);
     888          NewNode.AppendChild(NewNode2);
     889
     890          NewNode2 := OwnerDocument.CreateElement('FormState');
     891          NewNode2.TextContent := IntToStr(Integer(FormState));
     892          NewNode.AppendChild(NewNode2);
     893
     894          NewNode2 := OwnerDocument.CreateElement('Visible');
     895          NewNode2.TextContent := IntToStr(Integer(Visible));
     896          NewNode.AppendChild(NewNode2);
     897
     898          AppendChild(NewNode);
     899        end;
     900      end;
     901    end;
     902    WriteXMLFile(Doc, Stream);
     903  finally
     904    Free;
     905  end;
    807906end;
    808907

  • Docking/CoolDocking/languages/UCoolDocking.po

    r54 r55  
    5454msgstr "Přejmenovat"
    5555
     56#: ucooldocking.sundock
     57msgid "Undock"
     58msgstr ""
     59
Note: See TracChangeset for help on using the changeset viewer.