(1.103)  Registro

Español
Foro

Hecho: md5 y Autotext

 
- Página 1 -



Michael
Punkt
¡Hola Zusammen,

hätte como otra vez zwei Fragen:

1.) Yo habe una mySQL-DB en mi Linux-Server y hay son Benutzerpasswörter md5-verschlüsselt. Mit Xprofan kann Yo zwar ver- y entschlüsseln, aber md5 beherrscht Xprofan no.
Yo möchte auch sólo ungern el Tabla ajustar, como el md5-verschlüsselten Daten auch weiterhin con el Browserversion como PHP-Script verglichen voluntad debería.

Im Foro Yo de lo que uno Unit gelesen el en el Namen md5.pcu (?) hört.
Leider scheint esta Unit no mehr a existieren, porque Yo erhalte en lugar de uno Downloadmöglichkeit sólo una vacío Página (Template el HP de XProfan.com Aunque a sehen, aber mehr auch no.)
Gibts el no mehr? Falls doch, wo podría Yo el herbekommen?

2.) Autotext ... es tal vez no el bastante korrekte Bezeichnung, pero yo mi así el, qué por ejemplo mein Firefox con Eingabefeldern macht. Sprich, Yo irgendwann veces el Wort "Auto" en el Eingabefeld eingetragen y yo tippe sólo el Buchstaben "A", erscheint "Auto" como Auswahlmöglichkeit,

Ist el posible, así algo auch con Xprofan a realisieren, oder es el FF, o. sólo Brwoserspezifisch posible?
Leider Yo no Respuesta en el Foro oder en el Hilfedatei gefunden.

Nutze a Tiempo sólo el "nackte" Xprofan. XPSE folgt en el nächsten Tiempo.

Viele Grüße,
Michael
 
XProfan 11, Windows XP (2GB RAM), XProfEd
08.08.2009  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



 
- Página 2 -



Jörg
Sellmeyer
Das müßte Usted weiterhelfen:
KompilierenMarcaSeparación
 $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

oder el
KompilierenMarcaSeparación
###############################
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
Zu 2: Esta es mi humilde opinión una Choicebox con besonderem Stil, el Yo aber por desgracia, no auswendig saber.

Dann nimm dir simplemente veces el Tiempo y schlag después de y präsentiere deinen Style. Daran wäre Yo auch interessiert, glaube pero no a seine Existenz...


 
14.08.2009  ▲
 




Dieter
Zornow
Sí beide Codes trabajo sin, dass el Choicebox una besonderen Style bekommt. En Jörgs Code el schön simplemente es verschwindet pero en me el Cursor después de außerhalb la ventana y kommt sólo otra vez zurück si la Choicebox otra vez geschlossen es, el es unschön.

en Andreas Code me está unklar por qué el Windowstyle sólo en $250, el heißt sin Titelleiste gesetzt se y luego unten otra vez en con Titelleiste gesetzt se. Wenn Yo oben igual z.B. Windowstyle 63 wähle gehts doch genau tan bueno. Könnte mich veces alguien 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

¡Hola Dieter,

el Haupt-Code es una Template el siempre geladen se, si yo por rechter Botón del ratón con "Neu" una neues PRF-Dokument anlege. Sinn su es ( Fensterstyle ), dass el Ventana zuerst unsichtbar creado se, entonces voluntad el Fensterelement creado y sólo si alles fertig es, se el Ventana adecuado.
 
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
¡Hola Andreas,

sí el leuchtet me una, Yo hatte mich sólo gewundert porque lo para dieses Snippet no notwendig es. Si el aber dein Template para todos deine Programas es es el natürlich verständlich, como sonst el Titelleiste a sehen wäre.

Gracias para el Aufklärung.

Saludo

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
Zu 2: Esta es mi humilde opinión una Choicebox con besonderem Stil, el Yo aber por desgracia, no auswendig saber.

Dann nimm dir simplemente veces el Tiempo y schlag después de y präsentiere deinen Style. Daran wäre Yo auch interessiert, glaube pero no a seine Existenz...




Kein Style, Subclassing...

Aber schön kompakt, el Listbox integriert. Sieht bien de, Andreas!
Für muy viele Einträge empfielt se entonces tal vez mejor una externe Listbox.
 
14.08.2009  ▲
 




Michael
Punkt
Como son tan entonces doch unos pocos Zeilen mehr notwendig como mein kläglicher Intento.

