FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour ButtonBar in a specific location ( Solved )
ctoas
Posts: 115
Joined: Wed Oct 26, 2005 02:38 PM
ButtonBar in a specific location ( Solved )
Posted: Mon Mar 30, 2020 02:28 PM
Friends...

How to create a ButtonBar in a specific location in the Window?

The wiki shows:
聽 @ <nRow>, <nCol> BUTTONBAR [<oBar>];
聽 [SIZE <nWidth>, <nHeight>];
聽 [BUTTONSIZE <nBtnWidth>, <nBtnHeight>];
聽 [3D | 3DLOOK | _3D | _3DLOOK];
聽 [TOP | LEFT | RIGHT | BOTTOM | FLOAT];
聽 [OF | WINDOW | DIALOG <oWnd>];
聽 [CURSOR <oCursor>]

But give the following error in the compilation:
Error E0022 Invalid lvalue: 'Numeric'

Can anyone help?

Thanks!
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Solu莽玫es em TI
http://www.maxxtech.com.br
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: ButtonBar in a specific location
Posted: Mon Mar 30, 2020 02:56 PM

Please put little sample for tests

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
ctoas
Posts: 115
Joined: Wed Oct 26, 2005 02:38 PM
Re: ButtonBar in a specific location
Posted: Mon Mar 30, 2020 03:07 PM
Thanks for responding C. Navarro

I need to place the ButtonBar below the Title:
Code (fw): Select all Collapse
聽 聽 DEFINE WINDOW oWndAGENDA FROM 0,0 TO 600,1041 PIXEL TITLE "GAM - AGENDA DE CONTATOS" COLORS nRGB(215,243,366),nRGB(215,215,215) NO MAXIMIZE
聽 聽 
聽 聽 聽 聽 @ 0000,0000 TITLE oTitle OF oWndAGENDA SIZE 1025,0059 NOBORDER PIXEL
聽 聽 聽 聽 oTitle:aGrdBack := {{1,nRGB(150,150,150),nRGB(150,150,150)}}
聽 聽 聽 聽 oTitle:nShadow 聽:= 0
聽 聽 聽 聽 
聽 聽 聽 聽 @ 0010,0020 TITLEIMG OF oTitle BITMAP "TIT_AGENDA" SIZE 0052,0052 聽 聽 聽 聽 
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽
聽 聽 聽 聽 @ 0015,0120 TITLETEXT OF oTitle TEXT "Agenda Telef么nica" COLOR nRGB(255,255,255) FONT ARIAL14B 
聽 聽 聽 聽 @ 0040,0120 TITLETEXT OF oTitle TEXT "CONTATOS" 聽 聽 聽 聽 聽COLOR nRGB(000,000,000) FONT ARIAL16B 聽聽 聽 聽 聽 
聽 聽 聽 聽 
聽 聽 聽 聽 
聽 聽 聽 聽 DEFINE BUTTONBAR oBarAGENDA 3DLOOK OF oWndAGENDA 2015 SIZE 0078,0078
聽 聽 聽 聽 
聽 聽 聽 聽 DEFINE BUTTON oBtnADICIONAR 聽RESOURCE "BAR_DLG_ADICIONAR" 聽OF oBarAGENDA PROMPT "Adicionar" 聽 聽 聽 聽FONT ARIAL14B 
聽 聽 聽 聽 DEFINE BUTTON oBtnVISUALIZAR RESOURCE "BAR_DLG_VISUALIZAR" OF oBarAGENDA PROMPT "Visualizar" 聽 聽 聽 FONT ARIAL14B
聽 聽 聽 聽 DEFINE BUTTON oBtnALTERAR 聽 聽RESOURCE "BAR_DLG_EDITAR" 聽 聽 OF oBarAGENDA PROMPT "Editar" 聽 聽 聽 聽 聽 FONT ARIAL14B
聽 聽 聽 聽 DEFINE BUTTON oBtnEXCLUIR 聽 聽RESOURCE "BAR_DLG_EXCLUIR" 聽 聽OF oBarAGENDA PROMPT "Excluir" 聽 聽 聽 聽 聽FONT ARIAL14B 
聽 聽 聽 聽 DEFINE BUTTON oBtnRELATORIOS RESOURCE "BAR_DLG_RELATORIOS" OF oBarAGENDA PROMPT "Relat贸rios" GROUP FONT ARIAL14B聽 聽
聽 聽 聽 聽 DEFINE BUTTON oBtnSAIR 聽 聽 聽 RESOURCE "BAR_DLG_SAIR" 聽 聽 聽 OF oBarAGENDA PROMPT "Sair" 聽 聽 聽 GROUP FONT ARIAL14B
聽 聽 聽 聽 
聽 聽 聽 聽 oBarAGENDA:nTOP = 200 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 
聽 聽 
聽 聽 ACTIVATE WINDOW oWndAGENDA CENTERED


