Вариант 03. Гравное окно. Иллюстрации работы приложения

  • ID: 40980 
  • 12 страниц
200 рубСкачать

антиплагиат в подарок

Project1.cfg

Project1.dof

Project1.dpr

Project1.~dpr

Project1.exe

Project1.res

Unit1.dcu

Unit1.ddp

Unit1.~ddp

Unit1.dfm

Unit1.~dfm

Unit1.pas

Unit1.~pas

Unit2.dcu

Unit2.ddp

Unit2.~ddp

Unit2.dfm

Unit2.~dfm

Unit2.pas

Unit2.~pas

КР.docx

Фрагмент работы:

Гравное окно

Иллюстрации работы приложения

[image]

Рис. 1 Выведены надписи с именем и факультетом

[image]

Рис. 2 Выведена надпись с именем

Листинг формы Form1

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, ExtCtrls, Buttons;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

PopupMenu1: TPopupMenu;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

N11: TMenuItem;

N12: TMenuItem;

procedure FormPaint(Sender: TObject);

procedure NamePaint(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure RadioButton1Click(Sender: TObject);

procedure RadioButton2Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure FormReText(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

tText: string;

bName: boolean;

bSpec: boolean;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);

begin

{ Процедура, которая выводит на форму надпись с названием факультета.

Используем методы Canvas }

Canvas.Font.Color:= clBlack;

Canvas.Font.Name:='Arial';

Canvas.Font.Size:=16;

Canvas.TextOut(10,200,tText);

end;

procedure TForm1.NamePaint(Sender: TObject);

{ Процедура, которая выводит на форму имя.

Используем методы Canvas. Для выбора местоположения надписи воспользуемся

заранее введенными константами}

const y=150;

const dy=11;

const x=10;

const dx=30;

{ Сформируем массив символов из букв имени}

type MyName = array[0..10] of Char;

var NameT: MyName; i:integer;

begin