Главная » Delphi, Графика, Исходники » Рисование фигур
Ноя
24

Рисование фигур

Программа для рисования фигур с помощью компонентов TScrollBar и TShape. Выбираем цвет формы и фигуры, а с помощью ScrollBar’ов —  нужный нам размер.

 

[sourcecode language=»css»]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
ScrollBar1: TScrollBar;
ScrollBar2: TScrollBar;
FormColor: TButton;
ShapeColor: TButton;
ComboBox1: TComboBox;
Shape1: TShape;
ColorDialog1: TColorDialog;
procedure FormColorClick(Sender: TObject);
procedure ShapeColorClick(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure Shape1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
procedure ComboBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormColorClick(Sender: TObject);
begin
if ColorDialog1.Execute then
Form1.Color :=ColorDialog1.Color;
end;
procedure TForm1.ShapeColorClick(Sender: TObject);
begin
if ColorDialog1.Execute then
Shape1.Brush.Color:=ColorDialog1.Color;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Shape1.Width:=ScrollBar1.Position*3;





end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
Shape1.Height:=ScrollBar2.Position*3;
end;
procedure TForm1.Shape1ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
Shape1.Shape:=stRectangle;
Shape1.Shape:=stCircle;
end;
procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Case ComboBox1.ItemIndex of
0: Shape1.Shape:= stRectangle;
1: Shape1.Shape:= stCircle;
end;
end;
end.
[/sourcecode]

[download id=»2″]



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.