Posesiones beide Beispiele ausprobiert y el de Adreas es wirklich Super.
Das otro de Jörg Aunque schön kompakt, doch auch mich stört, dass el Mauspfeil veschwindet y sólo wiederkommt, si el Pulldown weg es.
Und todavía una pequeña Haken ha lo. Puedo kein Wort uso/eintippen, qué no en el Addstring hinterlegt es. Aber trotzdem Gracias. Für una otro Zona kann Yo el auch bien uso.

Auch si yo einiges todavía no verstehe (gerade qué el API-Teil y el SendMessages betrifft), así es el una guter Code para aprender.

Yo habe Andreas Quellcode nun auch modifiziert una ini-Expediente utilizarse en neue eingegebene Worte speichern a puede, así fern ellos todavía no en el Liste disponible son.
Yo esta zwei Características gebaut. Un para einlesen, una para escribir el ini-Expediente.

Leider bin Yo nun aber a una Punkt angelangt, a el Yo no mehr weiterkomme en el Ganze a perfektionieren.
Lo va en el Entfernen uno Eintrags mittels el "ENTF"-Taste.

El Abfrage con @IsKey(~VK_DELETE) funktioniert en me sólo, si el Pulldown no a sehen es y luego braucht lo sí no a trabajo.

Como erreiche Yo, en el geöffnetem Pulldown-Menue y una ausgewählten Menuepunkt el entsprechende Eintrag gelöscht se?
Hierzu es bastante sicher otra vez una SendMessage notwendig, oder?

Tuve lo con @GetState y @GetCount intenta, pero en beidem kam el Fehlermeldung, el Yo el para esta Typ no uso podría.

Hier veces el erweiterte vollständige Quellcode:
KompilierenMarcaSeparación
###############################
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 lo veces con "DeleteString(N1,N2)"
Mit Getcursel kannst du el Nummer des markierten Eintrages ermitteln.
In el Profanhilfe bajo "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

Puedo kein Wort uso/eintippen, qué no en el Addstring hinterlegt es. Aber trotzdem Gracias.


Schau, genau dafür kannst du entonces una unsichtbare Listbox uso, en el deine Wörter posición!
 
15.08.2009  ▲
 



 
- Página 3 -



Michael
Punkt
GETCURSEL Yo irgendwie übersehen en el Hilfeseite el Auswahlboxen.
Damit bekomme Yo el richtige Nummer, sólo ... como schaffe Yo, dass el ENTF-Taste en el geöffneten Pulldown abgefragt se?
Solange el Pulldown-Menue offen es, reagiert él no.
Tuve lo en el mientras que-Hauptschleife con un
KompilierenMarcaSeparación
If (@IsKey(~VK_DELETE)) AND (@GetCurSel(Choice&) <> "-1")re>

probiert, aber el funktioniert no.
Vermute Yo correcto, dass el angezeigte Dropdown wohl auch una Art propio Ventana es y una Abfrage a dieser Punto nada trabajo kann?

Herausgefunden Yo ya, dass I, con una CB_GETDROPPEDSTATE wohl abfragen kann, si una Dropdown en oder a es:
KompilierenMarcaSeparación
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
Ladeanzahl: 53
Descargar
 
XProfan 11, Windows XP (2GB RAM), XProfEd
16.08.2009  ▲
 



Michael Punkt
dass el ENTF-Taste en el geöffneten Pulldown abgefragt se


Yo würd simplemente schonmal schauen, si z.B. wm_keydown como Nachricht en el SubClassProc landet. Es determinado auch mejor, aber tal vez una Anfang.

[offtopic]
Dieter Zornow, Beitrag=53863, Zeitpunkt=14.08.2009
Sí beide Codes trabajo sin, dass el Choicebox una besonderen Style bekommt.


Frabbing, Beitrag=53867, Zeitpunkt=14.08.2009
Kein Style, Subclassing...


Beide Codes nutzen SubClassing. (macht ihr el irgendwelchen Befehlen fest?)

Einmal en SubClassProc y una vez encima Abarbeitung el Noticias, el WaitInput para Verlassen veranlassen.

Styles ändern z.B. Darstellung y/oder Comportamiento de Controls, por ejemplo ändern ReadOnly-Styles selten qué a el Darstellung y sólo al Comportamiento, wobei Disabled-Styles meist doppelt zuschlagen.
KompilierenMarcaSeparación[/offtopic]
 
16.08.2009  ▲
 



◄

Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

8.690 Views

Untitledvor 0 min.
Member 361000504.08.2022
Sven Bader10.09.2021
Walter10.05.2021
Thomas Zielinski01.04.2021
Más...

Themeninformationen

Dieses Thema ha 7 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie