paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 05:23:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, fix dbgrid AV and visual problems related to column sizes

Browse Source 
git-svn-id: trunk@20745 -
This commit is contained in:
jesus 2009-06-25 19:47:11 +00:00
parent 48b741fa77
commit f8733358d9
1 changed files with 9 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/dbgrids.pas
View File

@ -3274,20 +3274,15 @@ begin
tmpCanvas := GetWorkingCanvas(aGrid.Canvas);
tmpCanvas.Font := aGrid.Font;
if tmpCanvas=aGrid.Canvas then begin
if FField<>nil then
result := CalcColumnFieldWidth(
tmpCanvas,
dgTitles in aGrid.Options,
Title.Caption,
Title.Font,
FField)
else
result := AGrid.DefaultColWidth
end else begin
aGrid.InvalidateSizes;
result := DEFCOLWIDTH;
end;
if FField<>nil then
result := CalcColumnFieldWidth(
tmpCanvas,
dgTitles in aGrid.Options,
Title.Caption,
Title.Font,
FField)
else
result := AGrid.DefaultColWidth;
if tmpCanvas<>AGrid.Canvas then
FreeWorkingCanvas(tmpCanvas);