Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249283 (10719)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Position eines Schieberegler online erfragen
Stephan Sonneborn
| Datum:25.12.01 18:24 (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 (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 (stephans_email@freenet.de) |
Hallo Jörg! Danke für die tolle Hilfe! Jetzt klappts super! Gruß Stephan

| Zurück zur Übersicht