PC Toledo

... topics page.
Admin Configuration: As an administrator, you can ensure this feature is enabled for specific forums.
Go to the Administrator Control Panel (ACP).
Navigate to the "Forums" tab, then "Manage Forums".
Edit a specific forum (click the green gear icon or edit link).
Set the option "Display ...

... HMG_PrinterMetaFileDC
* _HMG_SYSDATA [ 503 ] -> #xtranslate --> _HMG_FindReplaceOptions
* _HMG_SYSDATA [ 504 ] -> {x,y,w,h} --> Position of Panel Window

* _HMG_SYSDATA [ 505 ] -> PrintPreview NotSaveButton --> .T. or .F.
* _HMG_SYSDATA [ 506 ] -> PrintPreview Dialog cFileName
* _HMG ...

... HMG_SYSDATA [ 67 ] , FormHandle )
aAdd ( _HMG_SYSDATA [ 68 ] , .f. )
aAdd ( _HMG_SYSDATA [ 69 ] , cType )
aAdd ( _HMG_SYSDATA [ 70 ] , If ( panel , Parenthandle , 0 ) )
aAdd ( _HMG_SYSDATA [ 71 ] , ReleaseProcedure )
aAdd ( _HMG_SYSDATA [ 72 ] , InitProcedure )
aAdd ( _HMG_SYSDATA [ 73 ...

... aWinData, _HMG_SYSDATA [ 68 ] [k] ) // .f.
AADD ( aWinData, _HMG_SYSDATA [ 69 ] [k] ) // cType
AADD ( aWinData, _HMG_SYSDATA [ 70 ] [k] ) // If ( panel , Parenthandle , 0 )
AADD ( aWinData, _HMG_SYSDATA [ 71 ] [k] ) // ReleaseProcedure
AADD ( aWinData, _HMG_SYSDATA [ 72 ] [k] ) // InitProcedure ...

... seria multithread mesmo.

Em HWGUI e FIVEWIN teve a vantagem de OOP e tab dentro de tab, com restrição pra DIALOG.
Em HMG teve a vantagem de WINDOW PANEL, que aceita qualquer coisa.
Qual é melhor ? sei lá... todas fizeram o que era pra ser feito.

O detalhe de atualização da minigui é pesquisar como ...

... se clique em alguma, aí aparece o nome.
Acho que precisa alguma rotina a mais no clique da aba.
NÃO É TAB, é um BROWSE simulando as tabs, e WINDOW PANEL simulando as tabpages.
Está tudo funcionando, exceto essa falha de atualização.

demo.zip

Sem usar OOP, sem usar MACRO, sem usar variável PUBLIC ...

/*
demolenta2.prg
*/

// Lenta and panels, used as a replacement of a colorized tab
#include "hwgui.ch"

#define CLR_LIGHTGRAY_2 0xaaaaaa
#define CLR_BROWN_1 0x154780
#define CLR_BROWN_2 0x396eaa
#define CLR_BROWN_3 0x6a9cd4
#define CLR_BROWN_4 0x9dc7f6
#define CLR_DLGBACK 0x154780

FUNCTION ...

Tem uma coisa interessante nisso....

O fonte tava bom pra dialog.
O fonte tava bom pra tab.
Mas chegou na hora do panel, fez falta o "OF oDlg".

Como eu já disse, é testar todas as situações que poderiam acontecer num aplicativo.
Esse negócio de reutilizar exemplo tá ajudando a testar isso mais ...

FOR nCont = 1 TO Len( aPaneList )
@ 20, 150 PANEL aPaneList[nCont] SIZE 600, 200 STYLE SS_OWNERDRAW BACKCOLOR NextBackColor() ON SIZE { || .T. }
aPaneList[ nCont ]:oFont := oFont
aCaptionList[ nCont ] := Chr( 64 + nCont )
aPaneList[ nCont ]:Hide()
NEXT

aCaptionList[ 1 ] := "One"
@ 20, 16 ...

Como eu já disse, automático é comigo mesmo kkkkk

Aba1

@ 20, 150 PANEL oPane1 SIZE 360, 200 STYLE SS_OWNERDRAW BACKCOLOR CLR_BROWN_3 ON SIZE { || .T. }
AAdd( aChildList, oPane1 )
oPane1:oFont := oFont
@ 20, 16 EDITBOX "Pyotr" OF oPane1 SIZE 200, 26
@ 20, 46 EDITBOX "Ilyich" OF oPane1 SIZE 200 ...

PANEL em DIALOG
Olhei o tutorial, SS_OWNERDRAW resolveu

Nos demais casos não.

... hwg_IsCheckedMenuItem( , 1002 ) )
MENUITEM "Tabpage 2" ID 1003 ;
ACTION hwg_CheckMenuItem( , 1003, ! hwg_IsCheckedMenuItem( , 1003 ) )
MENUITEM "Panel" ID 1004 ;
ACTION hwg_CheckMenuItem( , 1004, ! hwg_IsCheckedMenuItem( , 1004 ) )
MENUITEM "MDI" ID 1005 ;
ACTION hwg_CheckMenuItem( , 1005 ...

... hwg_IsCheckedMenuItem( , 1001 ) )
MENUITEM "Tabpage" ID 1002 ;
ACTION hwg_CheckMenuItem( , 1002, ! hwg_IsCheckedMenuItem( , 1002 ) )
MENUITEM "Panel" ID 1003 ;
ACTION hwg_CheckMenuItem( , 1003, ! hwg_IsCheckedMenuItem( , 1003 ) )
MENUITEM "MDI" ID 1004 ;
ACTION hwg_CheckMenuItem( , 1004 ...

... hwg_IsCheckedMenuItem( , 1001 ) )
MENUITEM "Tabpage" ID 1002 ;
ACTION hwg_CheckMenuItem( , 1002, ! hwg_IsCheckedMenuItem( , 1002 ) )
MENUITEM "Panel" ID 1003 ;
ACTION hwg_CheckMenuItem( , 1003, ! hwg_IsCheckedMenuItem( , 1003 ) )
MENUITEM "MDI" ID 1004 ;
ACTION hwg_CheckMenuItem( , 1004 ...

... demosplit.prg Y Split windows
demosplitter.prg Y Tree control, Splitter, Tab
demotab.prg Y ? ? Tab, owner button, combobox, dateselect, status panel
demoxmltree.prg Y YW Show XML-Tree: Open "testxml.xml" for test.
demoprogbar.prg 12) Y Progress bar
demotrackbar.prg P Trackbar demo, horizontal ...