XProfan

Das nennt se Scroll-Area. Dafür se meist una Static con HSCROLL y VSCROLL Style genommen. Mit SetParent puede ser entonces el Checkboxes a Childs el Scroll-Area hacer. Hab desafortunadamente todavía no entsprechenden Codes en Profano gesehen, debería aber funzen

//Editar
Yo glaube, ¿Quieres decir que doch una Listview, entonces vergiß el vorher geschriebene primero. Yo a qué más pensamiento

Frank
Abbing

Hi.

en mi Listview.dll Demos es una Ejemplo esta, qué ähnliches macht. Musst veces durchsehen, komm ahora no en el genauen Namen.

El Listview.Dll

es esta natürlich hervorragend geeignet.

Auch inframes (en CodeSnippets) puede Usted helfen si du algo Komplexeres scrollen möchtest.

Salve, IF.

GDL

Gracias euch allen para el Tipps, voluntad mich veces durchwursteln.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

Posesiones lo con inframe hinbekommen.El Proc inframe ha nen Syntaxfehler

se: in_yr&
Kompilieren Marca Separación

In_hd&=Control(STATIC,,1409286400,0,0,If(In_xr&<In_xs&,In_xs&,In_xr&),In_yr&+10,In_hd&,0,%Hinstance,$0)Handle inneres Fenster

es: en _yr&
Kompilieren Marca Separación

In_hd&=Control(STATIC,,1409286400,0,0,If(In_xr&<In_xs&,In_xs&,In_xr&),In _yr&+10,In_hd&,0,%Hinstance,$0)Handle inneres Fenster

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

GDL

Hola si,

Doch todavía nen Problema gefunden.En deinem Snippet mover el Checkkästchen beim Anklicken, sobald uno una vez zuvor irgendeinen Scrollbalken betätigt ha.
Wenn uno danach entonces otra vez el Scrollbalken betätigt, stimmen el Anordnungen otra vez.Sieht echt lustig de el hüpfenden Checkboxen.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

Michael
Dell

¡Hola,

podría que aquí helfen? (List&CheckBox Fake)
Kompilieren Marca Separación

Orginal:    Richard Maurukas
bearbeitet: Michael Dell
ListView Funktionen
Def GSC(1)         !User32.Dll,GetSysColor
Def gSelAnz(1)     sendmessage (&(1),$1032,0,0)
Def dItemAnz(1)    sendmessage (&(1),$1004,0,0)
Def gItemTxt(3)    Sendmessage (&(1),$102D,&(2),&(3))
Def DelCol(2)      sendmessage (&(1),$101C,%(2),0)
Def DelItem(2)     sendmessage (&(1),$1008,%(2),0)
Def DelAllItems(1) sendmessage (&(1),$1009,0,0)
Def gItemState(3)  sendmessage (&(1),$102C,%(2),%(3))
Def sColWidth(3)   sendmessage (&(1),$101E,%(2),%(3))
Def gLVTxtcol(1)   sendmessage (&(1),$1023,0,0)        hole Text-Farbe
Def gLVTxtbkcol(1) sendmessage (&(1),$1025,0,0)        hole TextHintergrund-Farbe
Def gLVbkcol(1)    sendmessage (&(1),$1000,0,0)        hole Hintergrund-Farbe
Def sLVTxtcol(2)   sendmessage (&(1),$1024,0,&(2))     setze Text-Farbe
Def sLVTxtbkcol(2) sendmessage (&(1),$1026,0,&(2))     setze TextHintergrund-Farbe ($FFFFFFFF = -1 [Transparent?])
Def sLVbkcol(2)    sendmessage (&(1),$1001,0,&(2))     setze Hintergrund-Farbe
Def sLVStyle(2)    sendmessage (&(1),$1036,0,&(2))     setze Style - $01 GRIDLINE | $02 SUBITEMIMG | $04 CHECKBOX
 $08 TRACKSEL | $20 Fullrowsel (Report)
