1-Como exibir o MonthCalendar sobre um browse? No exemplo anexo o calendário não é exibido, a não ser que o programa seja minimizado e após maximizado.
2-O MonthCalendar é exibido em posições diferentes da tela dependendo do sistema operacional: XP ou Vista.
Antonio Carlos
Código: Selecionar todos
#include 'minigui.ch'
function main()
aStrut:={}
aadd(aStrut,{'dados','c',30,0})
dbcreate('teste',aStrut)
DEFINE WINDOW form_main AT 0,0 ;
WIDTH 760 HEIGHT 600 ;
TITLE 'Exemplo' ;
MAIN
DEFINE MAIN MENU
POPUP 'Arquivos'
ITEM 'Browse..' ACTION Inicia()
SEPARATOR
ITEM 'Saida' ACTION form_main.Release
END POPUP
END MENU
END WINDOW
CENTER WINDOW form_main
ACTIVATE WINDOW form_main
Return Nil
Function Inicia()
SET BROWSESYNC ON
use teste alias xteste
go top
@ 15,10 BROWSE Browse_1;
OF form_main;
WIDTH 730 HEIGHT 450 FONT 'Arial' SIZE 18;
HEADERS { 'dados' } ;
WIDTHS { 350 } ;
WORKAREA xteste ;
FIELDS { 'xteste->dados' } ;
VALUE 1 EDIT APPEND DELETE
form_main.Browse_1.SetFocus
@ 480,320 BUTTON Button01 Of Form_Main CAPTION 'DATA' WIDTH 80 ACTION SetData()
function SetData()
form_main.browse_1.enabled:=.f.
@ 080,190 MONTHCALENDAR ad1 OF form_main VALUE date() FONT 'ARIAL' SIZE 18
@ 415,280 BUTTON ab1 OF form_main CAPTION 'OK' WIDTH 80 ACTION MSGINFO('ok')
@ 415,380 BUTTON ab2 OF form_main CAPTION 'CANCEL' WIDTH 80 ACTION {||form_main.ad1.release(),form_main.ab1.release(),form_main.ab2.release()}
form_main.ad1.show
