Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Мини-редактор графов / Unit2
.pas unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ExtCtrls, StdCtrls, Buttons;
type
TForm2 = class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ColorBox1: TColorBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ColorBox1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
c:array[0..20] of integer;
implementation
uses DateUtils,unit1;
{$R *.dfm}
procedure picture;
begin
Form2.Image1.Canvas.Font.Color:=c[4];
Form2.Image1.Canvas.Brush.Color:= c[0];
form2.Image1.Canvas.FillRect(form2.image1.Canvas.ClipRect);
Form2.Image1.Canvas.pen.Color:= c[1];
Form2.Image1.Canvas.MoveTo(60,60);
Form2.Image1.Canvas.lineTo(110,70);
Form2.Image1.Canvas.TextOut(80,60,'3');
Form2.Image1.Canvas.Brush.Color:= c[2];
Form2.Image1.Canvas.Rectangle(10,10,60,60);
Form2.Image1.Canvas.TextOut(25,25,'1');
Form2.Image1.Canvas.Brush.Color:= c[3];
Form2.Image1.Canvas.Rectangle(110,70,160,120);
Form2.Image1.Canvas.TextOut(135,95,'2');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
c[0]:=fon_color;
c[1]:=rebro_color;
c[2]:=verhina_color;
c[3]:=activ_color;
c[4]:=text_color;
picture;
ColorBox1.Selected:=c[0];
CheckBox1.Checked:=mOrient;
CheckBox2.Checked:=mves;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
fon_color:=c[0];
rebro_color:=c[1];
verhina_color:=c[2];
activ_color:=c[3];
text_color:=c[4];
mVes:=CheckBox2.Checked;
mOrient:=CheckBox1.Checked;
Form1.N26Click(t);
close;
end;
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
ColorBox1.Selected:=c[ComboBox1.ItemIndex];
end;
procedure TForm2.ColorBox1Change(Sender: TObject);
begin
c[ComboBox1.ItemIndex]:=ColorBox1.Selected;
picture;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
CheckBox1.Checked:=mOrient;
CheckBox2.Checked:=mves;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, ExtCtrls, StdCtrls, Buttons;
type
TForm2 = class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
ComboBox1: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ColorBox1: TColorBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ColorBox1Change(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
c:array[0..20] of integer;
implementation
uses DateUtils,unit1;
{$R *.dfm}
procedure picture;
begin
Form2.Image1.Canvas.Font.Color:=c[4];
Form2.Image1.Canvas.Brush.Color:= c[0];
form2.Image1.Canvas.FillRect(form2.image1.Canvas.ClipRect);
Form2.Image1.Canvas.pen.Color:= c[1];
Form2.Image1.Canvas.MoveTo(60,60);
Form2.Image1.Canvas.lineTo(110,70);
Form2.Image1.Canvas.TextOut(80,60,'3');
Form2.Image1.Canvas.Brush.Color:= c[2];
Form2.Image1.Canvas.Rectangle(10,10,60,60);
Form2.Image1.Canvas.TextOut(25,25,'1');
Form2.Image1.Canvas.Brush.Color:= c[3];
Form2.Image1.Canvas.Rectangle(110,70,160,120);
Form2.Image1.Canvas.TextOut(135,95,'2');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
c[0]:=fon_color;
c[1]:=rebro_color;
c[2]:=verhina_color;
c[3]:=activ_color;
c[4]:=text_color;
picture;
ColorBox1.Selected:=c[0];
CheckBox1.Checked:=mOrient;
CheckBox2.Checked:=mves;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
fon_color:=c[0];
rebro_color:=c[1];
verhina_color:=c[2];
activ_color:=c[3];
text_color:=c[4];
mVes:=CheckBox2.Checked;
mOrient:=CheckBox1.Checked;
Form1.N26Click(t);
close;
end;
procedure TForm2.ComboBox1Change(Sender: TObject);
begin
ColorBox1.Selected:=c[ComboBox1.ItemIndex];
end;
procedure TForm2.ColorBox1Change(Sender: TObject);
begin
c[ComboBox1.ItemIndex]:=ColorBox1.Selected;
picture;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
CheckBox1.Checked:=mOrient;
CheckBox2.Checked:=mves;
end;
end.
Соседние файлы в папке Мини-редактор графов