Hi, ich muss wieder auf das Thema zurückkommen.
ich bin jetzt seit stunden dran, einen bereich mitten aus einem image in eine andere bitmap variable zu legen,
aber es klappt einfach nicht. hab es mit copyrect und der schleifenvariante mit pixels[x,y] versucht.
Code:
procedure TMainForm.Button4Click(Sender: TObject);
var
farbe : tcolor;
a,b: integer;
bild2: tbitmap;
begin
bild2 := tbitmap.Create;
for a := 0 to 60 do
begin
for b := 0 to 60 do
begin
farbe:= videoimage.Canvas.Pixels[a,b];
bild2.Canvas.Pixels[a,b] := farbe;
end;
end;
paintbox2.Canvas.Draw(0,0,bild2);
end;
und noch die andere variante:
Code:
{ Bild zerlegen }
splitter:=tbitmap.create;
splitter.width:=60;
splitter.height:=videoimage.Height;
splitter.canvas.copyrect(rect(0,0,10,videoimage.Height),videoimage.canvas,rect(20,20,30,videoimage.Height));
videoimage := splitter;
bei der zweiten variante kommt auch kein richtiger bildbereich raus. er holt mir da zwar den bildbereich,
macht aber darum alles weiß.
ich verzweifele...
