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

ADD: Viewer - draw cross when no file open

Browse source
This commit is contained in:
Alexander Koblov 2018-07-22 11:24:50 +00:00
commit cc113bc625
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
components/viewer/viewercontrol.pas
View file

@ -634,7 +634,12 @@ end;
procedure TViewerControl.Paint;
begin
if not IsFileOpen then
begin
Canvas.Pen.Color := Canvas.Font.Color;
Canvas.Line(0, 0, ClientWidth - 1, ClientHeight - 1);
Canvas.Line(0, ClientHeight - 1, ClientWidth - 1, 0);
Exit;
end;
Canvas.Font := Self.Font;
Canvas.Brush.Color := Self.Color;