Changeset 355 for Docking/CoolDocking/Demo/Testing/UMainForm.lfm

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.

File:

• Docking/CoolDocking/Demo/Testing/UMainForm.lfm (modified) (2 diffs)

Docking/CoolDocking/Demo/Testing/UMainForm.lfm

@@ -28 +28 @@
     Align = alBottom
     Anchors = [akTop, akLeft, akRight, akBottom]
-    ClientHeight = 368
-    ClientWidth = 576
     DockSite = True
     TabOrder = 1
-    object PageControl1: TPageControl
-      Left = 80
-      Height = 160
-      Top = 50
-      Width = 256
-      ActivePage = TabSheet2
-      MultiLine = True
-      TabIndex = 1
-      TabOrder = 0
-      OnChange = PageControl1Change
-      Options = [nboMultiLine]
-      object TabSheet1: TTabSheet
-        Caption = 'TabSheet1'
-      end
-      object TabSheet2: TTabSheet
-        Caption = 'TabSheet2'
-      end
-      object TabSheet3: TTabSheet
-        Caption = 'TabSheet3'
-      end
-      object TabSheet4: TTabSheet
-        Caption = 'TabSheet4'
-      end
-    end
-    object TabControl1: TTabControl
-      Left = 344
-      Height = 150
-      Top = 144
-      Width = 200
-      TabStop = False
-      MultiLine = True
-      TabIndex = 0
-      Tabs.Strings = (
-        'ggdfg'
-        'gfgdfgfdgd'
-        'gdfgdfgdf'
-        'dfsdfs'
-        'dd'
-        'dddd'
-        'ddd'
-      )
-      TabOrder = 1
-    end
   end
   object Button2: TButton
@@ -103 +58 @@
   end
   object MainMenu1: TMainMenu
-    left = 211
+    left = 248
     object MenuItem1: TMenuItem
       Caption = 'Docking'