Changeset 114
- Timestamp:
- Jan 5, 2011, 7:51:16 AM (14 years ago)
- Files:
-
- 1 added
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
Docking/CoolDocking/UCoolDockStyle.pas
r103 r114 23 23 procedure Switch(Index: Integer); virtual; 24 24 procedure ChangeVisible(Control: TWinControl; Visible: Boolean); virtual; 25 procedure SetVisible(const AValue: Boolean); virtual; 25 26 property HeaderPos: THeaderPos read GetHeaderPos write SetHeaderPos; 27 property Visible: Boolean write SetVisible; 26 28 end; 27 29 … … 32 34 33 35 { TCoolDockStyle } 36 37 procedure TCoolDockStyle.SetVisible(const AValue: Boolean); 38 begin 39 40 end; 34 41 35 42 function TCoolDockStyle.GetHeaderPos: THeaderPos; -
Docking/CoolDocking/UCoolDockStyleTabs.pas
r103 r114 32 32 public 33 33 constructor Create(AManager: TObject); 34 procedure SetVisible(const AValue: Boolean); override; 34 35 destructor Destroy; override; 35 36 procedure ChangeVisible(Control: TWinControl; Visible: Boolean); override; … … 208 209 end; 209 210 211 procedure TCoolDockStyleTabs.SetVisible(const AValue: Boolean); 212 begin 213 inherited SetVisible(AValue); 214 with TCoolDockManager(Manager) do 215 if (TabControl.TabIndex >= 0) and (TabControl.TabIndex < DockPanels.Count) then 216 with TCoolDockClientPanel(DockPanels[TabControl.TabIndex]) do begin 217 //Show; 218 if AValue then Control.Show; 219 //TabControl.Show; 220 //ClientAreaPanel.Show; 221 end; 222 end; 223 210 224 procedure TCoolDockStyleTabs.ChangeVisible(Control: TWinControl; Visible: Boolean); 211 225 var … … 216 230 if Assigned(TWinControl(Control).DockManager) then 217 231 with TCoolDockManager(TWinControl(Control).DockManager) do begin 218 // ShowMessage(IntToStr(DockPanels.Count)); 232 // ShowMessage(IntToStr(TabControl.TabIndex) + ' ' + IntToStr(DockPanels.Count)); 233 // TabControl.Tabs[0].; 234 // if (TabControl.TabIndex >= 0) and (TabControl.TabIndex < DockPanels.Count) then begin 235 // TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).Show; 236 // TCoolDockClientPanel(DockPanels[TabControl.TabIndex]).Control.Show; 237 // end; 238 // ShowMessage(IntToStr(DockPanels.Count)); 219 239 end; 220 240 end; -
Docking/CoolDocking/UCoolDocking.pas
r103 r114 544 544 I: Integer; 545 545 begin 546 DockStyleHandler.Visible := AValue; 546 547 // for I := 0 to DockPanels.Count - 1 do 547 548 // TCoolDockClientPanel(DockPanels[I]).Visible := AValue; -
Generics/TemplateGenerics/Generic/GenericList.inc
r112 r114 3 3 TGList = class; 4 4 5 TGListSortCompare = function( constItem1, Item2: TGListItem): Integer of object;5 TGListSortCompare = function(Item1, Item2: TGListItem): Integer of object; 6 6 TGListToStringConverter = function(Item: TGListItem): string; 7 7 TGListFromStringConverter = function(Text: string): TGListItem; … … 91 91 IncSize := NewCapacity - Capacity; 92 92 // Expand 93 if FCount = Capacitythen begin93 if IncSize = 1 then begin 94 94 IncSize := 4; 95 95 if Capacity > 3 then IncSize := IncSize + 4; 96 96 if Capacity > 8 then IncSize := IncSize + 8; 97 97 if Capacity > 63 then IncSize := IncSize + Capacity shr 2; // Grow by one quarter 98 Capacity := Capacity + IncSize;99 end;98 end; 99 Capacity := Capacity + IncSize; 100 100 end else 101 101 if NewCapacity < Capacity then begin -
Generics/TemplateGenerics/ReadMe.txt
r109 r114 10 10 Email: robie@centrum.cz 11 11 12 13 Main subversion repository: 14 http://svn.zdechov.net/svn/PascalClassLibrary/Generics/TemplateGenerics
Note:
See TracChangeset
for help on using the changeset viewer.