*
*


CAPTCHA Image   Reload Image
X

Программа для рисования в Delphi

лабораторные работы, программирование и информатика

Объем работы: 4 стр.

Год сдачи: 2005

Стоимость: 200 руб.

Просмотров: 623

 

Не подходит работа?
Узнай цену на написание.

Оглавление
Введение
Содержание
Скриншоты
Заказать работу
Цель работы:
Создать в среде Delphi программу для рисования со стандартным набором режимов рисования:
– геометрических объектов;
– цвета заполнения;
– стиля заполнения.
Фрагмент текста программы:
Текст программы:

unit Unit1;

interface

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

type
TDrawingtools=(dtline,dtrectangle,dtellipse,dtroundrect);
//TColors=(clblack,clwhite,clred,clyellow,clblue);
Tstyle=(bsvertical,bshorizontal,bsdiagonal);
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
Image1: TImage;
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
// procedure Image1Click(Sender: TObject);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Drawing:boolean;
Drawingtool:TDrawingtools;
Color:Tcolor;
Style:TStyle;
origin,Movept:tpoint;
x,y:integer;
implementation

{$R *.dfm}

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
If combobox1.Itemindex=0 then drawingtool:=dtline;
If combobox1.Itemindex=1 then drawingtool:=dtrectangle;
If combobox1.Itemindex=2 then drawingtool:=dtellipse;
end;
Главное окно программы имеет три раскрывающихся списка: «Фигура», «Цвет», «Заполнение», в которых можно выбрать соответственно геометрическую фигуру для рисования, цвет её заливки и стиль заполнения.

После офорления заказа Вам будут доступны содержание, введение, список литературы*
*- если автор дал согласие и выложил это описание.

Эту работу можно получить в офисе или после поступления денег на счет в течении 30 минут (проверка денег с 12.00 до 18.00 по мск).
ФИО*


E-mail для получения работы *


Телефон


ICQ


Дополнительная информация, вопросы, комментарии:



CAPTCHA Image
Сусловиямиприбретения работы согласен.

 
Добавить страницу в закладки
Отправить ссылку другу