paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-09 14:38:15 +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]); l:=StrLen(Lines[i]);
DrawLine(Lines[i], l, theRect.Top); DrawLine(Lines[i], l, theRect.Top);
dec(pIndex,l+length(LineEnding)); dec(pIndex,l+length(LineEnding));
GetTextExtentPoint(DC, Lines[i], l, Size); GetTextExtentPoint(DC, Lines[i], l, Size{%H-});
LineHeight := Size.cY; LineHeight := Size.cY;
end end
else else

2
lcl/widgetset/wsgrids.pp
View File

@ -50,7 +50,7 @@ type
published published
class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); virtual; class procedure SendCharToEditor(AEditor:TWinControl; Ch: TUTF8Char); virtual;
class function InvalidateStartY(const FixedHeight, RowOffset: Integer): integer; 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; class function GetEditorBoundsFromCellRect(ACanvas: TCanvas;
const ACellRect: TRect; const AColumnLayout: TTextLayout): TRect; virtual; const ACellRect: TRect; const AColumnLayout: TTextLayout): TRect; virtual;
end; end;