Forum: Programmieren allgemein
by mh18058,
21. Jun 2016
Hallo Thunder1968,
gerne doch! :-D
Für Alle, die den Code verwenden wollen:
Ich habe inzwischen festgestellt, daß statt :oops:
inc(MouseWheelTics);
if MouseWheelTics > 2 then begin
MouseWheelTics := 0;
Forum: Programmieren allgemein
by mh18058,
22. Mai 2016
Hallo Thunder1968,
und an Alle, die sich auch mit dem Thema befassen,
Ich hatte so eine ähnliche Frage, nur daß ich statt eines TImage eine TPaintBox habe.
Die PaintBox ist auf einer ScrollBox und ich zeichne auf die PaintBox eine Vektorgrafik.
Natürlich ist die PaintBox größer als die ScrollBox und die Zeichnung soll sich beim
Zoomen nicht verschieben, sondern genau unter der Maus...