Exemplo de MDI

[JoséQuintas]

Da outra vez que mexi com hwgui, criei o dlgauto
Desta vez esse esquema de exemplos.
Ficou muito doido isso, ainda me espanto com as possibilidades.....

Exemplo de MDI

O fonte:

Código: Selecionar todos

/*
demomdi.prg
*/

#include "hwgui.ch"

FUNCTION DemoMDI()

   LOCAL oDlg

   INIT WINDOW oDlg ;
      MDI ;
      TITLE "demomdi.prg - MDI Sample and more" ;
      SIZE 800, 500 ;
      BACKCOLOR 16772062

   MENU OF oDlg
      MENU TITLE "Option"
         MENUITEM "Checkbox" ACTION DlgCheckbox()
      ENDMENU
      MENU TITLE "Window"
         MENUITEM "Tile"  ;
            ACTION  hwg_Sendmessage( HWindow():GetMain():handle, WM_MDITILE, MDITILE_HORIZONTAL, 0 )
      ENDMENU
   ENDMENU

   ACTIVATE WINDOW oDlg CENTER

   RETURN Nil

STATIC FUNCTION DlgCheckbox()

   LOCAL oDlg

   INIT WINDOW oDlg ;
      MDICHILD ;
      TITLE "Child" ;
      STYLE WS_VISIBLE + WS_OVERLAPPEDWINDOW

   DemoCheckbox( .F., oDlg )

   ACTIVATE WINDOW oDlg

   RETURN Nil

Estou usando o exemplo checkbox na janela MDICHILD, sem precisar criar fonte.

Pois é...
1001 utilidades.
Pode ser numa tabpage, numa dialog, numa Window MDI, tanto faz.
O que interessa de MDI está aí nesse fonte.
Se quiser ver sobre checkbox, vai no fonte de checkbox....

Os fontes podem ser reutilizados à vontade.
E isso já serve pra testar o comportamento em situações diferentes, que podem acontecer com o usuário.
Isso é um ponto interessante também.

Já peguei comportamento diferente em DIALOG/WINDOW e TABPAGE.