20070415 revision of XDev Toolkit - initial commit to SVN.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@179 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/xdev_toolkit/ViewWith.pas

@@ -0,0 +1,66 @@
+program ViewWith;
+
+{
+  Test program for ViewDoc unit.
+}
+
+uses
+  SysUtils,
+  ViewDoc;
+  
+var
+  VwrIdx   : Integer;
+  Viewer   : Integer;
+  Options  : TViewerOptions;
+  InStr    : string;
+  ErrorMsg : string;
+  Done     : Boolean;
+
+begin
+
+  if ParamCount < 2 then
+    begin
+    WriteLn('Usage: ViewWith viewername docfilename [-t] [-d]');
+    Exit;
+    end;
+
+  Viewer := 0;
+  for VwrIdx := 1 to GetViewerCount do
+    begin
+    if SameText(ParamStr(1), GetViewerName(VwrIdx)) then
+      Viewer := VwrIdx;
+    end;
+  if Viewer = 0 then
+    WriteLn('Specified viewer not supported - using first viewer found');
+
+  Options := [];
+  if FindCmdLineSwitch('t', ['-'], True) then  {Treat file as template?}
+    Options := Options + [ovwUseAsTemplate];
+
+  if FindCmdLineSwitch('d', ['-'], True) then  {Delete file before exiting?}
+    begin
+    Options := Options + [ovwAddToDeleteList];
+    Write('File will be deleted when done viewing - is this okay (Y/N)? ');
+    ReadLn(InStr);
+    if CompareText(InStr, 'y') <> 0 then
+      Exit;
+    end; 
+
+  if not ViewDocument(ParamStr(2), Viewer, Options, ErrorMsg) then
+    begin
+    WriteLn(ErrorMsg);
+    Exit;
+    end; 
+
+  if FindCmdLineSwitch('d', ['-'], True) and FileExists(ParamStr(2)) then
+    begin
+    repeat
+      Write('Press Enter when ready to delete file (or Ctrl+C to exit): ');
+      ReadLn(InStr);
+      Done := DeleteViewedDocs;
+      if not Done then
+        WriteLn('  Unable to delete file - may still be open in viewer');
+    until Done; 
+    end;
+end.
+