(1.111)  S'inscrire

Français
Forum

Erledigt: md5 et Autotext

 
- page 1 -



Michael
Punkt
allô Zusammen,

hätte là nochmal deux Fragen:

1.) j'ai une mySQL-DB sur meinem Linux-Server et là sommes Benutzerpasswörter md5-verschlüsselt. avec Xprofan peux je zwar Ver- et entschlüsseln, mais md5 beherrscht Xprofan pas.
je voudrais aussi seulement ungern qui Tabelle ajuster, là qui md5-verschlüsselten données aussi weiterhin avec qui Browserversion comme PHP-Script verglichen volonté devoir.

Im Forum habe je quoi de einer Unit gelesen qui sur den Namen md5.pcu (?) hört.
malheureusement scheint cet Unit pas plus trop existieren, car je erhalte statt einer Downloadmöglichkeit seulement une le vide page (Template qui HP de XProfan.com ist zwar trop voyons, mais plus aussi pas.)
Gibts cela pas plus? si doch, wohin pourrait je qui herbekommen?

2.) Autotext ... ist peut-être pas qui entier korrekte Bezeichnung, mais je mon avec cela cela, quoi beispielsweise mon Firefox avec Eingabefeldern pouvoir. Sprich, habe je irgendwann la fois cela mot "Auto" dans dem Eingabefeld eingetragen et je tippe seulement den Buchstaben "A", erscheint "Auto" comme Auswahlmöglichkeit,

Ist cela possible, so quelque chose aussi avec Xprofan trop realisieren, ou bien ist cela FF, bzw. seulement Brwoserspezifisch possible?
malheureusement habe je aucun répondre im Forum ou bien dans qui Hilfedatei trouvé.

Nutze zur Zeit seulement cela "nackte" Xprofan. XPSE folgt dans qui prochain Zeit.

Viele Grüße,
Michael
 
XProfan 11, Windows XP (2GB RAM), XProfEd
08.08.2009  ▲
Vollständiges citation
Absatzweise CitationZeilenweise Citation
 



 
- page 2 -



Jörg
Sellmeyer
cela devrait Dir weiterhelfen:
KompilierenMarqueSéparation
 $H messages.ph
Cls
Def CBN_EDITCHANGE(1) If(%message=$0111,((&lparam = &(1)) & (HiWord(&wparam) = 5)),0)
Def CB_GetSelStart(1) LoWord(SendMessage(&(1),~CB_GETEDITSEL,0,0))
Declare Edit&,Liste&,n%
Edit& = Create("ChoiceBox",%hwnd,3,300,10,200,240)
Liste& = Create("List",1)
AddString(Edit&,"abcdefg")
AddString(Edit&,"ffafff")
AddString(Edit&,"fdafff")
AddString(Edit&,"test")
AddString(Edit&,"hurra")
AddString(Edit&,"auch ein längerer Text geht")
SetFocus(Edit&)

While 1

    WaitInput

    If CBN_EDITCHANGE(Edit&)

        SendMessage(Edit&,~CB_SHOWDROPDOWN,1,0)wenn man das wegläßt, hats auch was
        n% = CB_GetSelStart(Edit&)
        SelectString(Edit&,-1,GetText$(Edit&))
        SendMessage(Edit&,~CB_SETEDITSEL,0,MakeLong(n%,-1))

    EndIf

Wend
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
14.08.2009  ▲
 




Andreas
Miethe

ou bien cela
KompilierenMarqueSéparation
###############################
XProfan 11.2 Grundgerüst
###############################
###############################
Imports
###############################
###############################
###############################
Header-Dateien
 $H windows.ph
 $H Messages.ph
