home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DELPHI / ORPHTR / VWUNIT.PAS < prev   
Pascal/Delphi Source File  |  1995-03-15  |  2KB  |  74 lines
  1. unit VWunit;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, OvcViewr, OvcBase, OvcEf, OvcSf, ExtCtrls,
  8.   Buttons;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     OvcFileViewer1: TOvcFileViewer;
  13.     OvcTextFileViewer1: TOvcTextFileViewer;
  14.     Panel1: TPanel;
  15.     OvcSimpleField1: TOvcSimpleField;
  16.     btnOpen: TButton;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     btnCopy: TButton;
  20.     BitBtn1: TBitBtn;
  21.     OvcController1: TOvcController;
  22.     procedure btnOpenClick(Sender: TObject);
  23.     procedure FormActivate(Sender: TObject);
  24.     procedure btnCopyClick(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.btnOpenClick(Sender: TObject);
  39. const
  40.   TP0 : TOvcTextPos = (Line:1; Col:0);
  41.   TP1 : TOvcTextPos = (Line:3; Col:0);
  42. begin
  43.   {open and read with the text file viewer first so that the}
  44.   {file viewer doesn't cause a sharing violation}
  45.   {the text file viewer reads the complete file and then closes it}
  46.   OvcTextFileViewer1.Filename := OvcSimpleField1.AsString;
  47.   OvcTextFileViewer1.IsOpen := True;
  48.  
  49.   {the file viewer keeps the file open and pages through it}
  50.   {using file mode $20 -- read only, deny write}
  51.   OvcFileViewer1.Filename := OvcSimpleField1.AsString;
  52.   OvcFileViewer1.IsOpen := True;
  53.  
  54.   {set markers}
  55.   OvcFileViewer1.Marker[0] := TP0;
  56.   OvcFileViewer1.Marker[1] := TP1;
  57.   OvcTextFileViewer1.Marker[0] := TP0;
  58.   OvcTextFileViewer1.Marker[1] := TP1;
  59.  
  60.   btnOpen.Enabled := False;
  61. end;
  62.  
  63. procedure TForm1.FormActivate(Sender: TObject);
  64. begin
  65.   OvcSimpleField1.AsString := 'VWUNIT.PAS';
  66. end;
  67.  
  68. procedure TForm1.btnCopyClick(Sender: TObject);
  69. begin
  70.   OvcTextFileViewer1.CopyToClipboard;
  71. end;
  72.  
  73. end.
  74.