Нужна помощь при перерисовке в Image

[dimon4il]

Ситуация такая есть объект типа TImage, в нем нарисовано черным цветом чет через Canvas. Мне нужно чтобы при нажатии на кнопку изменялся цвет того что нарисовал.
Делал так:
var
col:TColor;
.........
procedure TForm1.FormCreate(Sender: TObject);
begin
col:=clgreen;
img.canvas.pen.color:=col;
img.canvas.rectangle (10,10,50,70);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
col:=clred;
img.repaint;
end;

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

[Neeter]

А вы переместите код

img.canvas.pen.color:=col;
img.canvas.rectangle (10,10,50,70);

В обработчик события формы OnPaint

[dimon4il]

дело в том что у меня много таких компонентов и они создаются динамически... можно конечно переделать на onpaint...... но других вариантов разве нету?

[Neeter]

Вы же рисуете ее только при создании формы, как же вы хотите ее обновлять методом Repaint?
При Repaint обрабатывается событие OnPaint
Так что, мне кажется, только так, как я сказал, будет работать.

[dimon4il]

не, это я пример маленький написал, чтобы весь свой код не писать у меня там по другому..... у меня при нажатии мыши на уже вставленом по всей области формы Image с картинкой рисуется различные фигуры через канвас... но при повторном нажатии на эти фигуры мне нужно чтобы их цвет менялся, якобы происходило выделение...

[Пепел Феникса]

напиши внешнюю процедуру(как метод формы лучше)
в нее передавай нужный цвет и идентификатор фигур что надо нарисовать(например 1-квадрат, 2-круг...и тд)
а процедуру пропиши в ОнПаинте (учти те условия по которым ты сам хотел отличать, каким цветом и что рисовать)
в общем вот

[dimon4il]

спасибо вам что откликнулись, буду переделывать тогда код... хотя так впадло))

[Neeter]

Вот, сваял прогу, я думаю это то что вам нужно