Panelgadget flache multiline Items

[nicolaus]

Da mir das PanelGadget mit seinen Items nicht so gefallen hat habe ich mal eben im PSDK ne runde gelesen und dabei sind flache multiline items in einem PanelGadget rausgekommen.

Code: Alles auswählen

#TCS_BUTTONS = $0100
#TCS_FLATBUTTONS = $0008
#TCS_MULTILINE = $200 

OpenWindow(0,0,0,400,400,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"flat multiline panle items")
CreateGadgetList(WindowID())
PanelGadget(0,0,0,395,395)
For I = 0 To 10
  AddGadgetItem(0,I,"Item "+Str(I))
Next
style = GetWindowLong_(GadgetID(0),#GWL_STYLE)
style|#TCS_BUTTONS|#TCS_FLATBUTTONS|#TCS_MULTILINE
SetWindowLong_(GadgetID(0),#GWL_STYLE,style)
font = LoadFont(0, "Arial", 10, #PB_Font_Bold)
SendMessage_(GadgetID(0), #WM_SETFONT, font, 1)


Repeat
  Event = WaitWindowEvent()
  
Until Event = #PB_Event_CloseWindow

Gruß,
Nico

[ts-soft]

Schöne Sache, funzt aber nur ohne XP-Style

[nicolaus]

Schöne Sache, funzt aber nur ohne XP-Style

das habe ich nicht getestet da ich eh diesen bunten mist von XP nicht verwende. Was geht den mit dem XP style nicht

[ts-soft]

Sind keine Buttons sondern wie immer unter XP und die Darstellung wird nicht restauriert. Kann man so unter XP also nicht verwenden.

[SoS]

Jo,XP-Style funktioniert nich da M$ das vieleicht vergessen hat ?
Mit Windowblinds geht das schon.

[nicolaus]

Also es ist nicht ganz richtig was ihr geschrieben habt.
Nachdem ich jetzt extra mal das dumme resourcenraubende bunte zeug von XP angemacht habe habe ich festgestellt, das wenn in den Compileroptionen die unterstützung für den XP Skin ausgeschaltet ist, es doch geht.

Da bei mir genau diese unetrstützung eh immer aus ist wenn ich nen Programm entwickle brauch ich mir also doch keine gedanken machen.
Und ich kann auch nur jedem raten den bunten mist aus zu machen da der Style mit seinen ganzen schatteneffekten nur sinnlos power kostet.

[Batze]

Und ich kann auch nur jedem raten den bunten mist aus zu machen da der Style mit seinen ganzen schatteneffekten nur sinnlos power kostet.

Das freut den User, wenn du ihm keine Wahl lässt.

[ts-soft]

Wenn in der Exe kein XP-Style integriert ist, mache ich mir ne manifest-datei. Wenn dann nicht geht, gehts meist in den Papierkorb
Hab den schnellen Rechner doch nicht um mir altbackenen Programme anzuschauen. Ob der Style sinnvoll ist oder nicht, ist doch garnicht die Frage, das soll der User entscheiden.