stehe gerade vor einem Rätsel.
(Wahrscheinlich eine Kleinigkeit aber ich finde es nicht...)
Ich kann in allen Programmteilen ( XbpDialog) den Curso im SLE beliebig platzieren.
Außer bei einem Dialogfenster.
Code: Alles auswählen
Beispiel 1, Cursor im SLE nicht mit der Maus positionierbar
oEXbp03 := XbpSLE():new( oXbpX, , {136,452}, {450,20}) // Name
oEXbp03:bufferLength := 50
oEXbp03:tabStop := .T.
oEXbp03:dataLink := {|X| IIf( x == NIL, RTrim(cName), cName := x )}
oEXbp03:lbDblClick := {| MP1, uNIL, o| DisablePushButtons(oXbpX), F1_Name( "Name", oXbpX, oXbpBMP, , oEXbp01, oEXbp02, oEXbp03, oEXbp04, oEXbp05, ,"M" ), EnablePushButtons(oXbpX), SetAppFocus(oEXbp04) }
oEXbp03:editable := .T.
oEXbp03:clipSiblings := .T.
oEXbp03:setFontCompoundName( "14.Lucida Console" )
oEXbp03:setColorFG( GRA_CLR_BLACK )
oEXbp03:setColorBG( GRA_CLR_PALEGRAY )
oEXbp03:align:= XBPSLE_LEFT
oEXbp03:border := .F.
oEXbp03:create()
oEXbp03:SetData()
oEXbp03:killInputFocus := { |x,y,oSLE| oEXbp03:getData()}
AAdd ( aEditControls, oEXbp03 )
Beispiel 2, Cursor im SLE mit der Maus positionierbar
oXbp1a := XbpSLE():new( oXbp0, , {10,655}, {430,28}, { { XBP_PP_BGCLR, XBPSYSCLR_ENTRYFIELD } } )
oXbp1a:tabStop := .T.
oXbp1a:Bufferlength:=40
oXbp1a:dataLink := {|X| IIf( x == NIL, trim(bank1), bank1 := x ) }
oXbp1a:setFontCompoundName( "16.Times New Roman" )
oXbp1a:setColorFG( GRA_CLR_BLACK )
oXbp1a:create()
oXbp1a:setdata()
oXbp1a:killInputFocus := { |x,y,oSLE| oSLE:getData() }
Kann mir jemand sagen was ich gerade nicht sehe?????
Danke im Voraus
Gruß Stefan