| |
| |
|
GDL | allô et wieder je,
dans manchen Anwendungen, wohin wenig place ist, sieht on des öfteren plusieurs Checkboxen sur ner scrollbaren Unterlage, qui comment ne Listbox aussieht.
eh bien qui Frage,
si qui Unterlage wirklich ne Listbox ist, comment bekommt on ensuite qui Checkboxen sur qui Listbox, ou bien wird un Listboxähnliches Contrôle verwendet?
merci.
salut
Georg |
|
| |
| |
| |
|
|
 | cela nennt sich Scroll-Area. Pour cette wird meist un Static avec HSCROLL et VSCROLL Style pris. avec SetParent peux on ensuite qui Checkboxes trop Childs qui Scroll-Area faire. Hab malheureusement encore aucun entsprechenden Codes dans Profan gesehen, sollte mais funzen
//Éditer
je crois, Du meinst doch un Listview, ensuite vergiß cela auparavant geschriebene erstmal. je hab à quoi d'autre gedacht |
|
| |
| |
| |
|
|
Frank
Abbing | Hi.
chez mon Listview.dll Demos est un Beispiel dabei, quoi ähnliches pouvoir. Musst la fois durchsehen, komm maintenant pas sur den genauen Namen. |
|
| |
| |
| |
|
|
 | qui Listview.Dll  ist hierfür naturellement hervorragend approprié.
aussi inframes (chez CodeSnippets) peut Dir aider si du quelque chose Komplexeres scrollen vouloir.
Salve, iF. |
|
| |
| |
| |
|
|
GDL | merci euch allen pour qui Tipps, werde mich la fois durchwursteln.
salut
Georg |
|
| |
| |
| |
|
|
GDL | Habe es avec inframe hinbekommen.qui Proc inframe hat nen Syntaxfehler
soll: in_yr&
KompilierenMarqueSéparationIn_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 >
ist: dans _yr&
KompilierenMarqueSéparationIn_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 >
salut
Georg |
|
| |
| |
| |
|
|
GDL | allô iF,
Doch encore nen Problem trouvé.chez deinem Snippet Déplacer sich qui Checkkästchen beim Anklicken, sobald on einmal zuvor irgendeinen Scrollbalken betätigt hat.
si on après ensuite wieder den Scrollbalken betätigt, stimmen qui Anordnungen wieder.Sieht vraie lustig aus qui hüpfenden Checkboxen.
salut
Georg |
|
| |
| |
| |
|
|
Michael
Dell | Salut,
pourrait que voici aider? (List&CheckBox Fake)
KompilierenMarqueSéparationOrginal: 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/'>Fin
|
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 21.09.2005 ▲ |
|
| |
|
|
| Besten Dank Michael,
qui Code nimmt mir très viel travail ab!!!
une Checklistbox läßt sich aussi direct avec Profan aus einer normalen Listbox erzeugen (Checkboxen mehrzeilig nebeneinander, rechtsbündig etc.). je hatte cela Contrôle déjà la fois ici sur meinem calculateur - habe ensuite malheureusement gedacht, qui cela Notieren des Codes pas nötig ist (était stinkeinfach trop erzeugen), et maintenant viens je pas plus sur elle (son Scheiß  ).
Salut
AH |
|
| |
| |
| |
|
|
Michael
Dell | allô Andreas,
tout autor gings déjà la fois. Avez- du den Code: [...]
Stell den ihn la fois ici en supplément:
KompilierenMarqueSéparationAutor: 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! | 21.09.2005 ▲ | |
|
| |
|
|
| non, mon je pas. cela allez aussi sans Checkboxen trop erzeugen.
je hatte autrefois avec Messages et Stiles herumgespiel et suis par Zufall sur une Listbox avec cette Eigenschaften gekommen... |
|
| |
| |
| |
|
|
GDL | allô Michael,
so ähnlich comment dein letztes Posting(alors ne Checkbox sur nen vider Listboxeintrag erstellen), J'ai eu aussi déjà getestet.
mais überall même chose, chez meinen vorherigen Versuchen,chez Ifs Inframe et chez deinem letzten Code.
qui Checkboxen laisser sich aktivieren et désactiver, solange qui Scrollbalken pas bewegt wird, sobald qui Scrollbalken bewegt wird et après une Checkbox angeklickt wird, verscjiebt sich cet sur dem Listboxcontrol. peut-être wieder la fois nen ME Problem?
Glaub je mais net, dans anderen Programmen aller Scrollbare Checkboxfelder oui aussi.
salut
Georg |
|
| |
| |
| |
|
(433)
Deutsch
English
Français
Español
Italia