Ventana principal con STYLE

[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

[acuellar]

Me rindo, no me sale.

Necesito ayuda.

Gracias.

Saludos

Adhemar

[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í

[acuellar]

Gracias Antolin

Intenté con lo que me indicas, y no muestra el dialgo que contiene el Browse

Saludos

Adhemar

[karinha]

Hola,

Intente sin el NOWAIT, porfa. reporta.

[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

[acuellar]

Gracias a todos por su valiosa colaboración

Lo solucioné colcando ON INIT (oDlg:Move(0,0) )

Saludos

Adhemar

[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.

[acuellar]

Antolin, eso era, el dialogo quedaba fuera de la ventana principal.

Saludos

Adhemar

[dobfivewin]

Estimado Adhemar

Como es la forma de colocar las imágenes en la barra inferior ?

gracias

David
Argentina

[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

[Silvio]

I think you need a TDialog Class changed