I use it exactly in Dialogs, considering Dialog in ON INIT and it works perfectly.
Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Solu莽玫es em TI
http://www.maxxtech.com.br
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: ButtonBar in a specific location
Posted: Mon Mar 30, 2020 03:39 PM
Christiano, try with this, and tell me ( my name is Cristobal )

Code (fw): Select all Collapse
//----------------------------------------------------------------------------//

#include "Fivewin.ch"
#include "ttitle.ch"

Function Main

   local oTitle
   local oBarAgenda
   local oWndAgenda
   local oBtnADICIONAR  
   local oBtnVISUALIZAR 
   local oBtnALTERAR    
   local oBtnEXCLUIR    
   local oBtnRELATORIOS 
   local oBtnSAIR       

    DEFINE WINDOW oWndAGENDA FROM 0,0 TO 600,1041 PIXEL TITLE "GAM - AGENDA DE CONTATOS" COLORS nRGB(215,243,366),nRGB(215,215,215) NO MAXIMIZE
   
        @ 0000,0000 TITLE oTitle OF oWndAGENDA SIZE 1025,0059 NOBORDER //PIXEL
        oTitle:aGrdBack := {{1,nRGB(150,150,150),nRGB(150,150,150)}}
        oTitle:nShadow  := 0
       
        @ 0010,0020 TITLEIMG OF oTitle BITMAP "TIT_AGENDA" SIZE 0052,0052        
                                                                             
        @ 0015,0120 TITLETEXT OF oTitle TEXT "Agenda Telef么nica" COLOR nRGB(255,255,255)
        @ 0040,0120 TITLETEXT OF oTitle TEXT "CONTATOS"          COLOR nRGB(000,000,000)
       
       
        @ 60, 0 BUTTONBAR oBarAGENDA 3DLOOK OF oWndAGENDA TOP SIZE 0740, 0078 
        oBarAgenda:bRClicked  := { || nil }
        oBarAgenda:l2015      := .T.
        oBarAgenda:nBtnWidth  := 120
        oBarAgenda:nBtnHeight := 78

        DEFINE BUTTON oBtnADICIONAR   OF oBarAGENDA PROMPT "Adicionar"       
        DEFINE BUTTON oBtnVISUALIZAR  OF oBarAGENDA PROMPT "Visualizar"      
        DEFINE BUTTON oBtnALTERAR     OF oBarAGENDA PROMPT "Editar"          
        DEFINE BUTTON oBtnEXCLUIR     OF oBarAGENDA PROMPT "Excluir"         
        DEFINE BUTTON oBtnRELATORIOS  OF oBarAGENDA PROMPT "Relat贸rios" GROUP   
        DEFINE BUTTON oBtnSAIR        OF oBarAGENDA PROMPT "Sair"       GROUP ACTION oWndAgenda:End()
       
    ACTIVATE WINDOW oWndAGENDA CENTERED
 
Return nil

//----------------------------------------------------------------------------//
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
ctoas
Posts: 115
Joined: Wed Oct 26, 2005 02:38 PM
Re: ButtonBar in a specific location
Posted: Mon Mar 30, 2020 03:48 PM

It worked!

Thank you very much

Christiano Augusto Silveira
christiano.silveira@gmail.com

MaxxTech Solu莽玫es em TI
http://www.maxxtech.com.br

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions