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: fix the problem of displaying wrong hint text in QuickViewPanel (#610)

Browse source
This commit is contained in:
rich2014 2022-09-28 00:56:45 +08:00 • committed by GitHub
commit 314df3b099
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/uquickviewpanel.pas
View file

@ -26,7 +26,7 @@ unit uQuickViewPanel;
interface
uses
Classes, SysUtils, ExtCtrls, fViewer,
Classes, SysUtils, Controls, ExtCtrls, fViewer,
uFileViewNotebook, uFile, uFileSource, uFileView;
type
@ -47,6 +47,8 @@ type
procedure OnChangeFileView(Sender: TObject);
procedure CreateViewer(aFileView: TFileView);
procedure FileViewChangeActiveFile(Sender: TFileView; const aFile : TFile);
protected
procedure DoOnShowHint(HintInfo: PHintInfo) override;
public
constructor Create(TheOwner: TComponent; aParent: TFileViewPage); reintroduce;
destructor Destroy; override;
@ -61,7 +63,7 @@ var
implementation
uses
LCLProc, Forms, Controls, fMain, uTempFileSystemFileSource, uLng,
LCLProc, Forms, fMain, uTempFileSystemFileSource, uLng,
uFileSourceProperty, uFileSourceOperation, uFileSourceOperationTypes;
procedure QuickViewShow(aFileViewPage: TFileViewPage; aFileView: TFileView);
@ -87,6 +89,11 @@ end;
{ TQuickViewPanel }
procedure TQuickViewPanel.DoOnShowHint(HintInfo: PHintInfo);
begin
HintInfo^.HintStr:= '';
end;
constructor TQuickViewPanel.Create(TheOwner: TComponent; aParent: TFileViewPage);
begin
inherited Create(TheOwner);
@ -113,6 +120,7 @@ procedure TQuickViewPanel.CreateViewer(aFileView: TFileView);
begin
FViewer:= TfrmViewer.Create(Self, nil, True);
FViewer.Parent:= Self;
FViewer.ShowHint:= false;
FViewer.BorderStyle:= bsNone;
FViewer.Align:= alClient;
FFirstFile:= True;