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: MacPreview: change extension comparison to case insensitive (#676)

Browse source
This commit is contained in:
rich2014 2022-11-23 00:59:44 +08:00 • committed by GitHub
commit fb6fbebe45
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -34,7 +34,7 @@ type
private
url: NSURL;
public
ext: array[0..1023] of char;
ext: ShortString;
procedure initPath( path: pchar); message 'initPath:';
end;
@ -71,7 +71,7 @@ end;
procedure TQLPItem.initPath( path: pchar );
begin
url:= NSURL.fileURLWithPath( StringToNSString(path) );
strlcopy( ext, pchar(ExtractOnlyFileExt(path)), length(ext) );
ext:= UpperCase( ExtractOnlyFileExt(path) );
end;
procedure setFilepath( view:QLPreviewView; filepath:String );
@ -87,7 +87,7 @@ begin
view.setPreviewItem( item );
end;
function ListLoad( ParentWin:THandle; FileToLoad:pchar; {%H-}ShowFlags{%H+}:integer):THandle; cdecl;
function ListLoad( ParentWin:THandle; FileToLoad:pchar; {%H-}ShowFlags:integer):THandle; cdecl;
var
view: QLPreviewView;
begin
@ -95,22 +95,20 @@ begin
view.setShouldCloseWithWindow( false );
NSView(ParentWin).addSubview( view );
setFilepath( view, FileToLoad );
Result:= THandle(view);
Result:= THandle( view );
end;
function isExtChanged( view: QLPreviewView; FileToLoad:pchar ): boolean;
var
item: TQLPItem;
oldExt: String;
newExt: String;
newExt: ShortString;
begin
item:= {%H-}TQLPItem( view.previewItem );
oldExt:= item.ext;
newExt:= ExtractOnlyFileExt( FileToLoad );
Result:= oldExt<>newExt;
newExt:= upperCase( ExtractOnlyFileExt( FileToLoad ) );
Result:= item.ext<>newExt;
end;
function ListLoadNext( {%H-}ParentWin{%H+},PluginWin:THandle; FileToLoad:pchar; {%H-}ShowFlags{%H+}:integer):integer; cdecl;
function ListLoadNext( {%H-}ParentWin,PluginWin:THandle; FileToLoad:pchar; {%H-}ShowFlags:integer):integer; cdecl;
var
view: QLPreviewView;
begin