Hi Antonio,
I need help with sth i don't know what to do. I've been trying to do the group coloring using TPanel, and i thought i got it, but there is a big problem
: cannot use the mouse over the area covered by the TPanel
Here is my code:
Local nMargen:= ((ScreenWidth()-1280)/2)
cLogin := Space(20)
cPassword := Space(20)
DEFINE DIALOG oDlg STYLE nOr( WS_BORDER, WS_POPUP ) SIZE ScreenWidth(),ScreenHeight()-200 COLOR GRIS, 0xffffff
@ 41, nMargen SAY oSay PROMPT "Aplicacion" /* SIZE 100, 40 */ PIXEL FONT oFontB COLOR CLR_GREEN
oSay:SetFont( oFontB )
/* This is what's been replaced
@ 60, nMargen GROUP ;
TO 215, nMargen + 200 ;
OF oDlg ;
PIXEL TRANSPARENT ;
COLOR CLR_GREEN
*/
oPanel:= TPanel():New( 60, nMargen, 215, nMargen + 200, oDlg )
oPanel:bPainted:= {|hDC, cPS| ;
RoundBox( hDC, 0, 0, oPanel:nWidth-1, oPanel:nHeight-1, 8, 8, 0xaaaaaa, 1 ) ;
}
@ 80, nMargen + 40 SAY "Introduzca Usuario y Contraseña" PIXEL SIZE 100, 10
@ 105, nMargen + 40 SAY "Usuario" SIZE 45, 10 PIXEL
@ 117, nMargen + 40 GET cLogin PIXEL SIZE 100, 14 ;
ACTION MsgInfo('Hola' ) ;
BITMAP "USER_16"
@ 135, nMargen + 40 SAY "Password:" SIZE 45, 10 PIXEL
@ 147, nMargen + 40 GET oGet var cPassword PIXEL SIZE 100, 14 PASSWORD UPDATE ;
ACTION MsgInfo('Hola' ) ;
BITMAP "KEY_16"
@ 175, nMargen + 40 BTNBMP oBtnEntrar SIZE 60, 20 PROMPT "Acceder" ACTION oDlg:End() /*When lok*/ update LEFT 2007 RESOURCE "cog"
@ 175, nMargen + 120 BTNBMP oBtnSalir SIZE 60, 20 PROMPT "Salir" action oDlg:End() LEFT 2007 RESOURCE "cubes"
ACTIVATE DIALOG oDlg CENTERED
The dialog is shown and everything looks fine, but it's impossible to click on any control. Also tried to put the TPanel after all controls, but in that case controls are hidden after the TPanel.
I'm sure it's a little thing, but i'm not able to get it.
May be I have to try with another control?
TIA
