I would also like it to be as complete as possible and there are still a few things missing but it's progressing, slowly, slowlyįor some stuff, like the icons on the tabs, I would need examples as a starting point, I don't know how to do.įor your 1st issue, for the Editable ComboBox, I have updated to also paint the Edit part with the colors now.Īnd on Windows 10 with the DarkTheme, the ComboBox Image is now partially supported by applying the theme on its chid.ĭo not add #CBS_HASSTRINGS|#CBS_OWNERDRAWFIXED for ComboBox Image, only ComboBoxGadget(#Combo,X,Y,W,H,#PB_ComboBox_Image)įor the 3rd, I don't know, I added the code below but not sure if it changes anything: You're welcome, no worries at all, it allows to improve the tools Only three small issues left at the moment. Hope you're not taking offense to all these issues - I just want your code to be rock-solid so it can be dropped into any app and work flawlessly. Hi ChrisR! Thanks for the update! I appreciate your help. See the below screenshot of its top-right corner (for privacy) and the code I'm using to open it and make it dark (not compilable, but surely it shows if I'm doing something wrong?). Its TextGadget and ListIcon don't go dark at all. I have another window that gets opened on demand by the app (after selecting a menu item on the main window to open it), and only its background color goes dark. If ev = #PB_Event_Gadget And EventGadget() = button If OpenWindow(#Window_2, 600, 200, 320, 260, "Window 2", #PB_Window_SystemMenu | #PB_Window_Invisible)ĬomboBoxGadget(#Combo, 10, 10, 300, 28, #PB_ComboBox_Editable | #CBS_HASSTRINGS | #CBS_OWNERDRAWFIXED) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindowĬode: Select all XIncludeFile "ObjectColor.pbi" SplitterGadget(#Splitter, 10, 50, 300, 200, #ListIcon, #Editor, #PB_Splitter_Separator) ListIconGadget(#ListIcon, 0, 0, 0, 0, "ListIcon Column 1", 180)ĪddGadgetColumn(#ListIcon, 1, "Column 2", 120)įor I = 1 To 5 : AddGadgetItem(#ListIcon, -1,"Column 1 Element " + Str(I) +Chr(10)+ "Column 2 Element " + Str(I)) : Nextįor I = 0 To 5 : AddGadgetItem(#Editor, I, "Editor Line " + Str(I)) : Next If OpenWindow(#Window, X, Y, Width, Height, "Title", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)ĬomboBoxGadget(#Combo, 10, 10, 300, 28, #CBS_HASSTRINGS|#CBS_OWNERDRAWFIXED)įor I = 1 To 5 : AddGadgetItem(#Combo, -1,"ComboBox Element " + Str(I)) : Next Procedure Open_Window(X = 0, Y = 0, Width = 320, Height = 260)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |