topic-18346

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Ventana principal con STYLE
Posted: Tue Mar 16, 2010 02:37 PM

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 (fw): Select all Collapse

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

Saludos,

Adhemar C.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 11:54 AM

Me rindo, no me sale.

Necesito ayuda.

Gracias.

Saludos

Adhemar

Saludos,

Adhemar C.

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 12:26 PM

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í

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 12:34 PM

Gracias Antolin

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

Saludos

Adhemar

Saludos,

Adhemar C.

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 12:58 PM

Hola,

Intente sin el NOWAIT, porfa. reporta.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

sjingo

Posts: 229

Joined: Sat Mar 18, 2006 03:42 PM

Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 01:21 PM

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

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Ventana principal con STYLE
Posted: Wed Mar 17, 2010 02:21 PM

Gracias a todos por su valiosa colaboración

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

Saludos

Adhemar

Saludos,

Adhemar C.

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Ventana principal con STYLE
Posted: Thu Mar 18, 2010 07:04 AM

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.

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Ventana principal con STYLE
Posted: Thu Mar 18, 2010 11:47 AM

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

Saludos

Adhemar

Saludos,

Adhemar C.

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: Ventana principal con STYLE
Posted: Fri Mar 19, 2010 11:03 AM

Estimado Adhemar

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

gracias

David
Argentina

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Ventana principal con STYLE
Posted: Fri Mar 19, 2010 07:25 PM

David, asi

Code (fw): Select all Collapse

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

Saludos,

Adhemar C.

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: Ventana principal con STYLE
Posted: Sun Mar 21, 2010 08:38 PM

I think you need a TDialog Class changed

Best Regards, Saludos

Falconi Silvio

FiveTech Support Forums

Continue the discussion