Canvas

jeg ville meget gerne (via canvas) kunne lave noget ala dette:

http://avis.hotserv.dk/delphi.jpg

til ta starte med har jeg bare brugt en TImage på min form for at se hvordan jeg skal "tegne" tingene, men nu er jeg løbet ind i nogle problemer.

1. Icon'et som hente er ikke gennemsigtigt.

2. Jeg kan ikke lave flere "items"

Min nuværrende kode:

var
  Bitmap:TBitmap;
begin
  Bitmap:= TBitmap.Create;
  Bitmap.Width := Image2.Width;
  Bitmap.Height := Image2.Height;
  BitBlt(Bitmap.Canvas.Handle, 0, 0, Image2.Width, Image2.Height, Image2.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
  Image2.Picture.Bitmap.Assign(Bitmap);
  with Image2.Picture.Bitmap.Canvas do
  begin
    Brush.Color := clWhite;
    FillRect(ClipRect);
    //Item
    Brush.Color := $00EED2C1;
    Pen.Color := $00EED2C1;
    Rectangle(0,0,65,50);
    ImageList1.GetBitmap(0,Bitmap);
    Bitmap.TransparentColor := clFuchsia;
    Draw(20,10,Bitmap);
    Font.Name := 'Verdana';
    TextOut(((65 - TextWidth('Editor')) div 2 ),35,'Editor');
  end;
  Bitmap.Free;

Jeg håber der er en som kan hjælpe mig

50 UP for hvert problem