ich hab eine SLE Eingabe versucht zu bauen, funktioniert soweit.
Code: Alles auswählen
filtertxtvar:= XbpSle():new( oDlg,, {155, 4},{300, 25},, .f.)
filtertxtvar:setFontCompoundName( "13.Helv" )
filtertxtvar:create()
filtertxtvar:show()
SetAppFocus( filtertxtvar )
nEvent := 0
do while nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
DO CASE
CASE nEvent == xbeP_Keyboard .and. mp1 == xbeK_ESC
exit
CASE nEvent == xbeP_Keyboard .and. mp1 == xbeK_RETURN
mfilterbezeich:=upper(alltrim(Filtertxtvar:getData())) // kopiert Editierpuffer in Variable
exit
endcase
enddo
Code: Alles auswählen
@12,13 say "Part Nr.:" get mordnung pict "@!" valid mordnung$"PBRL"
Danke
mfg
Wolfgang