A coupe of little changes for TMdiFrame and TMdiChild

[Enrico Maria Giordano]

TMdiFrame:

1) It seems that the correct default colors for an MDI frame window are

Code: Select all  Expand view  RUN

nClrFore  := GetSysColor( COLOR_WINDOWTEXT ), nClrBack := GetSysColor( COLOR_APPWORKSPACE ),;

instead of the current

Code: Select all  Expand view  RUN

nClrFore  := CLR_BLACK, nClrBack := GetSysColor( COLOR_WINDOW ),;

2) We get a better look of the window icon if

Code: Select all  Expand view  RUN

SendMessage( ::hWnd, WM_SETICON, 0, oIcon:hIcon )

is commented out.

TMdiChild:

1) As for TMdiFrame, it is better to comment out

Code: Select all  Expand view  RUN

::SendMsg( WM_SETICON, 0, oIcon:hIcon )

EMG

[Antonio Linares]

Enrico,

Implemented,

many thanks!

[Enrico Maria Giordano]

Thank you!

EMG