- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Link Copied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
! this is a larger structure which contains an NMHDR as its initial element TYPE(T_NMLVCUSTOMDRAW) :: nmlvcd POINTER (lParam, nmlvcd) ! reference lisings of the custom draw data structures ! ! TYPE T_NMLVCUSTOMDRAW ! SEQUENCE ! TYPE (T_NMCUSTOMDRAW) nmcd ! typedefs NMCUSTOMDRAW ! integer(ULONG) clrText ! typedefs COLORREF ! integer(ULONG) clrTextBk ! typedefs COLORREF ! integer(SINT) iSubItem ! knowns int ! END TYPE
! TYPE T_NMCUSTOMDRAW ! SEQUENCE ! TYPE (T_NMHDR) hdr ! typedefs NMHDR ! integer(DWORD) dwDrawStage ! knowns DWORD ! integer(HANDLE) hdc ! handles HDC ! TYPE (T_RECT) rc ! typedefs RECT ! integer(DWORD_PTR) dwItemSpec ! knowns DWORD_PTR ! integer(UINT) uItemState ! knowns UINT ! integer(LONG_PTR) lItemlParam ! knowns LPARAM ! END TYPE ! TYPE T_NMHDR ! SEQUENCE ! integer(HANDLE) hwndFrom ! handles HWND ! integer(UINT) idFrom ! typedefs UINT_PTR ! integer(UINT) code ! knowns UINT ! END TYPE
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Paul, thanks for the reply.
I actually did it the way you indicated (below), and think that is the way to go. But also did it the way the SDK indicated above. Both methods seem to work. But, I am puzzeled at why the SDK method works in IVF. The lparam, above, is pointing at two different structures, so the addressappears to be the same for both structures? However, the addresses cannot be the same?
p_LVCD = lparam
if(LVCD%NMCD%hDr%hwndFrom == hWndList) then
if(LVCD%NMCD%hDR%code == NM_CUSTOMDRAW) then
select case(LVCD%NMCD%dwDrawStage)
case(CDDS_PREPAINT)
MainWndProc = CDRF_NOTIFYITEMDRAW
return
case(CDDS_ITEMPREPAINT)
hWndFocus = GetFocus()
! if the LV window does not have focus and the item/row is the
! HighLightedRow then shade row with gray
if(hWndFocus /= hWndList .AND. LVCD%NMCD%dwItemSpec == HighLightedRow) then
LVCD%clrTextBk = rgb(int1(220), int1(220), int1(220))
end if
MainWndProc = CDRF_NEWFONT
return
end select
end if
end if
Message Edited by halcyong@fcc.net on 03-11-2006 12:28 PM
Message Edited by halcyong@fcc.net on 03-12-2006 05:56 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
After thinking about the double use of the lparam in my initial post, I believethe following is occurring:
1) the initial NM_LISTVIEW notification mesg. and the associated lparam point to the NMLISTVIEW struc. and defineNMLV%HDR%code
2) a second notification mesg. NM_CUSTOMDRAW is received emmediatelyafter, and this time thelparam points at the NMLVCUSTOMDRAW struc., however, there is no corresponding HDR member in this structure. Therefore, NMLV%HDR%code is still defined (on the stack?)). This allows the code to execute andassociatethe secondlparam with the NMLVCUSTOMDRAW (LVCD) struc.
If the above conjecture is someplace in the ball park, is it safe to assume that NMLV%HDR%code willalways be defined when the second notification mesg. arrivess?
Message Edited by halcyong@fcc.net on 03-12-2006 05:52 AM
Message Edited by halcyong@fcc.net on 03-12-2006 05:54 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
The nested types listed in my earlier post indicate that only a single pointer is required. Here is the code for the actual processing for custom colors in a list:
Code:
CASE (WM_NOTIFY) controlId = wParam SELECT CASE (controlId) ! process CUSTOMDRAW messages to show each data column ! in its own color, matching the plot colors CASE (IDC_VLIST) IF (nmlvcd%nmcd%hdr%code == NM_CUSTOMDRAW) THEN SELECT CASE (nmlvcd%nmcd%dwDrawStage) CASE (CDDS_PREPAINT) rval = SetWindowLong (hwnd, DWL_MSGRESULT, CDRF_NOTIFYITEMDRAW) CASE (IOR(CDDS_ITEM, CDDS_PREPAINT)) rval = SetWindowLong (hwnd, DWL_MSGRESULT, CDRF_NOTIFYSUBITEMDRAW) CASE (IOR(CDDS_ITEM, IOR(CDDS_PREPAINT, CDDS_SUBITEM))) IF (nmlvcd%iSubItem > 0) THEN nmlvcd%clrText = tcolor(nmlvcd%iSubItem) ! preloaded custom color rval = SetWindowLong (hwnd, DWL_MSGRESULT, CDRF_NEWFONT) END IF CASE DEFAULT rval = SetWindowLong (hwnd, DWL_MSGRESULT, CDRF_DODEFAULT) END SELECT END IF ! ... other message processing END SELECT res = 1
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
![](/skins/images/7FC17B7B85029576C25F1E43CE255B51/responsive_peak/images/icon_anonymous_message.png)
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page