ifx autosize columns in rxdbgrid

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1132 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2010-01-23 07:14:50 +00:00
parent 371bcdc237
commit dbbfca4b76
3 changed files with 10 additions and 4 deletions

View File

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

View File

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

View File

@ -25,7 +25,7 @@ translate to Lazarus by alexs in 2005 - 2009
"/> "/>
<License Value="free ware <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"> <Files Count="55">
<Item1> <Item1>
<Filename Value="rxlookup.pas"/> <Filename Value="rxlookup.pas"/>