Hallo,
kann man bei einem XBPMLE auf eine Variable die Feldlänge begrenzen?
Gruß Stefan
XBPMLE Feldlänge begrenzen?
Moderator: Moderatoren
- Manfred
- Foren-Administrator
- Beiträge: 21211
- Registriert: Di, 29. Nov 2005 16:58
- Wohnort: Kreis Wesel
- Hat sich bedankt: 210 Mal
- Danksagung erhalten: 67 Mal
Re: XBPMLE Feldlänge begrenzen?
Du könntest vieleicht über den Keyboard Slot immer abfragen, wieviel gerade verbraucht wurde und dann entsprechend mit Anzeigen oder Nachrichten reagieren.
Gruß Manfred
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
- AUGE_OHR
- Marvin
- Beiträge: 12911
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: XBPMLE Feldlänge begrenzen?
wie Manfred vorschlug kannst du ja die Position des Cursor ermitteln und darauf reagieren.mini990 hat geschrieben:kann man bei einem XBPMLE auf eine Variable die Feldlänge begrenzen?
Code: Alles auswählen
::oMemotext:keyBoard := {|nKey, uNIL, oSelf| ::MyKey(nKey,oSelf) }
METHOD CalDetail:MyKey(nKey,oMLE)
LOCAL nEnde := oMLE:pos()
LOCAL nLine := oMLE:lineFromChar(nEnde)
LOCAL nZeil := oMLE:charFromLine(nLine)
LOCAL cText := "Row "+LTRIM(STR(nLine))+" / Col "+LTRIM(STR(nEnde-nZeil))
LOCAL cKey := UPPER(CHR(nKey))
DO CASE
CASE nLine > 100
// do what you want
CASE nKey = xbeK_CTRL_Z
oMLE:undo()
ENDCASE
// Statusbar
::StatText:SetCaption(cText)
RETURN self
die EM_* Konstanten gelten auch für "Edit" (XbpSLE) und RTF womit man eigentlich das 32Kb Limit erweitert ...
gruss by OHR
Jimmy
Jimmy