Forum | | | | | | - page 1 - |
| 
Julian
Schmidt | Salut,
je serait volontiers un Listview avec sowohl horizontalen comme aussi vertikalen Spalt-, Zeilenbuttons erstellen.
chez den Zeilenbuttons c'est moi unerheblich si on qui Hauteur et Breite per souris verändern peux ou bien pas. Aussi ist qui horizontale Sortierung qui Itemtexte unnötigt.
comment peux on so quelque chose realisieren?
LG
Julian57 |
| | | | | | |
| | | | | | - page 3 - |
|  | « cette Beitrag wurde comme Solution gekennzeichnet. » | | | - page 3 - |
| 
Andreas
Miethe
 | Julian57 (02.07.12)
hmmm......bien. seulement comment bekommt on cela champ zur Texteingabe ausgeblendet. et qui Skalierbarkeit per souris unterdrückt? Aussi doit qui "Sortierungspfeile" pas absolument gesetzt son.
Den Stil changement !
KompilierenMarqueSéparationDef &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)
et cet Buttons à gauche devoir pas vertikal mitscrollen?
non devoir vous pas!
iF (01.07.12)
Irgendwas stimmt ici mais encore pas là ne...aucune Text angezeigt wird:
oui sieht entier so aus. entier nebenbei scheint es so dans reinen XProfan gar pas trop marcher!?
KompilierenMarqueSéparationdef 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
|
| | | | | | |
| |  | ici un Auszug aus qui ENH:
KompilierenMarqueSéparationDEF 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 | là stürzt chez mir qui Interpreter ab. Ungeachtet dessen cela...
KompilierenMarqueSéparationDeclare INITC#,__cf45&,TXT#,HDITEM# >
fehlt.
Getestet dans XProfanX2, XProfan11 Free
quoi est ENH?
es du inzwischen derrière elle gekommen pourquoi dein Text pas trop gewiesen wird? |
| | | | | | |
| | | | dans qui ENH-Dossier steht quoi xpse à den XProfan-Kompiler übergibt. |
| | | | | | |
| | | sous Vue malheureusement aussi ne...aucune Text et je vois aussi pas weshalb ne...aucune Text
gezeigt wird.
peut-être bekommt cela oui quelqu'un raus ou bien hat avec cela Erfahrung. |
| | | | | | |
| | 
Thomas
Freier | @Julian, du vouloir alors pas: Listview avec sowohl horizontalen comme aussi vertikalen Spalt-, Zeilenbuttons,
mais Buttons im Stil qui LV-Haederbutton. dans etwa so:
KompilierenMarqueSéparationwindow 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&
Fin
si cela überhaupt machbar ist? |
| | | | | | |
| |
Julian
Schmidt | | | | | | | |
| | | Beziehungsweise:
 |
| | | | | | |
| |
Andreas
Miethe
| 
alors chez mir funktioniert es, on muss seulement qui Struktur richtig füllen.
KompilierenMarqueSéparationDef &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. seulement comment bekommt on cela champ zur Texteingabe ausgeblendet. et qui Skalierbarkeit per souris unterdrückt? Aussi doit qui "Sortierungspfeile" pas absolument gesetzt son. |
| | | | | | |
| | | Andreas Miethe (02.07.12)
alors chez mir funktioniert es, on muss seulement qui Struktur richtig füllen.
oui c'est ca, grmpfzbl - je Depp sais garnicht comment je sur elle kam ici d'abord qui
Taille qui Struktur anzugeben:
KompilierenMarqueSéparation
wohin doch qui Struktur lt. msdn cela garnicht vorsieht -
simple qui 28 vorne omettre:
KompilierenMarqueSéparation et déjà funktionierts.
Julian57 (02.07.12)
hmmm......bien. seulement comment bekommt on cela champ zur Texteingabe ausgeblendet. et qui Skalierbarkeit per souris unterdrückt? Aussi doit qui "Sortierungspfeile" pas absolument gesetzt son.
chez CreateWindowEx qui Style-paramètre changement -
Stile simple z.B. avec Contrôle-Spy abschauen. |
| | | | | | |
| |
Andreas
Miethe
| Julian57 (02.07.12)
hmmm......bien. seulement comment bekommt on cela champ zur Texteingabe ausgeblendet. et qui Skalierbarkeit per souris unterdrückt? Aussi doit qui "Sortierungspfeile" pas absolument gesetzt son.
Den Stil changement !
KompilierenMarqueSéparationDef &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 ▲ |
| | |
|
répondreOptions du sujet | 39.467 Views |
Themeninformationencet Thema hat 5 participant: |
(580)
Deutsch
English
Français
Español
Italia
