Hallo und guten Morgen,
Ich hoffe ich nerve euch nicht langsam aber jetzt habe ich ein neues Problem, wo ich im Internet nicht so recht was nützliches gefunden habe.
Ich soll eine Trackbar zum Zoomes einfügen. Habe auch schon einiges versucht, es klappt aber nichts.
Delphi-Quellcode:
rocedure TForm1.TrackBar1Change(Sender: TObject);
begin
case TrackBar1.Position of
0:
begin
PaintBox1.Width:= 100 + TrackBar1.Position;
end;
1:
begin
PaintBox1.Width:= 200 + TrackBar1.Position;
end;
end;
Bisher habe ich sowas versucht.
Bitte um Hilfe
Danke euch schon mal