| |
| |
|
| - Page 1 - |
|
Julian
Schmidt | Hi,
i'd gladly one List view with sowohl horizontalen as well as vertikalen Spalt-, Zeilenbuttons create.
with whom Zeilenbuttons is me beside the point whether one the level and wide by mouse change can or not. Also is the horizontale Sort Itemtexte unnötigt.
How can such a thing release?
LG
Julian57 |
|
| |
| |
| |
|
 |
« this Posting watts as Solution marked. » |
|
| - Page 3 - |
|
Andreas
Miethe
 | Julian57 (02.07.12)
hmmm......well. only How get to the area to Text-Input ausgeblendet. and the Skalierbarkeit by mouse suppress? Also must The "Sortierungspfeile" not absolutely staid his.
whom Style Change !
CompileMarkSeparationDef &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 : [...]  | 07/02/12 ▲ |
|
| |
|
|
|
| |
| |
| - Page 4 - |
|
Julian
Schmidt | | and concerning the Rahmens? |
|
| |
| |
| |
|
|
 | sees well eh tributary of Topic from:
so Gibts well with XP as well as with XP without "visueller Stil" quite none welt.
CompileMarkSeparation
Perhaps. still plainer Bitmap-Controls To use? |
|
| |
| |
| |
|
|
Julian
Schmidt | | so beantwortest You my question not. These related not a Headerbutton separate the List view. |
|
| |
| |
| |
|
|
| Entferne time whom advanced Style ws_ex_staticEdge...
I hope I have your question now answers.  |
|
| |
| |
| |
|
|
Julian
Schmidt | |
| |
| |
| |
|
|
| Hi!
Kanns on the Handy eh not testing but ws_ex_staticEdge = $20000.
can also his the You this Style not as an afterthought Remove can and the
Control same with corresponding Style create müsstest. |
|
| |
| |
| |
|
|
Julian
Schmidt | with...
CompileMarkSeparation functions likewise not. having I in übrigen already ausprobiert.
If I the control same without whom Style create, can I on the List view immernoch functions list view.dll utilize? |
|
| |
| |
| |
|
|
| | Erstellst You now already the control same with the desired Style? |
|
| |
| |
| |
|
| |
| |
| - Page 5 - |
|
|
Julian
Schmidt | | Yes I have it hinbekommen. thanks. |
|
| |
| |
| |
|
|
Julian
Schmidt | latest question. momentarily can I me not yet decide whether I The Spaltbuttons next to or into List view lay.
If I tappt im dunkeln into List view lay schmieren tappt im dunkeln unschön at Scrolling. How becomes to the go?
CompileMarkSeparationDeclare 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='./../../Function-References/XProfan/endproc/'>ENDPROC
|
|
| |
| |
| |
|
|
| | Imho not more than with Custom-Draw. |
|
| |
| |
| |
|
|
Julian
Schmidt | OK, then lass I the.
and take The others Variante. 
thanks! i think so is the Thread closed. |
|
| |
| |
| |
|
(523)
Deutsch
English
Français
Español
Italia
