XProfan

Declarar ende&,wert&,wert1&,texto$, hFileMap&,zielfenster&,slider_h&,slider_v&
declarar pointer#
Struct Daten = w&, w1&, zk$(32)
dim pointer#,Daten

proc senden

    If hFileMap&

        pointer# = FileMap("Map", hFileMap&)
        pointer#.w& = wert&
        pointer#.w1& = wert1&
        pointer#.zk$ = texto$
        PostMessage(ZielFenster&, $1000, 0, 0)

    EndIf

ENDPROC

windowtitle "slidersend"
window 20,20-300,300
slider_h&=Control("MSCTLS_TRACKBAR32", "Trackbar02",$50000920, 30,40, 200,20, %hwnd, 2011, %hInstance, $00010004)
SendMessage(slider_h&,$0406,0,MakeLong(0,360))
slider_v&=Control("MSCTLS_TRACKBAR32", "Trackbar02",$54000922, 120,80, 20,100, %hwnd, 2011, %hInstance, $00010004)
SendMessage(slider_v&,$0406,0,MakeLong(0,5))
hFileMap& = Crear("FileMap", "Test", 32)
hFileMap& = FileMap("Open", "Test")
pointer# = FileMap("Map", hFileMap&)
shell "slider_sprite_colli_filemap.exe"
sleep 500
ZielFenster& = FindWindow("sliderspritecollifilemap")
ende& = 0

whilenot ende&

    waitinput
    wert&=SendMessage(slider_h&,$0400,0,0)
    wert1&=SendMessage(slider_v&,$0400,0,0)
    senden

endwhile

FileMap("Close", hFileMap&)
Disponer pointer#
end

Case (GetFocus(slider_h&) | GetFocus(slider_v&)):senden