pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix calc column width - patch from MageSlayer

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@991 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-11-03 15:33:19 +00:00
parent 186534c2e0
commit 504f6422f1
1 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/rx/rxdbgrid.pas
View File

@ -2223,8 +2223,9 @@ end;
procedure TRxDBGrid.InternalOptimizeColumnsWidth(AColList: TList);
var
P:TBookmark;
i, W:integer;
i, W, n:integer;
WA:PIntegerArray;
S:String;
begin
GetMem(WA, SizeOf(Integer) * AColList.Count);
@ -2241,7 +2242,16 @@ begin
begin
for I := 0 to AColList.Count-1 do
begin
W:=Canvas.TextWidth(TRxColumn(AColList[i]).Field.DisplayText) + 6;
// 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
begin
n:=KeyList.IndexOf(S);
if (n<>-1) and (n < PickList.Count) then
S:=PickList.Strings[n];
end;
W:=Canvas.TextWidth(S) + 6;
if WA^[i]<W then
WA^[i]:=W;
end;