###############################
###############################
Definitionen
###############################
DEF &TRUE 1
DEF &FALSE 0
###############################
###############################
Strukturen
###############################
###############################
###############################
Globale Variablen
###############################
Var WindowWidth&  = %maxx/3*2
Var WindowHeight& = %maxy/3*2
Var WindowTitle$  = "Grundgerüst"
Var LenTextSave& = 0
###############################
###############################
Fenster zunächst unsichtbar erstellen
WindowTitle WindowTitle$
windowStyle $250
Window 0,0-0,0
Useicon "A"
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~ANSI_VAR_FONT)
###############################
Fenster-Aufbau
###############################
Var Choice& = Create("ChoiceBox", %hwnd, 3,10,10,200,400)
AddString(Choice&,"Autocomplete")
AddString(Choice&,"XProfan")
AddString(Choice&,"Besucher")
AddString(Choice&,"Gast")
AddString(Choice&,"Profan")
AddString(Choice&,"ProfanFans")
AddString(Choice&,"SendMessage")
AddString(Choice&,"PostMessage")
AddString(Choice&,"Montag")
AddString(Choice&,"Dienstag")
AddString(Choice&,"Mittwoch")
AddString(Choice&,"Donnerstag")
AddString(Choice&,"Freitag")
AddString(Choice&,"Samstag")
AddString(Choice&,"Sonntag")
###############################
SubClassing einschalten
###############################
SubClass %HWnd, 1
###############################
Style defineren und anzeigen
###############################
SetStyle %hwnd,0,$14CF2000
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd,~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
~Movewindow(%hwnd,%maxx/2-WindowWidth&/2,%maxy/2-WindowHeight&/2,WindowWidth&,WindowHeight&,&TRUE)
###############################
Hautpschleife
#############
Var Ende& = 0

Whilenot Ende&

    Waitinput

    If %key = 2

        OnEnd()

    Endif

EndWhile

SubClassing-Procedur
###############################

SubClassProc

    If SubClassMessage(%hWnd, ~WM_COMMAND)

        If HiWord(&swParam) = ~CBN_EDITCHANGEdas Edit-Control der Combobox ist geändert worden

            Var Combotext$ = Upper$(GetText$(&slParam))
            Var Textlen& = Len(Combotext$)
            Var MaxItem& = GetCount(Choice&)-1
            Var hComboEdit& = ~ChildWindowFromPoint(&slParam, 5,5)Edit-Control ermitteln um den Cursor zu setzen

            If TextLen& <= LenTextSave&

                LenTextSave& = TextLen&

            else

                If Textlen& > 1Reaktion erst wenn 2 Zeichen einegeben sind

                    Whileloop 0,MaxItem&

                        If ComboText$ =  Upper$(Left$(Getstring$(&slParam,&Loop),TextLen&))

                            SelectString(&slParam,-1,Combotext$)
                            SendMessage(hComboEdit&, ~EM_SETSEL, TextLen&, -1)Cursor im Edfit setzen
                            LenTextSave& = TextLen&
                            Break

                        EndIf

                    EndWhile

                Endif

            Endif

        Endif

    Endif

EndProc

###############################
Ende-Procedur
###############################

Proc OnEnd

    Ende& =span class=s2>1

ENDPROC

###############################
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
14.08.2009  ▲
 



Juhu!

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009
trop 2: c'est imho une Choicebox avec besonderem Stil, den je mais malheureusement pas auswendig kenne.

ensuite prends dir simple fois le Zeit et schlag pour et präsentiere deinen Style. Daran wäre je aussi intéressé, glaube mais pas à sa Existenz...


 
14.08.2009  ▲
 




Dieter
Zornow
oui beide Codes marcher sans, dass qui Choicebox une besonderen Style bekommt. chez Jörgs Code qui joli simple ist verschwindet mais chez mir qui Cursor pour außerhalb des Fensters et venez seulement wieder zurück si le Choicebox wieder geschlossen ist, c'est unschön.

chez Andreas Code c'est moi unklar pourquoi qui Windowstyle seulement sur $250, cela est sans Titelleiste gesetzt wird et ensuite unten wieder sur avec Titelleiste gesetzt wird. si je dessus juste z.B. Windowstyle 63 wähle gehts doch oui c'est ca si bien. Könnte mich la fois quelqu'un aufklären.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
14.08.2009  ▲
 




Andreas
Miethe

allô Dieter,

