hoffe das mir hier jemand helfen kann.
Habe generell folgendes Problem mit dem EDIT Mode, egal ob Array oder Dbf Daten.
Der Edit Modus wird verlassen ohne das die letzte Zeile editiert werden kann, aber nur
wenn die Anzahl der Zeilen > der sichtbaren Zeilen im Browse Fenster sind.
Dieses Problem wurde vor langer Zeit mal in einem Build behoben, war aber dann beim folgenden
wieder vorhanden.
Da anscheinend andere Anwender dieses Problem nicht haben, mache ich generell irgendwas falsch,
oder mein Englisch ist so unverständlich das Roger nicht versteht wo das Problem ist.
In beiden Fällen bin ich für eine Hilfe dankbar.
Hier mal ein kurzes Beispiel:
Code: Alles auswählen
static function wahl_imp_lg
Local mess33 := ''Nummer'
Local mess34 := 'übernehmen'
Local cWahlTxt := 'Auswahl'
Local nMaxRow := oCrt:currentSize()[2]-40, nMaxCol := oCrt:currentSize()[1]-2
Local aPos := oCrt:currentPos(), oBrowse, nZeiger, GetOptions, lOk, i:= 0
Local nMaxLength := 0, lAusgewaehlt := .f.
@ 0,0 DCBROWSE oBrowse DATA aLMLgNr SIZE 26,15 ;
EDIT xbeBRW_ItemSelected MODE ;
iif ( ("fi")->across, DCGUI_BROWSE_EDITACROSSDOWN ,DCGUI_BROWSE_EDITDOWN ) ;
ITEMSELECTED {||DC_ReadGuiEvent(DCGUI_EXIT_OK,GetList) } ;
POINTER nZeiger
DCSETPARENT oBrowse
DCBROWSECOL ELEMENT 1 HEADER mess33 WIDTH 6 PROTECT {|| .t. }
DCBROWSECOL ELEMENT 2 HEADER mess34 WIDTH 8 PICTURE 'Y'
DCSETPARENT TO
DCHOTKEY xbeK_F1 ACTION { || my_help( dc_getactiveinfo( GetList ) ) } // F1
DCHOTKEY xbeK_F12 ACTION { || DC_ReadGuiEvent( DCGUI_EXIT_OK, GetList ) } // F12
DCGETOPTIONS BUTTONALIGN DCGUI_BUTTONALIGN_CENTER ;
COLORGETS {{GRA_CLR_BLACK,GRA_CLR_YELLOW}} ;
ROWOFFSET ("fi")->zeiloff
DCREAD GUI ;
OPTIONS GetOptions ;
FIT ;
ADDBUTTONS ;
MODAL ;
SETAPPWINDOW ;
to lOk ;
TITLE cWahltxt ;
EVAL {|o|SetAppFocus(oBrowse:GetColumn(1))}
return lOk