Подскажите пожалйста, ColorGrid

@DangHaos · Регистрация: 09.02.2013

Author24 — интернет-сервис помощи студентам

написал рисовалку, не могу понять как задать чтобы при нажатии ColorGrid менялся цвет пира, сделал то что только цвет формы меняется.
Подскажите, заранее благодарю.

Delphi

var
  Form1: TForm1;
  cod: boolean = false;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if cod then Canvas.LineTo(X,Y);
end;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 
begin
Canvas.MoveTo(X,Y);
  cod:=not cod;
end;
 
 
 
 
procedure TForm1.ColorGrid1Change(Sender: TObject);
 
begin
 
Form1.Color := ColorGrid1.ForegroundColor;
 
end;
 
end.

@cotseec · 20.03.2013, 21:56

Delphi

1	Canvas.Pen.Color:= ColorGrid1.ForegroundColor;// или как там называется цвет...

@DangHaos · 20.03.2013, 22:21 **[ТС]**

спасибо, очень выручили.

@DangHaos 11 / 11 / 1 Регистрация: 09.02.2013 Сообщений: 90
	20.03.2013, 22:21 [ТС]	3
	спасибо, очень выручили. 0