qui tête-Code est un Template cela toujours geladen wird, si je per rechter Bouton de la souris avec "Neu" un nouveau PRF-Dokument anlege. Sinn en ist ( Fensterstyle ), dass cela la fenêtre d'abord unsichtbar angelegt wird, ensuite volonté qui Fensterelement angelegt et seulement si alles fertig ist, wird cela la fenêtre angezeigt.
 
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage :  [...] 
14.08.2009  ▲
 




Dieter
Zornow
allô Andreas,

oui cela leuchtet mir un, je hatte mich seulement gewundert weil es pour cet Snippet pas notwendig ist. si cela mais dein Template pour alle deine Programme ist ist cela naturellement verständlich, là sonst qui Titelleiste trop voyons wäre.

merci pour qui Aufklärung.

Salut

Dieter
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
14.08.2009  ▲
 




Frank
Abbing
iF, Beitrag=53862, Zeitpunkt=14.08.2009
Juhu!

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009

iF, Beitrag=53862, Zeitpunkt=14.08.2009
trop 2: c'est imho une Choicebox avec besonderem Stil, den je mais malheureusement pas auswendig kenne.

ensuite prends dir simple fois le Zeit et schlag pour et präsentiere deinen Style. Daran wäre je aussi intéressé, glaube mais pas à sa Existenz...




ne...aucune Style, Subclassing...

mais joli kompakt, qui Listbox integriert. Sieht bien aus, Andreas!
Pour très viele Einträge empfielt sich ensuite peut-être besser une externe Listbox.
 
14.08.2009  ▲
 




Michael
Punkt
voilà oui ensuite doch un paire Zeilen plus notwendig comme mon kläglicher Versuch.

Habe beide Beispiele ausprobiert et cela de Adreas ist wirklich Super.
l'autre de Jörg ist zwar joli kompakt, doch aussi mich stört, dass qui Mauspfeil veschwindet et seulement wiederkommt, si cela Pulldown weg ist.
et encore une kleinen le crochet hat es. je peux ne...aucune mot verwenden/eintippen, quoi pas dans qui Addstring hinterlegt ist. mais quand même merci. Pour une anderen Bereich peux je cela aussi bien verwenden.

aussi si je einiges encore pas verstehe (justement quoi den API-partie et qui SendMessages betrifft), so ist cela un bon Code zum apprendre.

j'ai Andreas Quellcode eh bien aussi modifiziert um une ini-Dossier trop verwenden um neue eingegebene Worte Sauver trop peut, so loin vous encore pas dans qui liste vorhanden sommes.
j'ai hierfür deux Funktionen gebaut. une zum einlesen, une à écrire qui ini-Dossier.

malheureusement suis je eh bien mais à einem Punkt angelangt, à dem je pas plus weiterkomme um cela Ganze trop perfektionieren.
und dir um cela Entfernen eines Eintrags mittels qui "ENTF"-bouton.

qui Abfrage avec @IsKey(~VK_DELETE) funktioniert chez mir seulement, si cela Pulldown pas trop voyons ist et ensuite braucht es oui pas trop marcher.

comment erreiche je, cela chez geöffnetem Pulldown-Menue et einem ausgewählten Menuepunkt qui entsprechende Eintrag gelöscht wird?
Hierzu ist entier sûrement wieder un SendMessage notwendig, ou bien?

je hatte es avec @GetState et @GetCount versucht, mais chez beidem kam qui Fehlermeldung, le moi cela pour cette Typ pas verwenden pourrait.

ici la fois qui Avancé vollständige Quellcode:
KompilierenMarqueSéparation
###############################
XProfan 11.2 Grundgerüst
###############################
###############################
Imports
###############################
###############################
###############################
Header-Dateien
 $H windows.ph
 $H Messages.ph
