Lb=ListViewGadget(#PB_Any,0,0,width,height,#LBS_OWNERDRAWFIXED|#LBS_HASSTRINGS) SetWindowLong_(WindowID(window),#GWL_STYLE, #WS_CHILD|#WS_DLGFRAME|#WS_EX_CLIENTEDGE|#WS_CLIPCHILDREN|#WS_CLIPSIBLINGS ) Window=OpenWindow(#PB_Any,x,y,width,height,"",#PB_Window_BorderLess|#PB_Window_Invisible) ProcedureDLL Listbox(number,x,y,width,height,parent) ProcedureReturn CallWindowProc_(OriginProc,hwnd,msg,wParam,lParam) HbmpPicture = SendMessage_(*lpdis\hwndItem,#LB_GETITEMDATA, *lpdis\itemID,0) Procedure ListboxProc( hwnd, msg,wParam,lParam)ĭrawText_(*lpdis\hdc, lbText$, Len(lbText$), *lptris\rcItem, dtFlags) ProcedureReturn CallWindowProc_(OriginProc1,hwnd,msg,wParam,lParam) HbmpOld = SelectObject_(hdcMem, hbmpPicture)īitBlt_(*lpdis\hdc, *lpdis\rcItem\left-32, *lpdis\rcItem\top, *lpdis\rcItem\right - *lpdis\rcItem\left,*lpdis\rcItem\bottom - *lpdis\rcItem\top, hdcMem, 0, 0, #SRCCOPY) HbmpPicture = SendMessage_(*lpdis\hwndItem,#CB_GETITEMDATA, *lpdis\itemID,0) SetTextColor_(*lpdis\hdc, currentTextColor)ĭrawText_(*lpdis\hdc, cbText$, Len(cbText$), *lptris\rcItem, dtFlags) *lptris.DRAWITEMSTRUCT=*lpdis.DRAWITEMSTRUCTĬurrentBrush = CreateSolidBrush_(RGB(0, 0, 80))ĬurrentTextColor = RGB(127, 0, *lpdis\rcItem, currentBrush) Procedure comboproc(hwnd,msg,wParam,lParam) HbrushSelectedFocus = CreateSolidBrush_(RGB(0, 0, 80)) HbrushSelected = CreateSolidBrush_(RGB(200, 255, 200)) HbrushDefault = CreateSolidBrush_(#White) SendMessage_(GadgetID(0), #LVM_GETITEMRECT, 0, r.Code: Select all Global OriginProc.l, OriginProc1.l,lb,icontouse,hbrushDefault.l,hbrushSelected.l,hbrushSelectedFocus. TextOut_(*lvCD\nmcd\hdc,subItemRect.RECT\left+2,subItemRect.RECT\top, Len(Text$)) TextOut_(*lvCD\nmcd\hdc,subItemRect.RECT\left + rh+2,subItemRect.RECT\top, Len(Text$)) SendMessage_(GadgetID(0), #LVM_GETSUBITEMRECT, thisRow, $0)ĭrawIconEx_(*lvCD\nmcd\hdc,subItemRect.RECT\left,subItemRect.RECT\top+1,Ico(thisRow),rh-4,rh-4,1,0,#DI_NORMAL) If *nmhdr\hWndFrom = GetWindow_(GadgetID(0),#GW_CHILD) And *nmhdr\code = #HDN_FIRST If GetAsyncKeyState_(#VK_CONTROL) & 32768 32768 And EventwParam() = #VK_ESCAPE And Edit = 1ĭebug GetGadgetItemText(0,item-1,subitem) SetGadgetItemText(0,item-1,GetGadgetText(1),subitem) If GetAsyncKeyState_(#VK_CONTROL) & 32768 32768 And EventwParam() = #VK_RETURN And Edit = 1 R\right = GetGadgetItemAttribute(0,0,#PB_ListIcon_ColumnWidth,0) - r\left SendMessage_(GadgetID(0), #LVM_GETSUBITEMRECT, li\iItem, r) If GetAsyncKeyState_(#VK_CONTROL) & 32768 = 32768 And EventwParam() = #VK_RETURN SetGadgetItemColor(0,item-1, #PB_Gadget_BackColor,GetSysColor_(#COLOR_HIGHLIGHT),subitem-1) SetGadgetItemColor(0,item-1,#PB_Gadget_FrontColor,$E1E1E1 ,subitem-1) SetGadgetItemColor(0,item-2, #PB_Gadget_BackColor,GetSysColor_(#COLOR_HIGHLIGHT),subitem)ĮlseIf EventwParam() = #VK_RIGHT And subitem = 1 SetGadgetItemColor(0,item-2,#PB_Gadget_FrontColor,$E1E1E1 ,subitem) SetGadgetItemColor(0,item-1, #PB_Gadget_BackColor,$E1E1E1,subitem) SetGadgetItemColor(0,item-1,#PB_Gadget_FrontColor,#Black ,subitem) ListIconGadget(0, 10, 10, 680, 455, "Column 0", 200, #PB_ListIcon_FullRowSelect | #PB_ListIcon_GridLines | #PB_ListIcon_AlwaysShowSelection)Īddtext$ = "Column 0 item # " + Str(a) + Chr(10) + "Column 1 item # " + Str(a) + Chr(10) + "Column 2 item # " + Str(a) If OpenWindow(0, 0, 0, 700, 500, "Set Select Color", #PB_Window_SystemMenu|#PB_Window_ScreenCentered | #PB_Window_SizeGadget) TextOut_(*lvCD\nmcd\hdc,subItemRect.RECT\left+2,subItemRect.RECT\top -2, Len(Text$)) TextOut_(*lvCD\nmcd\hdc,subItemRect.RECT\left + 18,subItemRect.RECT\top-2, Len(Text$)) Text$ = GetGadgetItemText(0,thisRow,thisCol)ĭrawIconEx_(*lvCD\nmcd\hdc,subItemRect.RECT\left,subItemRect.RECT\top+3,Ico(thisRow),16,16,1,0,#DI_NORMAL) SendMessage_(GadgetID(0), #LVM_GETSUBITEMRECT, thisRow, GetGadgetState(0) = thisRowįillRect_(*lvCD\nmcd\hdc, subItemRect, PlainBrush)įillRect_(*lvCD\nmcd\hdc, subItemRect, ColorBrush) If *lvCD\nmcd\hdr\hwndFrom=GadgetID(0) And *lvCD\nmcd\hdr\code = #NM_CUSTOMDRAW ResizeGadget(0,#PB_Ignore, #PB_Ignore,WindowWidth(0)-20,WindowHeight(0)-60) Procedure WindowCallback(hwnd, msg, wParam, lParam) ColorBrush = CreatePatternBrush_(ImageID(0))
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |