Xailer & OZ Software

Hola amigos
Estoy comenzando hacer cosillas con xailer, lo primero que se me ocurre es
crear una toolbar, alguien me podria decir como se podria crear una toolbar
del mismo tipo de la imagen que adjunto ? como le puedo poner una imagen
en lado derecho a la toolbar ? y el borde de lineas punteadas de lado
izquierdo ?
Un saludo y gracias desde ya
Gabriel
Granada (España)

Se me olvido la imagen


Attached files

Gabri,
esa toolbar (exactamente ESA, no otra ) está hecha con este código:
WITH OBJECT ::oRebar1 := TRebar():New( Self )
:nHeight := 64
:Create()
END
WITH OBJECT ::oToolBar1 := TToolBar():New( ::oRebar1 )
:nBtnHeight := 24
:nBtnWidth := 24
:Create()
:AddButton( "", "Abrir",,, "Abrir empresa...", {|| EmpAbrir() } )
:AddButton( "", "Cerrar",, "Cerrar0", "Cerrar empresa", {||
EmpCerrar() } )
:AddButton( "", "SelEmpre",, "SelEmpr0", "Seleccionar empresa...",,
::oMenuEmpresas )
:AddSeparator()
:AddButton( "", "Indexar",, "Indexar0", "Indexar ficheros", {||
EmpIndexar() } )
:AddButton( "", "Config",, "Config0", "Configuración", {||
EmpConfig() } )
:AddSeparator()
:AddButton( "", "Diario",,"Diario0", "Diario", {|| Diario() } )
:AddButton( "", "LibroIVA",,"LibroIVA0", "Libro de IVA", {||
LibroIVA() } )
:AddButton( "", "Cartera",,"Cartera0", "Cartera de efectos", {||
Cartera() } )
:AddSeparator()
:AddButton( "", "RTF",,, "Editor de textos", {|| TEditor():New(
Self ):Show() } )
END
WITH OBJECT TRebarBand():New( ::oRebar1 )
:oControl := ::oToolbar1
:Create()
END
WITH OBJECT ::oImage1 := TImage():New( ::oRebar1 )
:SetBounds( 0, 0, 32, 32 )
:nBorderStyle := bsNONE
:oPicture := "Logo2"
:lTabStop := .F.
:Create()
END
WITH OBJECT TRebarBand():New( ::oRebar1 )
:oControl := ::oImage1
:lFixed := .T.
:Create()
END
--
Un saludo,
José F. Giménez