hi,
ja, ich weiss, mit der suche findet man proceduren zum verdunkeln, aber hab nix mit scanline + GR32 gefunden, aber habs schonmal versucht zu basteln, probleme gibt es noch mit dem array
Delphi-Quellcode:
procedure dunkler(Bitmap: TBitmap32;
const dp: Byte = 10);
var
PixelLine: pColor32array;
//hier gibts problmeme, weiss nicht welchen typ ich hier angeben muss
x, y: integer;
begin
for y := 0
to Bitmap.height - 1
do
begin
PixelLine := Bitmap.ScanLine[y];
for x := 0
to (Bitmap.width * 3) - 1
do
PixelLine^[x] := PixelLine^[x] - round(PixelLine^[x] /
dp);
end;
end;
den code hab ich hier im forum gefunden, und wollte ihn halt für gr32 umschreiben.
wenn ich den code so ausführe, wird er compiliert, aber beim aufruf gibt es irgendwann ne accessviolation
findet da jemand den fehler?
währe echt cool, thx