Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249283 (10719)
  Suchen
 Zurück zur Übersicht
 AutorThema: Position eines Schieberegler online erfragen
Stephan Sonneborn
Datum:25.12.01 18:24 Antwortenals Email verschicken (stephans_email@freenet.de) 


Frohe und gesegnete Weihnachten an alle Profan-Fans!

Vielleicht weiß einer von Euch rat: Ich möchte mit Hilfe eines Schiebereglers einen Bildausschnitt verschieben. Aber der Reihe nach.
Ich bastele an einem Programm zur Visualisierung von Meßwerten. Ich stelle mir das so vor, dass ich die Daten in der virtuellen Speicherbitmap als Kurven darstelle, die ich dann ausschnittsweise (auch skaliert) in den sichbaren Bereich auf dem Profan-Hauptfenster kopiere. Mit dem Schieberegler soll dann der jeweilige Ausschnitt angewählt werden. Um dies benutzerfreundlich zu gestalten, müßte ich die genaue Position des Schiebereglers wissen und anhand dessen den Ausschnitt quasi online anzeigen. Leider erhalte ich erst eine Rückmeldung (bei waitinput und bei getmessage), wenn ich den Schieberegler loslasse. Gibt es eine Möglichkeit, die Position während des Schiebens zu erfahren?

Gruß Stephan

PS: Ich habe diese Frage gleichzeitig auch in der Mailingliste gestellt.


Jörg Sellmeyer
Datum:25.12.01 19:17 Antwortenals Email verschicken (joerse@gmx.de) 


Hallo Stephan,
Ich habe mal ein Beispiel von Rainer Berg etwas abgewandelt:
 window 30,30-300,300
 declare a&,a%
 def TbGetPos(1) sendmessage(&(1),1024,0,0)'------------TBM_GETPOS
 def TbSetPos(2) sendmessage(&(1),1029,1,%(2))'---------TBM_SETPOS

 a&=control("msctls_trackbar32","",$50000050,10,20,250,30,%hwnd,10,%hinstance)

settimer 1
while 1
a%=TbGetPos(a&)
TbSetPos(a&,a%)
windowtitle str$(TbGetPos(a&))
endwhile
KillTimer
Gruß
Jörg


Stephan Sonneborn
Datum: 26.12.01 08:55 Antwortenals Email verschicken (stephans_email@freenet.de) 


Hallo Jörg!

Danke für die tolle Hilfe! Jetzt klappts super!

Gruß Stephan


 Zurück zur Übersicht