Hi,
Ich habe ein problem mit der Scanline Funktion des TBitmaps.
Das ganze funktioniert nämlich nicht mit einem frisch erstellten Bitmap.
Folgendes klappt:
Delphi-Quellcode:
imgs[0].loadfromfile('....');
P:=imgs[0].ScanLine[5];
for i:= 0 to imgs[0].width-1 do
begin
P^.rgbtRed:=0;
P^.rgbtBlue:=0;
P^.rgbtGreen:=0;
inc(P);
end;
wenn ich das bitmap auf eine paintbox male, habe ich einen schwarzen strich in der 5ten Zeile. Mache ich aber folgendes:
Delphi-Quellcode:
imgs[0]:=TBitmap.Create;
imgs[0].Height:=100;
imgs[0].Width:=100;
P:=imgs[0].ScanLine[5];
for i:= 0 to imgs[0].width-1 do
begin
P^.rgbtRed:=0;
P^.rgbtBlue:=0;
P^.rgbtGreen:=0;
inc(P);
end;
so bleibt das Bitmap komplett weiss. Was mache ich falsch?
Vielen Dank schonmal im vorraus
mfg
Antigo