Changeset 114

Timestamp:

Jan 5, 2011, 7:51:16 AM (13 years ago)

Author:

george

Message:

• Fixed: CoolDocking was not showing tab content on tab switch.

Files:

• Docking/CoolDocking/UCoolDockStyle.pas (modified) (2 diffs)
• Docking/CoolDocking/UCoolDockStyleTabs.pas (modified) (3 diffs)
• Docking/CoolDocking/UCoolDocking.pas (modified) (1 diff)
• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (2 diffs)
• Generics/TemplateGenerics/ReadMe.txt (modified) (1 diff)
• MemoryStreamEx/UMemory.pas (added)

Docking/CoolDocking/UCoolDockStyle.pas

@@ -23 +23 @@
     procedure Switch(Index: Integer); virtual;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual;
+    procedure SetVisible(const AValue: Boolean); virtual;
     property HeaderPos: THeaderPos read GetHeaderPos write SetHeaderPos;
+    property Visible: Boolean write SetVisible;
   end;
 
@@ -32 +34 @@
 
 { TCoolDockStyle }
+
+procedure TCoolDockStyle.SetVisible(const AValue: Boolean);
+begin
+
+end;
 
 function TCoolDockStyle.GetHeaderPos: THeaderPos;

Docking/CoolDocking/UCoolDockStyleTabs.pas

@@ -32 +32 @@
   public
     constructor Create(AManager: TObject);
+    procedure SetVisible(const AValue: Boolean); override;
     destructor Destroy; override;
     procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override;
@@ -208 +209 @@
 end;
 
+procedure TCoolDockStyleTabs.SetVisible(const AValue: Boolean);
+begin
+  inherited SetVisible(AValue);
+  with TCoolDockManager(Manager) do
+    if (TabControl.TabIndex >= 0) and (TabControl.TabIndex < DockPanels.Count) then
+      with TCoolDockClientPanel(DockPanels[TabControl.TabIndex]) do begin
+        //Show;
+        if AValue then Control.Show;
+        //TabControl.Show;
+        //ClientAreaPanel.Show;
+      end;
+end;
+
 procedure TCoolDockStyleTabs.ChangeVisible(Control: TWinControl; Visible: Boolean);
 var
@@ -216 +230 @@
   if Assigned(TWinControl(Control).DockManager) then
   with TCoolDockManager(TWinControl(Control).DockManager) do begin
-//    ShowMessage(IntToStr(DockPanels.Count));
+//    ShowMessage(IntToStr(TabControl.TabIndex) + ' ' + IntToStr(DockPanels.Count));
+//    TabControl.Tabs[0].;
+//    if (TabControl.TabIndex >= 0) and (TabControl.TabIndex < DockPanels.Count) then begin
+//      TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).Show;
+//      TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).Control.Show;
+//    end;
+    //    ShowMessage(IntToStr(DockPanels.Count));
   end;
 end;

Docking/CoolDocking/UCoolDocking.pas

@@ -544 +544 @@
   I: Integer;
 begin
+  DockStyleHandler.Visible := AValue;
 //  for I := 0 to DockPanels.Count - 1 do
 //    TCoolDockClientPanel(DockPanels[I]).Visible := AValue;

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -3 +3 @@
   TGList = class;
 
-  TGListSortCompare = function(const Item1, Item2: TGListItem): Integer of object;
+  TGListSortCompare = function(Item1, Item2: TGListItem): Integer of object;
   TGListToStringConverter = function(Item: TGListItem): string;
   TGListFromStringConverter = function(Text: string): TGListItem;
@@ -91 +91 @@
     IncSize := NewCapacity - Capacity;
     // Expand
-    if FCount = Capacity then begin
+    if IncSize = 1 then begin
       IncSize := 4;
       if Capacity > 3 then IncSize := IncSize + 4;
       if Capacity > 8 then IncSize := IncSize + 8;
       if Capacity > 63 then IncSize := IncSize + Capacity shr 2; // Grow by one quarter
-      Capacity := Capacity + IncSize;
-    end;
+    end;
+    Capacity := Capacity + IncSize;
   end else
   if NewCapacity < Capacity then begin

Generics/TemplateGenerics/ReadMe.txt

@@ -10 +10 @@
 Email: robie@centrum.cz
 
+
+Main subversion repository:
+http://svn.zdechov.net/svn/PascalClassLibrary/Generics/TemplateGenerics