Forum | | | | | | - page 1 - |
| 
Julian
Schmidt | Salut,
je serait volontiers un Unicode-marque (U+2192) dans einem Static ausgeben.
Gibt es là irgendwelche Opportunités?
LG
Julian57 |
| | | | | | |
|  | « cette Beitrag wurde comme Solution gekennzeichnet. » | |
Julian
Schmidt |  
merci IF. tu étais mir une grand Aider. 
$H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("Static","Das est un Static. \nHier devoir Unicode-marque rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE)
Waitinput
SetText static&,chr$($2192)
Externe("User32","SetWindowTextW",static&,utf("Test ")+chr$($92)+chr$($21)+utf(" Test"))
Waitinput
Fin
Proc UTF
parameters text$
declare b#
Faible b#,2*len(text$)+2
StringW b#,0 = text$
text$ = Char$(b#,0,SizeOf(b#)-2)
return text$
ENDPROC
Proc CreateW
Si %pCount > 10
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&
D'autre
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
Var exstyle& = 0
EndIf
Class$ = UTF(Class$)
nom$ = UTF(nom$)
Var cs# = New(CREATESTRUCT)
With cs#
.lpCreateParams& = SizeOf(cs#)
.hInstance& = hInst&
.hMenu& = Si(Externe("User32","IsMenu",id%),id%,0)
.hwndParent& = pWnd&
.cy% = dy%
.cx% = dx%
.y% = y%
.x% = x%
.style& = style&
.lpszName& = Addr(nom$)
.lpszClass& = Addr(Class$)
.dwExStyle& = exstyle&
EndWith
Var handle& = Externe("User32","CreateWindowExW",exstyle&,Addr(Class$),Addr(nom$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
inc id%
Si non handle&
Class$ = WinError$(%WinError)
MessageBox("Es trat suivant faute sur:\n\n" + Class$,"F E H L E R !!!",4096)
EndIf
Dispose cs#
Retour handle&
ENDPROC
|
| | | | | | | |
| |  | simple un Unicode-Static z.B. avec createWindowW anlegen.
Wenns seulement à Ausgabe allez ensuite hilft Dir vlt. aussi DrawTextW ou bien un HTMLWin.
exposition la fois ici gibts une CreateW-Proc de Nico: [...]  |
| | | | | | |
| |
Julian
Schmidt | und dir pas seulement à Ausgabe, mais je voudrais déjà un Static verwenden.
cela erstellen des Statics ist soweit oui simple. seulement comment tue je ensuite Unicode-marque insérer?
CLS
Var class$="Static"
Var title$="Das est un Static. \nHier devoir Unicode-marque rein."
Var static&=Externe("User32","CreateWindowExA",0,addr(class$),addr(title$),$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE,10000)
'Var static&=External("User32","CreateWindowExW",0,addr(class$),addr(title$),$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE,10000)
Waitinput
|
| | | | | | |
| | | Statt un Ansi-Byte arrêt un Word pro marque et là XProfan-Cordes binärsicher sommes peux Du simple per chr$($08)+chr$($90) kombinieren.
Incidemment: UTF-8-Symbole-Kompilation: [...]  |
| | | | | | |
| |
Julian
Schmidt | comment meinst du cela?
Beispiel? |
| | | | | | |
| | | tu écris U+2192 -
alors probiere la fois setText notAuniqueButCoolhandleOfAUnicodeStaticControlHandle&,chr$(2192) -
je sais maintenant pas si XProfan cela ensuite déjà de selbst korrekt abarbeitet et 2 Byte einfügt. |
| | | | | | |
| |
Julian
Schmidt | Anscheinend pas...
CLS
Var class$="Static"
Var title$="Das est un Static. \nHier soll nachfolgend un Unicode-marque rein."
Var static&=Externe("User32","CreateWindowExA",0,addr(class$),addr(title$),$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE,10000)
'Var static&=External("User32","CreateWindowExW",0,addr(class$),addr(title$),$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE,10000)
Waitinput
SetText static&,chr$(2192)
Waitinput
|
| | | | | | |
| | | Jo, gibt malheureusement 1 statt 2 aus:
ensuite peux oui z.B. per:
Dein marque ansetzen mais irgendwie fehlt mir dans Deinem Beispiel une unicode-WndProc comment vous Nico vormacht. |
| | | | | | |
| |
Julian
Schmidt | Hi IF,
je habs eh bien versucht avec Nico's CreateW umzusetzen.
il scheint mir eh bien aussi réellement Unicode-marque auszugeben, allerdings malheureusement pas cela marque le moi eigentlich avons voulais.
j'ai mir mon marque dans qui Windows eigenen Zeichentabelle ausgesucht. J'ai pensé à gauche unten sei qui Unicode-Wert pour trouver.
si je cette Wert dans meinen Prog. einsetzte venez mais un d'autre marque heraus.
Habe Je l' pas den korrekten Unicode-Wert meines Zeichens, ou bien arbeitet mon Code pas korrekt?
$H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("Static","Das est un Static. \nHier devoir Unicode-marque rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE)
Waitinput
SetText static&,chr$($2192)
Waitinput
Fin
Proc HiByte
Paramètres word%
Retour word% >> 8
ENDPROC
Proc LoByte
Paramètres word%
Retour word% & $FF
ENDPROC
Proc UTF
parameters text$
declare b#
Faible b#,2*len(text$)+2
StringW b#,0 = text$
text$ = Char$(b#,0,SizeOf(b#)-2)
return text$
ENDPROC
Proc CreateW
Si %pCount > 10
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&
D'autre
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
Var exstyle& = 0
EndIf
Class$ = UTF(Class$)
nom$ = UTF(nom$)
Var cs# = New(CREATESTRUCT)
With cs#
.lpCreateParams& = SizeOf(cs#)
.hInstance& = hInst&
.hMenu& = Si(Externe("User32","IsMenu",id%),id%,0)
.hwndParent& = pWnd&
.cy% = dy%
.cx% = dx%
.y% = y%
.x% = x%
.style& = style&
.lpszName& = Addr(nom$)
.lpszClass& = Addr(Class$)
.dwExStyle& = exstyle&
EndWith
Var handle& = Externe("User32","CreateWindowExW",exstyle&,Addr(Class$),Addr(nom$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
inc id%
Si non handle&
Class$ = WinError$(%WinError)
MessageBox("Es trat suivant faute sur:\n\n" + Class$,"F E H L E R !!!",4096)
EndIf
Dispose cs#
Retour handle&
ENDPROC
|
 | | | | | | |
| | | ici exposition so gehts:
$H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
Var hUser& = ImportDLL("User32","u_")
var id% = 1
Var static&=CreateW("Static","Das est un Static. \nHier devoir Unicode-marque rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE)
Waitinput
declare s$
s$=chr$($92)+chr$($21)+"\z\z"
u_SetWindowTextW(static&,addr($ S))
Waitinput
FreeDLL hUser&
Fin
Proc UTF
parameters text$
declare b#
Faible b#,2*len(text$)+2
StringW b#,0 = text$
text$ = Char$(b#,0,SizeOf(b#)-2)
return text$
ENDPROC
Proc CreateW
Si %pCount > 10
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&
D'autre
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
Var exstyle& = 0
EndIf
Class$ = UTF(Class$)
nom$ = UTF(nom$)
Var cs# = New(CREATESTRUCT)
With cs#
.lpCreateParams& = SizeOf(cs#)
.hInstance& = hInst&
.hMenu& = si(u_IsMenu(id%),id%,0)
.hwndParent& = pWnd&
.cy% = dy%
.cx% = dx%
.y% = y%
.x% = x%
.style& = style&
.lpszName& = Addr(nom$)
.lpszClass& = Addr(Class$)
.dwExStyle& = exstyle&
EndWith
Var handle& = u_CreateWindowExW(exstyle&,Addr(Class$),Addr(nom$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
inc id%
Si non handle&
Class$ = WinError$(%WinError)
MessageBox("Es trat suivant faute sur:\n\n" + Class$,"F E H L E R !!!",4096)
EndIf
Dispose cs#
Retour handle&
ENDPROC
|
| | | | | | |
| |
Julian
Schmidt | et comment ist es, si je cela marque avec anderen Cordes kombinieren voudrais?
$H Messages.ph
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("Static","Das est un Static. \nHier devoir Unicode-marque rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE)
Waitinput
SetText static&,chr$($2192)
Externe("User32","SetWindowTextW",static&,"Test/z/z"+chr$($92)+chr$($21))+" \z\zTest"
Waitinput
Fin
Proc UTF
parameters text$
declare b#
Faible b#,2*len(text$)+2
StringW b#,0 = text$
text$ = Char$(b#,0,SizeOf(b#)-2)
return text$
ENDPROC
Proc CreateW
Si %pCount > 10
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&
D'autre
Paramètres Class$,nom$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
Var exstyle& = 0
EndIf
Class$ = UTF(Class$)
nom$ = UTF(nom$)
Var cs# = New(CREATESTRUCT)
With cs#
.lpCreateParams& = SizeOf(cs#)
.hInstance& = hInst&
.hMenu& = Si(Externe("User32","IsMenu",id%),id%,0)
.hwndParent& = pWnd&
.cy% = dy%
.cx% = dx%
.y% = y%
.x% = x%
.style& = style&
.lpszName& = Addr(nom$)
.lpszClass& = Addr(Class$)
.dwExStyle& = exstyle&
EndWith
Var handle& = Externe("User32","CreateWindowExW",exstyle&,Addr(Class$),Addr(nom$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
inc id%
Si non handle&
Class$ = WinError$(%WinError)
MessageBox("Es trat suivant faute sur:\n\n" + Class$,"F E H L E R !!!",4096)
EndIf
Dispose cs#
Retour handle&
ENDPROC
|
| | | | | | |
| | | Like that?
Externe("User32","SetWindowTextW",static&,"T\ze\zs\zt\z\z\z")
ou
marque hat arrêt 2 statt 1 Byte et String voudrais statt seulement avec \z (chr(0)) avec \z\z DoppelNull "nullterminiert" volonté. |
| | | | | | |
|
répondreOptions du sujet | 17.881 Views |
Themeninformationencet Thema hat 4 participant: |
(469)
Deutsch
English
Français
Español
Italia