XProfan

- Page 4 -

« this Posting watts as Solution marked. »

- Page 3 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

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 !
Compile Mark Separation

Def &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 : [...]

Julian
Schmidt

was straight dran whom Style for my tack ex To Change, and then is Andreas still faster.
sees well from! thanks!
something for my tack minimalisiert....
Compile Mark Separation

cls
CreateHeaderButton(%hwnd,"Test",10,10,200,30)

while 1

    waitinput

EndWhile

end

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,$4000,0
    sendMessage(hwndHeader&,$00001201,0,hdItem#)
    SetWindowPos hwndHeader&=x1&,y1& - x2&,y2&
    dispose hditem#
    Return hwndHeader&

ENDPROC

Julian
Schmidt

Hi,
I have the whole now time next to my List view staid and would yet gladly a couple adjustments to take.
to that a would I the Text in my "künstlichen" Headerbutton Centered report. to that second my List view so modify, the it none welt(WS_Border) has.
so sees everything momentarily from.

here time everything into archive gepackt.
Download

which Font(-manner,-Size) becomes standardmäßig for the List view akin? i'd these too gladly for my Headerbutton use!

LG

Julian57

listview.rar

28 kB

Hochgeladen:

07/02/12

listview.jpg Preview

42 kB

Hochgeladen:

07/02/12

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Schauma:
Compile Mark Separation

Def GetSysColor(1) !"USER32","GetSysColor"
Def &button_height 26
def &line_height 25
 $I Listview_Funktionen.inc
Var lvdll&=usedll("Listview.dll")
CLS GetSysColor(15)
Var dg_listview&=Control("DIALOG","",$50800000,10,10,35+(50*5),(&button_height*13)+2,%hwnd,0,%hinstance,$0)
Showwindow(dg_listview&,1)
Var listview&=CreateListView(dg_listview&,%hinstance,0,RGB(255,255,255),-1,$401)
'SetStyle listview&, GetStyle(listview&)-$800000
InsertColumn listview&,"",0,0

Whileloop 5

    InsertColumn listview&,Str$(&loop),50,2

Endwhile

Whileloop 13

    CreateHeaderButton(dg_listview&,If(&loop=1,"",Str$(&loop-1)),0,&button_height*(&loop-1),30,&button_height)

EndWhile

Var freelist&=SetLineHeight(listview&,&line_height)

whileloop 0,11*5,5

    SetItem listview&,Str$(&loop),Str$(&loop+1),Str$(&loop+2),Str$(&loop+3),Str$(&loop+4),Str$(&loop+5)

EndWhile

ShowListView(listview&,30,0,width(dg_listview&),height(dg_listview&))
InitMessages(dg_listview&)

WhileNot (%key=2)

    waitinput

EndWhile

DestroyImageList(freelist&)
CloseMessages(dg_listview&)
freedll lvdll&
 $I Listview_Dispose.inc
End

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&

./../../Function-References/XProfan/endproc/'>ENDPROC

from:
Compile Mark Separation

long hditem#,0=$43,x2&,txt#,0,64,$4000,0

watts:
Compile Mark Separation

long hditem#,0=$43,x2&,txt#,0,64,$4002,0
setfont hwndHeader&,external("gdi32","GetStockObject",17)

17=DEFAULT_GUI_FONT

Centered by $4002 instead of 4000:

Rechtsbündig would $4001.

zwischenablage01.png	28 kB

Hochgeladen:	07/02/12

Downloadcounter:
		Download

Julian
Schmidt

and concerning the Rahmens?

sees well eh tributary of Topic from:

so Gibts well with XP as well as with XP without "visueller Stil" quite none welt.
Compile Mark Separation

def SetWindowTheme(3) !"uxtheme.dll","SetWindowTheme"
SetWindowTheme(CreateHeaderButton(%hwnd,"Test",10,10,200,30),"","")e>

Perhaps. still plainer Bitmap-Controls To use?

zwischenablage01.png Preview

1 kB

Hochgeladen:

07/03/12

zwischenablage01.png Preview

5 kB

Hochgeladen:

07/03/12

Julian
Schmidt

so beantwortest You my question not. These related not a Headerbutton separate the List view.

Entferne time whom advanced Style ws_ex_staticEdge...

I hope I have your question now answers.

Julian
Schmidt

bring unfortunately none success.
Compile Mark Separation

SetStyle listview&, 1, GetStyle(listview&,1)-20000

Hi!

Kanns on the Handy eh not testing but ws_ex_staticEdge = $20000.

can also his the You this Style not as an afterthought Remove can and the
Control same with corresponding Style create müsstest.

Julian
Schmidt

with...
Compile Mark Separation

SetStyle listview&, 1, GetStyle(listview&,1)-$20000

functions likewise not. having I in übrigen already ausprobiert.

If I the control same without whom Style create, can I on the List view immernoch functions list view.dll utilize?

Erstellst You now already the control same with the desired Style?

Julian
Schmidt

Yes I have it hinbekommen. thanks.