Ignore:
Timestamp:
Apr 27, 2012, 8:34:10 AM (13 years ago)
Author:
chronos
Message:
  • Modified: Change concept of dock manager items logical visibility vs TControl real visibility. Not visible controls are hidden by manager using TCDManager.DockSiteVisible property. TCDManager provide events OnDockSiteHide and OnDockSiteShow for handling logical visibility.
Location:
Docking/CoolDocking/Demo/Testing
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Docking/CoolDocking/Demo/Testing/Demo.lpi

    r354 r355  
    5656        <ResourceBaseClass Value="Form"/>
    5757        <UnitName Value="UMainForm"/>
     58        <IsVisibleTab Value="True"/>
    5859        <EditorIndex Value="3"/>
    5960        <WindowIndex Value="0"/>
    60         <TopLine Value="63"/>
    61         <CursorPos X="1" Y="75"/>
     61        <TopLine Value="103"/>
     62        <CursorPos X="1" Y="114"/>
    6263        <UsageCount Value="201"/>
    6364        <Loaded Value="True"/>
    … …  
    134135        <WindowIndex Value="0"/>
    135136        <TopLine Value="1"/>
    136         <CursorPos X="12" Y="9"/>
     137        <CursorPos X="32" Y="7"/>
    137138        <UsageCount Value="200"/>
    138139        <Loaded Value="True"/>
    … …  
    338339        <TopLine Value="1"/>
    339340        <CursorPos X="22" Y="17"/>
    340         <UsageCount Value="154"/>
     341        <UsageCount Value="155"/>
    341342        <Loaded Value="True"/>
    342343        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    449450        <TopLine Value="1"/>
    450451        <CursorPos X="44" Y="45"/>
    451         <UsageCount Value="106"/>
     452        <UsageCount Value="107"/>
    452453        <Loaded Value="True"/>
    453454        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    767768        <Filename Value="..\..\UCDConjoinForm.pas"/>
    768769        <UnitName Value="UCDConjoinForm"/>
    769         <EditorIndex Value="15"/>
     770        <EditorIndex Value="7"/>
    770771        <WindowIndex Value="0"/>
    771772        <TopLine Value="49"/>
    … …  
    777778        <Filename Value="..\..\UCDCommon.pas"/>
    778779        <UnitName Value="UCDCommon"/>
    779         <EditorIndex Value="16"/>
     780        <EditorIndex Value="8"/>
    780781        <WindowIndex Value="0"/>
    781782        <TopLine Value="85"/>
    … …  
    787788        <Filename Value="..\..\UCDManager.pas"/>
    788789        <UnitName Value="UCDManager"/>
    789         <EditorIndex Value="7"/>
    790         <WindowIndex Value="0"/>
    791         <TopLine Value="76"/>
    792         <CursorPos X="1" Y="92"/>
     790        <EditorIndex Value="4"/>
     791        <WindowIndex Value="0"/>
     792        <TopLine Value="354"/>
     793        <CursorPos X="1" Y="362"/>
    793794        <UsageCount Value="13"/>
    794795        <Loaded Value="True"/>
    … …  
    805806        <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    806807        <UnitName Value="UCDManagerTabs"/>
    807         <IsVisibleTab Value="True"/>
    808         <EditorIndex Value="11"/>
    809         <WindowIndex Value="0"/>
    810         <TopLine Value="394"/>
    811         <CursorPos X="7" Y="415"/>
     808        <EditorIndex Value="6"/>
     809        <WindowIndex Value="0"/>
     810        <TopLine Value="388"/>
     811        <CursorPos X="57" Y="396"/>
    812812        <UsageCount Value="13"/>
    813813        <Loaded Value="True"/>
    … …  
    952952        <Filename Value="..\..\UCDMaster.pas"/>
    953953        <UnitName Value="UCDMaster"/>
    954         <EditorIndex Value="17"/>
     954        <EditorIndex Value="9"/>
    955955        <WindowIndex Value="0"/>
    956956        <TopLine Value="4"/>
    … …  
    962962        <Filename Value="..\..\UCDClient.pas"/>
    963963        <UnitName Value="UCDClient"/>
    964         <EditorIndex Value="18"/>
     964        <EditorIndex Value="10"/>
    965965        <WindowIndex Value="0"/>
    966966        <TopLine Value="91"/>
    … …  
    972972        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    973973        <UnitName Value="UCDManagerRegions"/>
    974         <EditorIndex Value="8"/>
    975         <WindowIndex Value="0"/>
    976         <TopLine Value="357"/>
    977         <CursorPos X="1" Y="362"/>
     974        <EditorIndex Value="5"/>
     975        <WindowIndex Value="0"/>
     976        <TopLine Value="301"/>
     977        <CursorPos X="1" Y="314"/>
    978978        <UsageCount Value="11"/>
    979979        <Loaded Value="True"/>
    … …  
    982982        <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\controls.pp"/>
    983983        <UnitName Value="Controls"/>
    984         <EditorIndex Value="6"/>
    985984        <WindowIndex Value="0"/>
    986985        <TopLine Value="533"/>
    987986        <CursorPos X="15" Y="537"/>
    988987        <UsageCount Value="11"/>
    989         <Loaded Value="True"/>
    990988      </Unit106>
    991989      <Unit107>
    992990        <Filename Value="H:\Lazarus\1.1_2.6.0\components\lazutils\lazmethodlist.pas"/>
    993991        <UnitName Value="LazMethodList"/>
    994         <EditorIndex Value="12"/>
    995         <WindowIndex Value="0"/>
    996         <TopLine Value="142"/>
    997         <CursorPos X="1" Y="164"/>
    998         <UsageCount Value="11"/>
    999         <Loaded Value="True"/>
     992        <WindowIndex Value="0"/>
     993        <TopLine Value="1"/>
     994        <CursorPos X="15" Y="160"/>
     995        <UsageCount Value="11"/>
    1000996      </Unit107>
    1001997      <Unit108>
    1002998        <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\include\control.inc"/>
    1003         <EditorIndex Value="13"/>
    1004999        <WindowIndex Value="0"/>
    10051000        <TopLine Value="4254"/>
    10061001        <CursorPos X="1" Y="4272"/>
    10071002        <UsageCount Value="11"/>
    1008         <Loaded Value="True"/>
    10091003      </Unit108>
    10101004      <Unit109>
    10111005        <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\include\customform.inc"/>
    1012         <EditorIndex Value="14"/>
    10131006        <WindowIndex Value="0"/>
    10141007        <TopLine Value="473"/>
    10151008        <CursorPos X="1" Y="489"/>
    10161009        <UsageCount Value="11"/>
    1017         <Loaded Value="True"/>
    10181010      </Unit109>
    10191011      <Unit110>
    10201012        <Filename Value="H:\Lazarus\1.1_2.6.0\fpc\2.6.0\source\rtl\objpas\classes\classesh.inc"/>
    1021         <EditorIndex Value="9"/>
    10221013        <WindowIndex Value="0"/>
    10231014        <TopLine Value="659"/>
    10241015        <CursorPos X="3" Y="660"/>
    10251016        <UsageCount Value="10"/>
    1026         <Loaded Value="True"/>
    10271017      </Unit110>
    10281018      <Unit111>
    10291019        <Filename Value="H:\Lazarus\1.1_2.6.0\fpc\2.6.0\source\rtl\objpas\classes\stringl.inc"/>
    1030         <EditorIndex Value="10"/>
    10311020        <WindowIndex Value="0"/>
    10321021        <TopLine Value="645"/>
    10331022        <CursorPos X="3" Y="648"/>
    10341023        <UsageCount Value="10"/>
    1035         <Loaded Value="True"/>
    10361024      </Unit111>
    10371025      <Unit112>
    10381026        <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\comctrls.pp"/>
    10391027        <UnitName Value="ComCtrls"/>
    1040         <EditorIndex Value="4"/>
    10411028        <WindowIndex Value="0"/>
    10421029        <TopLine Value="1439"/>
    10431030        <CursorPos X="15" Y="1449"/>
    10441031        <UsageCount Value="10"/>
    1045         <Loaded Value="True"/>
    10461032      </Unit112>
    10471033      <Unit113>
    10481034        <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\include\customlistview.inc"/>
    1049         <EditorIndex Value="5"/>
    10501035        <WindowIndex Value="0"/>
    10511036        <TopLine Value="1428"/>
    10521037        <CursorPos X="20" Y="1449"/>
    10531038        <UsageCount Value="10"/>
    1054         <Loaded Value="True"/>
    10551039      </Unit113>
    10561040    </Units>
    10571041    <JumpHistory Count="30" HistoryIndex="29">
    10581042      <Position1>
    1059         <Filename Value="..\..\UCDManager.pas"/>
    1060         <Caret Line="89" Column="3" TopLine="85"/>
     1043        <Filename Value="UMainForm.pas"/>
     1044        <Caret Line="135" Column="14" TopLine="114"/>
    10611045      </Position1>
    10621046      <Position2>
    1063         <Filename Value="..\..\UCDManager.pas"/>
    1064         <Caret Line="104" Column="25" TopLine="85"/>
     1047        <Filename Value="UMainForm.pas"/>
     1048        <Caret Line="134" Column="14" TopLine="113"/>
    10651049      </Position2>
    10661050      <Position3>
    1067         <Filename Value="..\..\UCDManager.pas"/>
    1068         <Caret Line="145" Column="47" TopLine="106"/>
     1051        <Filename Value="UMainForm.pas"/>
     1052        <Caret Line="140" Column="3" TopLine="124"/>
    10691053      </Position3>
    10701054      <Position4>
    10711055        <Filename Value="..\..\UCDManager.pas"/>
    1072         <Caret Line="595" Column="32" TopLine="574"/>
     1056        <Caret Line="362" Column="20" TopLine="354"/>
    10731057      </Position4>
    10741058      <Position5>
    1075         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1076         <Caret Line="373" Column="3" TopLine="369"/>
     1059        <Filename Value="UMainForm.pas"/>
     1060        <Caret Line="116" Column="1" TopLine="103"/>
    10771061      </Position5>
    10781062      <Position6>
    1079         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1080         <Caret Line="166" Column="29" TopLine="163"/>
     1063        <Filename Value="UMainForm.pas"/>
     1064        <Caret Line="118" Column="1" TopLine="103"/>
    10811065      </Position6>
    10821066      <Position7>
    1083         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1084         <Caret Line="49" Column="15" TopLine="36"/>
     1067        <Filename Value="UMainForm.pas"/>
     1068        <Caret Line="110" Column="1" TopLine="103"/>
    10851069      </Position7>
    10861070      <Position8>
    1087         <Filename Value="..\..\UCDManager.pas"/>
    1088         <Caret Line="95" Column="1" TopLine="85"/>
     1071        <Filename Value="UMainForm.pas"/>
     1072        <Caret Line="112" Column="1" TopLine="103"/>
    10891073      </Position8>
    10901074      <Position9>
    1091         <Filename Value="..\..\UCDManager.pas"/>
    1092         <Caret Line="120" Column="15" TopLine="107"/>
     1075        <Filename Value="UMainForm.pas"/>
     1076        <Caret Line="116" Column="1" TopLine="103"/>
    10931077      </Position9>
    10941078      <Position10>
    1095         <Filename Value="..\..\UCDManager.pas"/>
    1096         <Caret Line="121" Column="15" TopLine="108"/>
     1079        <Filename Value="UMainForm.pas"/>
     1080        <Caret Line="110" Column="1" TopLine="103"/>
    10971081      </Position10>
    10981082      <Position11>
    1099         <Filename Value="..\..\UCDManager.pas"/>
    1100         <Caret Line="120" Column="15" TopLine="108"/>
     1083        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1084        <Caret Line="368" Column="1" TopLine="355"/>
    11011085      </Position11>
    11021086      <Position12>
    11031087        <Filename Value="..\..\UCDManager.pas"/>
    1104         <Caret Line="121" Column="26" TopLine="107"/>
     1088        <Caret Line="362" Column="1" TopLine="354"/>
    11051089      </Position12>
    11061090      <Position13>
    1107         <Filename Value="..\..\UCDManager.pas"/>
    1108         <Caret Line="120" Column="15" TopLine="107"/>
     1091        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1092        <Caret Line="368" Column="1" TopLine="355"/>
    11091093      </Position13>
    11101094      <Position14>
    1111         <Filename Value="..\..\UCDManager.pas"/>
    1112         <Caret Line="121" Column="15" TopLine="108"/>
     1095        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1096        <Caret Line="176" Column="1" TopLine="163"/>
    11131097      </Position14>
    11141098      <Position15>
    1115         <Filename Value="..\..\UCDManager.pas"/>
    1116         <Caret Line="120" Column="36" TopLine="97"/>
     1099        <Filename Value="UMainForm.pas"/>
     1100        <Caret Line="116" Column="1" TopLine="103"/>
    11171101      </Position15>
    11181102      <Position16>
    11191103        <Filename Value="..\..\UCDManager.pas"/>
    1120         <Caret Line="118" Column="36" TopLine="97"/>
     1104        <Caret Line="360" Column="1" TopLine="354"/>
    11211105      </Position16>
    11221106      <Position17>
    1123         <Filename Value="..\..\UCDManager.pas"/>
    1124         <Caret Line="389" Column="45" TopLine="381"/>
     1107        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1108        <Caret Line="314" Column="1" TopLine="301"/>
    11251109      </Position17>
    11261110      <Position18>
    1127         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1128         <Caret Line="32" Column="1" TopLine="27"/>
     1111        <Filename Value="UMainForm.pas"/>
     1112        <Caret Line="108" Column="9" TopLine="103"/>
    11291113      </Position18>
    11301114      <Position19>
    11311115        <Filename Value="UMainForm.pas"/>
    1132         <Caret Line="75" Column="12" TopLine="66"/>
     1116        <Caret Line="115" Column="1" TopLine="103"/>
    11331117      </Position19>
    11341118      <Position20>
    1135         <Filename Value="..\..\UCDManager.pas"/>
    1136         <Caret Line="108" Column="22" TopLine="95"/>
     1119        <Filename Value="UMainForm.pas"/>
     1120        <Caret Line="116" Column="1" TopLine="103"/>
    11371121      </Position20>
    11381122      <Position21>
    1139         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1140         <Caret Line="155" Column="1" TopLine="142"/>
     1123        <Filename Value="UMainForm.pas"/>
     1124        <Caret Line="109" Column="1" TopLine="103"/>
    11411125      </Position21>
    11421126      <Position22>
    1143         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1144         <Caret Line="46" Column="21" TopLine="33"/>
     1127        <Filename Value="UMainForm.pas"/>
     1128        <Caret Line="110" Column="1" TopLine="103"/>
    11451129      </Position22>
    11461130      <Position23>
    1147         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    1148         <Caret Line="83" Column="1" TopLine="70"/>
     1131        <Filename Value="UMainForm.pas"/>
     1132        <Caret Line="115" Column="1" TopLine="103"/>
    11491133      </Position23>
    11501134      <Position24>
    1151         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    1152         <Caret Line="84" Column="32" TopLine="70"/>
     1135        <Filename Value="..\..\UCDManager.pas"/>
     1136        <Caret Line="360" Column="1" TopLine="354"/>
    11531137      </Position24>
    11541138      <Position25>
    1155         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    1156         <Caret Line="46" Column="21" TopLine="33"/>
     1139        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
     1140        <Caret Line="314" Column="1" TopLine="301"/>
    11571141      </Position25>
    11581142      <Position26>
    1159         <Filename Value="..\..\Managers\UCDManagerTabs.pas"/>
    1160         <Caret Line="347" Column="3" TopLine="328"/>
     1143        <Filename Value="UMainForm.pas"/>
     1144        <Caret Line="109" Column="1" TopLine="103"/>
    11611145      </Position26>
    11621146      <Position27>
    1163         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1164         <Caret Line="309" Column="9" TopLine="297"/>
     1147        <Filename Value="..\..\UCDManager.pas"/>
     1148        <Caret Line="362" Column="1" TopLine="354"/>
    11651149      </Position27>
    11661150      <Position28>
    11671151        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1168         <Caret Line="35" Column="15" TopLine="22"/>
     1152        <Caret Line="368" Column="1" TopLine="355"/>
    11691153      </Position28>
    11701154      <Position29>
    1171         <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1172         <Caret Line="72" Column="7" TopLine="58"/>
     1155        <Filename Value="UMainForm.pas"/>
     1156        <Caret Line="115" Column="1" TopLine="103"/>
    11731157      </Position29>
    11741158      <Position30>
    11751159        <Filename Value="..\..\Managers\UCDManagerRegions.pas"/>
    1176         <Caret Line="63" Column="37" TopLine="58"/>
     1160        <Caret Line="314" Column="1" TopLine="301"/>
    11771161      </Position30>
    11781162    </JumpHistory>
    … …  
    12041188        <StackChecks Value="True"/>
    12051189      </Checks>
    1206       <VerifyObjMethodCallValidity Value="True"/>
    12071190    </CodeGeneration>
    12081191    <Linking>

  • Docking/CoolDocking/Demo/Testing/UMainForm.lfm

    r354 r355  
    2828    Align = alBottom
    2929    Anchors = [akTop, akLeft, akRight, akBottom]
    30     ClientHeight = 368
    31     ClientWidth = 576
    3230    DockSite = True
    3331    TabOrder = 1
    34     object PageControl1: TPageControl
    35       Left = 80
    36       Height = 160
    37       Top = 50
    38       Width = 256
    39       ActivePage = TabSheet2
    40       MultiLine = True
    41       TabIndex = 1
    42       TabOrder = 0
    43       OnChange = PageControl1Change
    44       Options = [nboMultiLine]
    45       object TabSheet1: TTabSheet
    46         Caption = 'TabSheet1'
    47       end
    48       object TabSheet2: TTabSheet
    49         Caption = 'TabSheet2'
    50       end
    51       object TabSheet3: TTabSheet
    52         Caption = 'TabSheet3'
    53       end
    54       object TabSheet4: TTabSheet
    55         Caption = 'TabSheet4'
    56       end
    57     end
    58     object TabControl1: TTabControl
    59       Left = 344
    60       Height = 150
    61       Top = 144
    62       Width = 200
    63       TabStop = False
    64       MultiLine = True
    65       TabIndex = 0
    66       Tabs.Strings = (
    67         'ggdfg'
    68         'gfgdfgfdgd'
    69         'gdfgdfgdf'
    70         'dfsdfs'
    71         'dd'
    72         'dddd'
    73         'ddd'
    74       )
    75       TabOrder = 1
    76     end
    7732  end
    7833  object Button2: TButton
    … …  
    10358  end
    10459  object MainMenu1: TMainMenu
    105     left = 211
     60    left = 248
    10661    object MenuItem1: TMenuItem
    10762      Caption = 'Docking'

  • Docking/CoolDocking/Demo/Testing/UMainForm.pas

    r354 r355  
    2727    MenuItem3: TMenuItem;
    2828    MenuItem4: TMenuItem;
    29     PageControl1: TPageControl;
    3029    Panel1: TPanel;
    31     TabControl1: TTabControl;
    32     TabSheet1: TTabSheet;
    33     TabSheet2: TTabSheet;
    34     TabSheet3: TTabSheet;
    35     TabSheet4: TTabSheet;
    3630    procedure Button1Click(Sender: TObject);
    3731    procedure Button2Click(Sender: TObject);
    … …  
    4337    procedure PageControl1Change(Sender: TObject);
    4438  private
     39    procedure DockSiteShowExecute(Sender: TObject);
     40    procedure DockSiteHideExecute(Sender: TObject);
    4541  public
    4642    FormIndex: Integer;
    … …  
    7975  NewDockForm.ManualDock(Form1);
    8076  TCDManager(Panel1.DockManager).DockStyle := dsTabs;
     77  NewDockForm.ManualDock(Panel1);
    8178(*  ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm;
    8279  ConjoinedDockForm1.Name := 'Model';;
    … …  
    109106end;
    110107
     108procedure TMainForm.DockSiteShowExecute(Sender: TObject);
     109begin
     110  if Sender is TControl then
     111    DebugLog(TControl(Sender).Name + ' Show');
     112end;
     113
     114procedure TMainForm.DockSiteHideExecute(Sender: TObject);
     115begin
     116  if Sender is TControl then
     117    DebugLog(TControl(Sender).Name + ' Hide');
     118end;
     119
    111120function TMainForm.NewDockForm: TDockForm;
    112121begin
    … …  
    117126  Result.Caption := Result.Name;
    118127  Result.Memo1.Text := Result.Name;
     128  TCDManager(Result.DockManager).OnDockSiteHide := DockSiteHideExecute;
     129  TCDManager(Result.DockManager).OnDockSiteShow := DockSiteShowExecute;
    119130  //Result.DragKind := dkDock;
    120131  //Result.DragMode := dmAutomatic;
Note: See TracChangeset for help on using the changeset viewer.