Категория
Информатика
Тип
реферат
Страницы
3 стр.
Дата
05.05.2013
Формат файла
.rtf — Rich Text Format (Wordpad)
Архив
501769.zip — 57.28 kb
  • laboratornaja-rabota-no1-po-informatike_501769_1.rtf — 2218.27 Kb
  • Readme_docus.me.txt — 125 Bytes
Оцените работу
Хорошо  или  Плохо


Текст работы

'Лабораторная работа №1.

Цель работы: Изучение методов визуального программирования в Delphi.

Текст программы:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
ScrollBar1: TScrollBar;
ScrollBar2: TScrollBar;
Shape1: TShape;
ColorDialog1: TColorDialog;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color:=ColorDialog1.Color;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if colorDialog1.Execute then
Shape1.Brush.Color:=ColorDialog1.Color;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Shape1.Shape:=TShapeType(ComboBox1.ItemIndex);
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Shape1.Width:=ScrollBar1.Position*3;
end;

procedure TForm1.ScrollBar2Change(Sender:



Ваше мнение



CAPTCHA