mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Viewer - dribbling of lowest line when window height is resized (fixes #652)

Browse source
This commit is contained in:
Alexander Koblov 2022-10-30 19:37:25 +03:00
commit 35498b579e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
components/viewer/viewercontrol.pas
View file

@ -547,7 +547,7 @@ procedure Register;
implementation
uses
LCLType, Graphics, Forms, LCLProc, Clipbrd, LConvEncoding,
Math, LCLType, Graphics, Forms, LCLProc, Clipbrd, LConvEncoding,
DCUnicodeUtils, LCLIntf, LazUTF8, DCOSUtils , DCConvertEncoding
{$IF DEFINED(UNIX)}
, BaseUnix, Unix, DCUnix
@ -1923,7 +1923,7 @@ end;
function TViewerControl.GetClientHeightInLines: Integer;
begin
if FTextHeight > 0 then
Result := GetViewerRect.Height div FTextHeight
Result := Ceil(GetViewerRect.Height / FTextHeight)
else
Result := 0;
end;