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 3 - |
|  | « 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 | IF (01.07.12)
Und esta Buttons links debería no vertikal mitscrollen?
Nein debería Sie no!
IF (01.07.12)
Irgendwas stimmt hier aber todavía no como kein Texto adecuado se:
Sí sieht bastante así de. Ganz nebenbei scheint lo así en reinen XProfan nada a trabajo!?
KompilierenMarcaSeparacióndef InitCommonControlsEx(1) !"COMCTL32","InitCommonControlsEx"
def CreateWindowEx(12) !"User32","CreateWindowExA"
decimals 0
cls
declare initc#
dim initc#,8
long initc#,0=8,1
InitCommonControlsEx(initc#)
var hwndHeader&=createWindowEx(0,$20,0,$40000000| $800000 | $2 | $0, 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,$2 | $4 | $1,300,txt#,0,10,$0 | $4000
sendMessage(hwndHeader&,hdm_insertItem,0,hdItem#)
SetWindowPos hwndHeader&=10,10 - 500,100
while 1
waitinput
wend
end
|
| | | | | | |
| |  | Hier una Auszug de el ENH:
KompilierenMarcaSeparaciónDEF INITCOMMONCONTROLSEX(1) !"COMCTL32","InitCommonControlsEx"
DECIMALS 0
CLS
DIM INITC#,8
LONG INITC#,0=8,1
INITCOMMONCONTROLSEX(INITC#)
VAR HWNDHEADER&=call(__cf45&,0,"sysheader32",0,$40000000 | $800000 | $00000002 | $00000000, 0, 0, 0, 0, %hwnd,0,%hinstance, 0)
DIM TXT#,64
STRING TXT#,0="Hallo Welt"
DIM HDITEM#,28
LONG HDITEM#,0=28,$0002 | $0004 | $0001,300,TXT#,0,10,0 | $4000
SENDMESSAGE(HWNDHEADER&,$1200 + 1,0,HDITEM#)
SETWINDOWPOS HWNDHEADER&=10,10 - 500,100
WHILE 1
WAITINPUT
| 01.07.2012 ▲ | |
| | |
| |
Julian
Schmidt | Como stürzt en me el Interpreter de. Ungeachtet dessen el...
KompilierenMarcaSeparaciónDeclare INITC#,__cf45&,TXT#,HDITEM# >
fehlt.
Getestet en XProfanX2, XProfan11 Libre
Was heißt ENH?
Bist du inzwischen detrás de él gekommen por qué dein Texto no a gewiesen se? |
| | | | | | |
| | | | In el ENH-Expediente es qué xpse a el XProfan-Kompiler übergibt. |
| | | | | | |
| | | Bajo Vista desafortunadamente auch kein Texto y yo sehe auch no por qué kein Texto
gezeigt se.
Tal vez bekommt el sí alguien fuera oder ha así Erfahrung. |
| | | | | | |
| | 
Thomas
Freier | @Julian, du möchtest also no: Listview con sowohl horizontalen como auch vertikalen Spalt-, Zeilenbuttons,
pero Buttons en el Stil el LV-Haederbutton. In etwa así:
KompilierenMarcaSeparaciónwindow 10,100-750,300
'
$H Messages.ph
$H Windows.ph
$H commctrl.ph
$I Listview_Funktionen.inc
SETTRUECOLOR 1
var lvdll&=usedll("Listview.dll")
var font&=CreateFont("Arial",14,0,0,0,0)
Declare Bereich#
Dim bereich#,320
Clear bereich#
var Lv1&=CreateListView(%hwnd,%hinstance,0,rgb(255,255,255),-1,$421)
InsertColumn lv1&,"1.",60,1
ShowListView(lv1&,120,30,66,24)
SetFont Lv1&,font&
var Lv2&=CreateListView(%hwnd,%hinstance,0,rgb(255,255,255),-1,$421)
InsertColumn lv2&,"2.",60,1
ShowListView(lv2&,120,53,66,24)
SetFont Lv2&,font&
Declare x&, y&
InitMessages(%hwnd)
setfocus(Lv1&)
while 1
waitinput 10
y&=GetControlParas(bereich#)
x&=GetVar(4)
If x&<>-1
y&=GetVar(5)
case y&=Lv1&: print "1. gedrückt"
case y&=Lv2&: print "2. gedrückt"
EndIf
endwhile
DeleteObject font&
Dispose Bereich#
CloseMessages(%hwnd)
freedll lvdll&
End
Ob el überhaupt machbar es? |
| | | | | | |
| |
Julian
Schmidt | | | | | | | |
| | | Beziehungsweise:
 |
| | | | | | |
| |
Andreas
Miethe
| 
Also en me funktioniert lo, uno muss sólo el Struktur correcto füllen.
KompilierenMarcaSeparaciónDef &HDM_INSERTITEMA $00001201
def InitCommonControlsEx(1) !"COMCTL32","InitCommonControlsEx"
def CreateWindowEx(12) !"User32","CreateWindowExA"
decimals 0
cls
declare initc#
dim initc#,8
long initc#,0=8,1
InitCommonControlsEx(initc#)
var hwndHeader&=createWindowEx(0,"SysHeader32","",$40800342, 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,$400,0
sendMessage(hwndHeader&,&hdm_insertItemA,0,hdItem#)
string txt#,0="Hallo Karl"
long hditem#,0=$43,200,txt#,0,64,$400,0
sendMessage(hwndHeader&,&hdm_insertItemA,1,hdItem#)
SetWindowPos hwndHeader&=10,10 - 400,40
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 | | 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. |
| | | | | | |
| | | Andreas Miethe (02.07.12)
Also en me funktioniert lo, uno muss sólo el Struktur correcto füllen.
Exactamente, grmpfzbl - Yo Depp weiß garnicht Yo en él kam hier zuerst el
Größe el Struktur anzugeben:
KompilierenMarcaSeparación
wo doch el Struktur lt. msdn el garnicht vorsieht -
simplemente el 28 vorne weglassen:
KompilierenMarcaSeparación y ya funktionierts.
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.
En CreateWindowEx el Style-Parámetro ändern -
Stile simplemente z.B. con Control-Spy abschauen. |
| | | | | | |
| |
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 ▲ |
| | |
|
RespuestaTema opciones | 38.202 Views |
ThemeninformationenDieses Thema ha 5 subscriber: |
(1.112)
Deutsch
English
Français
Español
Italia
