NEdit.dll

cyberangle

Hallo Leute,

habe vor Jahren von Franks Seite eine DLL (NEdit) heruntergeladen. mit dieser Dll war es ganz leicht möglich EDIT's nur die nummerische Eingabe zu erlauben. Alle Eingabe bis auf Komma, Punkt und Zahl wurden ignoriert.

Diese DLL ist mir leider verloren gegangen und auf Franks Seite ist sie auch nicht mehr. Hat sie jemand von Euch noch? Kann sie mir Jemand besorgen?

Frank A.

Viele meiner älteren Tools findest du auf Jacs Seite: bloody random - Frank Abbings Software
Die Dll ist auch dabei, obwohl du das heute auch in reinem XProfan-Code per Subclassing realisieren kannst.

Jac de Lad

Jupp.

cyberangle

Vielen Dank an Euch,

das Mit dem Subclassen hatte ich schon gelesen, aber das übersteigt noch meine Programmierkünste.

Jac de Lad

Das ist eigentlich nicht schwer. Sogar ziemlich einfach.

Volkmar

Hallo cyberangle

In Deinem speziellen Falle geht es auch ohne DLL und Subclassing.

Code

$H Messages.PH
Def %SIG 0  ' Wenn 1, dann + und - zulassen
Def %HEX 0  ' Wenn 1, dann HEX-Zahlen zulassen


Proc EditNum
  Var String Zeile = GetText$(Editor)
  Declare String Sel, Out
  SendMessage(Editor, ~EM_SETSEL, 0, Len(Zeile))
  WhileLoop Len(Zeile)
    Sel = Mid$(Zeile, &loop, 1)
    Select Sel
      CaseOf "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", ".", ","
        Out = Out + Sel
      CaseOf "+", "-"
        Case %Sig : Out = Out + Sel
      CaseOf "a", "b", "c", "d", "e", "g", "A", "B", "C", "D", "E", "F"
        Case %HEX : Out = Out + Sel
    EndSelect
  EndWhile
  SendMessage(Editor, ~EM_REPLACESEL, 0, Addr(Out))
  SendMessage(Editor, ~EM_SETSEL, Len(Out), Len(Out))
EndProc


CLS
Var Int Editor = Create("Edit", %hwnd, "", 4, 4, 128, 22)
While 1
  WaitInput
  If GetFocus(Editor)
    EditNum
  EndIf
EndWhile
End

Alles anzeigen

jac Subclassing ist einfach, aber man muß auch wissen, welche Botschaften in jeweiligen Control zu behandeln sind und welche Parameter die haben. Da muß sich der Einsteiger erst mal durchwuseln. Und so lange ist es dann eben doch nicht ganz einfach.

Gruß Volkmar

p. specht

Für Profan 11.2a gibts noch ein Problem: Das Auslesen des Wertes aus dem Feld will nicht so recht klappen, der Cursor ist dort gefangen. Oder mach ich was falsch? Hier meine Versionsrückübersetzung des Programms von Volkmar:

Code

$H Messages.PH
Def %SIG 0  ' Wenn 1, dann + und - zulassen
Def %HEX 0  ' Wenn 1, dann HEX-Zahlen zulassen


Proc EditNum
  Var Zeile$ = GetText$(Editor&)
  Declare Sel$, Out$
  SendMessage(Editor&, ~EM_SETSEL, 0, Len(Zeile$))
  WhileLoop Len(Zeile$)
    Sel$ = Mid$(Zeile$, &loop, 1)
    Select Sel$
      CaseOf "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", ".", ","
        Out$ = Out$ + Sel$
      CaseOf "+", "-"
        Case %Sig : Out$ = Out$ + Sel$
      CaseOf "a", "b", "c", "d", "e", "g", "A", "B", "C", "D", "E", "F"
        Case %HEX : Out& = Out& + Sel&
    EndSelect
  EndWhile
  SendMessage(Editor&, ~EM_REPLACESEL, 0, Addr(Out$))
  SendMessage(Editor&, ~EM_SETSEL, Len(Out$), Len(Out$))
