XProfan

- Página 2 -

Michael
Punkt

So, melde mich después de Zwangsabstinenz (Blitzeinschlag en unmittelbarer Nähe con verhehrenden Folgen para diverse Elektrogeräte

) con Notequippment otra vez zurück.

¿Es no así el el Datenbank el Verschlüsselung incluso übernimmt??!?

Nein, así weit Yo weiß, kann mySQL no incluso verschlüsseln. Das muss uno bajo PHP con md5() incluso vornehmen y luego el gehashten Valor en el Tabla speichern/vergleichen.

Also dieses Control, veces unabhängig de Ensamblador y Profano2CPP, puede ser aber wirklich auch simplemente con XProfan programa - Yo sehe como gar kein Problema y biete gerne a, si yo otra vez en el Lande bin (spätestens Wochenende como aussieht) el herzustellen auch porque cada otro y yo el determinado bien y oft gebrauchen puede. Dann gibts ne Incluir y "schön ist".

Das wäre natürlich Super, porque si schreibst, dass Usted dafür ne todo Incluir baust, weiß Yo, dass Yo wohl einiges vergessen/falso habe.

So Yo el letzt aufgebaut, qué pero no funktioniert.

Yo habe una Dialogfenster erstellt y una Combobox con el Attribut para CBS_HASSTRINGS:
Kompilieren Marca Separación

hD% = @Create("Window",%hWnd,"Login",0,0,400,200)
feld_login% = @Control("COMBOBOX", "Test", $50000200, 5, 5, 245, 20, hD%, 0, %hInstance)e>

En Abfrage des Buttons Yo folgendes gemacht:
Kompilieren Marca Separación

If @GetFocus(button_login&)

    SendMessage(feld_login%, $0143 , 0, @GetText$(feld_login%))pre>

Das Ergebnis es, el gar nichts passiert.
Entweder fehlt ahora hier todavía qué (ahora todavía escribir una Listbox? Aber como?), oder bin Yo total en el Holzweg?
Yo vermute veces stark, beides.

XProfan 11, Windows XP (2GB RAM), XProfEd

Wenn Yo mich no irre, se después de cada Tastenanschlag en el Eingabefeld y después de cada Mausklick en el Eingabefeld darunter una Liste adecuado con por Pfeiltasten y Ratón anwählbaren Einträgen el en el bisherige Eingabe passen.

Also necesario Clic+Taste aufs/en el Eingabefeld sí abgefragt voluntad una darunterliegende Liste (oder uno nimmt editierbare Choicebox el sí ya ne Liste unten dran a bammeln ha) a befüllen. En Clic oder Tastaturauswahl en el Liste wiederum muss el Eingabefeld con el Eintrag befüllt voluntad.

Um el (alles) a managen son imho also mindestens Métodos como:

+ Control erzeugen
+ en Cuestión kommende Einträge zuweisen / entfernen
+ Control abragen (z.B. en subClassProc)
+ Control entfernen

notwendig - Así que una pocos Características el entonces eben z.B. en uno Incluir aufgehoben ser debería.

Tal vez sabe Andreas Miethe ni einfachere Método - vlt. hay solch Control ya algo fertiger.

Jörg
Sellmeyer

Das müßte Usted weiterhelfen:
Kompilieren Marca Separació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 ...

Kompilieren Marca Separación

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

oder el

###############################
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 : [...]

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009

Juhu!

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...

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

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

¡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.

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

IF, Beitrag=53862, Zeitpunkt=14.08.2009

Frank
Abbing

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.

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:
Kompilieren Marca Separació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 ▲