Модуль сведений о программе

//ABOUT.PAS

unit About;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

type

TForm3 = class(TForm)

Image1: TImage;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Bevel1: TBevel;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

form3.close;

end;

end.

Файл конфигурации

//LAPLAS.CFG

-$A+

-$B-

-$C+

-$D+

-$E-

-$F-

-$G+

-$H+

-$I+

-$J+

-$K-

-$L+

-$M-

-$N+

-$O+

-$P+

-$Q-

-$R-

-$S-

-$T-

-$U-

-$V+

-$W-

-$X+

-$YD

-$Z1

-cg

-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

-H+

-W+

-M

-$M16384,16777216

-K$04000000

Файл проекта

//LAPLAS.DPR

program Laplas;

uses

Forms,

main in 'main.pas' {Form1},

InputD in 'InputD.pas' {Form2},

About in 'About.pas' {Form3},

PenW in 'PenW.pas' {Form4};

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.Run;

end.

Приложения

14.1. Математические классы на языке С++

Дата добавления: 2015-07-25