EndProc


CLS
Var Editor& = Create("Edit", %hwnd, "", 4, 4, 128, 22)
While 1
  WaitInput
  If GetFocus(Editor&)
   EditNum
  EndIf
EndWhile
End

Alles anzeigen

ts-soft

Wäre schön, wenn jemand noch eine SubClass Version posten könnte,
weil irgendwie funzt das bei mir nie so richtig, hab da bestimmt was
verkehrt verstanden

Code

$H Messages.PH
CLS


Var Editor& = Create("Edit", %hwnd, "", 100, 100, 128, 22)
SubClass Editor&, 1


While 1
  WaitInput
EndWhile
End


SubClassProc
  If SubClassMessage(Editor&, ~WM_KEYDOWN)
    Select &sWParam
      CaseOf 65
        Set("WinProc", 0)
      Otherwise
        Set("WinProc", 1)
    EndSelect
  EndIf
EndProc

Alles anzeigen

Bei einem kleinen a sollte jetzt die WindowsProc nicht mehr aufgerufen
werden, somit das a nie geschrieben werden, dem ist aber nicht so.

Deshalb wäre ein Beispiel schön.

THFR

Ohne SubClass und NEdit.dll verwende ich :

Code

Proc NUMWERT  ' AUSWERTUNG auf Zeichen und Stellen
    Parameters ED.N&,ED.N%
    var a$="abcdefghijklmnopqrstuvwxyz"
    a$=a$+Upper$("abcdefghijklmnopqrstuvwxyz")
    a$=a$+"!§$%&/()=?´´*':;,-_²³{[]}\^°<>|++-"
    var c$=""
    WhileLoop len(a$)
      c$ = MID$(a$,&Loop,1)        ' c$= der nte Stringteil
      Settext ED.N&,@Translate$(gettext$(ED.N&),c$,"")  ' unzulässige löschen
      Settext ED.N&,@Translate$(gettext$(ED.N&),"..",".")  ' doppelte löschen
    EndWhile
    a$=trim$(gettext$(ED.N&))


    WhileLoop ED.N%+1
      @Match$("~.", a$)
      If (%MatchPos>0) AND (%MatchPos<ED.N%+1)
        a$="0"+a$
      EndIf
    EndWhile


    If len(a$)=ED.N%
      case @IsKey(8):a$=left$(a$,len(a$))    
      casenot @IsKey(8):a$=left$(a$,ED.N%)+"."
    EndIf


    SetText ED.N&,a$
    sendmessage(ED.N&,$00B1,len(gettext$(ED.N&)),len(gettext$(ED.N&))+1) 'Cursor ans Ende


EndProc


Proc CheckChars


    Parameters CC_I%,CC_Erlaubt$
    Declare CC_GT$,CC_ZW$, CC_x%
    CC_GT$= Gettext$(CC_I%)
    CC_x%=1


    WhileLoop Len(CC_GT$)
        CC_ZW$ = Mid$(CC_GT$,CC_x%,1)
        If Instr(CC_ZW$,CC_Erlaubt$)=0
           CC_GT$=Translate$(CC_GT$,CC_ZW$,"")
           BREAK
           dec CC_x%
        EndIf
        inc CC_x%
    EndWhile
    Settext CC_I%, CC_GT$
    sendmessage( CC_I%,$00B1,CC_x%-1,CC_x%-1)
EndProc


Declare Ed1%, Ed2%
Cls
Ed1%=CreateEdit(%hWnd,"",20,40,100,22)


Ed2%=CreateEdit(%hWnd,"",20,80,100,22)
@sendmessage(Ed2%,$00C5,6,0)  ' zul. 6 Zeichen : nnn.nn


SetFocus( Ed1%)
While 0=0
  WaitInput
  case GetFocus(Ed1%) AND (%MouseKey=0): CheckChars Ed1%,"0123456789." 'Handle, zul. Zeichen
  case GetFocus(Ed2%) AND (%MouseKey=0): NUMWERT Ed2%,3 'Handle, Zeichen vorm Komma
