In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

NO SALE EL MENU EN EL EJEMPLO. COMO PUEDE SALIR

Foro de Xailer profesional en español
Responder
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

NO SALE EL MENU EN EL EJEMPLO. COMO PUEDE SALIR

Mensaje por PILO »

En el ejemplo que tienes en datacontrol sale las siguiente imagen que
adjunta
que tiene que salir el menu y no sale, como puede salir el menu
CLASS TForm1 FROM TForm
COMPONENT oStatusBar1
COMPONENT oDataSource
COMPONENT oDataSet
COMPONENT oBrw
COMPONENT oReBar1
PROPERTY nTag INIT 1 WRITE INLINE ::SetTag( Value )
DATA oToolBar, oRebarBand, oTagMenu, oTagBtn, oFilterBtn, oEdiBusqueda
DATA aTags
METHOD CreateForm()
METHOD FormInitialize( oSender )
METHOD SetTag( Value )
METHOD Filter()
METHOD AddNew()
METHOD Edit()
METHOD Delete()
METHOD DataSetOpen( oSender )
METHOD Report()
METHOD BrwSeek( oSender, cSeek )
METHOD BrwChange( oSender, lBookMarkChanged )
ENDCLASS
#include "Form1.xfm"
//---------------------------------------------------------- ----------------
----
METHOD FormInitialize( oSender ) CLASS TForm1
LOCAL oSortMenu
LOCAL aTags
LOCAL nFor
set date italian
MENU ::oMenu
MENUITEM "&File"
MENU
MENUITEM "&Append"
MENUITEM "&Edit"
MENUITEM "&Delete"
SEPARATOR
MENUITEM "&Printer configuration" ACTION Printer:Setup( Self )
SEPARATOR
MENUITEM "&Exit" ACTION ::Close()
ENDMENU
MENUITEM "&Help"
MENU
MENUITEM "About..." ;
ACTION ShellAbout( Application:Handle, Application:cTitle,
;
"Copyright Xailer 2003-2004" )
ENDMENU
ENDMENU
oSortMenu := TMenu():Create( Self, .t. )
::aTags := ::oDataSet:GetTags()
::oDataSet:OrdSetFocus("")
FOR nFor := 1 to len( ::aTags )
WITH OBJECT TMenuItem():New( oSortMenu )
:cText := "Order by " + ::aTags[ nFor ]
:Cargo := nFor
:OnClick := {|o| ::nTag := o:Cargo }
:Create()
END
NEXT
WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
:lList := .t.
:lAutoSize := .t.
:Create()
::oTagBtn := :AddButton( "", "BMP_SORT",,, "Set Order", {||
::nTag++ }, oSortMenu )
::nTag := 1
WITH OBJECT ::oFilterBtn := :AddButton( "", "BMP_FILTER",,, "Set
Filter", {|| ::Filter() } )
:lChecked := .f.
END
:AddSeparator()
:AddButton( "", "BMP_FIRST",,, "First record", {|| ::oBrw:GoTop() } )
:AddButton( "", "BMP_PREVIOUS",,, "Previous record", {||
::oBrw:GoUp() } )
:AddButton( "", "BMP_NEXT",,, "Next record ", {|| ::oBrw:GoDown() } )
:AddButton( "", "BMP_LAST",,, "Last record", {|| ::oBrw:GoBottom() } )
:AddSeparator()
:AddButton( "", "BMP_APPEND",,, "Append", {|| ::AddNew() } )
:AddButton( "", "BMP_EDIT",,, "Edit", {|| ::Edit() } )
:AddButton( "", "BMP_DELETE",,, "Delete", {|| ::Delete() } )
:AddSeparator()
:AddButton( "", "XA_BMP_PRINTER",,, "Print", {|| ::Report() } )
:AddButton( "", "XA_BMP_EXIT",,, "Exit", {|| ::Close() } )
END
WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
:oControl := ::oToolBar
:Create()
END
WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
:oBitmap := "lupa16"
:OnBtnClick := {|o| ::oBrw:Seek( o:Value ), nil }
:nMaxLength := 100
:Create()
END
WITH OBJECT TRebarBand():New( ::oRebar1 )
:cText := "Búsqueda:"
:oControl := ::oEdiBusqueda
:Create()
END
RETURN Nil
Esto es la programación, si quiero que salga el menu, tengo que estirar un
poco la ventana


Attached files
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9447
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

NO SALE EL MENU EN EL EJEMPLO. COMO PUEDE SALIR

Mensaje por ignacio »

Pilo,
Ese error se arreglo hace mucho tiempo.
Compruebo que la imagen no corresponde exactamente con el ejemplo nuestro.
Por favor revisa nuestro ejemplo original y comprueba si falla.
Un saludo,
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:[email=4314d02a@ozsrvnegro.ozlan.local...]4314d02a@ozsrvnegro.ozlan.local...[/email]
> En el ejemplo que tienes en datacontrol sale las siguiente imagen que
> adjunta
> que tiene que salir el menu y no sale, como puede salir el menu
>
> CLASS TForm1 FROM TForm
>
> COMPONENT oStatusBar1
> COMPONENT oDataSource
> COMPONENT oDataSet
> COMPONENT oBrw
> COMPONENT oReBar1
>
> PROPERTY nTag INIT 1 WRITE INLINE ::SetTag( Value )
>
> DATA oToolBar, oRebarBand, oTagMenu, oTagBtn, oFilterBtn, oEdiBusqueda
> DATA aTags
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
> METHOD SetTag( Value )
> METHOD Filter()
> METHOD AddNew()
> METHOD Edit()
> METHOD Delete()
> METHOD DataSetOpen( oSender )
> METHOD Report()
> METHOD BrwSeek( oSender, cSeek )
> METHOD BrwChange( oSender, lBookMarkChanged )
>
> ENDCLASS
>
> #include "Form1.xfm"
>
> //---------------------------------------------------------- ----------------
> ----
>
> METHOD FormInitialize( oSender ) CLASS TForm1
>
> LOCAL oSortMenu
> LOCAL aTags
> LOCAL nFor
>
> set date italian
>
> MENU ::oMenu
> MENUITEM "&File"
> MENU
> MENUITEM "&Append"
> MENUITEM "&Edit"
> MENUITEM "&Delete"
> SEPARATOR
> MENUITEM "&Printer configuration" ACTION Printer:Setup( Self )
> SEPARATOR
> MENUITEM "&Exit" ACTION ::Close()
> ENDMENU
> MENUITEM "&Help"
> MENU
> MENUITEM "About..." ;
> ACTION ShellAbout( Application:Handle,
> Application:cTitle,
> ;
> "Copyright Xailer 2003-2004" )
> ENDMENU
> ENDMENU
>
> oSortMenu := TMenu():Create( Self, .t. )
>
> ::aTags := ::oDataSet:GetTags()
> ::oDataSet:OrdSetFocus("")
>
> FOR nFor := 1 to len( ::aTags )
> WITH OBJECT TMenuItem():New( oSortMenu )
> :cText := "Order by " + ::aTags[ nFor ]
> :Cargo := nFor
> :OnClick := {|o| ::nTag := o:Cargo }
> :Create()
> END
> NEXT
>
> WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
> :lList := .t.
> :lAutoSize := .t.
> :Create()
> ::oTagBtn := :AddButton( "", "BMP_SORT",,, "Set Order", {||
> ::nTag++ }, oSortMenu )
> ::nTag := 1
> WITH OBJECT ::oFilterBtn := :AddButton( "", "BMP_FILTER",,, "Set
> Filter", {|| ::Filter() } )
> :lChecked := .f.
> END
> :AddSeparator()
> :AddButton( "", "BMP_FIRST",,, "First record", {|| ::oBrw:GoTop() } )
> :AddButton( "", "BMP_PREVIOUS",,, "Previous record", {||
> ::oBrw:GoUp() } )
> :AddButton( "", "BMP_NEXT",,, "Next record ", {|| ::oBrw:GoDown() } )
> :AddButton( "", "BMP_LAST",,, "Last record", {||
> ::oBrw:GoBottom() } )
> :AddSeparator()
> :AddButton( "", "BMP_APPEND",,, "Append", {|| ::AddNew() } )
> :AddButton( "", "BMP_EDIT",,, "Edit", {|| ::Edit() } )
> :AddButton( "", "BMP_DELETE",,, "Delete", {|| ::Delete() } )
> :AddSeparator()
> :AddButton( "", "XA_BMP_PRINTER",,, "Print", {|| ::Report() } )
> :AddButton( "", "XA_BMP_EXIT",,, "Exit", {|| ::Close() } )
> END
>
> WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
> :oControl := ::oToolBar
> :Create()
> END
>
> WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
> :oBitmap := "lupa16"
> :OnBtnClick := {|o| ::oBrw:Seek( o:Value ), nil }
> :nMaxLength := 100
> :Create()
> END
>
> WITH OBJECT TRebarBand():New( ::oRebar1 )
> :cText := "Búsqueda:"
> :oControl := ::oEdiBusqueda
> :Create()
> END
>
> RETURN Nil
>
> Esto es la programación, si quiero que salga el menu, tengo que estirar un
> poco la ventana
>
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
PILO
Mensajes: 583
Registrado: Vie Jul 06, 2007 5:18 pm

NO SALE EL MENU EN EL EJEMPLO. COMO PUEDE SALIR

Mensaje por PILO »

Este error esta en el ejemplo de la ultima version que tengo y me mandasteis
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:431563f2$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Pilo,
>
> Ese error se arreglo hace mucho tiempo.
>
> Compruebo que la imagen no corresponde exactamente con el ejemplo nuestro.
> Por favor revisa nuestro ejemplo original y comprueba si falla.
>
> Un saludo,
>
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje
> news:[email=4314d02a@ozsrvnegro.ozlan.local...]4314d02a@ozsrvnegro.ozlan.local...[/email]
> > En el ejemplo que tienes en datacontrol sale las siguiente imagen que
> > adjunta
> > que tiene que salir el menu y no sale, como puede salir el menu
> >
> > CLASS TForm1 FROM TForm
> >
> > COMPONENT oStatusBar1
> > COMPONENT oDataSource
> > COMPONENT oDataSet
> > COMPONENT oBrw
> > COMPONENT oReBar1
> >
> > PROPERTY nTag INIT 1 WRITE INLINE ::SetTag( Value )
> >
> > DATA oToolBar, oRebarBand, oTagMenu, oTagBtn, oFilterBtn, oEdiBusqueda
> > DATA aTags
> >
> > METHOD CreateForm()
> > METHOD FormInitialize( oSender )
> > METHOD SetTag( Value )
> > METHOD Filter()
> > METHOD AddNew()
> > METHOD Edit()
> > METHOD Delete()
> > METHOD DataSetOpen( oSender )
> > METHOD Report()
> > METHOD BrwSeek( oSender, cSeek )
> > METHOD BrwChange( oSender, lBookMarkChanged )
> >
> > ENDCLASS
> >
> > #include "Form1.xfm"
> >
> >
//---------------------------------------------------------- ----------------
> > ----
> >
> > METHOD FormInitialize( oSender ) CLASS TForm1
> >
> > LOCAL oSortMenu
> > LOCAL aTags
> > LOCAL nFor
> >
> > set date italian
> >
> > MENU ::oMenu
> > MENUITEM "&File"
> > MENU
> > MENUITEM "&Append"
> > MENUITEM "&Edit"
> > MENUITEM "&Delete"
> > SEPARATOR
> > MENUITEM "&Printer configuration" ACTION Printer:Setup( Self )
> > SEPARATOR
> > MENUITEM "&Exit" ACTION ::Close()
> > ENDMENU
> > MENUITEM "&Help"
> > MENU
> > MENUITEM "About..." ;
> > ACTION ShellAbout( Application:Handle,
> > Application:cTitle,
> > ;
> > "Copyright Xailer 2003-2004" )
> > ENDMENU
> > ENDMENU
> >
> > oSortMenu := TMenu():Create( Self, .t. )
> >
> > ::aTags := ::oDataSet:GetTags()
> > ::oDataSet:OrdSetFocus("")
> >
> > FOR nFor := 1 to len( ::aTags )
> > WITH OBJECT TMenuItem():New( oSortMenu )
> > :cText := "Order by " + ::aTags[ nFor ]
> > :Cargo := nFor
> > :OnClick := {|o| ::nTag := o:Cargo }
> > :Create()
> > END
> > NEXT
> >
> > WITH OBJECT ::oToolBar := TToolBar():New( ::oRebar1 )
> > :lList := .t.
> > :lAutoSize := .t.
> > :Create()
> > ::oTagBtn := :AddButton( "", "BMP_SORT",,, "Set Order", {||
> > ::nTag++ }, oSortMenu )
> > ::nTag := 1
> > WITH OBJECT ::oFilterBtn := :AddButton( "", "BMP_FILTER",,, "Set
> > Filter", {|| ::Filter() } )
> > :lChecked := .f.
> > END
> > :AddSeparator()
> > :AddButton( "", "BMP_FIRST",,, "First record", {||
::oBrw:GoTop() } )
> > :AddButton( "", "BMP_PREVIOUS",,, "Previous record", {||
> > ::oBrw:GoUp() } )
> > :AddButton( "", "BMP_NEXT",,, "Next record ", {||
::oBrw:GoDown() } )
> > :AddButton( "", "BMP_LAST",,, "Last record", {||
> > ::oBrw:GoBottom() } )
> > :AddSeparator()
> > :AddButton( "", "BMP_APPEND",,, "Append", {|| ::AddNew() } )
> > :AddButton( "", "BMP_EDIT",,, "Edit", {|| ::Edit() } )
> > :AddButton( "", "BMP_DELETE",,, "Delete", {|| ::Delete() } )
> > :AddSeparator()
> > :AddButton( "", "XA_BMP_PRINTER",,, "Print", {|| ::Report() } )
> > :AddButton( "", "XA_BMP_EXIT",,, "Exit", {|| ::Close() } )
> > END
> >
> > WITH OBJECT ::oRebarBand := TRebarBand():New( ::oRebar1 )
> > :oControl := ::oToolBar
> > :Create()
> > END
> >
> > WITH OBJECT ::oEdiBusqueda := TEditBtn():New( ::oRebar1 )
> > :oBitmap := "lupa16"
> > :OnBtnClick := {|o| ::oBrw:Seek( o:Value ), nil }
> > :nMaxLength := 100
> > :Create()
> > END
> >
> > WITH OBJECT TRebarBand():New( ::oRebar1 )
> > :cText := "Búsqueda:"
> > :oControl := ::oEdiBusqueda
> > :Create()
> > END
> >
> > RETURN Nil
> >
> > Esto es la programación, si quiero que salga el menu, tengo que estirar
un
> > poco la ventana
> >
> >
> >
>
>
Arriba
Responder

Volver a “Xailer Pro Spanish”