Реферат Створення програмного додатку &Шифрування інформації&

eight;

width:=longint (width) * longint (screen.width) div ScreenWidth;

scaleBy (screen.width, ScreenWidth);

end;

end;

TForm1.FormCanResize (Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);:=False ;; TForm1.N8Click (Sender: TObject);

Application.MainForm.Close ;;

TForm1.FormCloseQuery (Sender: TObject; var CanClose: Boolean);

CanClose:=Application.MessageBox (PChar ( Ви дійсно хочете вийти з програми? ),

Увага! raquo ;, MB_YesNo)=id_Yes ;;

TForm1.N12Click (Sender: TObject);

ZoomFac: OLEVariant;

begin

WebBrowser1.OleObject.Document.Body.Style.Zoom:=1.3;

ZoomFac:=TButton (Sender) .Tag;

WebBrowser1.ExecWB (OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, ZoomFac);

;

TForm1.N13Click (Sender: TObject);

WebBrowser1.OleObject.Document.Body.Style.Zoom:=1 ;;

TForm1.N22Click (Sender: TObject) ;. Show ;;

TForm1.N18Click (Sender: TObject) ;. Show ;;

TForm1.N20Click (Sender: TObject) ;. Show ;;

TForm1.N21Click (Sender: TObject) ;. Show ;;

TForm1.N19Click (Sender: TObject) ;. Show ;;

TForm1.N5Click (Sender: TObject) ;. Show ;;

.

Form 2

Unit2;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

TForm2=class (TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form2: TForm2;

{$ R * .dfm}

TForm2.Button1Click (Sender: TObject) ;;;

.

Form 3

Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3=class (TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click (Sender: TObject);

procedure Memo1Change (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

Form3: TForm3;

{$ R * .dfm} TForm3.Button1Click (Sender: TObject);

Close;

end;

Додаток 4

Лістинг підпрограми «Тест»

Form 4

unit Unit4;

interface

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls;

TForm4=class (TForm)

Memo1: TMemo;

RichEdit1: TRichEdit;

BitBtn1: TBitBtn;

RadioGroup1: TRadioGroup;

Label1: TLabel;

OpenDialog1: TOpenDialog;

procedure FormShow (Sender: TObject);

procedure BitBtn1Click (Sender: TObject);

procedure RadioGroup1Click (Sender: TObject);

procedure FormCanResize (Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

procedure FormCreate (Sender: TObject);

private

{Private declarations}

public

Назад | сторінка 7 з 9 | Наступна сторінка