paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-15 22:20:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: dbgrids: adapt after r54816 #43e271b439. Issue #31765 and #31715

Browse Source 
git-svn-id: trunk@54842 -
This commit is contained in:
ondrej 2017-05-08 21:37:25 +00:00
parent 5fc40612bc
commit 2abbee1637
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/dbgrids.pas
View File

@ -1447,13 +1447,13 @@ end;
function TCustomDBGrid.DefaultFieldColWidth(F: TField): Integer;
begin
if not HandleAllocated or (F=nil) then
result:=DefaultColWidth
result:=GetRealDefaultColWidth
else begin
if F.DisplayWidth = 0 then
if Canvas.HandleAllocated then
result := Canvas.TextWidth( F.DisplayName ) + 3
else
Result := DefaultColWidth
Result := GetRealDefaultColWidth
else
result := F.DisplayWidth * CalcCanvasCharWidth(Canvas);
end;
@ -1610,7 +1610,7 @@ begin
{$ifdef dbgDBGrid}
DebugLn('%s.GetBufferCount', [ClassName]);
{$endif}
Result := ClientHeight div DefaultRowHeight;
Result := ClientHeight div GetRealDefaultRowHeight;
if dgTitles in Options then
Dec(Result, 1);
end;
@ -4249,7 +4249,7 @@ begin
FreeWorkingCanvas(tmpCanvas);
end else
result := DEFCOLWIDTH;
result := -1;
end;
function TColumn.CreateTitle: TGridColumnTitle;