| |
| |
|
| - 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 |
|
| |
| |
| |
|
 |
« 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 ▲ |
|
| |
|
|
|
| |
| |
| - page 4 - |
|
Julian
Schmidt | | et bezüglich des Rahmens? |
|
| |
| |
| |
|
|
 | Sieht wohl eh dépendant vom Thema aus:
So gibts wohl chez XP sowie chez XP sans "visueller Stil" gar keinen cadre.
KompilierenMarqueSéparation
Vlt. doch einfacher Bitmap-Controls trop verwenden? |
|
| |
| |
| |
|
|
Julian
Schmidt | | avec cela beantwortest du mon Frage pas. cet bezog sich pas sur une Headerbutton mais sur cela Listview. |
|
| |
| |
| |
|
|
| Entferne la fois den erweiterten Stil ws_ex_staticEdge...
je hoffe j'ai Votre Frage eh bien beantwortet.  |
|
| |
| |
| |
|
|
Julian
Schmidt | |
| |
| |
| |
|
|
| Hi!
Kanns sur dem Handy eh pas testen mais ws_ex_staticEdge = $20000.
peux aussi son cela Du cette Stil pas nachträglich entfernen peux et cela
Contrôle juste avec entsprechendem Stil erstellen müsstest. |
|
| |
| |
| |
|
|
Julian
Schmidt | avec...
KompilierenMarqueSéparation funktioniert ebenso pas. Hatte je im übrigen aussi déjà ausprobiert.
si je cela Contrôle juste sans den Stil erstelle, peux je sur dem Listview immernoch Funktionen qui Listview.dll anwenden? |
|
| |
| |
| |
|
|
| | Erstellst Du maintenant déjà cela Contrôle juste avec dem gewünschten Stil? |
|
| |
| |
| |
|
| |
| |
| - page 5 - |
|
|
Julian
Schmidt | | oui j'ai es hinbekommen. merci. |
|
| |
| |
| |
|
|
Julian
Schmidt | dernier Frage. Momentan peux je mich encore pas entscheiden si je qui Spaltbuttons près de ou bien dans cela Listview lege.
si je vous dans cela Listview lege schmieren vous unschön beim Scrollen. comment wird on cela à l'attaque?
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
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&,external("gdi32","GetStockObject",17)
SetFont SendMessage(listview&,$101f,0,0),external("gdi32","GetStockObject",17)
InsertColumn listview&,"",0,2
InsertColumn listview&,"...",60,2
InsertColumn listview&,"Spalte 1",100,2
InsertColumn listview&,"Spalte 2",100,2
InsertColumn listview&,"Spalte 3",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&,1,&loop)
Get_LvData_Button()
CreateHeaderButton(LV_Handle&,str$(int(&loop+1)),LV_Xoffset&-3,LV_Yoffset&+1,LV_Width&+1,LV_Height&-4)
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
Proc CreateHeaderButton
Parameters hdl&,text$,x1&,y1&,x2&,y2&
var hwndHeader&=External("User32","CreateWindowExA",0,"SysHeader32","",$50000802, 0, 0, 0, 0, hdl&,0,%hInstance, 0)
declare txt#
dim txt#,64
string txt#,0=text$
declare hditem#
dim hditem#,28
long hditem#,0=$43,x2&,txt#,0,64,$4002,0
setfont hwndHeader&,external("gdi32","GetStockObject",17)
sendMessage(hwndHeader&,$00001201,0,hdItem#)
SetWindowPos hwndHeader&=x1&,y1& - x2&,y2&
dispose hditem#
Return hwndHeader&
s4 href='./../../funktionsreferenzen/XProfan/endproc/'>ENDPROC
|
|
| |
| |
| |
|
|
| | Imho au maximum avec Custom-Draw. |
|
| |
| |
| |
|
|
Julian
Schmidt | Ok, ensuite lass je cela.
et nehme l'autre variante. 
merci! je denke avec cela ist qui Fil geschlossen. |
|
| |
| |
| |
|
(576)
Deutsch
English
Français
Español
Italia
