Hallo nochmals!
Ich habe da wohl was falsch verstanden oder nicht richtig gemacht.
Jedenfalls habe ich doch arge Probleme mit der Prozedur des Verschmelzens zweier Bilder.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,k,x,y:integer;
begin
x:=bild1.Width;
y:=bild1.Height;
for i:=0 to x do
begin
for k:=0 to y do
begin
bild3.canvas.pixels[x,y] := GetBlendColor(bild1.canvas.pixels[x,y], bild2.canvas.pixels[x,y], GetRValue(bild2.canvas.pixels[x,y]));
end;
end;
end;
Das Programm schimpft immer darüber, dass es wohl kein Bitmap wäre, und dass in Bild3 schon was drin sein müsse, um dort malen zu können. Ich verstehe es einfach nicht. Kanns mir einer nochmal erklären was Sir Thornberry mir da an Code überlassen hat!?