EndWhile


End

Alles anzeigen

Nicht optimal, aber es geht halt.

Gruß Thomas

Volkmar

Hallo

@P.Specht: Eigentlich hast Du fast alles richtig gemacht, aber:
Case %HEX : Out$ = Out$ + Sel$
Ist aber eigentlich egal, muß trotzdem gehen und geht bei mir auch unter XPofan 11 und wenn ich die ganze Select-Geschichte durch IFs ersetze auch unter XProfan 8. Die Botschaft ~Em_SetSel soll ja bei diesen Parametern den Cursor immer hinter die Einfügestelle setzen (Anfang und Ende der Markierung identisch markiert nichts und setzt den Cursor auf diese Position, also Länge der korrigierten Einfügung). Aber möglicherweise wäre SendMessage(Editor&, ~EM_SETSEL, -1, Len(Out$)) besser. So habe ich es gerade in der Beschreibung von SetSel gefunden. -1 in wParam markiert nichts und setzt Cursor auf Position in lParam. Meine schnelle Idee geht also möglicherweise nicht überall gleichermaßen.

ts-soft: 65 ist der Großbuchstabe A. Weiterhin solltest Du statt wm_keydown wm_Char verwenden, dann klappt das.

Gruß Volkmar

p. specht

Volkmar: Sowohl die Originalversion als auch SendMessage(Editor&, ~EM_SETSEL, -1, Len(Out$)) korrigieren zwar an der richtigen Stelle, hüpfen aber sofort danach ans jeweilige Ende. Ist das Absicht?

Volkmar

Jetzt wird mir das Problem klar. Ich lese immer den kompletten Editorinhalt und schreibe den korrigiert zurück. Damit steht der Cursor wirklich immer am Ende. Mittenrein was korrigieren wird dann wirklich zur Qual. Ich habe eben mal auf die Schnelle versucht, was zu ändern, aber dann kommt bisher Unsinn raus.

Gruß Volkmar

Volkmar

Ich habe es nun doch geschafft. Hier mal in der 11er Version. Für X2 wäre die neu eingeführte Variable SelPos entsprechend einzubauen. Es wird nun immer nur der Teil bis zur aktuellen Schreibposition bearbeitet.

Code

$H Messages.PH
Def %SIG 0  ' Wenn 1, dann + und - zulassen
Def %HEX 0  ' Wenn 1, dann HEX-Zahlen zulassen


Proc EditNum
  Declare Sel$, Out$, SelPos&
  SendMessage(Editor&, ~EM_GETSEL, 0, Addr(SelPos&))
  SendMessage(Editor&, ~EM_SETSEL, 0, SelPos&)
  Var Zeile$ = Left$(GetText$(Editor&), SelPos&)
  WhileLoop Len(Zeile$)
    Sel$ = Mid$(Zeile$, &loop, 1)
    Select Sel$
      CaseOf "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", ".", ","
        Out$ = Out$ + Sel$
      CaseOf "+", "-"
        Case %Sig : Out$ = Out$ + Sel$
      CaseOf "a", "b", "c", "d", "e", "g", "A", "B", "C", "D", "E", "F"
        Case %HEX : Out& = Out& + Sel$
    EndSelect
  EndWhile
  SendMessage(Editor&, ~EM_REPLACESEL, 0, Addr(Out$))
  SendMessage(Editor&, ~EM_SETSEL, -1, Len(Out$))
EndProc


CLS
Var Editor& = Create("Edit", %hwnd, "", 4, 4, 128, 22)
While 1
  WaitInput
  If GetFocus(Editor&)
   EditNum
  EndIf
EndWhile
End

Alles anzeigen

Ich hoffe, daß es nun zufriedenstellend läuft.

Gruß Volkmar

Volkmar

Für ts-soft nun mal die Version mit Subclass soweit aufgebaut. Hat nun die gleichen Möglichkeiten.

Code

$H Messages.PH
CLS


Def %SIG 0  ' mit 1 + und - erlauben
Def %HEX 0  ' mit 1 HEX-Zahlen erlauben


