XProfan

cls
Einen Font laden, der vernünftig Unicode unterstützt
UseFont Times New Roman,16,0,0,0,0
Der eigentliche Text, noch normal
var t$ = Hallo, ihr lieben qLeuteq!
Puffer vorbereiten
da Unicode zwei Bytes pro Zeichen braucht, muss er logischerweise doppelt so groß sein
declare b#
Dim b#,2*len(t$)
Die Funktion macht aus dem einfachen Text Unicodetext, der in b# gespeichert wird
External(KERNEL32,MultiByteToWideChar,0,1,Addr(t$),len(t$),b#,SizeOf(b#))
Hier verändere ich den Text, nämlich Zeichen 2 und 3 (Erstes Zeichen = 0)
Word, da zwei Bytes/Zeichen benötigt werden
Der Code, den man mit charmap.exe ermitteln kann, steht für das durchgestrichene l
Word b#,2*2 = $0142
Word b#,3*2 = $0142
Und hier werden die langweiligen Doppelhochkommata durch echt typografische Anführungszeichen ersetzt:
Word b#,18*2 = $201E
Word b#,24*2 = $201C
Der Unicodetext wird angezeigt; da Parameter Nr. 5 die Anzahl der zu schreibenden Zeichen, nicht der
zu schreibenden Bytes, angibt, muss hier die ursprüngliche Textlänge genommen werden.
External(GDI32,TextOutW,%hDC,100,100,b#,len(t$))
Und Ende
waitinput
Dispose b#
end

elseif GetFocus(BL_copy&)...................Bilder- /Textstring in die Zwischenablage

x&=SendMessage(medit&,$0E,0,0)
Dim bereich#,x&+1
Clear bereich#
SendMessage(medit&,$000D,x&,bereich#)
text$=trim$(String$(bereich#,0))
Dispose bereich#
clearClip
PutClip

Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&

proc API_Create

    if %pCount > 10

        parameters Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,exstyle&

    else

        parameters Class$,Name$,style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&
        var exstyle& = 0

    endif

    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_CreateWindowExA(exstyle&,Addr(Class$),Addr(Name$),style&,x%,y%,dx%,dy%,pWnd&,id%,hInst&,cs#)

    ifnot handle&

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

    endif

    Dispose cs#
    return handle&

endproc

declare hUser&,hList&
cls
hUser& = ImportDLL(USER32,u_)
hList& = Create(GridBox,%hWnd,Deutsch;0;200;Polnisch;1;200,2,5,5,400,400)  so willst dus doch haben, gell Dietmar?
hList& = API_Create(STATIC,Test,$50000001,5,5,100,20,%hWnd,1000,%hInstance,$200) dies ist ein Test der API.
waitinput
FreeDLL hUser&
'./../../funktionsreferenzen/XProfan/end/'>end