12/1/2023 0 Comments Purebasic windowcolorIDE Options = PureBasic v4. If OpenWindow(0, 384, 288, 640, 480, "ListIconGadget sort example", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget) PureBasic is a commercially distributed procedural computer programming language and integrated development environment based on BASIC and developed by Fantaisie Software for Windows, Linux, and macOS. ResizeGadget(0, 0, 0, WindowWidth, WindowHeight) If hwnd = WindowID(0) And IsIconic_(hwnd)=0 SendMessage_(ListIconGadget, #LVM_SORTITEMS, *pnmv\iSubItem, = *pnmv\iSubItem If *msg\hwndFrom = ListIconGadget And *msg\code = #LVN_COLUMNCLICK Procedure ColumnClickCallback(hwnd, uMsg, wParam, lParam) SetGadgetItemData(GetDlgCtrlID_(ListIconGadget), i, i) LRecs = SendMessage_(ListIconGadget, #LVM_GETITEMCOUNT, 0, 0) Protected i.l, lTmp.l, lRecs.l, lvi.LV_ITEM SendMessage_(ListIconGadget, #LVM_GETITEMTEXT, *item2\UserData, = Buffer1 SendMessage_(ListIconGadget, #LVM_GETITEMTEXT, *item1\UserData, = Buffer2 Procedure CompareFunc(*item1.PB_ListIconItem, *item2.PB_ListIconItem, lParamSort) Global ListIconGadget.l, Buffer1.l, Buffer2.l, lvi.LV_ITEM, updown.l, lastcol.l #LVM_GETEXTENDEDLISTVIEWSTYLE = #LVM_FIRST + 55 #LVM_SETEXTENDEDLISTVIEWSTYLE = #LVM_FIRST + 54 Author: Unknown (updated for PB 4.00 by netmaestro) Either draw directly on the screen using commands from section 2D_DRAW. In Gui applications to display text information can be used TextGadget. Print command is intended for console applications. (Equal to command Print tab(10) myTextVariable(i) tab(20) myNumericalVariable(i) tab(60) myNumericalVariable2(i)) How to print indexed variables, formatted output ,in scrollbar gadget ? Seems I am tricky able inject color variable in WindowColor command.Very good. Loop Until (ev=EventClose Or ev=EventKeyDown Or ev=EventLBDOWN Or ev=EventRBDOWN) Loop Until (ev=EventLBDOWN Or ev=EventRBDOWN) Well, it turned out that the real problem is to get a window color.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |