Forum | | | | | | - 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 |
| | | | | | |
| | | | | | - Page 2 - |
|  | « 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 ▲ |
| | | |
| |
Julian
Schmidt | sees very komplex from.
i'll me The Beispielquellcodes time look at and try me something from the Haaren To scuffle. 
I hope still on something Support. with Problemen. |
| | | | | | |
| |
Julian
Schmidt | Hello & vlt time a whole doofe question.
I Have me straight some through red. and particularly The Examples on this Page[...] are very aufschlussreich.
though becomes there always one ganzes List view prepares!?
is the in of my situation unnecessary, or ditto necessary. i want Yes only the Header create and Edit (Custom Draw). |
| | | | | | |
| |  | Schlimmes from the bed holendes thunderstorm here strain in Berlin...
You müsstest well already one "komplettes" ListView produce but I must too
confess self yet no List view with Custom-Draw drawn to have.
I had me then always sooner moreover decided same everything self To characters. |
| | | | | | |
| | 
Thomas
Freier | | can in the momentum too whom sense not discern. in its Musterbeispiel is Yes only the 1.Column Button by a graphic To supplant. Wenn's because his should, into Items the 1.Split a Button over Create... . but is already misleading one Button without function. otherwise one Icon settle. example (here in the 5. slot) : [...] |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 07/01/12 ▲ |
| | |
| |
Julian
Schmidt | @Thomas
The first Button in the "Zeile\Spalte" drin standing is me eig. relatively alike. it comes me only on The Buttons there drunter on!
want You supra intimate the The downstairs Buttons too without CostumDraw possible are.
[OFFTOPIC]@IF
the thunderstorm was by me already yesterday evening\night. becomes then well To you moreover pulled his.Greeting[/OFFTOPIC] |
| | | | | | |
| |
Julian
Schmidt | Frabbing has me straight by Mail on this entry[...] in MSDN attentive made.
it shining so as though one one Header too without one List view create can. Ergo too a Header-Button without List view.
me would The Umsetzung in XProfan interested. get the someone there?
I scheitere with empty geringeren Experience with classes,Structures and API. |
| | | | | | |
| |
Thomas
Freier | be I do not clear what You want. time is the speech of Headerbutton, time of Button in the row. example to that Button in the row with the List view.dll. The Style the Button can itself sure adjust.
If the Zeilenbutton How the Column Button looks should, remaining only one Hoverbutton ala SKControl.dll over or self create.
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
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
|
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 07/01/12 ▲ |
| | |
| |
Julian
Schmidt | @Thomas
Header-Buttons only among themselves instead of next to each other. The Header-Buttons go in the List view.dll too always Spaltbuttons benannt. Why my among themselves erstellten Header-Buttons not Zeilenbuttons name. |
| | | | | | |
| |
Thomas
Freier | so?
CompileMarkSeparation $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
|
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 07/01/12 ▲ |
| | |
| |
Julian
Schmidt | No! You seem the immernoch wrong To understand. i want no einfachen Buttons and no Headerbutton on one Item, sonderen simply pure Headerbutton create, circa these next to one List view to create.
Julian57 (29.06.12)
Can Buttons similar List view-Spaltbuttons particular create (by API).
then could I one integrally normales List view use. left The Buttons space. The Zeilehöhe of Listviews on the level the Spaltbuttons alter. and the whole with a lovely welt umranden.
Julian57 (01.07.12)
Frabbing has me straight by Mail on this entry [...] in MSDN attentive made. it shining so as though one one Header too without one List view create can. Ergo too a Header-Button without List view. me would The Umsetzung in XProfan interested. get the someone there? I scheitere with empty geringeren Experience with classes,Structures and API. |
| | | | | | |
| | | | and these Buttons left shouldn't Mouse and Sprite mitscrollen? |
| | | | | | |
| | | Irgendwas is correct here but not yet there no Text displayed becomes:
Download
CompileMarkSeparation {$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
|
| | | | | | |
|
AnswerTopic-Options | 38.295 Views |
Themeninformationenthis Topic has 5 subscriber: |
(524)
Deutsch
English
Français
Español
Italia