Hallo, ich habe folgenden Quelltext:
Delphi-Quellcode:
var bmp : TBitmap;
x,y : integer;
p : pbytearray;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('C:\test.bmp');
bmp.width := 100;
bmp.height := 100;
for y := 0 to bmp.Height - 1
do
begin
p := bmp.ScanLine[y];
for x := 0 to bmp.Width*3 - 1
do p[x] := Random (255);
end;
Image1.Picture.Assign(bmp);
end;
das Problem ist, dass das Resultat ausbleibt wenn ich die Zeile
<bmp.LoadFromFile('C:\test.bmp');>
entferne. Ich könnte jetzt sicherlich mogeln um das Problem zu umgehen, aber dadurch werde ich ja nicht schlauer... Wär super wenn einer von euch mir weiterhelfen könnte (Ursache, Lösung)...
MfG Jörn