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 - force code mode flag

Browse source
This commit is contained in:
Alexander Koblov 2023-04-06 18:08:09 +03:00
commit 92fb7d3e0f
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/fviewer.pas
View file

@ -378,7 +378,7 @@ type
//---------------------
function GetListerRect: TRect;
function CheckOffice(const sFileName: String): Boolean;
function CheckSynEdit(const sFileName: String): Boolean;
function CheckSynEdit(const sFileName: String; bForce: Boolean = False): Boolean;
function CheckPlugins(const sFileName: String; bForce: Boolean = False): Boolean;
function CheckGraphics(const sFileName:String):Boolean;
function LoadGraphics(const sFileName:String): Boolean;
@ -2479,14 +2479,15 @@ begin
end;
end;
function TfrmViewer.CheckSynEdit(const sFileName: String): Boolean;
function TfrmViewer.CheckSynEdit(const sFileName: String; bForce: Boolean = False): Boolean;
var
AFile: TFile;
begin
if (Length(gViewerSynEditMask) = 0) then
Exit(False);
if Assigned(FSynEditMaskList) then
if bForce then
Result:= True
else if (Length(gViewerSynEditMask) = 0) then
Result:= False
else if Assigned(FSynEditMaskList) then
begin
Result:= FSynEditMaskList.Matches(sFileName);
end
@ -3632,7 +3633,7 @@ end;
procedure TfrmViewer.cm_ShowCode(const Params: array of string);
begin
if CheckSynEdit(FileList.Strings[iActiveFile]) then
if CheckSynEdit(FileList.Strings[iActiveFile], True) then
begin
ExitPluginMode;
ViewerControl.FileName := ''; // unload current file if any is loaded