Forum | | | | | | - 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 ▲ |
| | |
| | | | | | - Page 2 - |
| |
Michael
Punkt | so, login me to Zwangsabstinenz (Blitzeinschlag in unmittelbarer sew with verhehrenden follow for diverse Elektrogeräte  ) with Notequippment again back.
is not so the The data base The Verschlüsselung self undertaking??!?
No, so far I know, can mySQL not self code. the must one under PHP with md5() self distinguished and then whom gehashten worth in the scheduler Save/vergleichen.
means this Control, time independent of Assembler and Profan2CPP, can but really too simply with XProfan program - I see there quite no trouble and bid gladly on, if I again in the land be (at the latest weekend as looks) the produce too because eachone others what about me the certainly well and often use can. then Gibts ne Include and "schön ist". 
the would naturally super, because if you write, that You for ne whole Include building, white I, I well some forget/wrong have.
so have I the letzt aufgebaut, what but not functions.
I have one Dialog-Window prepares and a Combobox with the Attribut for CBS_HASSTRINGS:
CompileMarkSeparationhD% = @Create("Window",%hWnd,"Login",0,0,400,200)
feld_login% = @Control("COMBOBOX", "Test", $50000200, 5, 5, 245, 20, hD%, 0, %hInstance)e>
with the request the Buttons have I the following made:
CompileMarkSeparation
the Result is, the quite nothing happens.
either missing now here yet what (yet write to a Listbox? but How?), or be I utterly on the Holzweg?
I suspect time heavy, both. |
| | | | XProfan 11, Windows XP (2GB RAM), XProfEd | 08/14/09 ▲ |
| | |
| |  | If I not crazy, becomes to each Tastenanschlag in the Input and to each Click in that Input under a list displayed with by Pfeiltasten and mouse anwählbaren Einträgen The on The previous input fit.
means must Click+Button aufs/in the Input Yes quizzed to be a darunterliegende list (or one takes editierbare Choicebox The Yes already ne list under dran To bammeln has) To befüllen. with Click or Tastaturauswahl in the list against must the Input with the entry befüllt go.
around the (everything) To managen are imho means at least modes How:
+ Control produce
+ in question coming Entries allocate / Remove
+ Control abragen (z.B. in subClassProc)
+ Control Remove
necessary - So one couple functions The then even z.B. in a Include aufgehoben his should.
Perhaps knows Andreas Miethe another einfachere method - vlt. there such Control already something fertiger.
         |
| | | | | | |
| | 
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 ▲ |
| | |
| | | | | | | | | |
| | 
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
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. |
| | | | | | |
| |
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! |
| | | | | | |
|
AnswerThemeninformationenthis Topic has 7 subscriber: |
(448)
Deutsch
English
Français
Español
Italia