You've already forked lazarus-ccr
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:
@ -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 ускорена отрисовка данных
|
||||||
|
@ -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
|
||||||
|
@ -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"/>
|
||||||
|
Reference in New Issue
Block a user