XProfan

- Página 4 -

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 3 -

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

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 !
Kompilieren Marca Separación

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

War gerade dran el Stil para mi Zwecke de a ändern, y luego es Andreas doch más rápido.
Sieht bien de! Gracias!
Etwas para mi Zwecke minimalisiert....
Kompilieren Marca Separación

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

¡Hola,
Tengo el todo ahora veces neben mein Listview gesetzt y sería sigue gustando unos pocos Anpassungen antes nehmen.
Zum Einen sería Yo, el Texto en media "künstlichen" Headerbuttons zentriert ausrichten. Zum zweiten mein Listview así modifizieren, el lo no Rahmen(WS_Border) ha.
So sieht alles momentan de.

Hier veces alles en una Archiv gepackt.
Descargar

Welche Font(-Art,-Größe) se standardmäßig para el Listview verwandt? Yo sería esta También me gusta para mi Headerbuttons uso!

LG

Julian57

listview.rar

28 kB

Hochgeladen:

02.07.2012

listview.jpg Prevista

42 kB

Hochgeladen:

02.07.2012

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

Schauma:
Kompilieren Marca Separación

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 Marca Separación

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

wurde:
Kompilieren Marca Separación

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

17=DEFAULT_GUI_FONT

Zentriert por $4002 en lugar de 4000:

Rechtsbündig wäre $4001.

zwischenablage01.png	28 kB

Hochgeladen:	02.07.2012

Ladeanzahl:
		Descargar

Julian
Schmidt

Und bezüglich des Rahmens?

Sieht wohl eh abhängig vom Thema de:

So gibts wohl en XP sowie en XP sin "visueller Stil" gar no Rahmen.
Kompilieren Marca Separación

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

Vlt. doch einfacher Mapa de bits-Controls utilizarse?

zwischenablage01.png Prevista

1 kB

Hochgeladen:

03.07.2012

zwischenablage01.png Prevista

5 kB

Hochgeladen:

03.07.2012

Julian
Schmidt

Damit beantwortest du mi Cuestión no. Diese bezog se no en una Headerbutton pero el Listview.

Entferne veces el avanzado Stil ws_ex_staticEdge...

Yo hoffe Yo Su Cuestión nun beantwortet.

Julian
Schmidt

Bringt desafortunadamente no Erfolg.
Kompilieren Marca Separación

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

Hi!

Kann en el Handy eh no testen aber ws_ex_staticEdge = $20000.

Kann auch ser el Usted esta Stil no nachträglich entfernen kannst y el
Control igual con entsprechendem Stil redactar müsstest.

Julian
Schmidt

Mit...
Kompilieren Marca Separación

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

funktioniert ebenso no. Hatte Yo en el übrigen auch ya ausprobiert.

Wenn Yo el Control igual sin el Stil erstelle, kann I el Listview immernoch Características el Listview.dll anwenden?

Erstellst Usted ahora ya el Control igual con el deseado Stil?

Julian
Schmidt

Sí Yo lo hinbekommen. Gracias.