ich bräuchte etwas Hilfe.
Es gelingt mir nicht einem TImage eine Hintergrundfarbe (TColor) mit folgender Funktion zu übergeben.
Code: Alles auswählen
Function BildAufbau(const x1,y1 :Integer; Bild:TImage):TImage;
Var
r1,r2:TRect;
x,y : integer;
Begin
x := x1; y := y1 ;
//Zeichne Hintergrundbild in Zwischenspeicher
r1.Top:=0;
r1.Left:=0;
r1.Right:=cImg.Picture.Bitmap.Width;
r1.Bottom:=cImg.Picture.Bitmap.Height;
cImg.Canvas.StretchDraw(r1,Back.Picture.Bitmap);
//Zeichne Vordergrundbild in Zwischenspeicher
r1.Top:=y;
r1.Left:=x;
r1.Right:=x+49;
r1.Bottom:=y+50;
r2.Top:=0;
r2.Left:=0;
r2.Right:=Bild.Picture.Bitmap.Width;
r2.Bottom:=Bild.Picture.Bitmap.Height;
cImg.Canvas.CopyRect(r1,Bild.Picture.Bitmap.Canvas,r2);
//Kopiere Zwischenspeicher auf Form
r1.Top:=0;
r1.Left:=0;
r1.Right:=MainForm.Width;
r1.Bottom:=MainForm.Height;
Result := cImg;
End;
Habe irgendwo gelesen, dass man das mit Canvas machen kann, weis aber nicht wie.
Kann mir hier jemand helfen?
Gruß