Changeset 355
- Timestamp:
- Apr 27, 2012, 8:34:10 AM (13 years ago)
- Location:
- Docking/CoolDocking
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
Docking/CoolDocking/CoolDocking.lpk
r335 r355 30 30 <Description Value="Set of components for forms docking for Lazarus."/> 31 31 <License Value="GNU/GPL"/> 32 <Version Minor=" 6"/>32 <Version Minor="7"/> 33 33 <Files Count="15"> 34 34 <Item1> … … 51 51 </Item4> 52 52 <Item5> 53 <Filename Value="UCDManager.pas"/> 54 <UnitName Value="UCDManager"/> 55 </Item5> 56 <Item6> 53 57 <Filename Value="Managers\UCDManagerTabs.pas"/> 54 58 <UnitName Value="UCDManagerTabs"/> 55 </Item 5>56 <Item 6>59 </Item6> 60 <Item7> 57 61 <Filename Value="Managers\UCDManagerRegions.pas"/> 58 62 <UnitName Value="UCDManagerRegions"/> 59 </Item 6>60 <Item 7>63 </Item7> 64 <Item8> 61 65 <Filename Value="Managers\UCDManagerTabsPopup.pas"/> 62 66 <UnitName Value="UCDManagerTabsPopup"/> 63 </Item 7>64 <Item 8>67 </Item8> 68 <Item9> 65 69 <Filename Value="Managers\UCDManagerRegionsPopup.pas"/> 66 70 <UnitName Value="UCDManagerRegionsPopup"/> 67 </Item 8>68 <Item 9>71 </Item9> 72 <Item10> 69 73 <Filename Value="UCDPopupMenu.pas"/> 70 74 <UnitName Value="UCDPopupMenu"/> 71 </Item 9>72 <Item1 0>75 </Item10> 76 <Item11> 73 77 <Filename Value="UCDLayout.pas"/> 74 78 <HasRegisterProc Value="True"/> 75 79 <UnitName Value="UCDLayout"/> 76 </Item1 0>77 <Item1 1>80 </Item11> 81 <Item12> 78 82 <Filename Value="UCDCommon.pas"/> 79 83 <UnitName Value="UCDCommon"/> 80 </Item11>81 <Item12>82 <Filename Value="UCDManager.pas"/>83 <UnitName Value="UCDManager"/>84 84 </Item12> 85 85 <Item13> … … 121 121 <Version Value="2"/> 122 122 </PublishOptions> 123 <CustomOptions Items="ExternHelp" Version="2"> 124 <_ExternHelp Items="Count"/> 125 </CustomOptions> 123 126 </Package> 124 127 </CONFIG> -
Docking/CoolDocking/CoolDocking.pas
r332 r355 8 8 9 9 uses 10 UCDClient, UCDCustomize, UCDWindowList, UCDManager Tabs, UCDManagerRegions,11 UCDManager TabsPopup, UCDManagerRegionsPopup, UCDPopupMenu, UCDLayout,12 UCD Common, UCDManager, UCDConjoinForm, UCDMaster, UCDResource,10 UCDClient, UCDCustomize, UCDWindowList, UCDManager, UCDManagerTabs, 11 UCDManagerRegions, UCDManagerTabsPopup, UCDManagerRegionsPopup, 12 UCDPopupMenu, UCDLayout, UCDCommon, UCDConjoinForm, UCDMaster, UCDResource, 13 13 LazarusPackageIntf; 14 14 -
Docking/CoolDocking/Demo/Testing/Demo.lpi
r354 r355 56 56 <ResourceBaseClass Value="Form"/> 57 57 <UnitName Value="UMainForm"/> 58 <IsVisibleTab Value="True"/> 58 59 <EditorIndex Value="3"/> 59 60 <WindowIndex Value="0"/> 60 <TopLine Value=" 63"/>61 <CursorPos X="1" Y=" 75"/>61 <TopLine Value="103"/> 62 <CursorPos X="1" Y="114"/> 62 63 <UsageCount Value="201"/> 63 64 <Loaded Value="True"/> … … 134 135 <WindowIndex Value="0"/> 135 136 <TopLine Value="1"/> 136 <CursorPos X=" 12" Y="9"/>137 <CursorPos X="32" Y="7"/> 137 138 <UsageCount Value="200"/> 138 139 <Loaded Value="True"/> … … 338 339 <TopLine Value="1"/> 339 340 <CursorPos X="22" Y="17"/> 340 <UsageCount Value="15 4"/>341 <UsageCount Value="155"/> 341 342 <Loaded Value="True"/> 342 343 <DefaultSyntaxHighlighter Value="Delphi"/> … … 449 450 <TopLine Value="1"/> 450 451 <CursorPos X="44" Y="45"/> 451 <UsageCount Value="10 6"/>452 <UsageCount Value="107"/> 452 453 <Loaded Value="True"/> 453 454 <DefaultSyntaxHighlighter Value="Delphi"/> … … 767 768 <Filename Value="..\..\UCDConjoinForm.pas"/> 768 769 <UnitName Value="UCDConjoinForm"/> 769 <EditorIndex Value=" 15"/>770 <EditorIndex Value="7"/> 770 771 <WindowIndex Value="0"/> 771 772 <TopLine Value="49"/> … … 777 778 <Filename Value="..\..\UCDCommon.pas"/> 778 779 <UnitName Value="UCDCommon"/> 779 <EditorIndex Value=" 16"/>780 <EditorIndex Value="8"/> 780 781 <WindowIndex Value="0"/> 781 782 <TopLine Value="85"/> … … 787 788 <Filename Value="..\..\UCDManager.pas"/> 788 789 <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"/> 793 794 <UsageCount Value="13"/> 794 795 <Loaded Value="True"/> … … 805 806 <Filename Value="..\..\Managers\UCDManagerTabs.pas"/> 806 807 <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"/> 812 812 <UsageCount Value="13"/> 813 813 <Loaded Value="True"/> … … 952 952 <Filename Value="..\..\UCDMaster.pas"/> 953 953 <UnitName Value="UCDMaster"/> 954 <EditorIndex Value=" 17"/>954 <EditorIndex Value="9"/> 955 955 <WindowIndex Value="0"/> 956 956 <TopLine Value="4"/> … … 962 962 <Filename Value="..\..\UCDClient.pas"/> 963 963 <UnitName Value="UCDClient"/> 964 <EditorIndex Value="1 8"/>964 <EditorIndex Value="10"/> 965 965 <WindowIndex Value="0"/> 966 966 <TopLine Value="91"/> … … 972 972 <Filename Value="..\..\Managers\UCDManagerRegions.pas"/> 973 973 <UnitName Value="UCDManagerRegions"/> 974 <EditorIndex Value=" 8"/>975 <WindowIndex Value="0"/> 976 <TopLine Value="3 57"/>977 <CursorPos X="1" Y="3 62"/>974 <EditorIndex Value="5"/> 975 <WindowIndex Value="0"/> 976 <TopLine Value="301"/> 977 <CursorPos X="1" Y="314"/> 978 978 <UsageCount Value="11"/> 979 979 <Loaded Value="True"/> … … 982 982 <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\controls.pp"/> 983 983 <UnitName Value="Controls"/> 984 <EditorIndex Value="6"/>985 984 <WindowIndex Value="0"/> 986 985 <TopLine Value="533"/> 987 986 <CursorPos X="15" Y="537"/> 988 987 <UsageCount Value="11"/> 989 <Loaded Value="True"/>990 988 </Unit106> 991 989 <Unit107> 992 990 <Filename Value="H:\Lazarus\1.1_2.6.0\components\lazutils\lazmethodlist.pas"/> 993 991 <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"/> 1000 996 </Unit107> 1001 997 <Unit108> 1002 998 <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\include\control.inc"/> 1003 <EditorIndex Value="13"/>1004 999 <WindowIndex Value="0"/> 1005 1000 <TopLine Value="4254"/> 1006 1001 <CursorPos X="1" Y="4272"/> 1007 1002 <UsageCount Value="11"/> 1008 <Loaded Value="True"/>1009 1003 </Unit108> 1010 1004 <Unit109> 1011 1005 <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\include\customform.inc"/> 1012 <EditorIndex Value="14"/>1013 1006 <WindowIndex Value="0"/> 1014 1007 <TopLine Value="473"/> 1015 1008 <CursorPos X="1" Y="489"/> 1016 1009 <UsageCount Value="11"/> 1017 <Loaded Value="True"/>1018 1010 </Unit109> 1019 1011 <Unit110> 1020 1012 <Filename Value="H:\Lazarus\1.1_2.6.0\fpc\2.6.0\source\rtl\objpas\classes\classesh.inc"/> 1021 <EditorIndex Value="9"/>1022 1013 <WindowIndex Value="0"/> 1023 1014 <TopLine Value="659"/> 1024 1015 <CursorPos X="3" Y="660"/> 1025 1016 <UsageCount Value="10"/> 1026 <Loaded Value="True"/>1027 1017 </Unit110> 1028 1018 <Unit111> 1029 1019 <Filename Value="H:\Lazarus\1.1_2.6.0\fpc\2.6.0\source\rtl\objpas\classes\stringl.inc"/> 1030 <EditorIndex Value="10"/>1031 1020 <WindowIndex Value="0"/> 1032 1021 <TopLine Value="645"/> 1033 1022 <CursorPos X="3" Y="648"/> 1034 1023 <UsageCount Value="10"/> 1035 <Loaded Value="True"/>1036 1024 </Unit111> 1037 1025 <Unit112> 1038 1026 <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\comctrls.pp"/> 1039 1027 <UnitName Value="ComCtrls"/> 1040 <EditorIndex Value="4"/>1041 1028 <WindowIndex Value="0"/> 1042 1029 <TopLine Value="1439"/> 1043 1030 <CursorPos X="15" Y="1449"/> 1044 1031 <UsageCount Value="10"/> 1045 <Loaded Value="True"/>1046 1032 </Unit112> 1047 1033 <Unit113> 1048 1034 <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\include\customlistview.inc"/> 1049 <EditorIndex Value="5"/>1050 1035 <WindowIndex Value="0"/> 1051 1036 <TopLine Value="1428"/> 1052 1037 <CursorPos X="20" Y="1449"/> 1053 1038 <UsageCount Value="10"/> 1054 <Loaded Value="True"/>1055 1039 </Unit113> 1056 1040 </Units> 1057 1041 <JumpHistory Count="30" HistoryIndex="29"> 1058 1042 <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"/> 1061 1045 </Position1> 1062 1046 <Position2> 1063 <Filename Value=" ..\..\UCDManager.pas"/>1064 <Caret Line="1 04" Column="25" TopLine="85"/>1047 <Filename Value="UMainForm.pas"/> 1048 <Caret Line="134" Column="14" TopLine="113"/> 1065 1049 </Position2> 1066 1050 <Position3> 1067 <Filename Value=" ..\..\UCDManager.pas"/>1068 <Caret Line="14 5" Column="47" TopLine="106"/>1051 <Filename Value="UMainForm.pas"/> 1052 <Caret Line="140" Column="3" TopLine="124"/> 1069 1053 </Position3> 1070 1054 <Position4> 1071 1055 <Filename Value="..\..\UCDManager.pas"/> 1072 <Caret Line=" 595" Column="32" TopLine="574"/>1056 <Caret Line="362" Column="20" TopLine="354"/> 1073 1057 </Position4> 1074 1058 <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"/> 1077 1061 </Position5> 1078 1062 <Position6> 1079 <Filename Value=" ..\..\Managers\UCDManagerRegions.pas"/>1080 <Caret Line="1 66" Column="29" TopLine="163"/>1063 <Filename Value="UMainForm.pas"/> 1064 <Caret Line="118" Column="1" TopLine="103"/> 1081 1065 </Position6> 1082 1066 <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"/> 1085 1069 </Position7> 1086 1070 <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"/> 1089 1073 </Position8> 1090 1074 <Position9> 1091 <Filename Value=" ..\..\UCDManager.pas"/>1092 <Caret Line="1 20" Column="15" TopLine="107"/>1075 <Filename Value="UMainForm.pas"/> 1076 <Caret Line="116" Column="1" TopLine="103"/> 1093 1077 </Position9> 1094 1078 <Position10> 1095 <Filename Value=" ..\..\UCDManager.pas"/>1096 <Caret Line="1 21" Column="15" TopLine="108"/>1079 <Filename Value="UMainForm.pas"/> 1080 <Caret Line="110" Column="1" TopLine="103"/> 1097 1081 </Position10> 1098 1082 <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"/> 1101 1085 </Position11> 1102 1086 <Position12> 1103 1087 <Filename Value="..\..\UCDManager.pas"/> 1104 <Caret Line=" 121" Column="26" TopLine="107"/>1088 <Caret Line="362" Column="1" TopLine="354"/> 1105 1089 </Position12> 1106 1090 <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"/> 1109 1093 </Position13> 1110 1094 <Position14> 1111 <Filename Value="..\..\ UCDManager.pas"/>1112 <Caret Line="1 21" Column="15" TopLine="108"/>1095 <Filename Value="..\..\Managers\UCDManagerRegions.pas"/> 1096 <Caret Line="176" Column="1" TopLine="163"/> 1113 1097 </Position14> 1114 1098 <Position15> 1115 <Filename Value=" ..\..\UCDManager.pas"/>1116 <Caret Line="1 20" Column="36" TopLine="97"/>1099 <Filename Value="UMainForm.pas"/> 1100 <Caret Line="116" Column="1" TopLine="103"/> 1117 1101 </Position15> 1118 1102 <Position16> 1119 1103 <Filename Value="..\..\UCDManager.pas"/> 1120 <Caret Line=" 118" Column="36" TopLine="97"/>1104 <Caret Line="360" Column="1" TopLine="354"/> 1121 1105 </Position16> 1122 1106 <Position17> 1123 <Filename Value="..\..\ UCDManager.pas"/>1124 <Caret Line="3 89" Column="45" TopLine="381"/>1107 <Filename Value="..\..\Managers\UCDManagerRegions.pas"/> 1108 <Caret Line="314" Column="1" TopLine="301"/> 1125 1109 </Position17> 1126 1110 <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"/> 1129 1113 </Position18> 1130 1114 <Position19> 1131 1115 <Filename Value="UMainForm.pas"/> 1132 <Caret Line=" 75" Column="12" TopLine="66"/>1116 <Caret Line="115" Column="1" TopLine="103"/> 1133 1117 </Position19> 1134 1118 <Position20> 1135 <Filename Value=" ..\..\UCDManager.pas"/>1136 <Caret Line="1 08" Column="22" TopLine="95"/>1119 <Filename Value="UMainForm.pas"/> 1120 <Caret Line="116" Column="1" TopLine="103"/> 1137 1121 </Position20> 1138 1122 <Position21> 1139 <Filename Value=" ..\..\Managers\UCDManagerRegions.pas"/>1140 <Caret Line="1 55" Column="1" TopLine="142"/>1123 <Filename Value="UMainForm.pas"/> 1124 <Caret Line="109" Column="1" TopLine="103"/> 1141 1125 </Position21> 1142 1126 <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"/> 1145 1129 </Position22> 1146 1130 <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"/> 1149 1133 </Position23> 1150 1134 <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"/> 1153 1137 </Position24> 1154 1138 <Position25> 1155 <Filename Value="..\..\Managers\UCDManager Tabs.pas"/>1156 <Caret Line=" 46" Column="21" TopLine="33"/>1139 <Filename Value="..\..\Managers\UCDManagerRegions.pas"/> 1140 <Caret Line="314" Column="1" TopLine="301"/> 1157 1141 </Position25> 1158 1142 <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"/> 1161 1145 </Position26> 1162 1146 <Position27> 1163 <Filename Value="..\..\ Managers\UCDManagerRegions.pas"/>1164 <Caret Line="3 09" Column="9" TopLine="297"/>1147 <Filename Value="..\..\UCDManager.pas"/> 1148 <Caret Line="362" Column="1" TopLine="354"/> 1165 1149 </Position27> 1166 1150 <Position28> 1167 1151 <Filename Value="..\..\Managers\UCDManagerRegions.pas"/> 1168 <Caret Line="3 5" Column="15" TopLine="22"/>1152 <Caret Line="368" Column="1" TopLine="355"/> 1169 1153 </Position28> 1170 1154 <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"/> 1173 1157 </Position29> 1174 1158 <Position30> 1175 1159 <Filename Value="..\..\Managers\UCDManagerRegions.pas"/> 1176 <Caret Line=" 63" Column="37" TopLine="58"/>1160 <Caret Line="314" Column="1" TopLine="301"/> 1177 1161 </Position30> 1178 1162 </JumpHistory> … … 1204 1188 <StackChecks Value="True"/> 1205 1189 </Checks> 1206 <VerifyObjMethodCallValidity Value="True"/>1207 1190 </CodeGeneration> 1208 1191 <Linking> -
Docking/CoolDocking/Demo/Testing/UMainForm.lfm
r354 r355 28 28 Align = alBottom 29 29 Anchors = [akTop, akLeft, akRight, akBottom] 30 ClientHeight = 36831 ClientWidth = 57632 30 DockSite = True 33 31 TabOrder = 1 34 object PageControl1: TPageControl35 Left = 8036 Height = 16037 Top = 5038 Width = 25639 ActivePage = TabSheet240 MultiLine = True41 TabIndex = 142 TabOrder = 043 OnChange = PageControl1Change44 Options = [nboMultiLine]45 object TabSheet1: TTabSheet46 Caption = 'TabSheet1'47 end48 object TabSheet2: TTabSheet49 Caption = 'TabSheet2'50 end51 object TabSheet3: TTabSheet52 Caption = 'TabSheet3'53 end54 object TabSheet4: TTabSheet55 Caption = 'TabSheet4'56 end57 end58 object TabControl1: TTabControl59 Left = 34460 Height = 15061 Top = 14462 Width = 20063 TabStop = False64 MultiLine = True65 TabIndex = 066 Tabs.Strings = (67 'ggdfg'68 'gfgdfgfdgd'69 'gdfgdfgdf'70 'dfsdfs'71 'dd'72 'dddd'73 'ddd'74 )75 TabOrder = 176 end77 32 end 78 33 object Button2: TButton … … 103 58 end 104 59 object MainMenu1: TMainMenu 105 left = 2 1160 left = 248 106 61 object MenuItem1: TMenuItem 107 62 Caption = 'Docking' -
Docking/CoolDocking/Demo/Testing/UMainForm.pas
r354 r355 27 27 MenuItem3: TMenuItem; 28 28 MenuItem4: TMenuItem; 29 PageControl1: TPageControl;30 29 Panel1: TPanel; 31 TabControl1: TTabControl;32 TabSheet1: TTabSheet;33 TabSheet2: TTabSheet;34 TabSheet3: TTabSheet;35 TabSheet4: TTabSheet;36 30 procedure Button1Click(Sender: TObject); 37 31 procedure Button2Click(Sender: TObject); … … 43 37 procedure PageControl1Change(Sender: TObject); 44 38 private 39 procedure DockSiteShowExecute(Sender: TObject); 40 procedure DockSiteHideExecute(Sender: TObject); 45 41 public 46 42 FormIndex: Integer; … … 79 75 NewDockForm.ManualDock(Form1); 80 76 TCDManager(Panel1.DockManager).DockStyle := dsTabs; 77 NewDockForm.ManualDock(Panel1); 81 78 (* ConjoinedDockForm1 := TCDManager(Panel1.DockManager).CreateConjoinForm; 82 79 ConjoinedDockForm1.Name := 'Model';; … … 109 106 end; 110 107 108 procedure TMainForm.DockSiteShowExecute(Sender: TObject); 109 begin 110 if Sender is TControl then 111 DebugLog(TControl(Sender).Name + ' Show'); 112 end; 113 114 procedure TMainForm.DockSiteHideExecute(Sender: TObject); 115 begin 116 if Sender is TControl then 117 DebugLog(TControl(Sender).Name + ' Hide'); 118 end; 119 111 120 function TMainForm.NewDockForm: TDockForm; 112 121 begin … … 117 126 Result.Caption := Result.Name; 118 127 Result.Memo1.Text := Result.Name; 128 TCDManager(Result.DockManager).OnDockSiteHide := DockSiteHideExecute; 129 TCDManager(Result.DockManager).OnDockSiteShow := DockSiteShowExecute; 119 130 //Result.DragKind := dkDock; 120 131 //Result.DragMode := dmAutomatic; -
Docking/CoolDocking/Managers/UCDManagerRegions.pas
r354 r355 307 307 VisibleControlsCount: Integer; 308 308 begin 309 inherited; 309 310 if FUpdateCount = 0 then begin 310 311 DebugLog('TCDManagerRegions.UpdateClientSize'); 311 inherited;312 312 VisibleControlsCount := DockSite.VisibleDockClientCount; 313 if DockSite is TForm then 314 DockSite.Visible := (VisibleControlsCount > 0); 313 if DockSite is TForm then begin 314 DockSiteVisible := VisibleControlsCount > 0; 315 end; 315 316 if VisibleControlsCount = 0 then VisibleControlsCount := 1; 316 317 … … 360 361 begin 361 362 inherited; 363 //if DockSite.Visible <> AValue then 362 364 try 363 365 BeginUpdate; 364 366 for I := 0 to DockItems.Count - 1 do 365 367 with TCDManagerRegionsItem(DockItems[I]) do begin 366 if AValue and (not Control.Visible) and (Control.Tag = Integer(dhtTemporal)) then begin 367 Control.Show; 368 Control.Tag := Integer(dhtPermanent); 369 end else 370 if not AValue then begin 371 Control.Tag := Integer(dhtTemporal); 372 Control.Hide; 373 end; 368 TCDManager(Control.DockManager).DockSiteVisible := AValue; 374 369 end; 375 370 //ClientAreaPanel.Show; -
Docking/CoolDocking/Managers/UCDManagerTabs.pas
r354 r355 87 87 Update; 88 88 Switch(DockItems.IndexOf(FindControlInPanels(TControl(Sender)))); 89 TCDManagerTabsItem(DockItems[DockItems.IndexOf(90 FindControlInPanels(TControl(Sender)))]).HideType := dhtPermanent;89 //TCDManagerTabsItem(DockItems[DockItems.IndexOf( 90 // FindControlInPanels(TControl(Sender)))]).HideType := dhtPermanent; 91 91 end else Update; 92 92 end; … … 124 124 inherited; 125 125 if (PageControl.TabIndex >= 0) and (PageControl.TabIndex < DockItems.Count) then 126 with TCDManagerItem(DockItems[PageControl.TabIndex]) do begin 127 if AValue and (not Control.Visible) and (Control.Tag = Integer(dhtTemporal)) then begin 128 Control.Show; 129 Control.Tag := Integer(dhtPermanent); 130 end; 131 end; 126 with TCDManagerItem(DockItems[PageControl.TabIndex]) do 127 TCDManager(Control.DockManager).DockSiteVisible := True; 132 128 end; 133 129 … … 399 395 Control.Align := alClient; 400 396 if PageControl.PageIndex = I then begin 401 if (not Control.Visible) and (HideType = dhtTemporal) then402 Control.Visible := True;397 TCDManager(Control.DockManager).DockSiteVisible := True; 398 if not Control.Visible then Control.Show; 403 399 end else begin 404 if Control.Visible then begin 405 HideType := dhtTemporal; 406 Control.Visible := False; 407 end; 408 end; 409 PageControl.Pages[I].TabVisible := Control.Visible or (HideType = dhtTemporal); 400 TCDManager(Control.DockManager).DockSiteVisible := False; 401 end; 402 PageControl.Pages[I].TabVisible := Control.Visible; 410 403 411 404 //TCDClientPanel(DockPanels[I]).ClientAreaPanel.Width := DockSite.Width; -
Docking/CoolDocking/UCDClient.pas
r354 r355 95 95 begin 96 96 inherited Create(AOwner); 97 FDockable := True;97 FDockable := False; 98 98 if not (AOwner is TForm) then 99 99 raise Exception.Create(SWrongOwner); 100 100 with (AOwner as TForm) do begin 101 101 if not (csDesigning in ComponentState) then begin 102 if Dockable then begin102 (*if Dockable then begin 103 103 DragKind := dkDock; 104 104 DragMode := dmAutomatic; 105 105 DockSite := True; 106 106 end; 107 UseDockManager := True;107 *)UseDockManager := True; 108 108 DockManager := TCDManagerRegions.Create(TWinControl(AOwner)); 109 109 //FormStyle := fsStayOnTop; -
Docking/CoolDocking/UCDCommon.pas
r354 r355 85 85 procedure DebugLog(Text: string); inline; 86 86 begin 87 //{$IFDEF DEBUG_COOLDOCK}87 {$IFDEF DEBUG_COOLDOCK} 88 88 WriteLn(FormatDateTime('hh:nn:ss.zzz', Time) + ' ' + Text); 89 //{$ENDIF}89 {$ENDIF} 90 90 end; 91 91 -
Docking/CoolDocking/UCDConjoinForm.pas
r218 r355 67 67 inherited CreateNew(TheOwner); 68 68 CoolDockClient := TCDClient.Create(Self); 69 with CoolDockClient do begin 69 with TCDClient(CoolDockClient) do begin 70 Dockable := True; 70 71 end; 71 72 OnShow := FormShow; -
Docking/CoolDocking/UCDManager.pas
r354 r355 68 68 private 69 69 FControl: TWinControl; 70 function GetHideType: TCDHideType;71 70 procedure ResizeExecute(Sender: TObject); 72 procedure SetHideType(const AValue: TCDHideType);73 71 public 74 72 Manager: TCDManager; … … 81 79 constructor Create; virtual; 82 80 destructor Destroy; override; 83 property HideType: TCDHideType read GetHideType write SetHideType;84 81 property Control: TWinControl read FControl write SetControl; 85 82 end; … … 90 87 protected 91 88 FUpdateCount: Integer; 89 FDockStyle: TCDStyleType; 92 90 private 93 91 FDockSite: TWinControl; 92 FDockSiteVisible: Boolean; 94 93 FHeaderPos: THeaderPos; 95 94 FHeaderVisible: Boolean; 95 FOnDockSiteHide: TNotifyEvent; 96 FOnDockSiteShow: TNotifyEvent; 96 97 function GetDockSite: TWinControl; 97 98 function GetMoveDuration: Integer; 99 procedure SetDockSiteVisible(AValue: Boolean); virtual; 98 100 procedure SetDockStyle(const AValue: TCDStyleType); 99 101 procedure SetHeaderVisible(const AValue: Boolean); 100 102 procedure SetMoveDuration(const AValue: Integer); 103 procedure CloseHandler(Sender: TObject; var CloseAction: TCloseAction); 101 104 public 102 105 Locked: Boolean; 103 106 PopupMenu: TCDPopupMenu; 104 FDockStyle: TCDStyleType;105 107 FreeParentIfEmpty: Boolean; // Free or not parent conjoin forms 106 108 procedure SetVisible(const AValue: Boolean); virtual; … … 146 148 property HeaderVisible: Boolean read FHeaderVisible write SetHeaderVisible; 147 149 property Visible: Boolean write SetVisible; 150 property DockSiteVisible: Boolean read FDockSiteVisible write SetDockSiteVisible; 151 property OnDockSiteHide: TNotifyEvent read FOnDockSiteHide write FOnDockSiteHide; 152 property OnDockSiteShow: TNotifyEvent read FOnDockSiteShow write FOnDockSiteShow; 148 153 end; 149 154 … … 273 278 end; 274 279 275 function TCDManagerItem.GetHideType: TCDHideType;276 begin277 Result := TCDHideType(Control.Tag);278 end;279 280 280 procedure TCDManagerItem.ResizeExecute(Sender: TObject); 281 281 begin … … 296 296 end; 297 297 298 procedure TCDManagerItem.SetHideType(const AValue: TCDHideType);299 begin300 Control.Tag := Integer(AValue);301 end;302 303 298 procedure TCDManagerItem.DockPanelMouseDown(Sender: TObject; 304 299 Button: TMouseButton; Shift: TShiftState; X, Y: Integer); … … 357 352 end; 358 353 354 procedure TCDManager.SetDockSiteVisible(AValue: Boolean); 355 begin 356 if FDockSiteVisible = AValue then Exit; 357 FDockSiteVisible := AValue; 358 SetVisible(FDockSiteVisible); 359 if Assigned(FOnDockSiteHide) and not AValue then 360 FOnDockSiteHide(Self); 361 if Assigned(FOnDockSiteShow) and AValue then 362 FOnDockSiteShow(Self); 363 end; 364 359 365 constructor TCDManager.Create(ADockSite: TWinControl); 360 366 var … … 372 378 PopupMenu := TCDPopupMenu.Create(Self); 373 379 PopupMenu.Parent := ADockSite; 380 if ADockSite is TForm then 381 TForm(ADockSite).AddHandlerClose(CloseHandler); 374 382 end; 375 383 376 384 destructor TCDManager.Destroy; 377 385 begin 386 if FDockSite is TForm then 387 TForm(FDockSite).RemoveHandlerClose(CloseHandler); 378 388 PopupMenu.Free; 379 389 inherited Destroy; … … 594 604 procedure TCDManager.SetMoveDuration(const AValue: Integer); 595 605 begin 606 end; 607 608 procedure TCDManager.CloseHandler(Sender: TObject; var CloseAction: TCloseAction 609 ); 610 begin 611 //DockSite.Visible := False; 612 //SetVisible(FDockSite.Visible); 596 613 end; 597 614
Note:
See TracChangeset
for help on using the changeset viewer.