XProfan

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

je suis pas sûrement mais je crois dass cela seulement avec Unicode bzw. WideChar-
Controls allez.

peut-être aider Dir cet Sujets:

Erzeugen:	[...]
Polnisch:	[...]
widechartomultibyte:	[...]
multibytetowidechar:	[...]
Erklär:	[...]
Funktions-Set:	[...]

si es Dir rein um cela représenter allez ensuite ist es wohl cela Einfachste si
Du un HTML-Contrôle utilise.

22.05.2012 ▲

Stephan
Sonneborn

allô iF,

là la hâte Du déjà droite, cela allez seulement avec Unicode. mais comment oui c'est ca???

je hab mir Dein Beispiel angesehen.
qui russischen marque commencer chez u+0400 et aller jusqu'à u+04ff = 256 marque.

J'ai pensé, avec SET ("CHARSET",~lang_russian) serait on une offset mettons et ensuite pourrait on qui marque simple avec zB. CHR$($0400) prendre. allez mais pas, là CHR$() seulement Werte entre 0...255 kennt.

Es devrait qui Funktion CHRW$() bzw. ORDW() her.

sais quelqu'un, comment on qui erstellt?

dans VB ist scheinbar qui CHRW()-Funktion de maison aus dabei.

on pourrait sich oui présenter, qui STATICS et EDITS pour Deiner Vorgabe trop erstellen (sur CreateW() bzw. CreateWindowExW()), ensuite alle bisherigen Standardtexte transformer dans WideChars et ensuite avec einem SetTextW qui Textes dans qui Controls eintragen...

mais comment???

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

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

allô Stephan,

Nico et je avons soeben folgendes erarbeitet,

