XProfan

- page 4 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 3 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

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 !
Kompilieren Marque Séparation

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

était justement tour den Stil pour mon Zwecke ab trop changement, et ensuite ist Andreas doch plus rapide.
Sieht bien aus! merci!
quelque chose pour mon Zwecke minimalisiert....
Kompilieren Marque Séparation

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

Salut,
j'ai cela ganze maintenant la fois près de mon Listview gesetzt et serait encore volontiers un paire Anpassungen avant prendre.
Zum Einen serait Je l' Text dans meinen "künstlichen" Headerbuttons zentriert ausrichten. Zum zweiten mon Listview so modifizieren, cela es keinen cadre(WS_Border) hat.
So sieht alles momentan aus.

ici la fois alles dans un Archiv emballé.
Herunterladen

quelle Font(-Art,-Taille) wird standardmäßig pour cela Listview verwandt? je serait cet aussi volontiers pour mon Headerbuttons verwenden!

LG

Julian57

listview.rar

28 kB

Hochgeladen:

02.07.2012

listview.jpg Preview

42 kB

Hochgeladen:

02.07.2012

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

Schauma:
Kompilieren Marque Séparation

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&

./../../funktionsreferenzen/XProfan/endproc/'>ENDPROC

Aus:
Kompilieren Marque Séparation

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

wurde:
Kompilieren Marque Séparation

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

17=DEFAULT_GUI_FONT

Zentriert per $4002 statt 4000:

Rechtsbündig wäre $4001.

zwischenablage01.png	28 kB

Hochgeladen:	02.07.2012

Downloadcounter:
		Herunterladen

Julian
Schmidt

et bezüglich des Rahmens?

Sieht wohl eh dépendant vom Thema aus:

So gibts wohl chez XP sowie chez XP sans "visueller Stil" gar keinen cadre.
Kompilieren Marque Séparation

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

Vlt. doch einfacher Bitmap-Controls trop verwenden?

zwischenablage01.png Preview

1 kB

Hochgeladen:

03.07.2012

zwischenablage01.png Preview

5 kB

Hochgeladen:

03.07.2012

Julian
Schmidt

avec cela beantwortest du mon Frage pas. cet bezog sich pas sur une Headerbutton mais sur cela Listview.

Entferne la fois den erweiterten Stil ws_ex_staticEdge...

je hoffe j'ai Votre Frage eh bien beantwortet.

Julian
Schmidt

Bringt malheureusement keinen Erfolg.
Kompilieren Marque Séparation

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

Hi!

Kanns sur dem Handy eh pas testen mais ws_ex_staticEdge = $20000.

peux aussi son cela Du cette Stil pas nachträglich entfernen peux et cela
Contrôle juste avec entsprechendem Stil erstellen müsstest.

Julian
Schmidt

avec...
Kompilieren Marque Séparation

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

funktioniert ebenso pas. Hatte je im übrigen aussi déjà ausprobiert.

si je cela Contrôle juste sans den Stil erstelle, peux je sur dem Listview immernoch Funktionen qui Listview.dll anwenden?

Erstellst Du maintenant déjà cela Contrôle juste avec dem gewünschten Stil?

Julian
Schmidt

oui j'ai es hinbekommen. merci.