Declare Lview&,Zeile#
Struct zInhalt = Mask&,Ind&,d01&,d02&,d03&,ptrText&,LenTxt&,d08&

PROC Lview_INIT

    LView& = control(SysListView32,Hallolo!!,$50814803,10,10,sub(%winright,26),sub(%Winbottom,46),%Hwnd,$0100,%Hinstance)
    sLVStyle(LView&,$0C)

ENDPROC

PROC AddZeile

    Parameters LVHndl&,Index&,Text$
    Dim Zeile#,zInhalt
    Clear Zeile#
    Zeile#.Mask&    = $0001
    Zeile#.Ind&     = Index&
    Zeile#.ptrText& = Addr(Text$)
    Zeile#.LenTxt&  = Len(Text$)
    sendmessage(LVHndl&,$1007,0,Zeile#)
    sendmessage(LVHndl&,$102E,Index&,Zeile#)
    dispose Zeile#

ENDPROC

WindowStyle 26
Window Add(%maxX,10),0-400,300
Windowtitle ListCheckbox
ShowWindow(%HWnd,0)
Window 0,0-400,300
Cls GSC(15)
Lview_INIT
AddZeile(LView&,0,1. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test.)
AddZeile(LView&,1,2. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test.)
AddZeile(LView&,2,3. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test.)
AddZeile(LView&,3,4. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test.)
AddZeile(LView&,4,5. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test. Dies ist ein Test.)
ShowWindow(%HWnd,1)
Sleep 4000
DelItem(LView&,2)  Löscht die 3. Zeile

whilenot Equ(%Key,2)

    waitinput

EndWhile

ss=s4 href='./../../funktionsreferenzen/XProfan/end/'>End

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Besten Dank Michael,

el Code nimmt me muy viel Arbeit de!!!

Un Checklistbox läßt se auch direkt con Profano de uno normalen Listbox erzeugen (Checkboxen mehrzeilig nebeneinander, rechtsbündig etc.). Tuve el Control ya veces hier en mi Rechner - habe entonces desafortunadamente pensamiento, daß el Notieren des Codes no nötig es (war stinkeinfach a erzeugen), y ahora komme Yo no mehr en él (son Scheiß

).

Saludo

AH

Michael
Dell

¡Hola Andreas,

por lo tanto gings ya veces. Meinst du el código: [...]

Stell el ihn veces hier dazu:
Kompilieren Marca Separación

Autor: Jörg Sellmeyer
window 80,30-650,500
declare Liste%,Check%[20],Zähler%,Text$,Position%
Liste%=createlistbox(%hwnd,,50,50,200,200)
sendmessage(Liste%,416,0,20)---Zeilenhöhe 20 = Höhe einer Checkbox

while Zähler%<21

    addstring(Liste%, )-------Dummy-Eintrag
    Text$=Feld +str$(Zähler%)
    Position%=Zähler%*20--------20 > Höhe einer Checkbox
    Check%[Zähler%]=createcheckbox(Liste%,Text$,0,Position%,185,20)
    inc Zähler%

endwhile

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

Nein, mi Yo no. Es auch sin Checkboxen a erzeugen.
Tuve damals con Messages y Stiles herumgespiel y bin por Zufall en una Listbox con esta Características gekommen...

GDL

¡Hola Michael,

así ähnlich como dein letztes Posting(also ne Checkbox en nen leeren Listboxeintrag redactar), Tuve auch ya getestet.
Aber überall dasselbe, en media vorherigen Versuchen,en Ifs Inframe y en deinem letzten Code.

El Checkboxen dejar se aktivieren y deaktivieren, solange el Scrollbalken no bewegt se, sobald el Scrollbalken bewegt se y danach una Checkbox angeklickt se, verscjiebt se esta en el Listboxcontrol. Tal vez otra vez veces nen ME Problema?
Glaub Yo aber net, en otro Programmen ir Scrollbare Checkboxfelder en efecto.

Servus
Georg

Windows7 Xprofan 8,9,10 [...]