Scanline+TrackBarChange geht nicht

[Phantom1]

probiere mal folgendes:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Image1.Picture.Bitmap.PixelFormat:=pf24bit;
  MakeRed(Image1.Picture.Bitmap, TrackBar1.Position);
  Image1.Refresh;
end;