Рамка для TImage

[Painkiller_13]

Нужно что вокруг image в который уже загруженно изображение рисовалось рамка определенного цвета.

Пытался использовать этот код но изображение просто пропадает.

Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear;
Image1.Picture.Bitmap.Canvas.Rectangle(0, 0,
Image1.Picture.Bitmap.Width,
Image1.Picture.Bitmap.Height);

[саша40]

Надо так:

Image1.Canvas.Pen.Color:=clBlack;
Image1.Restengle(0,0,Image1.Width,Image1.Height);

[phomm]

саша40, Вы бы ерунду то левую не пороли.
Ректангл (а не рестенгл) рисует не просто рамку, а ещё и заливает текущей кистью то, что внутри. Просто рамку - FrameRect с теми же параметрами.

[Painkiller_13]

При использования кода

Image1.Canvas.Pen.Color:=clBlack;
Image1.Restengle(0,0,Image1.Width,Image1.Height);

Выскакивает ошыбка Can only modify an image if it contains a bitmap

А если использовать image1.canvas.FrameRect(); с параметрами 0,0,Image1.Width,Image1.Height
выдает несовместимость типов integer и TRect

[phomm]

Значит FrameRect(Rect(параметры))
Справочку то трудитесь читать хоть иногда, не я же за Вас буду её читать.

[Painkiller_13]

can only modify an image if it contains a bitmap
при попытки зделать рамку для image в котором уже загружена картинка.
Если использовать image1.Picture.Bitmap.Canvas.FrameR ect(Rect(0,0,Image1.Width,Image1.He ight)); то рисунок просто пропадает.

[Painkiller_13]

Использовал преобразование в бмп

var bp:TBitmap;
begin
bp:=TBitmap.Create;
bp.Assign(image1.picture.Graphic);
image1.picture.Bitmap.Assign(bp);
image1.canvas.FrameRect(Rect(0,0,Image1.Width,Image1.Height));

Но появился другой вопрос как можно изменить цвет и размер рамки. Стандартно как я понял это белый и размер 1 пиксель.

[evg_m]

canvas.pen.color
canvas.pen.width
canvas.frameRect

[Painkiller_13]

canvas.pen.color не работает но спасибо за идею
canvas.brush.color подошел
Насчет размер рамки canvas.pen.width тоже не работает а у canvas.brush параметра width нету

[Painkiller_13]

При использовании функции
image1.canvas.FrameRect(Rect(0,0,Im age1.Width,Image1.Height));
в image загружено png изображение и там нет изображение закращываеться белым цветом как ето убрать или хотябы выбрать цвет закрашывания.