PureBasic Forums - English

Code: Select all

    Case #WM_DRAWITEM 
      *DrawItem = lParam
      If *DrawItem\hwndItem = GadgetID(*pointer\comboboxid)
        ;Proceed with the draw.
          SetTextAlign_(*DrawItem\hDC, #TA_LEFT)
          SetBkMode_(*DrawItem\hDC, #TRANSPARENT) ; Text is rendered transparent 
          SetTextColor_(*DrawItem\hDC, 0) 
          If *DrawItem\ItemState & #ODS_COMBOBOXEDIT	=0
            If *DrawItem\ItemState & (#ODS_FOCUS | #ODS_SELECTED) 
              Brush = CreateSolidBrush_(GetSysColor_(#COLOR_HIGHLIGHT)) 
              FillRect_(*DrawItem\hDC, *DrawItem\rcItem, Brush) 
              DeleteObject_(Brush) 
              SetTextColor_(*DrawItem\hDC, GetSysColor_(#COLOR_HIGHLIGHTTEXT)) 
            Else
              FillRect_(*DrawItem\hDC, *DrawItem\rcItem, GetStockObject_(#WHITE_BRUSH)) 
            EndIf 
            If *DrawItem\itemID <> -1
              *DrawItem\rcItem\left = 4
              text$=GetGadgetItemText(*pointer\comboboxid, *DrawItem\itemID)
              cellinfo\font = SendMessage_(*pointer\Handle, #WM_GETFONT, 0, 0)
              ;Check if the egrid has an associated CellCallBack function.
              cellinfo\row = *pointer\item : cellinfo\column = *pointer\subitem-1
              returnfromcallback = DespatchCellCallback(*pointer, #egrid_FormatCell, @cellinfo)
              oldfont = SelectObject_(*DrawItem\hDC, cellinfo\font)
              DrawText_(*DrawItem\hDC, text$, Len(text$), *DrawItem\rcItem, #DT_END_ELLIPSIS|#DT_NOPREFIX|#DT_SINGLELINE|#DT_VCENTER)
              SelectObject_(*DrawItem\hDC, oldfont)
            EndIf 
          EndIf
      EndIf