doublecmd/ushowform.pas

{
Seksi Commander
----------------------------
Licence  : GNU GPL v 2.0
Author   : radek.cervinka@centrum.cz

showing editor or viewer by configuration dialog

contributors:

}


unit uShowForm;

interface
uses
  Classes;

type

  { TWaitThread }

  TWaitThread = class(TThread)
  private
    FFileList : TStringList;
  protected
    procedure Execute; override;
  end;

Function ShowEditorByGlob(const sFileName:String):Boolean;
Function ShowViewerByGlob(const sFileName:String):Boolean;
Function ShowViewerByGlobList(list:TStringList; bDeleteAfterView : Boolean = False):Boolean;


implementation
uses
  SysUtils, Process, LCLProc,
  uGlobs, uOSUtils, fEditor, fViewer;

function ShowEditorByGlob(const sFileName:String):Boolean;
begin
  if gUseExtEdit then
    ExecCmdFork(Format(gExtEdit,[sFileName]))
  else
    ShowEditor(sFileName);
  Result:=True;   
end;

function ShowViewerByGlob(const sFileName:String):Boolean;
var
  sl:TStringList;
begin
  if gUseExtView then
    ExecCmdFork(Format(gExtView,[sFileName]))
  else
  begin
    sl:=TStringList.Create;
    try
      sl.Add(sFileName);
      ShowViewer(sl);
    finally
      FreeAndNil(sl);
    end;
  end;
  Result:=True;
end;

function ShowViewerByGlobList(List : TStringList; bDeleteAfterView : Boolean = False):Boolean;
var
  I, Count:Integer;
  WaitThread : TWaitThread;
begin
  if gUseExtView then
  begin
    DebugLN('ShowViewerByGlobList - Use ExtView ');
    if bDeleteAfterView then
      begin
        WaitThread := TWaitThread.Create(True);
        WaitThread.FFileList := List;
        WaitThread.FreeOnTerminate := True;
        WaitThread.Resume;
      end
    else
     for i:=0 to list.Count-1 do
       ExecCmdFork(Format(gExtView,[List.Strings[i]]))
  end // gUseExtView
  else
    ShowViewer(List, bDeleteAfterView);
  Result:=True;
end;

{ TWaitThread }

procedure TWaitThread.Execute;
var
  I, Count : Integer;
  Process : TProcess;
begin
  Process := TProcess.Create(nil);
  Process.CommandLine := Format(gExtView,[FFileList.Strings[0]]);
  Process.Options := [poWaitOnExit];
  Process.Execute;
  Process.Free;
  (* Delete temp files after view *)
  Count := FFileList.Count - 1;
  for I := 0 to Count do
    DeleteFile(FFileList.Strings[I]);
end;

end.