TImage Bitmap X-YRounds.. (Yuvarlak Resim)

[RADCoder]

Merhaba Arkadaşlar..
Şöyle bir sorum olacaktır. Timage nesnesini kenarlarını kırparak yuvarlark yapmak istiyorum,
bunun için bir kaç örnek buldum. Ancak TRectangle yada TRoundRect nesneleri gibi temiz olmuyor malesef.
TImage nesnesine böyle bir özellik nasıl kata biliriz?

NOT: Bu işlemi TListView nesnesinde Item eklerken resimlerde kullanmak daha görsen sonuç vermektedir.

[RADCoder]

Tekrar merhabar, ne kadar doğru bilmiyorum ama, Sanırım TRoundRect nesnesini İtem içine ekledim.

Kod: Tümünü seç

var
  AItem : TListViewItem;
begin
  AItem := ListView1.Items.Add;
  AItem.Text    := 'BMW';
  AItem.Detail  := 'X6';
  AItem.Bitmap.Assign(RoundRect1.MakeScreenshot);
end;

Konu ile ilgili fikir bildirmek isteyenler, bekliyorum..
Önceden teşekkür ederim..