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

UPD: More beautiful code

Browse source
This commit is contained in:
Alexander Koblov 2016-01-16 00:18:30 +00:00
commit df3d7416a6
1 changed files with 10 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/fileviews/ufileviewwithmainctrl.pas
View file

@ -852,22 +852,19 @@ var
sHint: String;
AFile: TDisplayFile;
begin
repeat
if not gShowToolTipMode then Break;
if not IsFileIndexInRange(FHintFileIndex) then Break;
AFile := FFiles[FHintFileIndex];
if AFile.FSFile.Name = '..' then Break;
HintInfo^.HintStr:= AFile.FSFile.Name;
sHint:= GetFileInfoToolTip(FileSource, AFile.FSFile);
if (sHint <> EmptyStr) then begin
HintInfo^.HintStr:= HintInfo^.HintStr + LineEnding + sHint;
end;
Exit;
until False;
HintInfo^.HintStr:= EmptyStr;
if not gShowToolTipMode then Exit;
if not IsFileIndexInRange(FHintFileIndex) then Exit;
AFile := FFiles[FHintFileIndex];
if AFile.FSFile.Name = '..' then Exit;
HintInfo^.HintStr:= AFile.FSFile.Name;
sHint:= GetFileInfoToolTip(FileSource, AFile.FSFile);
if (sHint <> EmptyStr) then begin
HintInfo^.HintStr:= HintInfo^.HintStr + LineEnding + sHint;
end;
end;
procedure TFileViewWithMainCtrl.MainControlUTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);