Einzelnen Beitrag anzeigen

Benutzerbild von blondervolker
blondervolker

Registriert seit: 14. Sep 2010
Ort: Bei: Leeeiipzzhhh
381 Beiträge
 
Delphi XE2 Architect
 
#9

AW: Auf ein Image ein transparentes Image an bestimmter Stelle ablegen

  Alt 27. Nov 2012, 18:11
ja den Code habe ich mittlerweile formatiert.

Hab es anders gemacht und erfüllt den gleichen Zweck.
Delphi-Quellcode:
procedure TForm21.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    ImageList1.GetBitmap(0, Bitmap);
    Image.Canvas.Draw(X,Y,Bitmap);
    finally
    FreeAndNil(Bitmap);
  end;
end;
Wie aber bekommt man ein Transparenten Pfeil hin?
Hab in der Imagelist gebastelt,aber es geht nicht?
Siehe Abbildung...
Miniaturansicht angehängter Grafiken
abb1.jpg  
www.bewerbungsmaker.de
  Mit Zitat antworten Zitat