Paulao, realmente o TEXTBOX está com problema no NOBORDER quando se usa a sintaxe DEFINE TEXTBOX.... END TEXTBOX. Mas se você usar @ nRow, nCol TEXTBOX, o NOBORDER funciona corretamente.
#include "minigui.ch"
Function Main
SET NAVIGATION EXTENDED
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'NOBORDER Demo' ;
MAIN ;
ON INIT Form_1.Text_1.SetFocus
@ 10,10 TEXTBOX Text_1 ;
VALUE 11 ;
NUMERIC
@ 40,10 TEXTBOX Text_2nb ;
VALUE 11 ;
NUMERIC ;
NOBORDER
END WINDOW
Form_1.Center
Form_1.Activate
Return Nil
Bom, para usar NOBORDER na sintaxe DEFINE TEXTBOX... END TEXTBOX, ai você vai ter que corrigir o arquivo i_altsyntax.ch que está nas pasta \INCLUDE da MiniGui, para isto siga as instruções abaixo:
1 - EDITAR o arquivo i_altsyntax.ch e procurar por:
#xcommand END TEXTBOX;
2 - Uma linha antes do comando acima, incluir o código abaixo:
#xcommand NOBORDER <noborder>;
=>;
_HMG_ActiveControlBorder := !<noborder>
3 - Salvar o arquivo i_altsyntax.ch.
Agora o NOBORDER vai funcionar nas duas sintaxes, veja um exemplo:
#include "minigui.ch"
Function Main
SET NAVIGATION EXTENDED
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'NOBORDER Demo' ;
MAIN ;
ON INIT Form_1.Text_1.SetFocus
DEFINE textbox Text_1
Row 10
Col 10
value 11
NUMERIC .T.
END textbox
@ 40,10 TEXTBOX Text_2 ;
VALUE 11 ;
NUMERIC
DEFINE textbox Text_1nb
Row 10
Col 150
value 11
NUMERIC .T.
NOBORDER .T.
END textbox
@ 40,150 TEXTBOX Text_2nb ;
VALUE 11 ;
NUMERIC ;
NOBORDER
END WINDOW
Form_1.Center
Form_1.Activate
Return Nil
Abraços,