Foro | | | | - Página 1 - |
| Julian Schmidt | ¡Hola, Yo sería gerne una Listview con sowohl horizontalen como auch vertikalen Spalt-, Zeilenbuttons redactar. En el Zeilenbuttons me está unerheblich si uno el Höhe y Breite por Ratón verändern kann oder no. Außerdem Es el horizontale Sortierung el Itemtexte unnötigt. ¿Cómo se puede uno así algo realisieren?
LG
Julian57 |
| | | | |
| | | | - Página 2 - |
| | « Dieser Contribución wurde como Solución gekennzeichnet. » | | - Página 3 - |
| Andreas Miethe
| Julian57 (02.07.12)
hmmm......bien. Nur como bekommt al Feld a Texteingabe ausgeblendet. Und el Skalierbarkeit por Ratón unterdrückt? Außerdem necesario el "Sortierungspfeile" no necesariamente gesetzt ser.
Den Stil ändern ! KompilierenMarcaSeparaciónDef &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 muy komplex de. Yo voluntad me el Beispielquellcodes veces anschauen y versuchen me algo de el Haaren a raufen. Yo hoffe doch a algo Unterstützung. En Problemen. |
| | | | |
| | Julian Schmidt | ¡Hola & vlt veces una todo doofe Cuestión. Yo me gerade einiges por gelesen. Und besonders el Beispiele en dieser Página[...] son muy aufschlussreich. Aunque se hay siempre una ganzes Listview erstellt!? Ist el en meiner Situation unnötig, oder ebenfalls notwendig. Yo möchte sí sólo el Encabezamiento redactar y bearbeiten (Custom Draw). |
| | | | |
| | | Schlimmes de el Bett holendes Gewitter hier grad en Berlin...
Usted müsstest wohl ya una "komplettes" ListView erzeugen pero yo muss auch gestehen incluso todavía kein Listview con Custom-Draw suscrito a haben.
Tuve mich entonces siempre más dazu entschieden igual alles incluso a zeichen. |
| | | | |
| | Thomas Freier | Kann en el Moment auch el Sinn no erkennen. In seinem Musterbeispiel es sí sólo el 1.Spaltenbutton por una Grafik a sustituir. Wenn's porque ser se, en el Items el 1.Spalten una Button encima Crear... . Aber es ya irreführend una Button sin Función. Sonst una Icon conjunto. Ejemplo (aquí en el 5. Spalte) : [...] |
| | | | |
| | Julian Schmidt | @Thomas Der erste Button en el "Zeile\Spalte" drin es me está eig. relativ egal. Lo kommt me sólo en el Buttons como drunter a! Willst du oben andeuten el el unteren Buttons auch sin CostumDraw posible son.
[OFFTOPIC]@IF Das Gewitter war en me ya gestern Abend\Nacht. Wird entonces wohl a euch más elaborado ser.Saludo[/OFFTOPIC] |
| | | | |
| | Julian Schmidt | Frabbing ha mich gerade por Mail en esta Eintrag[...] en MSDN aufmerksam gemacht. Lo scheint así como si uno una Encabezamiento auch sin una Listview redactar kann. Ergo auch una Encabezamiento-Button sin Listview. Mich sería el Umsetzung en XProfan interés. Bekommt el alguien hin? Yo scheitere a media geringeren Erfahrungen con Klassen,Estructuras y API. |
| | | | |
| | Thomas Freier | Bin No klar qué du möchtest. Tiempo Es el Rede de Headerbutton, tiempos de Button en el Línea. Ejemplo para Button en el Línea con el Listview.dll. Der Stil des Button läßt se sicher adaptar. Wenn el Zeilenbutton como el Spaltenbutton aussehen se, restos sólo una Hoverbutton ala SKControl.dll encima oder incluso redactar. KompilierenMarcaSeparaciónDeclare 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 Encabezamiento-Buttons sólo untereinander en lugar de nebeneinander. El Encabezamiento-Buttons voluntad en el Listview.dll De todos modos Spaltbuttons benannt. ¿Por qué mi untereinander erstellten Encabezamiento-Buttons no Zeilenbuttons nennen. |
| | | | |
| | Thomas Freier | So? KompilierenMarcaSeparación $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 | Nein! Usted scheinst el immernoch falso a verstehen. Yo möchte no einfachen Buttons y no Headerbuttons en una Item, sonderen simplemente pure Headerbuttons redactar, en esta neben una Listview a redactar.
Julian57 (29.06.12)
Kann uno Buttons ähnlich Listview-Spaltbuttons einzeln redactar (por API). Dann podría Yo una bastante normales Listview uso. Links el Buttons anordnen. El Zeilehöhe des Listviews en el Höhe el Spaltbuttons abändern. Und todos con una schönen Rahmen umranden.
Julian57 (01.07.12)
Frabbing ha mich gerade por Mail en esta Eintrag [...] en MSDN aufmerksam gemacht. Lo scheint así como si uno una Encabezamiento auch sin una Listview redactar kann. Ergo auch una Encabezamiento-Button sin Listview. Mich sería el Umsetzung en XProfan interés. Bekommt el alguien hin? Yo scheitere a media geringeren Erfahrungen con Klassen,Estructuras y API. |
| | | | |
| | | Und esta Buttons links debería no vertikal mitscrollen? |
| | | | |
| | | Irgendwas stimmt hier aber todavía no como kein Texto adecuado se:
Descargar
KompilierenMarcaSeparación {$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
|
| | | | |
|
RespuestaTema opciones | 38.209 Views |
ThemeninformationenDieses Thema ha 5 subscriber: |