From b5d019c838049683c06580706e52331800d82883 Mon Sep 17 00:00:00 2001 From: jesus Date: Thu, 16 Jul 2009 17:34:45 +0000 Subject: [PATCH] LCL, trim values when using dgAutoSizeColumns git-svn-id: trunk@20872 - --- lcl/dbgrids.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/dbgrids.pas b/lcl/dbgrids.pas index d3942ab2a6..fdecdd7c03 100644 --- a/lcl/dbgrids.pas +++ b/lcl/dbgrids.pas @@ -1527,7 +1527,7 @@ begin if C<>nil then begin tmpCanvas.Font := C.Title.Font; - ColWidth := tmpCanvas.TextWidth(C.Title.Caption); + ColWidth := tmpCanvas.TextWidth(trim(C.Title.Caption)); tmpCanvas.Font := C.Font; end else begin ColWidth := 0; @@ -1540,7 +1540,7 @@ begin FDatalink.ActiveRecord := ARow - FixedRows; if Field.dataType<>ftBlob then - s := Field.DisplayText + s := trim(Field.DisplayText) else s := '(blob)'; w := tmpCanvas.TextWidth(s);