Forum | | | | | | - page 1 - |
| 
Julian
Schmidt | Salut,
je serait volontiers un Listview avec sowohl horizontalen comme aussi vertikalen Spalt-, Zeilenbuttons erstellen.
chez den Zeilenbuttons c'est moi unerheblich si on qui Hauteur et Breite per souris verändern peux ou bien pas. Aussi ist qui horizontale Sortierung qui Itemtexte unnötigt.
comment peux on so quelque chose realisieren?
LG
Julian57 |
| | | | | | |
| | | | | | - page 2 - |
|  | « cette Beitrag wurde comme Solution gekennzeichnet. » | | | - page 3 - |
| 
Andreas
Miethe
 | Julian57 (02.07.12)
hmmm......bien. seulement comment bekommt on cela champ zur Texteingabe ausgeblendet. et qui Skalierbarkeit per souris unterdrückt? Aussi doit qui "Sortierungspfeile" pas absolument gesetzt son.
Den Stil changement !
KompilierenMarqueSéparationDef &HDM_INSERTITEMA $00001201
def CreateWindowEx(12) !"User32","CreateWindowExA"
decimals 0
cls
var hwndHeader&=createWindowEx(0,"SysHeader32","",$50800802, 0, 0, 0, 0, %hWnd,0,%hInstance, 0)
declare txt#
dim txt#,64
string txt#,0="Hallo Welt"
declare hditem#
dim hditem#,28
long hditem#,0=$43,200,txt#,0,64,$4000,0
sendMessage(hwndHeader&,&hdm_insertItemA,0,hdItem#)
string txt#,0="Hallo Karl"
long hditem#,0=$43,200,txt#,0,64,$4000,0
sendMessage(hwndHeader&,&hdm_insertItemA,1,hdItem#)
SetWindowPos hwndHeader&=10,10 - 400,32
dispose hditem#
while 1
waitinput
wend
end
|
| | | | Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...]  | 02.07.2012 ▲ |
| | | |
| |
Julian
Schmidt | Sieht très komplex aus.
je werde mir qui Beispielquellcodes la fois anschauen et versuchen mir quelque chose aus dem Haaren trop raufen. 
je hoffe doch sur quelque chose Unterstützung. chez Problemen. |
| | | | | | |
| |
Julian
Schmidt | allô & vlt la fois une ganze doofe Frage.
je hab mir justement einiges par gelesen. et besonders qui Beispiele sur cette page[...] sommes très aufschlussreich.
Allerdings wird là toujours un ganzes Listview erstellt!?
Ist cela dans meiner Situation unnötig, ou bien également notwendig. je voudrais oui seulement cela En-tête erstellen et Travailler (Custom Draw). |
| | | | | | |
| |  | Schlimmes aus dem Bett holendes Gewitter ici grad dans Berlin...
Du müsstest wohl déjà un "komplettes" ListView erzeugen mais je muss aussi
gestehen selbst encore ne...aucune Listview avec Custom-Draw gezeichnet trop avons.
je hatte mich ensuite toujours plutôt en supplément entschieden juste alles selbst trop marque. |
| | | | | | |
| | 
Thomas
Freier | | peux im Moment aussi den Sinn pas erkennen. dans seinem Musterbeispiel ist oui seulement qui 1.Spaltenbutton par une Grafik trop ersetzen. Wenn's car son soll, dans qui Items qui 1.Spalten une Button sur Créer... . mais ist déjà irreführend un Button sans Funktion. Sonst un Icon mettons. Beispiel (ici dans qui 5. Spalte) : [...] |
| | | | | | |
| |
Julian
Schmidt | @Thomas
qui erste Button dans dem "Zeile\Spalte" drin steht c'est moi eig. relativ égal. Es venez mir seulement sur qui Buttons là drunter à!
veux du dessus andeuten cela qui unteren Buttons aussi sans CostumDraw possible sommes.
[OFFTOPIC]@IF
cela Gewitter était chez mir déjà gestern soir\nuit. Wird ensuite wohl trop euch plus gezogen son.Salut[/OFFTOPIC] |
| | | | | | |
| |
Julian
Schmidt | Frabbing hat mich justement per Mail sur cette Eintrag[...] dans MSDN aufmerksam gemacht.
Es scheint so comme si on un En-tête aussi sans un Listview erstellen peux. Ergo aussi une En-tête-Button sans Listview.
Mich serait qui Umsetzung dans XProfan intéresser. Bekommt cela quelqu'un hin?
je scheitere à meinen inférieur Erfahrungen avec Klassen,Strukturen et API. |
| | | | | | |
| |
Thomas
Freier | suis Je ne bien sûr quoi du vouloir. la fois ist qui discours de Headerbutton, la fois de Button dans qui la ligne. Beispiel zum Button dans qui la ligne avec qui Listview.dll. qui Stil des Button läßt sich sûrement anpassen.
si qui Zeilenbutton comment qui Spaltenbutton air soll, bleibt seulement un Hoverbutton ala SKControl.dll sur ou bien selbst erstellen.
KompilierenMarqueSéparationDeclare LV_Handle&,LV_Column&,LV_Row&,LV_Xoffset&,LV_Yoffset&,LV_Width&,LV_Height&
Declare Bereich#
Dim bereich#,320
Clear bereich#
$I Listview_Funktionen.inc
SETTRUECOLOR 1
var Font& = @CREATE("FONT","Verdana",14,0,0,0,0)
Window 0,0-608,413
Windowtitle "Beispiel"
var lvdll&=usedll("Listview.dll")
var listview&=CreateListView(%hwnd,%hinstance,0,RGB(255,255,255),-1,$21)
SetFont listview&,Font&
InsertColumn listview&,"",60,0
InsertColumn listview&,"Spalte 1",100,2
InsertColumn listview&,"Spalte 2",100,2
ShowListView(listview&,10,10,300,200)
InitMessages(%hwnd)
declare but%[],x%
WhileLoop 0,3,1
SetItem listview&,"","Telefon","Super"
Clear bereich#
GetOwnControlParas(bereich#,listview&,0,&loop)
Get_LvData_Button'Feldparameter auslesen
but%[&loop]= CONTROL("BUTTON",str$(int(&loop+1)), $54010000, LV_Xoffset&-2,LV_Yoffset&,LV_Width&-2,LV_Height&-4,LV_Handle&,100,%hinstance,0)
SetFont but%[&loop],font&
wend
while 1
waitinput
wend
Dispose Bereich#
Dispose Mousepos#
Dispose HT_Info#
CloseMessages(%hwnd)
freedll lvdll&
$I Listview_Dispose.inc
DELETEOBJECT Font&
End
Proc Get_LvData_Button
LV_Handle&=Long(bereich#,0)'Listview Handle
LV_Xoffset&=Long(bereich#,12)'X Offset
LV_Yoffset&=Long(bereich#,16)'Y Offset
LV_Width&=Long(bereich#,20)'Breite
LV_Height&=Long(bereich#,24)'Höhe
ENDPROC
|
| | | | | | |
| |
Julian
Schmidt | @Thomas
En-tête-Buttons seulement untereinander statt nebeneinander. qui En-tête-Buttons volonté dans qui Listview.dll De toute façon Spaltbuttons benannt. pourquoi mon untereinander erstellten En-tête-Buttons pas Zeilenbuttons appeler. |
| | | | | | |
| |
Thomas
Freier | So?
KompilierenMarqueSéparation $H commctrl.ph
Declare LV_Handle&,LV_Column&,LV_Row&,LV_Xoffset&,LV_Yoffset&,LV_Width&,LV_Height&
Declare Bereich#
Dim bereich#,320
Clear bereich#
$I Listview_Funktionen.inc
SETTRUECOLOR 1
var Font& = @CREATE("FONT","Verdana",14,0,0,0,0)
Window 0,0-608,413
Windowtitle "Beispiel"
var lvdll&=usedll("Listview.dll")
var listview&=CreateListView(%hwnd,%hinstance,0,RGB(255,255,255),-1,$21)
SetFont listview&,Font&
setstyle Listview&,getstyle(Listview&) | ~LVS_NOCOLUMNHEADER
InsertColumn listview&,"",60,0
InsertColumn listview&,"Spalte 1",100,2
InsertColumn listview&,"Spalte 2",100,2
ShowListView(listview&,10,10,300,200)
InitMessages(%hwnd)
declare but%[],x%
WhileLoop 0,3,1
SetItem listview&,"","Telefon","Super"
Clear bereich#
GetOwnControlParas(bereich#,listview&,0,&loop)
Get_LvData_Button'Feldparameter auslesen
but%[&loop]= CONTROL("BUTTON",str$(int(&loop+1)), $54010000, LV_Xoffset&-4,LV_Yoffset&,LV_Width&,LV_Height&-4,LV_Handle&,100,%hinstance,0)
SetFont but%[&loop],font&
wend
while 1
waitinput
wend
Dispose Bereich#
Dispose Mousepos#
Dispose HT_Info#
CloseMessages(%hwnd)
freedll lvdll&
$I Listview_Dispose.inc
DELETEOBJECT Font&
End
Proc Get_LvData_Button
LV_Handle&=Long(bereich#,0)'Listview Handle
LV_Xoffset&=Long(bereich#,12)'X Offset
LV_Yoffset&=Long(bereich#,16)'Y Offset
LV_Width&=Long(bereich#,20)'Breite
LV_Height&=Long(bereich#,24)'Höhe
ENDPROC
|
| | | | | | |
| |
Julian
Schmidt | non! Du scheinst cela immernoch faux trop comprendre. je voudrais aucun einfachen Buttons et aucun Headerbuttons sur einem Item, sonderen simple pure Headerbuttons erstellen, um cet près de einem Listview trop erstellen.
Julian57 (29.06.12)
peux on Buttons ähnlich Listview-Spaltbuttons einzeln erstellen (per API).
ensuite pourrait je un entier normales Listview verwenden. à gauche qui Buttons anordnen. qui Zeilehöhe des Listviews sur qui Hauteur qui Spaltbuttons abändern. et cela ganze avec une schönen cadre umranden.
Julian57 (01.07.12)
Frabbing hat mich justement per Mail sur cette Eintrag [...] dans MSDN aufmerksam gemacht. Es scheint so comme si on un En-tête aussi sans un Listview erstellen peux. Ergo aussi une En-tête-Button sans Listview. Mich serait qui Umsetzung dans XProfan intéresser. Bekommt cela quelqu'un hin? je scheitere à meinen inférieur Erfahrungen avec Klassen,Strukturen et API. |
| | | | | | |
| | | | et cet Buttons à gauche devoir pas vertikal mitscrollen? |
| | | | | | |
| | | Irgendwas stimmt ici mais encore pas là ne...aucune Text angezeigt wird:
Télécharger
KompilierenMarqueSéparation {$compiler c:\xprofan11}
{$runtime c:\xprofan11}
{$cleq}
def InitCommonControlsEx(1) !"COMCTL32","InitCommonControlsEx"
decimals 0
cls
declare initc#
dim initc#,8
long initc#,0=8,1
InitCommonControlsEx(initc#)
var hwndHeader&=createWindowEx(0,WC_HEADER,0,WS_CHILD | WS_BORDER | HDS_BUTTONS | HDS_HORZ, 0, 0, 0, 0, hWnd,0,hInstance, 0)
declare txt#
dim txt#,64
string txt#,0="Hallo Welt"
declare hditem#
dim hditem#,28
long hditem#,0=28,HDI_TEXT | HDI_FORMAT | HDI_WIDTH,300,txt#,0,10,HDF_LEFT | HDF_STRING
sendMessage(hwndHeader&,hdm_insertItem,0,hdItem#)
SetWindowPos hwndHeader&=10,10 - 500,100
while 1
waitinput
wend
end
|
| | | | | | |
|
répondreOptions du sujet | 39.491 Views |
Themeninformationencet Thema hat 5 participant: |
(575)
Deutsch
English
Français
Español
Italia