Open sygecom opened 1 week ago
Esqueci de um detalhe importante, checkbox2.prg chama uma tela de teste, mas o problema pode ser simulado adicionando um GROUPBOX na dialog2.prg da pasta tests
PROCEDURE Main()
LOCAL oDialog
LOCAL oEdit1
LOCAL oEdit2
LOCAL oEdit3
LOCAL oEdit4
LOCAL oEdit5
LOCAL oGroup1
INIT DIALOG oDialog TITLE "Test" SIZE 640, 480 ;
FONT HFont():Add("Courier New", 0, -13) ;
ON EXIT {||HWG_MsgYesNo("Confirm exit ?")}
@ 20, 40 SAY "Field&1 (ALT+1):" SIZE 130, 26
@ 160, 40 EDITBOX oEdit1 CAPTION "" SIZE 300, 26
@ 20, 80 SAY "Field&2 (ALT+2):" SIZE 130, 26
@ 160, 80 EDITBOX oEdit2 CAPTION "" SIZE 300, 26
@ 20, 120 SAY "Field&3 (ALT+3):" SIZE 130, 26
@ 160, 120 EDITBOX oEdit3 CAPTION "" SIZE 300, 26
@ 20, 160 SAY "Field&4 (ALT+4):" SIZE 130, 26
@ 160, 160 EDITBOX oEdit4 CAPTION "" SIZE 300, 26
@ 20, 200 SAY "Field&5 (ALT+5):" SIZE 130, 26
@ 160, 200 EDITBOX oEdit5 CAPTION "" SIZE 300, 26
@ (320 - 100) / 2, 280 BUTTONEX "&Ok" OF oDialog ID IDOK SIZE 100, 32
@ (320 - 100) / 2 + 320, 280 BUTTONEX "&Cancel" OF oDialog ID IDCANCEL SIZE 100, 32
@ 5,6 GROUPBOX oGroup1 CAPTION "Selecione o banco de dados" SIZE 220,202 ;
COLOR 16711680
ACTIVATE DIALOG oDialog
RETURN
Mais uma informação. Compilando com xharbour e bcc72 em 64 bits roda sem erro o exemplo acima.
Consegue me ajudar com o erro abaixo quando compilo o TESTE checkbox2.prg da pasta tests, compila sem erro, abre o checkbox2.exe mas quando marca uma das opções e dou OK ele fecha e da esse erro abaixo.