paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 20:21:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, trim values when using dgAutoSizeColumns

Browse Source 
git-svn-id: trunk@20872 -
This commit is contained in:
jesus 2009-07-16 17:34:45 +00:00
parent 11ffbb8264
commit b5d019c838
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/dbgrids.pas
View File

@ -1527,7 +1527,7 @@ begin
if C<>nil then begin if C<>nil then begin
tmpCanvas.Font := C.Title.Font; tmpCanvas.Font := C.Title.Font;
ColWidth := tmpCanvas.TextWidth(C.Title.Caption); ColWidth := tmpCanvas.TextWidth(trim(C.Title.Caption));
tmpCanvas.Font := C.Font; tmpCanvas.Font := C.Font;
end else begin end else begin
ColWidth := 0; ColWidth := 0;
@ -1540,7 +1540,7 @@ begin
FDatalink.ActiveRecord := ARow - FixedRows; FDatalink.ActiveRecord := ARow - FixedRows;
if Field.dataType<>ftBlob then if Field.dataType<>ftBlob then
s := Field.DisplayText s := trim(Field.DisplayText)
else else
s := '(blob)'; s := '(blob)';
w := tmpCanvas.TextWidth(s); w := tmpCanvas.TextWidth(s);