Multiline Listicongadget and Icons
Posted: Sun Sep 27, 2015 8:22 pm
Hello and good evevening,
I am getting crazy, I can t find any solution for Listicongadget with Multiline and Icon.
The code at the bottom generates Multiline Listicongadgets, but when I try to add an Icon it destroys the multiline.
Is there anybody with an idea how to solve this problem ?
kind regards
Amnesty
I am getting crazy, I can t find any solution for Listicongadget with Multiline and Icon.
The code at the bottom generates Multiline Listicongadgets, but when I try to add an Icon it destroys the multiline.
Is there anybody with an idea how to solve this problem ?
kind regards
Amnesty
Code: Select all
#window_jor = 0
#list_jor_errors = 1
If OpenWindow(#window_jor, #PB_Any, #PB_Any, 420, 240, "PW Window", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_Invisible)
LI = ListIconGadget(#list_jor_errors, 5,5, 410, 230, "", 60, #PB_ListIcon_FullRowSelect|#PB_ListIcon_GridLines)
AddGadgetColumn(#list_jor_errors, 1, "Text 1", 60)
AddGadgetColumn(#list_jor_errors, 2, "Text 2", 340)
imageList = ImageList_Create_(1, 30, #ILC_COLOR32, 0, 30)
SendMessage_(GadgetID(#list_jor_errors), #LVM_SETIMAGELIST, #LVSIL_SMALL, imageList)
AddGadgetItem(#list_jor_errors, -1,Chr(10)+ FormatDate("%hh:%ii:%ss", Date() + 10) + Chr(10) + "String" + Chr(13) + "String")
AddGadgetItem(#list_jor_errors, -1,Chr(10)+ FormatDate("%hh:%ii:%ss", Date() + 10) + Chr(10) + "String" + Chr(13) + "String")
AddGadgetItem(#list_jor_errors, -1,Chr(10)+ FormatDate("%hh:%ii:%ss", Date() + 10) + Chr(10) + "String" + Chr(13) + "String")
AddGadgetItem(#list_jor_errors, -1,Chr(10)+ FormatDate("%hh:%ii:%ss", Date() + 10) + Chr(10) + "String" + Chr(13) + "String")
HideWindow(#window_jor, 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
CloseWindow(#window_jor)
Break
EndSelect
ForEver
EndIf