Page 1 of 1
Ventana principal con STYLE
Posted: Tue Mar 16, 2010 2:37 pm
by acuellar
Saludos para todos
Cuando coloco STYLE nOr(WS_SYSMENU,WS_MAXIMIZE,WS_MINIMIZEBOX)
No me muestra el Browse
y sin el STYLE si muestra
Code: Select all
DEFINE WINDOW oWnd FROM 0,0 TO 475,701 PIXEL TITLE "TELEFONIA EN LINEA" STYLE nOr(WS_SYSMENU,WS_MAXIMIZE,WS_MINIMIZEBOX);
COLOR CLR_BLUE, nRGB( 182,192,192 ) ICON oIcon MENU CreaMenu(.F.)
DEFINE DIALOG oDlg RESOURCE "MUESTRA" OF oWnd
REDEFINE GET oGet VAR cTxt ID 101 MEMO READONLY OF oDlg FONT oFont
oBrw:=TXBrowse():New( oDlg )
oBrw:nMarqueeStyle:=MARQSTYLE_HIGHLROW
oBrw:lHScroll:=.F.
oBrw:bClrSel:={ || {CLR_WHITE,CLR_CYAN} }
oBrw:nColDividerStyle:= LINESTYLE_LIGHTGRAY
oBrw:bClrSelFocus:={ || {CLR_WHITE,CLR_CYAN} }
oCol:=oBrw:AddCol()
oCol:bStrData := { || TL->CENTRO+Trans(TL->NINT,'@9 #####') }
oCol:nWidth:=64
oCol:nHeadStrAlign := AL_CENTER
oCol:cHeader := "ORIGEN"
oCol:=oBrw:AddCol()
oCol:bStrData:= { || TL->NOMBRE}
oCol:cHeader := "NOMBRE"
oCol:nWidth:=208
oCol:nHeadStrAlign := AL_CENTER
oCol:=oBrw:AddCol()
oCol:bStrData:= { || TL->HORA }
oCol:cHeader := "HORA"
oCol:nWidth:=43
oCol:nHeadStrAlign := AL_CENTER
. . .
oBrw:CreateFromResource(102)
ACTIVATE DIALOG oDlg NOWAIT ON INIT (oDlg:Move( oWnd:nWidth()-702,oWnd:nHeight()-476) )
ACTIVATE WINDOW oWnd ON INIT ( oWnd:Center() )
Gracias por la ayuda
Adhemar
Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 11:54 am
by acuellar
Me rindo, no me sale.
Necesito ayuda.
Gracias.
Saludos
Adhemar
Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 12:26 pm
by antolin
Acuellar, mira a ver el STYLE por defecto de WINDOW.PRG y DIALOG.PRG, algo tiene que faltarte, a lo mejor WS_CHILD en el dialogo, o el WS_OVERLAPPED en el Window o algo así
Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 12:34 pm
by acuellar
Gracias Antolin
Intenté con lo que me indicas, y no muestra el dialgo que contiene el Browse
Saludos
Adhemar
Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 12:58 pm
by karinha
Hola,
Intente sin el NOWAIT, porfa. reporta.
Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 1:21 pm
by sjingo
No se si de algo sirva, de todas maneras te comento que tuve problemas casi similares, y el culpable era mi editor de recursos el Resource Builder, probé usando PellesC y se solucionó. No sé por qué pero así fue. Al final me decidí hacerlo cón código sin usar ningún editor y cero problemas. De todas formas no pierdes mucho probándolo.
Un saludo
Marcelo Jingo
Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 2:21 pm
by acuellar
Gracias a todos por su valiosa colaboración
Lo solucioné colcando ON INIT (oDlg:Move(0,0) )
Saludos
Adhemar
Re: Ventana principal con STYLE
Posted: Thu Mar 18, 2010 7:04 am
by antolin
O sea que el problema no era que no mostraba el dialogo, sino que lo mostraba fuera de la vista. La verdad es que con oDlg:Move en el ON INIT a mi también se me han solucionado muchos problemas que pensaba no tenían solución, pero no se me ocurrió en este caso. Y es que las coordenadas y dimensiones de muchos controles se actualizan durante la inicialización y la única manera de colocarlos donde queremos y al tamaño que queremos es en el ON INIT.
Re: Ventana principal con STYLE
Posted: Thu Mar 18, 2010 11:47 am
by acuellar
Antolin, eso era, el dialogo quedaba fuera de la ventana principal.
Saludos
Adhemar
Re: Ventana principal con STYLE
Posted: Fri Mar 19, 2010 11:03 am
by dobfivewin
Estimado Adhemar
Como es la forma de colocar las imágenes en la barra inferior ?
gracias
David
Argentina
Re: Ventana principal con STYLE
Posted: Fri Mar 19, 2010 7:25 pm
by acuellar
David, asi
Code: Select all
Function MsgBar()
SET MESSAGE OF oWnd TO "AcrSoft Inc."+Str(Year(Date()),4)+Chr(169) 2007
DEFINE MSGITEM OF oWnd:oMsgBar BITMAP "FLOR"
DEFINE MSGITEM OF oWnd:oMsgBar PROMPT 'SOCIEDAD HOTELERA "LOS TAJIBOS S.A." ' SIZE 442 COLOR CLR_CYAN FONT oFont1
DEFINE MSGITEM OF oWnd:oMsgBar BITMAP "CCC"
oWnd:oMsgBar:CLOCKON()
Return Nil
Las imagenes son desde RECURSOS
Saludos
Adhemar
Re: Ventana principal con STYLE
Posted: Sun Mar 21, 2010 8:38 pm
by Silvio
I think you need a TDialog Class changed