MDICHILD - Icons

[nageswaragunupudi]

Is there any way I can have different Icons for different MDICHILD windows ?

[Rick Lipkin]

Rao

You will have to define each child with its own icon :

Code: Select all  Expand view

DEFINE ICON oICO RESOURCE "WALKING"

DEFINE WINDOW oWnd1 ;
       FROM 3,1 to 30,100 ;
       of oWndMdi         ;
       Menu Buildmenu();
       TITLE cTITLE       ;
       ICON oICO ;
       NoMinimize ;
       NoZoom ;
       MdiChild
 

Rick

[Antonio Linares]

Rao,

Fixed. It was a bug that may have been introduced in FWH recently.

These are the required changes in source\classes\mdichild.prg:

Code: Select all  Expand view

...
   if ! ::lRegistered
      ::lRegistered = RegisterClass( "TMDICHILD",;
                                     nOR( CS_VREDRAW, CS_HREDRAW, CS_DBLCLKS ),;
                                     0, 0, 0, 0, 0, "", GetMDIChlProc() )
   endif
...
   if oIcon != nil
      ::SendMsg( WM_SETICON, 0, oIcon:hIcon )
   endif
 

Thanks!

[Rick Lipkin]

Antonio

I have noticed from time to time that the child icons would appear and dissapear as inherited from the MDI .. I just never gave it much thought so I decided to define my own ..

Thanks ..
Rick

ps .. I know this may be a MS restriction .. but is there a way to inherit the aero glass frame from a MDI to its child ??

[Antonio Linares]

Rick,

I have noticed from time to time that the child icons would appear and dissapear as inherited from the MDI .. I just never gave it much thought so I decided to define my own ..

With the proposed and tested fix, it should work ok now.

ps .. I know this may be a MS restriction .. but is there a way to inherit the aero glass frame from a MDI to its child ??

No, sorry, it seems as a Windows behavior restriction.