| |
| |
|
| - 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 |
|
| |
| |
| |
|
 |
« 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 ▲ |
|
| |
|
|
|
| |
| |
| - Página 4 - |
|
Julian
Schmidt | | Und bezüglich des Rahmens? |
|
| |
| |
| |
|
|
 | Sieht wohl eh abhängig vom Thema de:
So gibts wohl en XP sowie en XP sin "visueller Stil" gar no Rahmen.
KompilierenMarcaSeparación
Vlt. doch einfacher Mapa de bits-Controls utilizarse? |
|
| |
| |
| |
|
|
Julian
Schmidt | | Damit beantwortest du mi Cuestión no. Diese bezog se no en una Headerbutton pero el Listview. |
|
| |
| |
| |
|
|
| Entferne veces el avanzado Stil ws_ex_staticEdge...
Yo hoffe Yo Su Cuestión nun beantwortet.  |
|
| |
| |
| |
|
|
Julian
Schmidt | |
| |
| |
| |
|
|
| Hi!
Kann en el Handy eh no testen aber ws_ex_staticEdge = $20000.
Kann auch ser el Usted esta Stil no nachträglich entfernen kannst y el
Control igual con entsprechendem Stil redactar müsstest. |
|
| |
| |
| |
|
|
Julian
Schmidt | Mit...
KompilierenMarcaSeparación funktioniert ebenso no. Hatte Yo en el übrigen auch ya ausprobiert.
Wenn Yo el Control igual sin el Stil erstelle, kann I el Listview immernoch Características el Listview.dll anwenden? |
|
| |
| |
| |
|
|
| | Erstellst Usted ahora ya el Control igual con el deseado Stil? |
|
| |
| |
| |
|
| |
| |
| - Página 5 - |
|
|
Julian
Schmidt | | Sí Yo lo hinbekommen. Gracias. |
|
| |
| |
| |
|
|
Julian
Schmidt | Letzte Cuestión. Momentan kann Yo mich todavía no entscheiden si Yo el Spaltbuttons neben oder en el Listview lege.
Wenn Yo ellos en el Listview lege schmieren ellos unschön beim Scrollen. Como se al los?
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
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 höchstens con Custom-Draw. |
|
| |
| |
| |
|
|
Julian
Schmidt | Ok, entonces lass Yo el.
Und nehme el otro Variante. 
Gracias! Yo denke así es el Hilo geschlossen. |
|
| |
| |
| |
|
(1.112)
Deutsch
English
Français
Español
Italia
