GNAVI,GWindows.Common_Controls.On_Notify - how to return value?

GNAVI,GWindows.Common_Controls.On_Notify - how to return value?

[George J]

Hi all! Today I've got troubles with WM_NOTIFY message in Gwindows. I have a listview and i want to realize custom draw method (put progressbar in the cell and change font color) like in this little example (copied from codeproject examples):
-----------------------------
static LRESULT CALLBACK
MainWinProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    switch(uMsg) {
        case WM_NOTIFY:
        {
            NMHDR* pHdr = (NMHDR*) lParam;
            if(pHdr->idFrom == ID_LISTVIEW  &&  pHdr->code == NM_CUSTOMDRAW)
           {
                NMLVCUSTOMDRAW* pcd = (NMLVCUSTOMDRAW*) lParam;

                   TCHAR buffer[16];
                   LVITEM item;
                   switch(pcd->nmcd.dwDrawStage) {
                      case CDDS_PREPAINT:
                          /* Tell the control we are interested in per-item notifications.
                          * (We need it just to tell the control we want per-subitem
                          * notifications.) */
                            return CDRF_DODEFAULT | CDRF_NOTIFYITEMDRAW;//  ^*^ Problem here!
.....etc
---------------------------------------------
I made overriding On_Notify method to listview (like in 24 tutorial example GWindows) :
-------------------------------------------
   type NMHDR is
      record
         HWND_From : Win32.Windef.HWND;
         ID_From   : Win32.UINT_PTR;
         Code      : Win32.UINT;
      end record;
   pragma Convention(C_PASS_BY_COPY,NMHDR);

   type LPNMHDR is access all NMHDR;
   -- ... and other declarations

   NM_FIRST      : constant := 0;
   NM_CUSTOMDRAW : constant := NM_FIRST-12;
   
   function To_LPNMHDR is new Ada.Unchecked_Conversion(GWindows.Types.Lresult,LPNMHDR);
   
   -- On_Notify --

   overriding procedure On_Notify
     (Window       : in out X_List_View_Type;
      Message      : in     GWindows.Base.Pointer_To_Notification;
      Control      : in     GWindows.Base.Pointer_To_Base_Window_Class;
      Return_Value : in out GWindows.Types.Lresult)
   is
      PNMHDR : LPNMHDR := To_LPNMHDR(Return_Value);
   begin
      case Message.Code is
         when NM_CUSTOMDRAW =>
            null;-- ^*^ i can't understand, how can i return CDRF_DODEFAULT here
         when others =>
            null;
      end case;
   end On_Notify;
--------------------------------------------
Can smb explain some mechanizm of On_Notify? I've explored GWindows sources and didn't find neither registering class, nor wndProc and really can't understand how to realize those C example. Thanks!

Re: GNAVI,GWindows.Common_Controls.On_Notify - how to return value?

[gautier_niouzes]

Hi George,
Have a look at On_Notify in GWindows.Common_Controls.Ex_List_View
(file .\gwindows\contrib\gwindows-common_controls-ex_list_view.adb ).
I guess it is the kind of things you'd like to do.
BTW Ex_List_View is a very cool customization of List_View's.
If you start the gwindows_contrib.gpr you can build 3 demos.
HTH
_________________________ 
Gautier's Ada programming 
http://sf.net/users/gdemont/

Re: GNAVI,GWindows.Common_Controls.On_Notify - how to return value?

[George J]

воскресенье, 14 августа 2016 г., 10:12:13 UTC+3 пользователь gautier...@hotmail.com написал:
> Hi George,
> Have a look at On_Notify in GWindows.Common_Controls.Ex_List_View
> (file .\gwindows\contrib\gwindows-common_controls-ex_list_view.adb ).
> I guess it is the kind of things you'd like to do.
> BTW Ex_List_View is a very cool customization of List_View's.
> If you start the gwindows_contrib.gpr you can build 3 demos.
> HTH
> _________________________ 
> Gautier's Ada programming 
> http://sf.net/users/gdemont/

Yes,Gautier!Thanks!It seems i've got - i have to put return value into Return_Value of On_Notify and return. I'll try it!

Re: GNAVI,GWindows.Common_Controls.On_Notify - how to return value?

[gautier_niouzes]

BTW, if you have more questions, you may consider the GNAVI mailing list:
https://lists.sourceforge.net/lists/listinfo/gnavi-discuss
G.