###############################
###############################
Definitionen
###############################
DEF &TRUE 1
DEF &FALSE 0
###############################
###############################
Strukturen
###############################
###############################
###############################
Globale Variablen
###############################
Var WindowWidth&  = %maxx/3*2
Var WindowHeight& = %maxy/3*2
Var WindowTitle$  = "Grundgerüst"
Var LenTextSave& = 0
Declare intern_AddString$
###############################
###############################
Fenster zunächst unsichtbar erstellen
WindowTitle WindowTitle$
windowStyle $250
Window 0,0-0,0
Useicon "A"
CLS ~GetSysColor(~COLOR_BTNFACE)
SetDialogFont ~GetStockObject(~ANSI_VAR_FONT)
###############################
Fenster-Aufbau
###############################
Var Choice& = Create("ChoiceBox", %hwnd, 3,10,10,200,400)
myCBox_Readlist(Choice&, "Combo1", "")
var button_ok&   = Create("Button",%hwnd,"Ok",3,80,100,25)
###############################
SubClassing einschalten
###############################
SubClass %HWnd, 1
###############################
Style defineren und anzeigen
###############################
SetStyle %hwnd,0,$14CF2000
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd,~GCL_STYLE)- ~CS_HREDRAW - ~CS_VREDRAW))
~Movewindow(%hwnd,%maxx/2-WindowWidth&/2,%maxy/2-WindowHeight&/2,WindowWidth&,WindowHeight&,&TRUE)
###############################
Hautpschleife
#############
Var Ende& = 0

Whilenot Ende&

    Waitinput

    If @GetFocus(button_ok&)

        if (@GetText$(Choice&) <> "")

            myCBox_Writelist("Combo1", intern_AddString$, @GetText$(Choice&))
            myCBox_Readlist(Choice&, "Combo1", @GetText$(Choice&))

        endif

    EndIf

    If @IsKey(~VK_DELETE) AND .... und hier verließen sie ihn

        myCBox_DelEntryList

    endif

    If %key = 2

        OnEnd()

    Endif

EndWhile

SubClassing-Procedur
###############################

SubClassProc

    If SubClassMessage(%hWnd, ~WM_COMMAND)

        If HiWord(&swParam) = ~CBN_EDITCHANGEdas Edit-Control der Combobox ist geändert worden

            Var Combotext$ = Upper$(GetText$(&slParam))
            Var Textlen& = Len(Combotext$)
            Var MaxItem& = GetCount(Choice&)-1
            Var hComboEdit& = ~ChildWindowFromPoint(&slParam, 5,5)Edit-Control ermitteln um den Cursor zu setzen

            If TextLen& <= LenTextSave&

                LenTextSave& = TextLen&

            else

                If Textlen& > 1Reaktion erst wenn 2 Zeichen einegeben sind

                    Whileloop 0,MaxItem&

                        If ComboText$ =  Upper$(Left$(Getstring$(&slParam,&Loop),TextLen&))

                            SelectString(&slParam,-1,Combotext$)
                            SendMessage(hComboEdit&, ~EM_SETSEL, TextLen&, -1)Cursor im Edfit setzen
                            LenTextSave& = TextLen&
                            Break

                        EndIf

                    EndWhile

                Endif

            Endif

        Endif

    Endif

EndProc

###############################
Ende-Procedur
###############################

Proc OnEnd

    Ende& = 1

EndProc

###############################

Proc myCBox_Readlist

    Parameters CBox$, CBox_Name$, PreSelect$
    Declare position$, x%, AList$
    x%=1
    AList$ = Readini$("D:Comboboxen.dat","Combobox",CBox_Name$)
    intern_AddString$ = AList$
    ClearList CBox$

    while 1

        position$ = @SUBSTR$(AList$,x%,",")

        if (position$ <> "")

            @AddString(CBox$,position$)

        endif

        inc x%
        case position$ = "": Break

    endwhile

    if (PreSelect$ <> "")

        @SelectString(CBox$,-1,PreSelect$)

    endif

    clear position$
    clear AList$

EndProc

Proc myCBox_Writelist

    Parameters CBox_Name$, AList$, newValue$
    Declare position$, x%, duplicate$
    x%=1

    while 1

        position$ = @SUBSTR$(AList$,x%,",")

        if (position$ = newValue$)

            duplicate$ = 1
            break

        endif

        inc x%
        case position$ = "": Break

    endwhile

    if (duplicate$ = 0)

        AList$ = AList$ + "," + newValue$
        writeini "D:Comboboxen.dat","Combobox",CBox_Name$ = AList$

    endif

