XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Eingabezeile  - nur numerische Zeichen erlauben und Zeichenanzahl begrenzen
Lauffähig ab Profan-Version 5.0
PRFellow- Vorlage
Autor: Thomas Hölzer
Nur (vorzeichenlose) numerische Eingaben in einem Editfeld zulassen
Für Profan >= 5.x(32)
Def GetWindowLong(2) !USER32, GetWindowLongA
Def SetWindowLong(3) !USER32, SetWindowLongA
Def SetEditNumeric(1) SetWindowLong(@&(1),-16,
Or(GetWindowLong(@&(1),-16),$2002))
Def LimitText(2) SendMessage(@&(1),$C5,@%(2),0)
Beispiel
WindowTitle Numerisches Editfeld mit max. 8 Zeichen
SetTrueColor 1
Cls RGB(192,192,192)
Declare hedit&
Let hedit&=CreateEdit(%hwnd,0,250,180,100,20)
SetEditNumeric(hedit&)
LimitText(hedit&,8)
SetFocus(hedit&)

While 1

    WaitInput

Wend