XProfan

Français

Julian
Schmidt

Salut,
je serait volontiers un Unicode-marque (U+2192) dans einem Static ausgeben.
Gibt es là irgendwelche Opportunités?

LG

Julian57

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

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 2 -

Julian
Schmidt

Ok, so funzt alles.

merci IF. tu étais mir une grand Aider.

Kompilieren Marque Séparation

 $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

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Julian
Schmidt

Anscheinend pas...

Kompilieren Marque Séparation

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

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jo, gibt malheureusement 1 statt 2 aus:

Kompilieren Marque Séparation

 {$cleq}
imprimer len(chr$(256))
Waitinput

ensuite peux oui z.B. per:

Kompilieren Marque Séparation

SetText static&,chr$(hibyte($2192))+chr$(lobyte($2192))+"\z\z"

Dein marque ansetzen mais irgendwie fehlt mir dans Deinem Beispiel une unicode-WndProc comment vous Nico vormacht.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

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?

Kompilieren Marque Séparation

 $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

arrow.png	39 kB

Hochgeladen:	02.04.2012

Downloadcounter:
		Download

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

ici exposition so gehts:

Kompilieren Marque Séparation

 $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

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

et comment ist es, si je cela marque avec anderen Cordes kombinieren voudrais?

Kompilieren Marque Séparation

 $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

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Like that?

Kompilieren Marque Séparation

Externe("User32","SetWindowTextW",static&,"T\ze\zs\zt\z\z\z")

Kompilieren Marque Séparation

$ S=utf("Test")
Externe("User32","SetWindowTextW",static&,addr($ S))

marque hat arrêt 2 statt 1 Byte et String voudrais statt seulement avec \z (chr(0)) avec \z\z DoppelNull "nullterminiert" volonté.

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Ok, so funzt alles.

merci IF. tu étais mir une grand Aider.

Kompilieren Marque Séparation

 $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

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Julian57 (02.04.12)

Ok, so funzt alles.

tu es oui aussi un Witzbold: iFs Code kopieren et ensuite Deinen Beitrag comme Solution déclarer. c'est pas qui feine Forums-Nettiquette...

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

oui c'est ca pris ist qui Solution Nicos gain -

peux il oui Nicos Beitrag ( [...]

) nen Star verpassen. ^.^

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

02.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

funkheld

tu es oui aussi un Witzbold: iFs Code kopieren et ensuite Deinen Beitrag comme Solution déclarer. c'est pas qui feine Forums-Nettiquette...

Hmm..., du interpretierst cela faux !

chacun qui cela Alles de dessus pour Unten calme durchliest, versteht cela pas comme Kopie mais comme kooperative Zusammenarbeit.....

quoi la hâte du là pour Probleme avec qui guten Zuammenarbeit ?

qui Anmache führt seulement en supplément cela einer seinen Code, qui avec qui Forumhilfe gelöst wurde, ici pas plus de fertiges gemeinsames Produkt reinstellt.
Resultat ist, cela cela Forum verweist avec qui Weiterentwicklung de Programmen.

Gruss

04.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

je pourrait genausogut dire,dass cela en supplément führt, dass niemand plus Lust hat sur solche Posts trop réagir:

comment meinst du cela?
Beispiel?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

04.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

funkheld

si einer Verbesserungsvorschläge pouvoir, sollte un Anderer pas dessen Rechte anzweifeln um dadurch une Eigentumständerung faire zugunsten des Verbesserungsvorschlagenden. si ensuite soll qui Verbesserungsvorschlagenden un droite pour cela Programme einräumen.

comment meinst du cela?
Beispiel?

comment soll on sonst Fragen ?
qui Fragen sommes kurz, bien sûr et verständlich .

PS: je voudrais cet Thema pas plus vertiefen, mais qui Programmlösung dessus ist wichtiger.

merci.

Gruss

04.04.2012 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

◄