(490)  Registro

Español
Foro

Unicode-Signo en CreateText

 
- Página 1 -



Julian
Schmidt
¡Hola,
Yo sería gerne una Unicode-Signo (U+2192) en un Static ausgeben.
Gibt lo como irgendwelche Möglichkeiten?

LG

Julian57
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
02.04.2012  ▲
Vollständiges Zitat
Absatzweise CitaZeilenweise Cita
 



« Dieser Contribución wurde como Solución gekennzeichnet. »


Julian
Schmidt
Ok, así funzt alles.
Gracias IF. Usted warst me una große Ayuda.
KompilierenMarcaSeparación
 $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 es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
SetText static&,chr$($2192)
Externo("USER32","SetWindowTextW",static&,utf("Test ")+chr$($92)+chr$($21)+utf(" Test"))
Waitinput
End

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = If(Externo("USER32","IsMenu",id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = Externo("USER32","CreateWindowExW",exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
02.04.2012  ▲
 



Einfach una Unicode-Static z.B. con createWindowW invertir.

Wenns sólo a Edición va entonces hilft Usted vlt. auch DrawTextW oder una HTMLWin.

Schau veces hier gibts una CreateW-Proc de Nico:  [...] 
 
02.04.2012  ▲
 




Julian
Schmidt
Lo va no sólo a Edición, pero Yo möchte ya una Static uso.
Das redactar des Statics es soweit sí simplemente. Nur como tue Yo entonces Unicode-Signo einfügen?
KompilierenMarcaSeparación
CLS
Var class$="Static"
Var title$="Das es una Static. \nHier debería Unicode-Signo rein."
Var static&=Externo("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
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
02.04.2012  ▲
 



Statt una Ansi-Byte sólo una Word pro Signo y como XProfan-Cuerdas binärsicher son kannst Usted simplemente por chr$($08)+chr$($90) kombinieren.

Übrigens: UTF-8-Symbole-Kompilation:  [...] 
 
02.04.2012  ▲
 




Julian
Schmidt
Como media Si es usted el?
Ejemplo?
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
02.04.2012  ▲
 



Usted schreibst U+2192 -

also probiere veces setText notAuniqueButCoolhandleOfAUnicodeStaticControlHandle&,chr$(2192) -

Yo weiß ahora no si XProfan el entonces ya de incluso korrekt abarbeitet y 2 Byte einfügt.
 
02.04.2012  ▲
 




Julian
Schmidt
Anscheinend no...
KompilierenMarcaSeparación
CLS
Var class$="Static"
Var title$="Das es una Static. \nHier se nachfolgend una Unicode-Signo rein."
Var static&=Externo("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
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
02.04.2012  ▲
 



Jo, son desafortunadamente 1 en lugar de 2 de:
KompilierenMarcaSeparación
 {$cleq}
imprimir len(chr$(256))
Waitinput

Dann kannst sí z.B. por:
KompilierenMarcaSeparación
SetText static&,chr$(hibyte($2192))+chr$(lobyte($2192))+"\z\z"
Su Signo ansetzen aber irgendwie fehlt me en Deinem Ejemplo una unicode-WndProc como ellos Nico vormacht.
 
02.04.2012  ▲
 




Julian
Schmidt
Hi IF,
Yo habs nun intenta con Nico's CreateW umzusetzen.
Er scheint me nun auch tatsächlich Unicode-Signo auszugeben, allerdings por desgracia, no el Signo el Yo eigentlich haben quería.
Yo habe me mein Signo en el Windows eigenen Zeichentabelle ausgesucht. Pensé links unten sei el Unicode-Valor para encontrar.
Wenn Yo esta Valor en media Prog. einsetzte kommt aber una más Signo heraus.
Posesiones Yo, el no el korrekten Unicode-Valor meines Zeichens, oder arbeitet mein Code no korrekt?


KompilierenMarcaSeparación
 $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 es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
SetText static&,chr$($2192)
Waitinput
End

Proc HiByte

    Parámetros word%
    Volver word% >> 8

ENDPROC

Proc LoByte

    Parámetros word%
    Volver word% & $FF

ENDPROC

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = If(Externo("USER32","IsMenu",id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = Externo("USER32","CreateWindowExW",exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC

39 kB
Hochgeladen:02.04.2012
Ladeanzahl: 179
Descargar
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
02.04.2012  ▲
 



Hier mostrar así gehts:
KompilierenMarcaSeparación
 $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 es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
declarar s$
s$=chr$($92)+chr$($21)+"\z\z"
u_SetWindowTextW(static&,addr(s$))
Waitinput
FreeDLL hUser&
End

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = if(u_IsMenu(id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = u_CreateWindowExW(exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC
 
02.04.2012  ▲
 




Julian
Schmidt
Und como es, si yo el Signo con otro Cuerdas kombinieren möchte?
KompilierenMarcaSeparación
 $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 es una Static. \nHier debería Unicode-Signo rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hInstance)
Waitinput
SetText static&,chr$($2192)
Externo("USER32","SetWindowTextW",static&,"Test/z/z"+chr$($92)+chr$($21))+" \z\zTest"
Waitinput
End

Proc UTF

    parámetros texto$
    declarar b#
    Dim b#,2*len(texto$)+2
    StringW b#,0 = texto$
    texto$ = Char$(b#,0,SizeOf(b#)-2)
    volver texto$

ENDPROC

Proc CreateW

    If %pCount > 10

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&

    Más

        Parámetros Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&
        Var exstyle& = 0

    EndIf

    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

        .lpCreateParams& = SizeOf(cs#)
        .hInstance& = hInst&
        .hMenu& = If(Externo("USER32","IsMenu",id%),id%,0)
        .hwndParent& = pWnd&
        .cy% = dy%
        .cx% = dx%
        .y% = y%
        .x% = x%
        .style& = style&
        .lpszName& = Addr(Name$)
        .lpszClass& = Addr(Class$)
        .dwExStyle& = exstyle&

    EndWith

    Var handle& = Externo("USER32","CreateWindowExW",exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)
    inc id%

    Caso negativo handle&

        Class$ = WinError$(%WinError)
        MessageBox("Es trat folgender Fehler en:\n\n" + Class$,"F E H L E R !!!",4096)

    EndIf

    Disponer cs#
    Volver handle&

ENDPROC
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
02.04.2012  ▲
 



Like that?
KompilierenMarcaSeparación
Externo("USER32","SetWindowTextW",static&,"T\ze\zs\zt\z\z\z")

o
KompilierenMarcaSeparación
s$=utf("Test")
Externo("USER32","SetWindowTextW",static&,addr(s$))

Signo ha sólo 2 en lugar de 1 Byte y String möchte en lugar de sólo \z (chr(0)) con \z\z DoppelNull "nullterminiert" voluntad.
 
02.04.2012  ▲
 



12
►

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

17.562 Views

Untitledvor 0 min.
E.T.14.01.2024
Sven Bader25.02.2021
Langer30.12.2020
Manfred Barei23.02.2020
Más...

Themeninformationen

Dieses Thema ha 4 subscriber:

iF (7x)
Julian Schmidt (7x)
funkheld (2x)
Jörg Sellmeyer (2x)


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!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

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