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 3 - |
|  | « 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 | iF (01.07.12)
and these Buttons left shouldn't Mouse and Sprite mitscrollen?
No should tappt im dunkeln not!
iF (01.07.12)
Irgendwas is correct here but not yet there no Text displayed becomes:
Yes sees integrally so from. apropos shining it so in reinen XProfan none To functions!?
CompileMarkSeparationdef 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
|
| | | | | | |
| |  | here one statement from the ENH:
CompileMarkSeparationDEF 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
| 07/01/12 ▲ | |
| | |
| |
Julian
Schmidt | there crashes by me the Interpreter ex. regardless which the...
CompileMarkSeparationDeclare INITC#,__cf45&,TXT#,HDITEM# >
missing.
Getestet in XProfanX2, XProfan11 Free
what is ENH?
are you meanwhile behind it come Why your Text not To gewiesen becomes? |
| | | | | | |
| | | | in the ENH-File standing what xpse on whom XProfan-Compiler commit. |
| | | | | | |
| | | under Vista unfortunately too no Text what about me see neither and so no Text
viewed becomes.
Perhaps get the Yes someone out or has so experience. |
| | | | | | |
| | 
Thomas
Freier | @Julian, You want means not: List view with sowohl horizontalen as well as vertikalen Spalt-, Zeilenbuttons,
separate Buttons in the Style the LV-Haederbutton. vaguely so:
CompileMarkSeparationwindow 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
whether the at all machbar is? |
| | | | Gruß Thomas
Windows XP SP2, XProfan X2 | 07/02/12 ▲ |
| | |
| |
Julian
Schmidt | | | | | | | |
| | | Beziehungsweise:
 |
| | | | | | |
| |
Andreas
Miethe
| 
means by me functions it, one must only the structure correctly. fill.
CompileMarkSeparationDef &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 : [...] | 07/02/12 ▲ |
| | |
| |
Julian
Schmidt | | 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. |
| | | | | | |
| | | Andreas Miethe (02.07.12)
means by me functions it, one must only the structure correctly. fill.
very, grmpfzbl - I Depp white not at all How I on it coming here first The
Size the structure anzugeben:
CompileMarkSeparation
where still the structure lt. msdn the not at all vorsieht -
simply The 28 in front omit:
CompileMarkSeparation and already funktionierts.
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.
with CreateWindowEx The Style-Parameter Change -
Stile simply z.B. with Control-Spy abschauen. |
| | | | | | |
| |
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 ▲ |
| | |
|
AnswerTopic-Options | 38.294 Views |
Themeninformationenthis Topic has 5 subscriber: |
(524)
Deutsch
English
Français
Español
Italia