EndProc

Proc myCBox_DelEntryList

ENDPROC
 
XProfan 11, Windows XP (2GB RAM), XProfEd
15.08.2009  ▲
 




Dieter
Zornow
Versuche es la fois avec "DeleteString(N1,N2)"
avec Getcursel peux du qui numéro des markierten Eintrages ermitteln.
dans qui Profanhilfe sous "Auswahlboxen" findest du alles
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
15.08.2009  ▲
 




Frank
Abbing

je peux ne...aucune mot verwenden/eintippen, quoi pas dans qui Addstring hinterlegt ist. mais quand même merci.


exposition, oui c'est ca pour peux du ensuite une unsichtbare Listbox verwenden, dans qui deine Wörter stehen!
 
15.08.2009  ▲
 



 
- page 3 -



Michael
Punkt
GETCURSEL habe je irgendwie übersehen sur qui Hilfeseite qui Auswahlboxen.
avec cela bekomme je qui richtige numéro, seulement ... comment schaffe je es, dass qui ENTF-bouton im geöffneten Pulldown abgefragt wird?
Solange cela Pulldown-Menue offen ist, reagiert il pas.
je hatte es dans qui tandis que-Hauptschleife avec einem
KompilierenMarqueSéparation
If (@IsKey(~VK_DELETE)) AND (@GetCurSel(Choice&) <> "-1")re>

probiert, mais cela funktioniert pas.
Vermute je richtig, dass cela angezeigte Dropdown wohl aussi une Art eigenes la fenêtre ist et une Abfrage à cette Stelle gar pas marcher peux?

Herausgefunden habe je déjà, dass je avec einem CB_GETDROPPEDSTATE wohl abfragen peux, si un Dropdown sur ou bien trop ist:
KompilierenMarqueSéparation
If SubClassMessage(%hWnd, ~WM_COMMAND)

    var State& = SendMessage(Choice&, ~CB_GETDROPPEDSTATE, 0, 0)

    If (State& = 1)

        print "Die ComboBox ist offen"

    EndIf


12 kB
Hochgeladen:16.08.2009
Downloadcounter: 53
Download
 
XProfan 11, Windows XP (2GB RAM), XProfEd
16.08.2009  ▲
 



Michael Punkt
dass qui ENTF-bouton im geöffneten Pulldown abgefragt wird


je würd simple Schonmal regarder, si z.B. wm_keydown comme nouvelle dans qui SubClassProc landet. cela allez bestimmt aussi besser, mais peut-être un Anfang.

[offtopic]
Dieter Zornow, Beitrag=53863, Zeitpunkt=14.08.2009
oui beide Codes marcher sans, dass qui Choicebox une besonderen Style bekommt.


Frabbing, Beitrag=53867, Zeitpunkt=14.08.2009
ne...aucune Style, Subclassing...


Beide Codes nutzen SubClassing. (pouvoir son cela irgendwelchen Befehlen fest?)

Einmal sur qui SubClassProc et einmal sur Abarbeitung qui Nouvelles, qui WaitInput zum sortir de provoquer.

Styles changement z.B. représentation et/ou bien Comportement des Controls, beispielsweise changement ReadOnly-Styles selten quoi à qui représentation et seulement am Verhalten, wobei Disabled-Styles meist doppelt zuschlagen.
KompilierenMarqueSéparation[/offtopic]
 
16.08.2009  ▲
 



◄

répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Erledigt

8.681 Views

Untitledvor 0 min.
Member 361000504.08.2022
Sven Bader10.09.2021
Walter10.05.2021
Thomas Zielinski01.04.2021
plus...

Themeninformationen

cet Thema hat 7 participant:

iF (8x)
Michael Punkt (6x)
Frank Abbing (5x)
Dieter Zornow (3x)
Andreas Miethe (2x)
Michael Wodrich (1x)
Jörg Sellmeyer (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie