declarations} ;: TForm2; Unit1, Unit5;
{$ R * .DFM} TForm2.Timer1Timer (Sender: TObject) ;. Show;
//Form5.Show; .Hide; .Enabled:=False ;;.
Код третього формиUnit3 ;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, SHDocVw, ExtCtrls;=class (TForm): TWebBrowser ;: TPanel; FormCreate (Sender: TObject); FormKeyDown (Sender: TObject ; var Key: Word ;: TShiftState); Panel1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm3;
{$ R * .DFM} TForm3.FormCreate (Sender: TObject) ;. Navigate (ExtractFilePath (Application.EXEName) + Help Index.htm ) ;; TForm3.FormKeyDown (Sender: TObject; var Key:Word ;: TShiftState); key=VK_Escape then Form3.Hide ;; TForm3.Panel1Click (Sender: TObject) ;. Hide ;;.
Код четвертої формиUnit4;
interfaceWindows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls ,, ExtCtrls;=class (TForm): TPanel ;: TLabel ;: TButton ;: TLabel ;: TLabel;
{Private declarations}
{Public declarations} ;: TAboutBox;
{$ R * .DFM}.
Код п'ятого формиUnit5 ;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, SHDocVw, StdCtrls, Buttons;=class (TForm): TWebBrowser ;: TBitBtn; FormCreate (Sender: TObject); FormKeyDown (Sender:TObject; var Key: Word ;: TShiftState); BitBtn1Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm5; Unit3;
{$ R * .DFM} TForm5.FormCreate (Sender: TObject) ;. Navigate (ExtractFilePath (Application.EXEName) + Help Tip.htm ) ;; TForm5.FormKeyDown (Sender: TObject; var Key:Word ;: TShiftState); key=VK_Escape then Form5.Hide ;; TForm5.BitBtn1Click (Sender: TObject) ;;;.
Код шостий формиUnit6 ;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs ,, Buttons, Printers;=class (TForm): TOpenDialog ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TPrintDialog ;: TMemo; BitBtn1Click (Sender: TObject); BitBtn3Click (Sender: TObject); FormShow (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm6;
{$ R * .DFM} TForm6.BitBtn1Click (Sender: TObject) ;: Textfile;: string; .Lines.Clear; .Filter:= Файли звіту (* .zoo) | * .zoo raquo ;; OpenDialog1.Execute then (f, OpenDialog1.FileName); (f); Not Eof (f) do (f, t) ;. Lines.Add (t) ;; (f) ;;; TForm6.BitBtn3Click (Sender: TObject) ;;; TForm6.FormShow (Sender: TObject) ;. Lines.Clear ;; TForm6.BitBtn2Click (Sender: TObject) ;, x, y: longint; PrintDialog1.Execute then.Canvas.Font:=Memo1.Font; .BeginDoc ;:=0;:=0; i:=0 to Memo1.Lines.Count - 1 do.Canvas.TextOut (x, y, Memo1.Lines [i]);:=y + Printer.Canvas.TextExtent (Memo1.Lines [i]). cy ;;. EndDoc ;; end; end.