как сделать ТImage круглым....

[firmwares]

DeKot а не мог бы ты подсказать как потом это изображение сохранить или загнать в ТImage?

Заранее благодарю!

[DeKot]

Добавте событие OnClick для формы :

procedure TForm1.FormClick(Sender: TObject);
var Buf: TBitMap;
begin
  Buf:= TBitMap.Create;
  Buf.Width:= Form1.Width;
  Buf.Height:= Form1.Height;
  Buf.Canvas.CopyRect(bounds(0,0, Buf.Width,Buf.Height),Form1.Canvas,
                       bounds(0,0, Buf.Width,Buf.Height));
  Buf.SaveToFile('CopyForm.bmp');
end;

Здесь копируем канву формы в объект TBitMap и затем сохраняем в файл.
Аналогично можно скопировать в TImage. Создайте еще одну форму (Form2) , на ней Image размером равным размерам Form1.И копируйте с канвы Form1 на канву Image.

Понравилась программа от kotoff . Можно заготовить в любом графическом редакторе маски всевозможного вида и в программе динамически выбирать нужную.Результирующий Image можно экспортировать куда угодно - хоть на принтер, хоть в любое приложение через файл сохранения.