Если использовать delphi компоненты графики, то рисование графических изображений существенно упрощается . Delphi компоненты графики расположены на палитре кпонентов на вкладках Additional и Dialogs. Используя эти delphi компоненты графики , вы можете быстро нарисовать любой рисунок, состоящий из стандартных геометрических фигур и при этом не беспокоится о перерисовке изображения, так как оно происходит автоматически. Кроме того , можно предоставить пользователю выбирать цвет и шрифт через стандартные диалоговые окна, а так же возможность сохранять и загружать графические файлы.
Напишем новое приложение использующее delphi компоненты графики. Для вывода простейших геметрических фигур на поверхности формы вместо применения методов Canvas можно воспользоваться компонентом TShape, расположенным на странице Additional палитры компонентов.
Класс TShape является прямым потомком класса TGraphiControl, поэтому соответствующий ему компонент ведёт себя как обычный неоконный элемент управления, основные свойства котрых нам уже известны. К неунаследованным относятся три эти свойства:

  • Brush – кисть, определяющая способ заливки области фигуры:
  • Pen – карандаш, определяющий способ рисования границ фигуры;
  • Share – тип геометрической фигуры, которая вписана в прямоугольную область компонента. Возможны следующие значения:
    • stCircle – окружность;
    • stEllipse – эллипс;
    • stRectangle - прямоугольник;
    • stRoundRect – прямоугольник со скругленными углами;
    • stSquare – квадрат;
    • stRoundSquare – квадрат со скруглёнными углами.

Ниже показан рисунок приложения ипользования delphi компонента графики:


delphi компоненты графики


Далее прилагаю исходный код приложения delphi компоненты графики:


unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
Shape1: TShape;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure RadioGroup2Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption:= 'Delphi компоненты графики';
RadioGroup1.Caption := 'Тип фигуры';
RadioGroup1.ItemIndex:= 0;
RadioGroup2.Caption := 'Выберите штриховку';
RadioGroup2.ItemIndex := 0;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
//Устанавливаем стиль кисти в зависимости от выбранного переключателя
Form1.Shape1.Brush.Style := TBrushStyle( RadioGroup2.ItemIndex);
//Устанавливаем цвет кисти - красный
Form1.Shape1.Brush.Color := clRed;
end;
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
Repaint;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Form1.Shape1.Shape:= stCircle ;
1: Form1.Shape1.Shape:= stEllipse ;
2:Form1.Shape1.Shape:= stRectangle ;
3:Form1.Shape1.Shape:= stRoundRect ;
4:Form1.Shape1.Shape:= stSquare ;
5:Form1.Shape1.Shape:= stRoundSquare ;
end;
end;
end.

 

Скачать исходный код приложения delphi компоненты графики:

 

Добавить комментарий


Защитный код
Обновить