Рамка на Image Delphi

[newerow1989]

Последовательность строк соблюдать!
584, 64 - вообще убрать! Заменить на 0!

[zvygin1964]

Да, оба варианта рабочие:

procedure TForm1.Button1Click(Sender: TObject);
begin      // так работает
 Image1.Canvas.Brush.Style := bsClear;
 Image1.Canvas.pen.Color := clBlack;
 Image1.Canvas.Pen.Width:=25;
 Image1.Canvas.Rectangle(0, 0,Image1.Width,Image1.Height);
 //Image1.Canvas.Rectangle(0, 0,Image1.Width-1,Image1.Height-1);
 end;

Кому, чего должен?


ХОЗЯЯЯ-ИН ! Исправьте ошибку в http://www.programmersclub.ru/рамка-для-image/

[min@y™]

ДядьМиша, тебе всё неймётся, неугомонный?
Опять рисуешь на TImage, чикатило-извращенецЪ?
Езжай на рыбалку, отдохни. Хватит фигнёй заниматься.