Hallo,
Wie im Quellcode zu sehen habe ich ne Procedure erstellt. Pic sei ein TBitmap undd fStyle einige Eigenshaften, wie Brushstyle etc. Nun habe ich ein Formular erstellt (Form 13) in dem man in einem Thumbnail-Viewer eine Bitmap, WMF, EMF oder ICO - Datei auswählen kann. Diese wird dan zur Laufzeit auf das Bitmaps gezeichnet. Leider kann ich aber immer nur das ausgewählte Bild mehrfach einfügen. Ich möchte aber verschiedene Bild auf das selbe Dokument gleichzeitig einfügen. hat jemand ne Idee?
Delphi-Quellcode:
{ Grafik/Bild einfügen }
procedure TBildEinfuegen.Draw(Pic: TBitmap);
begin
inherited;
with Pic.Canvas, fStyle do begin
Draw(FirstPos.X, FirstPos.Y, Form13.Image1.Picture.Bitmap);
end;
end;
Danke!