Changeset 49 for DockManager/Lazarus


Ignore:
Timestamp:
Sep 17, 2010, 4:16:15 PM (14 years ago)
Author:
george
Message:
  • Přidáno: Částečná podpora pro volitelné umístění záložek.
  • Přidáno: Částečná podpora pro vysouvatelná okna v záložkách.
Location:
DockManager/Lazarus
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • DockManager/Lazarus/Demo/Demo.lpi

    r48 r49  
    3535      </Item2>
    3636    </RequiredPackages>
    37     <Units Count="31">
     37    <Units Count="32">
    3838      <Unit0>
    3939        <Filename Value="Demo.lpr"/>
    4040        <IsPartOfProject Value="True"/>
    4141        <UnitName Value="Demo"/>
    42         <EditorIndex Value="4"/>
     42        <EditorIndex Value="5"/>
    4343        <WindowIndex Value="0"/>
    4444        <TopLine Value="1"/>
    4545        <CursorPos X="7" Y="3"/>
    46         <UsageCount Value="37"/>
     46        <UsageCount Value="38"/>
    4747        <Loaded Value="True"/>
    4848        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    5757        <WindowIndex Value="0"/>
    5858        <TopLine Value="1"/>
    59         <CursorPos X="20" Y="17"/>
    60         <UsageCount Value="37"/>
     59        <CursorPos X="20" Y="5"/>
     60        <UsageCount Value="38"/>
    6161        <Loaded Value="True"/>
    6262        <LoadedDesigner Value="True"/>
    … …  
    6666        <Filename Value="E:\Programy\Lazarus\lcl\controls.pp"/>
    6767        <UnitName Value="Controls"/>
    68         <EditorIndex Value="9"/>
     68        <EditorIndex Value="10"/>
    6969        <WindowIndex Value="0"/>
    7070        <TopLine Value="3840"/>
    7171        <CursorPos X="1" Y="3853"/>
    72         <UsageCount Value="18"/>
     72        <UsageCount Value="19"/>
    7373        <Loaded Value="True"/>
    7474      </Unit2>
    … …  
    8484      <Unit4>
    8585        <Filename Value="E:\Programy\Lazarus\lcl\include\control.inc"/>
    86         <EditorIndex Value="12"/>
     86        <EditorIndex Value="13"/>
    8787        <WindowIndex Value="0"/>
    8888        <TopLine Value="1035"/>
    8989        <CursorPos X="1" Y="1048"/>
    90         <UsageCount Value="17"/>
     90        <UsageCount Value="18"/>
    9191        <Loaded Value="True"/>
    9292      </Unit4>
    9393      <Unit5>
    9494        <Filename Value="E:\Programy\Lazarus\lcl\include\wincontrol.inc"/>
    95         <EditorIndex Value="10"/>
     95        <EditorIndex Value="11"/>
    9696        <WindowIndex Value="0"/>
    9797        <TopLine Value="7631"/>
    9898        <CursorPos X="1" Y="7644"/>
    99         <UsageCount Value="17"/>
     99        <UsageCount Value="18"/>
    100100        <Loaded Value="True"/>
    101101      </Unit5>
    … …  
    174174        <ResourceBaseClass Value="Form"/>
    175175        <UnitName Value="UDockForm"/>
    176         <EditorIndex Value="14"/>
     176        <EditorIndex Value="15"/>
    177177        <WindowIndex Value="0"/>
    178178        <TopLine Value="1"/>
    179179        <CursorPos X="47" Y="8"/>
    180         <UsageCount Value="36"/>
     180        <UsageCount Value="37"/>
    181181        <Loaded Value="True"/>
    182182        <LoadedDesigner Value="True"/>
    … …  
    202202        <Filename Value="E:\Projekty jine\Lazarus\examples\anchordocking\anchordocking.pas"/>
    203203        <UnitName Value="AnchorDocking"/>
    204         <EditorIndex Value="13"/>
     204        <EditorIndex Value="14"/>
    205205        <WindowIndex Value="0"/>
    206206        <TopLine Value="4754"/>
    207207        <CursorPos X="5" Y="4763"/>
    208         <UsageCount Value="17"/>
     208        <UsageCount Value="18"/>
    209209        <Loaded Value="True"/>
    210210        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    224224        <EditorIndex Value="1"/>
    225225        <WindowIndex Value="0"/>
    226         <TopLine Value="1"/>
    227         <CursorPos X="39" Y="19"/>
    228         <UsageCount Value="31"/>
     226        <TopLine Value="216"/>
     227        <CursorPos X="15" Y="218"/>
     228        <UsageCount Value="32"/>
    229229        <Loaded Value="True"/>
    230230        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    233233        <Filename Value="E:\Programy\Lazarus\lcl\extctrls.pp"/>
    234234        <UnitName Value="ExtCtrls"/>
    235         <EditorIndex Value="2"/>
     235        <EditorIndex Value="3"/>
    236236        <WindowIndex Value="0"/>
    237237        <TopLine Value="1183"/>
    238238        <CursorPos X="24" Y="1199"/>
    239         <UsageCount Value="10"/>
     239        <UsageCount Value="11"/>
    240240        <Loaded Value="True"/>
    241241      </Unit21>
    … …  
    250250      <Unit23>
    251251        <Filename Value="E:\Programy\Lazarus\lcl\include\dragmanager.inc"/>
    252         <EditorIndex Value="7"/>
     252        <EditorIndex Value="8"/>
    253253        <WindowIndex Value="0"/>
    254254        <TopLine Value="553"/>
    255255        <CursorPos X="18" Y="574"/>
    256         <UsageCount Value="13"/>
     256        <UsageCount Value="14"/>
    257257        <Loaded Value="True"/>
    258258      </Unit23>
    … …  
    267267        <Filename Value="E:\Programy\Lazarus\lcl\widgetset\wscontrols.pp"/>
    268268        <UnitName Value="WSControls"/>
    269         <EditorIndex Value="11"/>
     269        <EditorIndex Value="12"/>
    270270        <WindowIndex Value="0"/>
    271271        <TopLine Value="267"/>
    272272        <CursorPos X="1" Y="269"/>
    273         <UsageCount Value="15"/>
     273        <UsageCount Value="16"/>
    274274        <Loaded Value="True"/>
    275275      </Unit25>
    … …  
    277277        <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    278278        <UnitName Value="ComCtrls"/>
    279         <EditorIndex Value="3"/>
     279        <EditorIndex Value="4"/>
    280280        <WindowIndex Value="0"/>
    281281        <TopLine Value="545"/>
    282282        <CursorPos X="3" Y="558"/>
    283         <UsageCount Value="15"/>
     283        <UsageCount Value="16"/>
    284284        <Loaded Value="True"/>
    285285      </Unit26>
    … …  
    287287        <Filename Value="E:\Programy\Lazarus\lcl\forms.pp"/>
    288288        <UnitName Value="Forms"/>
    289         <EditorIndex Value="8"/>
     289        <EditorIndex Value="9"/>
    290290        <WindowIndex Value="0"/>
    291291        <TopLine Value="687"/>
    292292        <CursorPos X="14" Y="700"/>
    293         <UsageCount Value="14"/>
     293        <UsageCount Value="15"/>
    294294        <Loaded Value="True"/>
    295295      </Unit27>
    … …  
    297297        <Filename Value="E:\Programy\Lazarus\lcl\themes.pas"/>
    298298        <UnitName Value="Themes"/>
    299         <EditorIndex Value="5"/>
     299        <EditorIndex Value="6"/>
    300300        <WindowIndex Value="0"/>
    301301        <TopLine Value="550"/>
    302         <CursorPos X="13" Y="556"/>
    303         <UsageCount Value="11"/>
     302        <CursorPos X="31" Y="556"/>
     303        <UsageCount Value="12"/>
    304304        <Loaded Value="True"/>
    305305      </Unit28>
    … …  
    315315        <Filename Value="..\..\..\ExceptionLogger\UExceptionLogger.pas"/>
    316316        <UnitName Value="UExceptionLogger"/>
    317         <EditorIndex Value="6"/>
     317        <EditorIndex Value="7"/>
    318318        <WindowIndex Value="0"/>
    319319        <TopLine Value="34"/>
    320320        <CursorPos X="1" Y="56"/>
     321        <UsageCount Value="11"/>
     322        <Loaded Value="True"/>
     323        <DefaultSyntaxHighlighter Value="Delphi"/>
     324      </Unit30>
     325      <Unit31>
     326        <Filename Value="E:\Programy\Lazarus\lcl\customtimer.pas"/>
     327        <UnitName Value="CustomTimer"/>
     328        <EditorIndex Value="2"/>
     329        <WindowIndex Value="0"/>
     330        <TopLine Value="68"/>
     331        <CursorPos X="3" Y="77"/>
    321332        <UsageCount Value="10"/>
    322333        <Loaded Value="True"/>
    323         <DefaultSyntaxHighlighter Value="Delphi"/>
    324       </Unit30>
     334      </Unit31>
    325335    </Units>
    326     <JumpHistory Count="30" HistoryIndex="29">
     336    <JumpHistory Count="30" HistoryIndex="28">
    327337      <Position1>
    328338        <Filename Value="..\UCustomDockManager.pas"/>
    329         <Caret Line="360" Column="1" TopLine="354"/>
     339        <Caret Line="242" Column="20" TopLine="224"/>
    330340      </Position1>
    331341      <Position2>
    332         <Filename Value="..\UCustomDockManager.pas"/>
    333         <Caret Line="361" Column="1" TopLine="354"/>
     342        <Filename Value="UMainForm.pas"/>
     343        <Caret Line="61" Column="26" TopLine="47"/>
    334344      </Position2>
    335345      <Position3>
    336         <Filename Value="..\UCustomDockManager.pas"/>
    337         <Caret Line="362" Column="1" TopLine="354"/>
     346        <Filename Value="UMainForm.pas"/>
     347        <Caret Line="17" Column="18" TopLine="1"/>
    338348      </Position3>
    339349      <Position4>
    340         <Filename Value="..\UCustomDockManager.pas"/>
    341         <Caret Line="363" Column="1" TopLine="354"/>
     350        <Filename Value="UMainForm.pas"/>
     351        <Caret Line="18" Column="23" TopLine="1"/>
    342352      </Position4>
    343353      <Position5>
    344         <Filename Value="..\UCustomDockManager.pas"/>
    345         <Caret Line="369" Column="1" TopLine="354"/>
     354        <Filename Value="UMainForm.pas"/>
     355        <Caret Line="17" Column="20" TopLine="1"/>
    346356      </Position5>
    347357      <Position6>
    348358        <Filename Value="..\UCustomDockManager.pas"/>
    349         <Caret Line="380" Column="1" TopLine="367"/>
     359        <Caret Line="167" Column="44" TopLine="157"/>
    350360      </Position6>
    351361      <Position7>
    352362        <Filename Value="..\UCustomDockManager.pas"/>
    353         <Caret Line="381" Column="1" TopLine="367"/>
     363        <Caret Line="2" Column="52" TopLine="1"/>
    354364      </Position7>
    355365      <Position8>
    356         <Filename Value="UMainForm.pas"/>
    357         <Caret Line="61" Column="1" TopLine="47"/>
     366        <Filename Value="..\UCustomDockManager.pas"/>
     367        <Caret Line="108" Column="5" TopLine="83"/>
    358368      </Position8>
    359369      <Position9>
    360         <Filename Value="UMainForm.pas"/>
    361         <Caret Line="62" Column="1" TopLine="47"/>
     370        <Filename Value="..\UCustomDockManager.pas"/>
     371        <Caret Line="106" Column="45" TopLine="90"/>
    362372      </Position9>
    363373      <Position10>
    364         <Filename Value="UMainForm.pas"/>
    365         <Caret Line="63" Column="1" TopLine="47"/>
     374        <Filename Value="..\UCustomDockManager.pas"/>
     375        <Caret Line="635" Column="1" TopLine="626"/>
    366376      </Position10>
    367377      <Position11>
    368         <Filename Value="UMainForm.pas"/>
    369         <Caret Line="64" Column="1" TopLine="47"/>
     378        <Filename Value="..\UCustomDockManager.pas"/>
     379        <Caret Line="100" Column="40" TopLine="97"/>
    370380      </Position11>
    371381      <Position12>
    372         <Filename Value="UMainForm.pas"/>
    373         <Caret Line="60" Column="64" TopLine="47"/>
     382        <Filename Value="..\UCustomDockManager.pas"/>
     383        <Caret Line="11" Column="72" TopLine="1"/>
    374384      </Position12>
    375385      <Position13>
    376         <Filename Value="..\UCustomDockManager.pas"/>
    377         <Caret Line="90" Column="62" TopLine="77"/>
     386        <Filename Value="UMainForm.pas"/>
     387        <Caret Line="17" Column="20" TopLine="1"/>
    378388      </Position13>
    379389      <Position14>
    380         <Filename Value="..\UCustomDockManager.pas"/>
    381         <Caret Line="359" Column="1" TopLine="354"/>
     390        <Filename Value="UMainForm.pas"/>
     391        <Caret Line="5" Column="20" TopLine="1"/>
    382392      </Position14>
    383393      <Position15>
    384394        <Filename Value="..\UCustomDockManager.pas"/>
    385         <Caret Line="360" Column="1" TopLine="354"/>
     395        <Caret Line="22" Column="41" TopLine="13"/>
    386396      </Position15>
    387397      <Position16>
    388398        <Filename Value="..\UCustomDockManager.pas"/>
    389         <Caret Line="361" Column="1" TopLine="354"/>
     399        <Caret Line="155" Column="47" TopLine="141"/>
    390400      </Position16>
    391401      <Position17>
    392402        <Filename Value="..\UCustomDockManager.pas"/>
    393         <Caret Line="362" Column="1" TopLine="354"/>
     403        <Caret Line="158" Column="21" TopLine="145"/>
    394404      </Position17>
    395405      <Position18>
    396406        <Filename Value="..\UCustomDockManager.pas"/>
    397         <Caret Line="363" Column="1" TopLine="354"/>
     407        <Caret Line="152" Column="30" TopLine="145"/>
    398408      </Position18>
    399409      <Position19>
    400410        <Filename Value="..\UCustomDockManager.pas"/>
    401         <Caret Line="242" Column="20" TopLine="224"/>
     411        <Caret Line="72" Column="29" TopLine="60"/>
    402412      </Position19>
    403413      <Position20>
    404         <Filename Value="UMainForm.pas"/>
    405         <Caret Line="61" Column="26" TopLine="47"/>
     414        <Filename Value="..\UCustomDockManager.pas"/>
     415        <Caret Line="586" Column="3" TopLine="584"/>
    406416      </Position20>
    407417      <Position21>
    408         <Filename Value="UMainForm.pas"/>
    409         <Caret Line="17" Column="18" TopLine="1"/>
     418        <Filename Value="..\UCustomDockManager.pas"/>
     419        <Caret Line="499" Column="66" TopLine="486"/>
    410420      </Position21>
    411421      <Position22>
    412         <Filename Value="UMainForm.pas"/>
    413         <Caret Line="18" Column="23" TopLine="1"/>
     422        <Filename Value="..\UCustomDockManager.pas"/>
     423        <Caret Line="56" Column="65" TopLine="32"/>
    414424      </Position22>
    415425      <Position23>
    416         <Filename Value="UMainForm.pas"/>
    417         <Caret Line="17" Column="20" TopLine="1"/>
     426        <Filename Value="..\UCustomDockManager.pas"/>
     427        <Caret Line="108" Column="77" TopLine="88"/>
    418428      </Position23>
    419429      <Position24>
    420430        <Filename Value="..\UCustomDockManager.pas"/>
    421         <Caret Line="167" Column="44" TopLine="157"/>
     431        <Caret Line="83" Column="44" TopLine="65"/>
    422432      </Position24>
    423433      <Position25>
    424434        <Filename Value="..\UCustomDockManager.pas"/>
    425         <Caret Line="2" Column="52" TopLine="1"/>
     435        <Caret Line="108" Column="20" TopLine="94"/>
    426436      </Position25>
    427437      <Position26>
    428438        <Filename Value="..\UCustomDockManager.pas"/>
    429         <Caret Line="108" Column="5" TopLine="83"/>
     439        <Caret Line="515" Column="11" TopLine="501"/>
    430440      </Position26>
    431441      <Position27>
    432442        <Filename Value="..\UCustomDockManager.pas"/>
    433         <Caret Line="106" Column="45" TopLine="90"/>
     443        <Caret Line="112" Column="58" TopLine="91"/>
    434444      </Position27>
    435445      <Position28>
    436         <Filename Value="..\UCustomDockManager.pas"/>
    437         <Caret Line="635" Column="1" TopLine="626"/>
     446        <Filename Value="UMainForm.pas"/>
     447        <Caret Line="5" Column="20" TopLine="1"/>
    438448      </Position28>
    439449      <Position29>
    440450        <Filename Value="..\UCustomDockManager.pas"/>
    441         <Caret Line="100" Column="40" TopLine="97"/>
     451        <Caret Line="175" Column="24" TopLine="165"/>
    442452      </Position29>
    443453      <Position30>
    444         <Filename Value="..\UCustomDockManager.pas"/>
    445         <Caret Line="11" Column="72" TopLine="1"/>
     454        <Filename Value="E:\Programy\Lazarus\lcl\customtimer.pas"/>
     455        <Caret Line="77" Column="3" TopLine="68"/>
    446456      </Position30>
    447457    </JumpHistory>

  • DockManager/Lazarus/Demo/UMainForm.lfm

    r48 r49  
    2727    Align = alBottom
    2828    Anchors = [akTop, akLeft, akRight, akBottom]
     29    ClientHeight = 387
     30    ClientWidth = 576
    2931    DockSite = True
    3032    TabOrder = 1
     33    object TabControl1: TTabControl
     34      Left = 191
     35      Height = 150
     36      Top = 75
     37      Width = 200
     38      TabOrder = 0
     39      TabPosition = tpLeft
     40      TabStop = False
     41    end
    3142  end
    3243  object CustomDockMaster1: TCustomDockMaster

  • DockManager/Lazarus/Demo/UMainForm.pas

    r48 r49  
    1717    CustomDockMaster1: TCustomDockMaster;
    1818    Panel1: TPanel;
     19    TabControl1: TTabControl;
    1920    procedure Button1Click(Sender: TObject);
    2021    procedure FormCreate(Sender: TObject);
    … …  
    5758  ConjoinedDockForm1 := TCustomDockManager(Panel1.DockManager).CreateContainer(alRight);
    5859  ConjoinedDockForm1.Name := 'Model';;
     60  TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).TabsPos := hpLeft;
    5961  //ConjoinedDockForm1.ManualDock(Panel1);
    6062  TCustomDockManager(ConjoinedDockForm1.Panel.DockManager).DockStyle := dsTabs;

  • DockManager/Lazarus/UCustomDockManager.pas

    r48 r49  
    3333  TDockClientPanel = class(TPanel)
    3434  private
     35    FAutoHide: Boolean;
     36    FHeaderPos: THeaderPos;
    3537    FShowHeader: Boolean;
     38    procedure SetAutoHide(const AValue: Boolean);
     39    procedure SetHeaderPos(const AValue: THeaderPos);
    3640    procedure SetShowHeader(const AValue: Boolean);
    3741  public
    … …  
    5054    procedure ResizeExecute(Sender: TObject);
    5155    property ShowHeader: Boolean read FShowHeader write SetShowHeader;
     56    property AutoHide: Boolean read FAutoHide write SetAutoHide;
     57    property HeaderPos: THeaderPos read FHeaderPos write SetHeaderPos;
    5258  end;
    5359
    … …  
    5662  TCustomDockManager = class(TDockManager)
    5763  private
     64    FMoveDuration: Integer;
     65    FTabsPos: THeaderPos;
     66    Timer1: TTimer;
    5867    PopupMenu1: TPopupMenu;
    5968    FDockStyle: TDockStyle;
    … …  
    6675      DropCtl: TControl);
    6776    procedure SetDockStyle(const AValue: TDockStyle);
     77    procedure SetMoveDuration(const AValue: Integer);
     78    procedure SetTabsPos(const AValue: THeaderPos);
    6879    procedure UpdateClientSize;
    6980    procedure TabControlChange(Sender: TObject);
    7081    procedure PopupMenuListClick(Sender: TObject);
    7182    procedure PopupMenuTabsClick(Sender: TObject);
     83    procedure PopupMenuCloseClick(Sender: TObject);
     84    procedure PopupMenuRenameClick(Sender: TObject);
     85    procedure Timer1Timer(Sender: TObject);
    7286  public
    7387    constructor Create(ADockSite: TWinControl); override;
    … …  
    95109    function CreateContainer(InsertAt: TAlign): TConjoinDockForm;
    96110    property DockStyle: TDockStyle read FDockStyle write SetDockStyle;
     111    property MoveDuration: Integer read FMoveDuration write SetMoveDuration;
     112    property TabsPos: THeaderPos read FTabsPos write SetTabsPos;
    97113  end;
    98114
    … …  
    119135implementation
    120136
     137resourcestring
     138  SDockStyle = 'Style';
     139  SDockList = 'List';
     140  SDockTabs = 'Tabs';
     141  SCloseForm = 'Close';
     142  SRenameForm = 'Rename';
     143
     144
    121145procedure Register;
    122146begin
    … …  
    142166var
    143167  NewMenuItem: TMenuItem;
     168  NewMenuItem2: TMenuItem;
    144169begin
    145170  inherited Create(ADockSite);
    … …  
    147172  FDockPanels := TObjectList.Create;
    148173  PopupMenu1 := TPopupMenu.Create(FDockSite);
     174
     175  Timer1 := TTimer.Create(nil);
     176  Timer1.Enabled := False;
     177  Timer1.OnTimer := Timer1Timer;
     178
    149179  NewMenuItem := TMenuItem.Create(PopupMenu1);
    150   NewMenuItem.Caption := 'List';
     180  NewMenuItem.Caption := SDockStyle;
    151181  PopupMenu1.Items.Add(NewMenuItem);
    152   NewMenuItem.OnClick := PopupMenuListClick;
     182
     183  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     184  NewMenuItem2.Caption := SDockList;
     185  NewMenuItem2.OnClick := PopupMenuListClick;
     186  NewMenuItem.Add(NewMenuItem2);
     187
     188  NewMenuItem2 := TMenuItem.Create(NewMenuItem);
     189  NewMenuItem2.Caption := SDockTabs;
     190  NewMenuItem2.OnClick := PopupMenuTabsClick;
     191  NewMenuItem.Add(NewMenuItem2);
     192
    153193  NewMenuItem := TMenuItem.Create(PopupMenu1);
    154   NewMenuItem.Caption := 'Tabs';
    155   NewMenuItem.OnClick := PopupMenuTabsClick;
     194  NewMenuItem.Caption := SCloseForm;
     195  NewMenuItem.OnClick := PopupMenuCloseClick;
    156196  PopupMenu1.Items.Add(NewMenuItem);
     197
     198  NewMenuItem := TMenuItem.Create(PopupMenu1);
     199  NewMenuItem.Caption := SRenameForm;
     200  NewMenuItem.OnClick := PopupMenuRenameClick;
     201  PopupMenu1.Items.Add(NewMenuItem);
     202
    157203  TabControl := TTabControl.Create(FDockSite);
    158204  with TabControl do begin
    … …  
    164210    PopupMenu := PopupMenu1;
    165211  end;
     212  TabsPos := hpTop;
     213  MoveDuration := 1000; // ms
    166214end;
    167215
    168216destructor TCustomDockManager.Destroy;
    169217begin
     218  Timer1.Free;
    170219  FDockPanels.Free;
    171220  inherited Destroy;
    … …  
    431480end;
    432481
     482procedure TCustomDockManager.SetMoveDuration(const AValue: Integer);
     483begin
     484  if FMoveDuration=AValue then exit;
     485  FMoveDuration := AValue;
     486  //Timer1.Interval := AValue;
     487end;
     488
     489procedure TCustomDockManager.SetTabsPos(const AValue: THeaderPos);
     490begin
     491  if FTabsPos=AValue then exit;
     492  FTabsPos := AValue;
     493  with TabControl do
     494  case AValue of
     495    hpAuto, hpTop: begin
     496      Align := alTop;
     497      TabPosition := tpTop;
     498      Height := GrabberSize;
     499    end;
     500    hpLeft: begin
     501      Align := alLeft;
     502      TabPosition := tpLeft;
     503      Width := GrabberSize;
     504    end;
     505    hpRight: begin
     506      Align := alRight;
     507      TabPosition := tpRight;
     508      Width := GrabberSize;
     509    end;
     510    hpBottom: begin
     511      Align := alBottom;
     512      TabPosition := tpBottom;
     513      Height := GrabberSize;
     514    end;
     515  end;
     516end;
     517
    433518procedure TCustomDockManager.UpdateClientSize;
    434519var
    … …  
    461546  end;
    462547  if (TabControl.TabIndex <> -1) and (FDockPanels.Count > TabControl.TabIndex) then begin
    463     with TDockClientPanel(FDockPanels[TabControl.TabIndex]).ClientAreaPanel do begin
    464       Parent := FDockSite;
    465       Visible := True;
    466       UpdateClientSize;
     548    with TDockClientPanel(FDockPanels[TabControl.TabIndex]), ClientAreaPanel do begin
     549      if AutoHide then begin
     550        Parent := nil;
     551        Visible := True;
     552        Width := 0;
     553        //TimerMoveForm :=
     554        //TimerIncrement := 1;
     555        Timer1.Interval := MoveDuration div 10;
     556        Timer1.Enabled := True;
     557      end else begin
     558        Parent := FDockSite;
     559        Visible := True;
     560        UpdateClientSize;
     561      end;
    467562    end;
    468563//  TDockClientPanel(FDockPanels[TabControl.TabIndex]).Visible := True;
    … …  
    473568begin
    474569  DockStyle := dsTabs;
     570end;
     571
     572procedure TCustomDockManager.PopupMenuCloseClick(Sender: TObject);
     573begin
     574//  TForm(TCustomDockManager(TControl(Sender).Parent.Parent.Parent.DockManager).FDockSite).Close;
     575end;
     576
     577procedure TCustomDockManager.PopupMenuRenameClick(Sender: TObject);
     578begin
     579
     580end;
     581
     582procedure TCustomDockManager.Timer1Timer(Sender: TObject);
     583begin
     584//  TimerMoveForm.Width := TimerMoveForm.Width
    475585end;
    476586
    … …  
    487597  FShowHeader := AValue;
    488598  DockPanelPaint(Self);
     599end;
     600
     601procedure TDockClientPanel.SetAutoHide(const AValue: Boolean);
     602begin
     603  if FAutoHide=AValue then exit;
     604  FAutoHide:=AValue;
     605end;
     606
     607procedure TDockClientPanel.SetHeaderPos(const AValue: THeaderPos);
     608begin
     609  if FHeaderPos=AValue then exit;
     610  FHeaderPos:=AValue;
    489611end;
    490612
    … …  
    527649  BevelOuter := bvNone;
    528650  ShowHeader := True;
     651  AutoHide := False;
     652  HeaderPos := hpTop;
    529653end;
    530654
Note: See TracChangeset for help on using the changeset viewer.