s'il te plaît probiere la fois dans comment large cela so klappt:
Kompilieren Marque Séparation

 {$cleq}
 {$compiler c:\xprofan12}
 {$runtime c:\xprofan12}
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("STATIC","Das ist ein Static. \nHier sollen Unicode-Zeichen rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hinstance)
Waitinput
SetWindowTextW(static&,utf("Test ")+chrw(400)+utf(" Test"))
Waitinput
End

proc chrw

    parameters wc&
    declare m#
    dim m#,2
    word m#,0=wc&
    var s$=char$(m#,0,2)
    dispose m#
    return s$

endproc

Proc UTF

    parameters text$
    declare b#
    Dim b#,2*len(text$)+2
    StringW b#,0 = text$
    text$ = Char$(b#,0,SizeOf(b#)-2)
    return text$

EndProc

Proc CreateW

    parameters Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&
    case %pCount <11 : exstyle& = 0
    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

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

    EndWith

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

    IfNot handle&

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

    EndIf

    Dispose cs#
    Return handle&

=s4 href='./../../funktionsreferenzen/XProfan/endproc/'>ENDPROC

Stephan
Sonneborn

allô iF, allô Nico,

merci pour Eure Unterstützung. malheureusement zeigt mir qui Code garnichts à...
Kompilieren Marque Séparation

'URL: https://xprofan.com/intl/de/forum/russischer-zeichensatz/
'{$cleq}
'{$compiler c:\xprofan12}
'{$runtime c:\xprofan12}
DEF IsMEnu(1)           !"USER32", "IsMenu"
DEF CreateWindowExW(12) !"USER32", "CreateWindowExW"
DEF SetWindowTextW(2)   !"USER32", "SetWindowTextW"
CLS
Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
var id% = 1
Var static&=CreateW("STATIC","Das ist ein Static. \nHier sollen Unicode-Zeichen rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%hinstance)
Waitinput
SetWindowTextW(static&,utf("Test ") + chrw($401) + utf(" Test"))
Waitinput
End

proc chrw

    parameters wc&
    declare m#
    dim m#,2
    word m#,0=wc&
    var s$=char$(m#,0,2)
    dispose m#
    return s$

endproc

Proc UTF

    parameters text$
    declare b#
    Dim b#,2*len(text$)+2
    StringW b#,0 = text$
    text$ = Char$(b#,0,SizeOf(b#)-2)
    return text$

EndProc

Proc CreateW

    parameters Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,pid%,hInst&,exstyle&
    case %pCount <11 : exstyle& = 0
    Class$ = UTF(Class$)
    Name$ = UTF(Name$)
    Var cs# = New(CREATESTRUCT)

    With cs#

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

    EndWith

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

    IfNot handle&

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

    EndIf

    Dispose cs#
    Return handle&

lass=s4 href='./../../funktionsreferenzen/XProfan/endproc/'>ENDPROC

pas einmal cela "Test" devant et derrière elle...

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Nico
Madysa

eh, naturellement zeigt il dir rien à. SetWindowTextW ist une API-Funktion et peux avec XProfan-Cordes rien anfangen; on muss ihm qui Adresse sur qui Cordes überweisen:

Var static&=CreateW("STATIC","Das est un Static. \nHier devoir Unicode-marque rein.",$50000000,10,10,width(%hwnd)-20,35,%hwnd,0,%HINSTANCE)
Waitinput
var a$ = utf("Test ") + chrw($401) + utf(" Test")
SetWindowTextW(static&,Addr(a$))

So geht's.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

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

Hoch, je hahm à cela Stephan den Präkompi im Einsatz hat ^ ^

Stephan
Sonneborn

Nico Madysa (29.05.12)

So geht's.

oui, so geht's. *sichandenkopfschlägt*
merci Nico, pour Votre Aider!

mais eh bien qui Ausbaustufe:
j'ai Textes (z.B. aus Excel), qui liegen so avant: "Отмена"
comment bekomme je cela eh bien comme Text dans einem Unicode-Contrôle angezeigt?
on devrait doch d'abord einmal herausbekommen, welches marque ist cela car eh bien, quoi là angezeigt wird. un ORD() liefert naturellement aussi wieder seulement payons entre 0...255. Gibts en supplément un entsprechendes OrdW()?
ensuite pourrait on peut-être jeden String zeichenweise umsetzen dans cela UniCode-Format et ensuite comme Genazes wieder Montrer.
(si im Posting seulement ?????? angezeigt volonté: dans meinem ersten Beitrag steht qui russische Begriff)

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

Ordw comment posté: [...]

nproc ordw(string s){

    long m=dim(2)
    char m&,0=left$($ S+"\z\z",2)
    long wc=word(m,0)
    dispose(m)
    return wc

}

bzw.:

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

proc ordw

    parameters s$
    declare m#
    dim m#,2
    char m#,0=left$($ S+"\z\z",2)
    var wc&=word(m#,0)
    dispose m#
    return wc&

endproc

[OFFTOPIC]
Stephan Sonneborn (30.05.12)

(si im Posting seulement ?????? angezeigt volonté: dans meinem ersten Beitrag steht qui russische Begriff)

Scheinbar un Bug meiner Beitragsvorschau -

schaue je mir chez Gelegenheit à. [/OFFTOPIC]

Nico
Madysa

sur cette page [...]

findest du so assez alle Kodierungsumwandlungen, qui dein Herz begehren peux, comme NProcs; aussi Widechar-Varianten de Chr$() et Ord() sommes dabei.

je hoffe, es bereitet dir aucun Schwierigkeiten, vous dans un XPSE-freie Syntax trop traduire.

mais je vois justement pas, pourquoi du OrdW brauchen devrait.
Dem Widechar-Contrôle, cela avec CreateW erstellt worden ist, müsstest du seulement den Text per SetWindowTextW zuweisen.
si qui Text, den du zuweisen veux, bereits widecharkodiert ist (alors 2 Bytes pro marque), ensuite gibt es dabei gar aucun Hindernisse.

ou bien avec anderen Worten: je vois justement pas, wohin dein Problem liegt.

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

Stephan
Sonneborn

Nico Madysa (30.05.12)

ou bien avec anderen Worten: je vois justement pas, wohin dein Problem liegt.

mon Problem liegt hierin:
Füg la fois cet beiden Zeilen dans Deinen Quellcode un:

var b$ = "укепщьаь вввапа"
SetWindowTextW(static&,addr(b$))

chez mir volonté ensuite chinesische (ou bien quoi que + subj.) marque angezeigt...

russichertext.jpg	41 kB

Hochgeladen:	31.05.2012

Downloadcounter:
		Download

Schöne Grüße aus Wittgenstein
von Stephan

Programmierumgebung:| XProfan X4 | WIN10 | AMD FX6100 3,3 GHz

31.05.2012 ▲

j'ai Dir ici la fois quoi "hingeschmiert" quoi den le contenu einer avec Widechar-Chars-
gefüllten Zwischenablage comme CHR$(...-Sequenz dans qui Zwischenablage ablegt.

So peux Du z.B.: укепщьаь

dans qui Zwischenablage prendre et ensuite cela Programme starten et ensuite venez là:

chr$(67)+chr$(4)+chr$(58)+chr$(4)+chr$(53)+chr$(4)+chr$(63)+chr$(4)+chr$(73)+chr$(4)+chr$(76)+chr$(4)+chr$(48)+chr$(4)+chr$(76)+chr$(4)

chez raus.

cela wiederum comme Wert pour b$ zeigt cela Gewünschte.

Télécharger
externer Télécharger