Var Editor& = Create("Edit", %hwnd, "", 100, 100, 128, 22)
SubClass Editor&, 1


While 1
  WaitInput
EndWhile
End


SubClassProc
  If SubClassMessage(Editor&, ~WM_CHAR)
    'Set("WinProc", 0)
    Select &swparam
      CaseOf 8, 44, 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
        ' 8 notwendig für Korrektur mittels Rücktaste
        ' 43 für +
        ' 45 für -
        Set("WinProc", 1)
      CaseOf 43, 45
        If %SIG
          Set("WinProc", 1)
        Else
          Set("WinProc", 0)
        EndIf
      CaseOf 65, 66, 67, 68, 69, 70, 97, 98, 99, 100, 101, 102
        If %HEX
          Set("WinProc", 1)
        Else
          Set("WinProc", 0)
        EndIf
      Otherwise
        Set("WinProc", 0)
    EndSelect
  EndIf
EndProc

Alles anzeigen

Gruß Volkmar

ts-soft

Danke, hab also nur das falsche Ereignis genutzt, ~WM_CHAR wäre richtig

cyberangle

Vielen vielen Dank Euch allen, jetzt habe ich Beispiele, in die ich mich erst einmal hineinfinden muß.

ts-soft

Ich würde Dir diese Version: https://www.paules-pc-forum.de/forum/helfer-t…html#post866418
von Volkmar empfehlen, sie entspricht genau dem, was die DLL macht.
Ausserdem werden die falschen Zeichen entfernt, bevor sie dargestellt werden. Ist IMHO am professionelsten

//edit
Diese Linkumwandlung ist schrecklich, es ist ein interner link zum Beitrag!

p. specht

Danke, klappt super!

THFR

Hier noch ein SubClass-Beispiel von iF der Vollständikeit wegen. Wird für nummerische Felder in einer dbf gebraucht, da das Feldformat zum sicheren Speichern eingehalten werden sollte.

Code

var erlaubteZeichen$="1234567890."


Def GetSysColor(1) !"USER32","GetSysColor"
cls GetSysColor(15)
UseFont "Arial",15,0,0,0,0
SETDIALOGFONT 1
CreateText(%hwnd,"num. Eingabe max.: nn.nn",30,120,200,22)
var Ed&=Create("Edit",%hwnd,"",30,165,80,20)
SetFocus(Ed&)
subclass ed&,1//true


While 1


    WaitInput
    case %key=2 : BREAK


EndWhile


End


subClassProc


    if &sWnd=ed&


        if %sMessage=258//wm_char


            var p&=hiWord(sendMessage(ed&,$B0,0,0))//em_getSel
            var s$=getText$(ed&)
            var ch$=chr$(&swParam)


            ifnot instr(ch$,erlaubteZeichen$)


                if &swParam=8


                    if p&


                        if p&=3


                            s$=del$(s$,p&,1)
                            dec p&,1


                        endif


                        s$=del$(s$,p&,1)
                        dec p&,1


                    endif


                endif


                s$=translate$(s$,".","")
                case len(s$)>1 : s$=ins$(".",s$,3)
                setText ed&,s$
                sendMessage(ed&,$B1,p&,p&)//em_setSel


            else


                s$=ins$(ch$,s$,p&+1)
                s$=translate$(s$,".","")
                case len(s$)>1 : s$=ins$(".",s$,3)
                s$=mid$(s$,1,5)
                setText ed&,s$
                case p&=1 : add p&,1
                sendMessage(ed&,$B1,p&+1,p&+1)//em_setSel


            endif


            set("winproc",0)


        endif


    endif


endProc

Alles anzeigen

Gruß Thomas

ts-soft

@THFR

Die ganzen Stringfunktionen in der SubProc machen das ganze nicht gerade
sicher. Da würde ich eher das Beispiel von Volkmar erweitern. Zeichenlänge
kann man auch von vornherein per SendMessage auf 5 Zeichen begrenzen
und dann den Punkt automatisch setzen.

Jetzt mitmachen!