rewrite code for align button on TToolPanel

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@538 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/docs/WhatsNew.rus.txt

@@ -2,6 +2,7 @@
   + Исправлено создание ресурсов из XPM файлов
   + Доработана отрисовка тени у кнопки на TToolPanel
   - Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet
+  - Переработан код выравнивания кнопок на TToolPanel 
 22.05.2008 - версия 2.0.0.136 (svn revision 100)
   + У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink
   + У объекта TRxCustomDBLookupCombo ускорена отрисовка данных

components/rx/rxnew.pas

@@ -1,5 +1,7 @@
-{ ���� ���� ��� ������������� ������ Lazarus. �� �������������!
+{ Этот файл был автоматически создан Lazarus. Н�
-�������� ��� ������������ ������ ��� ���������� � ��������� ������.
+  � редактировать!
+  Исходный код используется только для комп�
+    �ляции и установки пакета.
  }
 
 unit rxnew; 
@@ -8,12 +10,12 @@ interface
 
 uses
   rxlookup, vclutils, dateutil, dbutils, rxapputils, rxdconst, rxstrutils, 
-    dbdateedit, registerrx, curredit, folderlister, rxdbgrid, rxmemds, 
+  dbdateedit, registerrx, curredit, folderlister, rxdbgrid, rxmemds, duallist, 
-    duallist, boxprocs, tooledit, rxswitch, rxdice, rxdbcomb, rxtoolbar, 
+  boxprocs, tooledit, rxswitch, rxdice, rxdbcomb, rxtoolbar, rxtbrsetup, 
-    rxtbrsetup, fduallst, rxxpman, pagemngr, rxappicon, seldsfrm, rxctrls, 
+  fduallst, rxxpman, pagemngr, rxappicon, seldsfrm, rxctrls, rxlogin, 
-    rxlogin, rxdbgrid_findunit, rxdbgrid_columsunit, rxpopupunit, 
+  rxdbgrid_findunit, rxdbgrid_columsunit, rxpopupunit, rxcustomchartpanel, 
-    rxcustomchartpanel, rxsortmemds, AutoPanel, pickdate, rxiconv, 
+  rxsortmemds, AutoPanel, pickdate, rxiconv, rxceEditLookupFields, rxclock, 
-    rxceEditLookupFields, LazarusPackageIntf; 
+  LazarusPackageIntf;
 
 implementation
 

components/rx/rxtoolbar.pas

@@ -178,6 +178,7 @@ type
     procedure OnIniSave(Sender: TObject);
     procedure OnIniLoad(Sender: TObject);
     procedure SetToolBarStyle(const AValue: TToolBarStyle);
+    procedure ReAlignToolBtn;
   protected
     FCustomizer:TForm;
     procedure Notification(AComponent: TComponent;
@@ -186,7 +187,7 @@ type
     procedure DoAutoSize; Override;
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
       X, Y: Integer); override;
-    procedure Loaded; override;
+    procedure RequestAlign; override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -966,6 +967,19 @@ begin
   Invalidate;
 end;
 
+procedure TToolPanel.ReAlignToolBtn;
+var
+  i, L:integer;
+begin
+  L:=0;
+  for i:=0 to FToolbarItems.Count - 1 do
+  begin
+    FToolbarItems[i].FButton.Left:=L;
+    FToolbarItems[i].FButton.Align:=BtnAl2Align[FButtonAllign];
+    L:=L + FToolbarItems[i].FButton.Width;
+  end;
+end;
+
 procedure TToolPanel.Notification(AComponent: TComponent; Operation: TOperation);
 var
   i:integer;
@@ -1005,20 +1019,21 @@ var
   i, H:integer;
   
 begin
+
   if not AutoSizeCanStart then exit;
-{  if AutoSizeDelayed then
+
-  begin
-    Include(FControlFlags,cfAutoSizeNeeded);
-    exit;
-  end;}
   if Items.Count > 0 then
   begin
     H:=0;
     for i:=0 to Items.Count-1 do
-      if Assigned(Items[i].FButton) then
+      if Assigned(Items[i].FButton) and Items[i].FButton.HandleObjectShouldBeVisible then
         H:=Max(H, Items[i].Height);
+    if H>0 then
+    begin
       H:=H +BorderWidth * 2;
       SetBoundsKeepBase(Left,Top,Width,H,true);
+      ReAlignToolBtn;
+    end;
 //    Exclude(FControlFlags,cfAutoSizeNeeded);
   end
   else
@@ -1033,29 +1048,15 @@ begin
     Customize(HelpContext);
 end;
 
-procedure TToolPanel.Loaded;
+procedure TToolPanel.RequestAlign;
 var
   i, L:integer;
 begin
-  inherited Loaded;
+  inherited RequestAlign;
-{  L:=0;
+  if (Parent = nil) or (csDestroying in ComponentState) or (csLoading in ComponentState) or (not Parent.HandleAllocated) then
-  for i:=0 to FToolbarItems.Count - 1 do
+    exit;
-  begin
+  if not Parent.HandleAllocated then exit;
-    if ButtonAllign = tbaLeft then
+  ReAlignToolBtn;
-    begin
-      FToolbarItems[i].FSaveLeft:=L;
-      FToolbarItems[i].UpdateLeftAfterLoad;
-      Inc(L, FToolbarItems[i].Left + FToolbarItems[i].Width);
-    end
-    else
-      FToolbarItems[i].UpdateLeftAfterLoad;
-  end;
-}
-  for i:=0 to FToolbarItems.Count - 1 do
-  begin
-    FToolbarItems[i].FButton.Align:=BtnAl2Align[FButtonAllign];
-  end;
-
 end;
 
 constructor TToolPanel.Create(AOwner: TComponent);
@@ -1293,6 +1294,9 @@ var
 begin
   inherited Create(ACollection);
   FButton:=TToolbarButton.Create(TToolbarItems(ACollection).FToolPanel);
+
+  FButton.Align:=BtnAl2Align[TToolbarItems(ACollection).FToolPanel.ButtonAllign];
+
   FButton.Parent:=TToolbarItems(ACollection).FToolPanel;
   FButton.FImageList:=TToolbarItems(ACollection).FToolPanel.ImageList;
   FButton.Flat:=tpFlatBtns in TToolbarItems(ACollection).FToolPanel.Options;
@@ -1301,8 +1305,8 @@ begin
   FButton.FAutoSize:=true;
   FButton.FOwnerItem:=Self;
   FButton.FFullPush:=true;
-  if not (csLoading in TToolbarItems(ACollection).FToolPanel.ComponentState) then
+//  if not (csLoading in TToolbarItems(ACollection).FToolPanel.ComponentState) then
-    FButton.Align:=BtnAl2Align[TToolbarItems(ACollection).FToolPanel.ButtonAllign];
+//    FButton.Align:=BtnAl2Align[TToolbarItems(ACollection).FToolPanel.ButtonAllign];
 {  if TToolbarItems(ACollection).FToolPanel.ButtonAllign = tbaLeft then
   begin
     W:=0;