ifx autosize columns in rxdbgrid

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

components/rx/docs/WhatsNew.rus.txt

@@ -43,7 +43,7 @@
   + В RxDBGrid в функции поиска колонки по её наименованию TRxDBGrid.ColumnByCaption
     не учитывается регистр символов
   + В RxDBGrid сохраняется между сеансами порядок сортировки
-  
+  + В RxDBGrid при автоматическом подборе ширины колонки учитывается ширина заголовка
 22.05.2008 - версия 2.0.0.136 (svn revision 100)
   + У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink
   + У объекта TRxCustomDBLookupCombo ускорена отрисовка данных

components/rx/rxdbgrid.pas

@@ -451,7 +451,9 @@ type
     property TabOrder;
     property TabStop;
     property TitleFont;
+    property TitleImageList;
     property TitleStyle;
+    property UseXORFeatures;
     property Visible;
     property OnCellClick;
     property OnColEnter;
@@ -2264,7 +2266,12 @@ begin
   GetMem(WA, SizeOf(Integer) * AColList.Count);
 
   for I := 0 to AColList.Count-1 do
-    WA^[i]:=20;
+  begin
+    if TRxColumnTitle(TRxColumn(AColList[i]).Title).CaptionLinesCount>1 then
+      WA^[i]:=Max(Canvas.TextWidth(TRxColumnTitle(TRxColumn(AColList[i]).Title).CaptionLine(TRxColumnTitle(TRxColumn(AColList[i]).Title).CaptionLinesCount - 1).Caption ) + 8, 20)
+    else
+      WA^[i]:=Max(Canvas.TextWidth(TRxColumn(AColList[i]).Title.Caption) + 8, 20);
+  end;
 
   with DataSource.DataSet do
   begin
@@ -2276,7 +2283,6 @@ begin
       begin
         for I := 0 to AColList.Count-1 do
         begin
-//          W:=Canvas.TextWidth(TRxColumn(AColList[i]).Field.DisplayText) + 6;
           S:=TRxColumn(AColList[i]).Field.DisplayText;
           with TRxColumn(AColList[i]) do
             if (KeyList.Count > 0) and (PickList.Count > 0) then

components/rx/rxnew.lpk

@@ -25,7 +25,7 @@ translate to Lazarus by alexs in 2005 - 2009
 "/>
     <License Value="free ware
 "/>
-    <Version Major="2" Minor="1" Release="1" Build="103"/>
+    <Version Major="2" Minor="1" Release="2" Build="105"/>
     <Files Count="55">
       <Item1>
         <Filename Value="rxlookup.pas"/>