tayaipad.blogg.se

Result = ComboBoxConf(whaGadget)\Parameters\Background SetBkColor_(wParam, ComboBoxConf(whaGadget)\Parameters\Background) SetTextColor_(wParam, ComboBoxConf(whaGadget)\Parameters\TextColor) SetBkMode_(wParam, ComboBoxConf(whaGadget)\Parameters\Transparent) If (Message = #WM_CTLCOLOREDIT) Or (Message = #WM_CTLCOLORLISTBOX) Procedure ComboCallBack( hWnd.l, Message.l, wParam.l, lParam.l ) Nextcolcb=ColorComboBox(11,8,300,200,200,WindowID(0))ĪddColorCBItem(colcb,-1,"Item " + Str(i) + " of the Combo",RGB(i*30,i*20,i*30))ĪddCBItem(com,-1,"Item " + Str(i) + " of the Combo",icontouse)ĪddListboxItem(List,-1,"Item " + Str(i) + " of the Listview",icontouse)ĪddColorCBItem(nextcolcb,-1,"Blue",#Blue)ĪddColorCBItem(nextcolcb,-1,"Green",#Green)ĪddColorCBItem(nextcolcb,-1,"Yellow",#Yellow)ĪddColorCBItem(nextcolcb,-1,"Aqua",$FFF034) SendMessage_(GadgetID(combobox),#CB_SETITEMDATA,itemreturn,icon) ProcedureDLL AddColorCBItem(combobox.l,Position.l,text.s,ColorID.l) Itemreturn=SendMessage_(GadgetID(combobox),#CB_INSERTSTRING,Position,text)

SendMessage_(GadgetID(combobox),#CB_SETITEMDATA,itemreturn,imageid) Itemreturn=SendMessage_(GadgetID(combobox),#CB_ADDSTRING,0,text) ProcedureDLL AddCBItem(combobox.l,Position.l,text.s,imageid.l) Itemreturn=SendMessage_(GadgetID(listbox),#LB_INSERTSTRING,Position,text) SendMessage_(GadgetID(listbox),#LB_SETITEMDATA,itemreturn,imageid) Itemreturn=SendMessage_(GadgetID(listbox),#LB_ADDSTRING,0,text) ProcedureDLL AddListboxItem(listbox.l,Position.l,text.s,imageid.l) SendMessage_(GadgetID(combo),#CB_SETITEMHEIGHT,0,20) SendMessage_(GadgetID(combo),#CB_SETITEMHEIGHT,-1,20) ProcedureDLL ColorComboBox(number,x,y,width,height,parent) OriginProc1= SetWindowLong_(WindowID(combowindow), #GWL_WNDPROC, combo SendMessage_(GadgetID(combo),#CB_SETITEMHEIGHT,0,32) SendMessage_(GadgetID(combo),#CB_SETITEMHEIGHT,-1,32) ShowWindow_(WindowID(combowindow),#SW_SHOW)Ĭombo=ComboBoxGadget(#PB_Any, 0,0,width,height,#CBS_OWNERDRAWFIXED|#CBS_HASSTRINGS) SetWindowLong_(WindowID(combowindow),#GWL_STYLE, #WS_CHILD|#WS_DLGFRAME|#WS_EX_CLIENTEDGE|#WS_CLIPCHILDREN|#WS_CLIPSIBLINGS ) ProcedureDLL ComboBo圎x(number,x,y,width,height,parent)Ĭombowindow=OpenWindow(#PB_Any,x,y,width,height,"",#PB_Window_BorderLess|#PB_Window_Invisible) SendMessage_(GadgetID(lb),#LB_SETITEMHEIGHT,0,32) OriginProc= SetWindowLong_(WindowID(window), #GWL_WNDPROC, #LB_SETITEMDATA, 0, icontouse) 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) Code: Select all Global OriginProc.l, OriginProc1.l,lb,icontouse,hbrushDefault.l,hbrushSelected.l,hbrushSelectedFocus.