TrackBar Zoomen in einer Paintbox

[Blubbel]

hab mich geirrt... ist doch drin und auf OnPaint

Delphi-Quellcode:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  DrawGrid(PaintBox1.Canvas, GetScaleValue(TrackBar1.Position));
end;



procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  DrawGrid(PaintBox1.Canvas, GetScaleValue(TrackBar1.Position));
end;