Quase lá............
O programa do início do post, com pequena alteração sobre criar dialog ou não.
Código: Selecionar todos
/*
test codeblock
*/
#include "minigui.ch"
// don't initialize values here
STATIC nRowPos, nColPos
FUNCTION DemoButton( lWithDialog, xDlg )
LOCAL aList := {}, nCont, nMesa, xButton, bCode
hb_Default( @lWithDialog, .T. )
nColPos := -1
nRowPos := -1
FOR nCont = 1 TO 35
AAdd( aList, nCont + 50 )
NEXT
IF lWithDialog
DEFINE WINDOW ( xDlg := "DLGANY" ) ;
AT 0,0 ;
WIDTH 1000 ;
HEIGHT 500 ;
MAIN;
TITLE 'Teste de Mesa' ;
NOSIZE ;
NOMAXIMIZE
END WINDOW
ENDIF
FOR nCont := 1 TO Len( aList )
// two variables uniques
FOR EACH nMesa, xButton IN ;
{ aList[ nCont ] }, ;
{ "Mesa" + StrZero( nCont,2 ) }
RowPos( xDlg )
@ nRowPos, nColPos BUTTONEX ( xButton ) ;
OF ( xDlg ) ;
CAPTION "Mesa N." + CRLF + StrZero( nMesa, 2 ) ;
PICTURE "button.bmp" ;
BACKCOLOR GREEN GRADIENTFILL { { 1, GREEN,GREEN } } ;
WIDTH 120 ;
HEIGHT 60
bCode := { || MostraMesa( xDlg, nMesa, xButton ) }
SetProperty( xDlg, xButton, "ACTION", bCode )
NEXT
NEXT
IF lWithDialog
CENTER WINDOW ( xDlg )
ACTIVATE WINDOW ( xDlg )
ENDIF
RETURN Nil
STATIC FUNCTION RowPos( xDlg )
IF nColPos == -1
nRowPos := 35
nColPos := 5
ELSE
nColPos += 125
IF nColPos > GetProperty( xDlg, "width" ) - 200
nRowPos += 65
nColPos := 5
ENDIF
ENDIF
RETURN nRowPos
STATIC FUNCTION MostraMesa( xDlg, nMesa, xButton )
MsgInfo( "Mesa " + StrZero( nMesa, 2 ) + " selecionada" )
SetProperty( xDlg, xButton, "BACKCOLOR", RED )
SetProperty( xDlg, xButton, "GRADIENTFILL", { { 1, RED, RED } } )
RETURN Nil
Ok ?
Mesmo exemplo, compila sozinho, executa sozinho, mostra imagem.
Agora fiz outro..... com tab/tagpage e níveis de tab/tabpage
Código: Selecionar todos
#include "minigui.ch"
STATIC aMenuOptions := {}, nMenuLevel := 0
PROCEDURE Demo
LOCAL xDlg, aList, aInitList := {}
aList := ze_CreateMenu()
DEFINE WINDOW ( xDlg := ze_Name( "DLG" ) ) ;
AT 0, 0 ;
WIDTH 1024 ;
HEIGHT 768 ;
MAIN;
TITLE "demoall.prg" ;
ON INIT { || ze_ListEval( aInitList ) }
END WINDOW
demo_BuildPages( xDlg, aList, 1, aInitList )
DoMethod( xDlg, "CENTER" )
DoMethod( xDlg, "ACTIVATE" )
RETURN
Aqui cria os níveis de tabs/tabpages
Código: Selecionar todos
STATIC FUNCTION Ze_CreateMenu()
MenuOption( "Button", { |o| DemoButton( .F., o ) } )
MenuOption( "Browse" )
MenuDrop()
MenuOption( "1.Brw.ADO", { || Nil } )
MenuOption( "2.Brw.Array", { |o| DemoButton( .F., o ) } )
MenuOption( "3.Brw.DBF", { || Nil } )
MenuOption( "5.Brw.BMP", { |o| DemoButton( .F., o ) } )
MenuUnDrop()
MenuOption( "Choice" )
MenuDrop()
MenuOption( "1.OwnerButton", { || Nil } )
MenuOption( "1.Checkbox", { |o| DemoButton( .F., o ) } )
MenuOption( "2.Combobox", { || Nil } )
MenuUnDrop()
MenuOption( "1.General" )
MenuDrop()
MenuOption( "2.Night", { || Nil } )
MenuOption( "3.Back image", { |o| DemoButton( .F., o ) } )
MenuUnDrop()
MenuOption( "Edit" )
MenuDrop()
MenuOption( "1.DemoGet2", { || Nil } )
MenuOption( "2.Editbox", { || Nil } )
MenuOption( "4.Datepicker", { |o| DemoButton( .F., o ) } )
MenuUnDrop()
MenuOption( "1.HTrack", { || Nil } )
MenuOption( "1.Tree", { |o| DemoButton( .F., o ) } )
MenuOption( "1.AppData", { || Nil } )
RETURN aMenuOptions
Não é impressão não, na montagem das tabpages, está chamando o primeiro fonte, o demobutton.prg
Está passando pra NÃO CRIAR DIALOG, e aonde ficará o exemplo em "o".
Está selecionada a tabpage "browse"
dentro dela tem a tab, e está selecionada a tabpage "brw.dbf"
E dentro dessa tabpage, o exemplo demobutton.prg
Está com falha na atualização das abas.
Clica na aba de cima, as de baixo estão vazias, até que 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.
Sem usar OOP, sem usar MACRO, sem usar variável PUBLIC, na maior parte só variável LOCAL.
É entender o princípio básico de variáveis/valores, seja sozinho, em array, em codeblock, em function, local, private, etc.
Tem programador que até hoje não entende o que é função, e porque a função não pode depender de variável externa.
Esses desafios são legais, pra treinar ao máximo o conhecimento de variáveis.
A lógica... é a mesma de sempre... só mudam as variáveis...
