|
Registriert seit: 22. Mär 2003
Ort: Finsterwalde
622 Beiträge
Turbo Delphi für Win32
|
TUpdown ohne MouseWheel
19. Nov 2010, 13:10
Hallo,
ich habe schon die Suchfunktion benutzt, aber nichts passendes finden können.
Auf meiner Form befindet sich eine TScrollBox. In dieser wiederum ein TImage. Mit dem Mausrad kann man nun den Zoom einstellen und das Bild größer oder kleiner anzeigen lassen. Das Bild selbst ist nur eine Vorschau.
Das Bild soll als jpeg komprimiert werden. Für TJPEGImage.CompressionQuality wollte ich ein TUpDown verwenden. Leider reagiert das auf das Scrollrad, so dass mein mühsam programmierter Zoom nicht mehr funktioniert.
Wie bringe ich TUpDown dazu, das Scrollrad zu ignorieren?
Ich habe dazu Code für (vermutlich) C gefunden. Es ist jedoch für mich zu kompliziert, dass nach Delphi umzusetzen. Dabei wird irgendwie die Komponente neu geschrieben, von TUpDown abgeleitet und WndProc so überschrieben, dass WM_MouseWheel an die übergeordnete Instanz weitergeleitet wird. Dadurch wird es dann im abgeleiteten TUpDown ignoriert - wenn ich das richtig verstehe. Sollte es keine einfachere Lösung geben, würde ich es mit 2 Buttons ('+' und '-') machen.
Gruß & Dank
Alex Winzer
|