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 #1312: Key Event eaten by QLPreviewView

Browse source
This commit is contained in:
rich2014 2023-10-15 15:07:39 +08:00
commit f6a7835bd7
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
plugins/wlx/MacPreview/src/MacPreview.lpr
View file

@ -38,6 +38,10 @@ type
procedure initPath( path: pchar); message 'initPath:';
end;
DCQLPreview = objcclass(QLPreviewView)
function acceptsFirstResponder: ObjCBOOL; override;
end;
// copy from uMyDarwin
function StringToNSString(const S: String): NSString;
begin
@ -74,6 +78,11 @@ begin
ext:= UpperCase( ExtractOnlyFileExt(path) );
end;
function DCQLPreview.acceptsFirstResponder: ObjCBOOL;
begin
Result:= false;
end;
procedure setFilepath( view:QLPreviewView; filepath:String );
var
item: TQLPItem;
@ -91,7 +100,7 @@ function ListLoad( ParentWin:THandle; FileToLoad:pchar; {%H-}ShowFlags:integer):
var
view: QLPreviewView;
begin
view:= QLPreviewView.alloc.init;
view:= DCQLPreview.alloc.init;
view.setShouldCloseWithWindow( false );
NSView(ParentWin).addSubview( view );
setFilepath( view, FileToLoad );