(455)  Login

English
Forum

Done: md5 and AutoText

 
- Page 1 -



Michael
Punkt
Hello together,

had there again two ask:

1.) I have a mySQL-DB on my Linux-Server and there are Benutzerpasswörter md5-verschlüsselt. with XProfan can I of course ver- and decode, but md5 rule XProfan not.
i want too only ungern The scheduler adjust, since the md5-verschlüsselten data too furthermore with the Browserversion as PHP-Script compared go should.

in the Forum have I of what of/ one Unit red The on the names md5.pcu (?) hears.
unfortunately shining these Unit not any more To existieren, because I sustain instead of of/ one Downloadmöglichkeit only a vain Page (Template the HP of XProfan.com Although To see, but More neither.)
Gibts not More? if still, where could I The herbekommen?

2.) Autotext ... is Perhaps not The integrally korrekte Bezeichnung, but I my so the, what in example my Firefox with Eingabefeldern power. speak, have I sometime time the word "Auto" in the Input registered what about me type only whom letters "A", appear "Auto" as Auswahlmöglichkeit,

is the possible, such a thing too with XProfan To release, or is the FF, or. only Brwoserspezifisch possible?
unfortunately have I no Answer in the Forum or in the Helpfile found.

Nutze to Time only the "nackte" XProfan. XPSE follows in the next Time.

greetings,
Michael
 
XProfan 11, Windows XP (2GB RAM), XProfEd
08/08/09  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



 
- Page 2 -



Jörg
Sellmeyer
the should you help on:
CompileMarkSeparation
 $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 ...
08/14/09  ▲
 




Andreas
Miethe

or the
CompileMarkSeparation
###############################
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 :  [...] 
08/14/09  ▲
 



Juhu!

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009
To 2: this is imho a Choicebox with besonderem Style, whom I but unfortunately not rote know.

then nimm you simply times the Time and shock to and präsentiere your Style. on it would so did i interested, faith but not on its existence...


 
08/14/09  ▲
 




Dieter
Zornow
Yes both Codes functions without, that The Choicebox a particular Style get. with Jörgs code the beautiful simply is disappears but by me the Cursor to outside the Fensters and comes first again back if The Choicebox again closed is, this is unschön.

with Andreas code is me unclear Why the Windowstyle first on $250, that is without Titelleiste staid and is then under again on with Titelleiste staid becomes. If I supra same z.B. Windowstyle 63 dial GEHTS still very so well. might me time someone clarify.
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
08/14/09  ▲
 




Andreas
Miethe

Hello Dieter,

the master-code is a Template the always loaded becomes, if I by right Mouse button with "New" one new PRF-document anlege. sense of it is ( Fensterstyle ), that the window first invisible laid out becomes, then go The Fensterelement laid out and first if everything is done, becomes the window displayed.
 
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 :  [...] 
08/14/09  ▲
 




Dieter
Zornow
Hello Andreas,

Yes the light me one, I had me only gewundert because it for this Snippet not necessary is. If the but your Template for all your programs is is the naturally verständlich, there otherwise The Titelleiste To see would.

thanks for resolution.

Greeting

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




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

Frabbing, Beitrag=53771, Zeitpunkt=08.08.2009

iF, Beitrag=53862, Zeitpunkt=14.08.2009
To 2: this is imho a Choicebox with besonderem Style, whom I but unfortunately not rote know.

then nimm you simply times the Time and shock to and präsentiere your Style. on it would so did i interested, faith but not on its existence...




no Style, Subclassing...

but beautiful squat, The Listbox integrate. sees well from, Andreas!
for a great many Entries empfielt itself then Perhaps rather a externe Listbox.
 
08/14/09  ▲
 




Michael
Punkt
there are so then still a couple Lines More necessary as my kläglicher attempt.

have both Examples ausprobiert and the of Adreas is really super.
the others of Jörg Although beautiful squat, still too me disturbing, that the Mauspfeil veschwindet and first wiederkommt, if the Pulldown lane is.
and yet a small crux has it. I can no word use/eintippen, what not in the Addstring hinterlegt is. but nevertheless thanks. for a others area can I the too well use.

even if I some not yet understand (straight what whom API-part and the SendMessages concerns), so is the a good code to that learn.

I have Andreas Source now too modifiziert circa a ini-File To use circa new inputted words Save to, so remote tappt im dunkeln not yet in the list present are.
I have this two functions built. an to that reading, a to write the ini-File.

unfortunately be I now but in a point angelangt, on the I do not More weiterkomme around the whole To perfektionieren.
it's about the Remove one Eintrags through the "ENTF"-Button.

The request with @IsKey(~VK_DELETE) functions by me only, if the Pulldown not To see is and then need it Yes not To functions.

How access I, the with geöffnetem Pulldown-Menue and one selected Menuepunkt the suitable entry deleted becomes?
For this, is integrally sure again SendMessage necessary, or?

I had it with @GetState and @GetCount attempts, but with beidem coming The Error Message, that I the for this type not use could.

here time the erweiterte complete Source:
CompileMarkSeparation
###############################
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
08/15/09  ▲
 




Dieter
Zornow
try it with "DeleteString(n1,n2)"
with Getcursel can you The number the marked Eintrages detect.
in the Profanhilfe under "Auswahlboxen" find You everything
 
Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2
08/15/09  ▲
 




Frank
Abbing

I can no word use/eintippen, what not in the Addstring hinterlegt is. but nevertheless thanks.


look, very for can you then a unsichtbare Listbox use, in the your Wörter stand!
 
08/15/09  ▲
 



 
- Page 3 -



Michael
Punkt
GETCURSEL have I somehow overlooking on the Hilfeseite the Auswahlboxen.
so I get The right number, only ... How create I it, that The ENTF-Button in the opened Pulldown quizzed becomes?
as long as the Pulldown-Menue open is, reacted it not.
I had it in the while-Hauptschleife with a
CompileMarkSeparation
If (@IsKey(~VK_DELETE)) AND (@GetCurSel(Choice&) <> "-1")re>

probiert, but the not working.
Vermute I correctly., that the indicated Dropdown well too a manner own Window is and a request on this place none functions can?

found out have I already, I with a CB_GETDROPPEDSTATE well inquire can, whether a Dropdown on or To is:
CompileMarkSeparation
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:08/16/09
Downloadcounter: 53
Download
 
XProfan 11, Windows XP (2GB RAM), XProfEd
08/16/09  ▲
 



Michael point
that The ENTF-Button in the opened Pulldown quizzed becomes


I würd simply Schonmal look, whether z.B. wm_keydown as Message in the SubClassProc alights. the goes certainly too rather, but Perhaps one beginning.

[offtopic]
Dieter Zornow, Beitrag=53863, Zeitpunkt=14.08.2009
Yes both Codes functions without, that The Choicebox a particular Style get.


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


both Codes benefit SubClassing. (power your the irgendwelchen command solid?)

once over The SubClassProc and once over Abarbeitung the Messages, The WaitInput to that leave join.

Styles Change z.B. statement and/or Behavior of Controls, in example Change ReadOnly-Styles seldom what on the statement and only on the behaviour, where Disabled-Styles mostly twice bang.
CompileMarkSeparation[/offtopic]
 
08/16/09  ▲
 



◄

Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

8.772 Views

Untitledvor 0 min.
Member 361000508/04/22
Sven Bader09/10/21
Walter05/10/21
Thomas Zielinski04/01/21
More...

Themeninformationen

this Topic has 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  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie