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

lcl: less hints

Browse Source 
git-svn-id: trunk@62602 -
This commit is contained in:
mattias 2020-01-31 14:10:00 +00:00
parent fdaf04cdb8
commit 292fc283b9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -2784,7 +2784,7 @@ begin
l:=StrLen(Lines[i]);
DrawLine(Lines[i], l, theRect.Top);
dec(pIndex,l+length(LineEnding));
GetTextExtentPoint(DC, Lines[i], l, Size);
GetTextExtentPoint(DC, Lines[i], l, Size{%H-});
LineHeight := Size.cY;
end
else

2
lcl/widgetset/wsgrids.pp
View File

@ -50,7 +50,7 @@ type
published
class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); virtual;
class function InvalidateStartY(const FixedHeight, RowOffset: Integer): integer; virtual;
class procedure Invalidate(sender: TCustomGrid); virtual;
class procedure Invalidate(sender: TCustomGrid); virtual; reintroduce;
class function GetEditorBoundsFromCellRect(ACanvas: TCanvas;
const ACellRect: TRect; const AColumnLayout: TTextLayout): TRect; virtual;
end;