XProfan

English

IP Control SysIPAddress32
Compile Mark Separation

declare ip&
cls
ip&:=Control("SysIPAddress32","0.0.0.0",$50010000,133,68,100,18,%Hwnd,1000,%Hinstance,$204)
sendmessage(ip&,1125,0,ip2ip(192,168,13,1))
settext %hwnd,gettext$(ip&)
waitinput
end

proc ip2ip

    parameters l1&,l2&,l3&,l4&
    return (l1&*16777216)+(l2&*65536)+(l3&*256)+l4&

01/12/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

...supply by me 19.16.13.1 instead of 192.168.13.1.

and the too first after I the colon with Ip&:= removes have.

If absolutely the XPSE uses go should, then ought to too one einleitendes Steuerelement there his (the comment standing namely over JEDEM Source), and here becomes XPSE now really not needed.

Best wishes
Michael Wodrich

small Veränderung and already GEHTS:
Compile Mark Separation

Ip&=Control("SysIPAddress32","0.0.0.0",$50010000,133,68,120,18,%Hwnd,1000,%Hinstance,$204)

the area was To tight set - with 200 was is then correctly. beautiful visible. The 120 is by me the first worth, the whom filled Content darstellt.

beautiful Control

Programmieren, das spannendste Detektivspiel der Welt.

01/12/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

means - XPSE is here necessary since the Community := recognized has. here lying accordingly no Error to - and here becomes neither generally behauptet XPSE be necessary. The Message is accordingly correctly..

the the control not same How desired darstellt meets too then To - if The Fonts the Systemes z.B. by DPI-regulator changed are. here's naturally the Programmer demand To discern where The cause lying.

but You hasts Yes hinbekommen.

PS: I recommend for the Control - How almost for each others Control too - MS Sans Serif with 10pt - then is my above-mentioned Breitenangabe exakt.

Compile Mark Separation

Declare Ip&
Cls
Ip&=Control("SysIPAddress32","0.0.0.0",$50010000,10,68,200,18,%Hwnd,1000,%Hinstance,$204)
Sendmessage(Ip&,1125,0,Ip2ip(192,168,13,1))
Settext %Hwnd,Gettext$(Ip&)
Waitinput
End

Proc Ip2ip

    Parameters L1&,L2&,L3&,L4&
    Return (L1&*16777216)+(L2&*65536)+(L3&*256)+L4&