XProfan

- Page 3 -

Frank
Abbing

Korrektur: To ansikompatiblen Controls lead The APIs CreateWindowA and CreateWindowExA.

Gegenkorrektur: z.B. CreateWindowA and CreateWindow are always identical. The normal Variant even always The Ansi-Variante, beweise the contrary...

still otherwise have you got right. whether The Messagenummern itself between Ansi- and Unicode-Controls discern, have I not yet screen, likes But not so right believe.

faith it quiet. rather yet, look you simply a couple Headerfiles on.

06/01/09 ▲

Nico
Madysa

ash on my master, we see us in nem half-way year again, be on the way to Canossa.

I have time by API and Messages probiert, one half-way funktionierendes Unicode-List view To produce, still can I yet yet only into first slot data present and its right tricky. an ListViewW.dll would means überaus useful.

Nico Madysa

06/02/09 ▲

Frank
Abbing

...still can I yet yet only into first slot data present and its right tricky. an ListViewW.dll would means überaus useful.

very these Kompliziertheit having me Yes moreover bewogen, whom whole Mist time in simpleren functions To truss.

I faith, a Unicode-Variante list view.dll rewards but not. The Anwendungsfälle are To seldom. If I the right see, can polnische Computerbenutzer Yes thoroughly ihren Zeichensatz by Ansi using, if the computer in Polish configures watts. Perhaps ought to Dietmar the too simply make...

Ne, only joke...

06/02/09 ▲

iF, Beitrag=52553, Zeitpunkt=29.05.2009

even if vlt. here not yet relevant, so is the UTF-trouble well of dannen we're finally stop, normal windows-Controls To use separate (as itself heard) our dialogs by HTML produce.

Since I me unfortunately not rend can, go we hereon well but yet something Waiting must - or someone other takes itself the thing on.
Frabbing, Beitrag=52554, Zeitpunkt=29.05.2009

The Solution is very simple and needed for sure no HTML-Controls (tz).

at least there no simplere Solution, considerate the my plan any Controls comprising and not about only ListViews.

I let me but gladly of contrary convincing and Perhaps can You presently a simple Solution in the ListView.Dll utilize.

06/02/09 ▲

Frank
Abbing

I let me but gladly of contrary convincing and Perhaps can You presently a simple Solution in the ListView.Dll utilize.

I said already:

I faith, a Unicode-Variante list view.dll rewards but not. The Anwendungsfälle are To seldom.

so one List view is quick created:
Compile Mark Separation

Def CreateWindowExW(12) !user32,CreateWindowExW
Declare lv&,class#
Dim class#,512
Cls
StringW class#,0=SysListView32
lv&=CreateWindowExW($200,class#,0,$50000041,100,100,200,200,%hwnd,1,%hinstance,0)
WaitInp

Nico
Madysa

likes thoroughly his, still then comes the true Fun: Spaltendefinition (endurable) and add the Lines (Why I, How already erwähnt, scheitere), as well as possible Suchfunktionen, etc.

Nico Madysa

your example is no Solution Frank, one CLS is too no Solution for a Medienplayer.

You lay Yes solely one Control on, Dietmar need but 2 Split...

I see your simple Solution (yet) not.

Frank
Abbing

your example is no Solution Frank, one CLS is too no Solution for a Medienplayer

have neither to, a Medienplayer To write. the example is what it his should: One example.

...still then comes the true Fun: Spaltendefinition (endurable) and add the Lines

As I said, from this reason Have I The List view.dll then written, around the things plainer To style.
my Source is already ready in Assembler, a second in XProfan I will not any more write. otherwise had I you here what copies.
Nico, bequeme still times the Search. there's some Source code for Listviews. The must You still only yet accommodate to The Wide-Strings. For this bid OLE32 some functions.

Nico
Madysa

Tada!

Compile Mark Separation

Struct CREATESTRUCT = lpCreateParams&, hInstance&, hMenu&, hwndParent&, cy%, cx%, y%, x%, style&, lpszName&, lpszClass&, dwExStyle&
Struct LVCOLUMN = Mask&, FMT&, CX&, Text&, cchTextMaxLen&, Subitem&
Struct LVITEM = IMASK&, ITEM&, ISUBITEM&, State&, StateMask&, ITEXT&, ITEXTMAX&, IIMAGE&, ILPARAM&

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

    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

    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#)

    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

 $10 = von A-Z
 $20 = von Z-A
 $04 = keine Mehrfachauswahl

subproc Create.GridBoxW

    parameters pWnd&,def$,stl%,x%,y%,dx%,dy%
    declare s$
    var hList& = CreateW(SysListView32,,$50000209 + stl%,x%,y%,dx%,dy%,pWnd&,1000,%hInstance,$200)
    u_SendMessageW(hList&,$1036,0,$00000023)
    var LVC# = New(LVCOLUMN)

    With LVC#

        .Subitem& = 0
        .MASK& = $7

        whileloop 0,(len(def$,;)  3) - 1

            s$ = SubStr$(def$,3*&loop + 1,;)
            .TEXT& = Addr(s$)
            .FMT&  = val(SubStr$(def$,3*&loop + 2,;))
            .CX&   = val(SubStr$(def$,3*&loop + 3,;))
            .cchTextMaxLen& = len(s$)
            u_SendMessageW(hList&,$1061,&loop,LVC#)

        EndWhile

    EndWith

    Dispose LVC#
    return hList&

endproc

proc InsertStringW

    parameters hList&,s$,index%
    declare ss$
    var LVI# = New(LVITEM)
    var d$ = UTF(Get(ListDel))

    With LVI#

        .IMASK&=$1
        .ITEM& = index%

        whileloop len(s$,d$)

            ss$ = SubStr$(s$,&loop,d$)
            .iText& = Addr(ss$)
            .ITEXTMAX& = len(ss$)
            .ISUBITEM& = &loop - 1

            ifnot &loop - 1

                u_SendMessageW(hList&,$104D,index%,LVI#)

            else

                u_SendMessageW(hList&,$102E,index%,LVI#)
                u_SendMessageW(hList&,$104C,index%,LVI#)

            endif

        EndWhile

    EndWith

endproc

declare hUser&,hGDI&,hKrnl&,hList&,clip$
cls
var font& = Create(Font,Times New Roman,16,0,0,0,0)
hUser& = ImportDLL(USER32,u_)
hList& = Create(GridBoxW,%hWnd,UTF(Welch)+;0;100;+UTF(eine)+;2;200;+UTF(Liste!)+;1;100,$00,100,5,410,200)
InsertStringW(hList&,UTF(Ich|bin|toll!),0)
InsertStringW(hList&,UTF(Ich|etwa|nicht?),1)
InsertStringW(hList&,UTF(Doch,|du|auch.),2)
SetFont hList&,font&

whilenot IsKey(27)

    waitinput

wend

FreeDLL hUser&
FreeDLL hGDI&
FreeDLL hKrnl&
4 href='./../../Function-References/XProfan/deleteobject/'>DeleteObject font&
end

Create(GridBoxW) and InsertStringW() should How your Ansi-Pendants functions. Strings go in the Unicodeformat expects. The Spaltendefinition in Create(GridBoxW) expects The Spaltentitel in Unicode, whom remainder in Ansi. (so wars for me plainer.

)
whom short recent Tests has the code terrific standgehalten.

Nico Madysa

06/05/09 ▲