Не дергается, если не менять размер PaintBox, а я его менял при масштабировании.
Код:
procedure TForm1.TrackBarScaleImageChange(Sender: TObject);
begin
ScaleWiringImage;
end;
procedure TForm1.PaintBoxImagePaint(Sender: TObject);
begin
PaintWiringImage;
end;
Задача - написать хороший просмотрщик эл. схем (wiring) автомобилей, с деревом, масштабированием, расшифровкой компонентов.