aldreks Posted August 29, 2007 Report Share Posted August 29, 2007 Pessoal, é possÃvel usar a BUTTONBAR numa dialog? Estou tendo problemas para usar. No aguardo! ------------------------- Email/msn: aldreksa@hotmail.com xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5 (Recife-PE) "O perdão ainda é a maior prova de amor!" Quote Link to comment Share on other sites More sharing options...
aldreks Posted August 29, 2007 Author Report Share Posted August 29, 2007 Pessoal, é possÃvel usar a BUTTONBAR numa dialog? Estou tendo problemas para usar. No aguardo! ------------------------- Email/msn: aldreksa@hotmail.com xharbour 0.99.5 /BCC 5.5 / FWH/xMate 1.12 / Pelles C 4.5 (Recife-PE) "O perdão ainda é a maior prova de amor!" Quote Link to comment Share on other sites More sharing options...
personal Posted August 29, 2007 Report Share Posted August 29, 2007 Cria ela normal e ativa pelo ON INIT da Dialog. ACTIVATe .... ON Init(BarraBotoes(oDlg[1]) ) STATIC FUNCTION BarraBotoes() criar sua barra de botoes Return(NIL) Oliveira, Sérgio A. PERSONAL Comp. e Sitemas.id=green> FWH 2.5, xharbour 0.99.4, SqlLib, MySql, xMate. TWBrowse(),C5Menu,vPrinter. Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted August 30, 2007 Report Share Posted August 30, 2007 DEFINE DIALOG... ACTIVATE DIALOG ODLG CENTER ON INIT BuildControls(ODlg) static func BuildControls( oDlg ) local oMenu, oBar MENU oMenu MENUITEM "&Cadastro" message "teste" MENU MENUITEM "&Novo" menuItem "&Alterar" separator MenuItem "&Excluir" message "excluir" SEPARATOR MENUITEM "&Sair" ACTION ownd:End() ENDMENU MENUITEM "&Execicio" MENU MENUITEM "&Trocar" MENUITEM "&Criar" separator menuitem "&Excluir" ENDMENU MENUITEM "&Sair" ACTION OWND:END() ENDMENU oDlg:SetMenu( oMenu ) Define ButtonBar oBar Size 02,39.5 Of oDLG Top 3d //*CorBar {nRgb(50,100, 350),nRgb(50,100, 350)}noborder *oBar:SetColor( CLR_LIGHTGRAY, CLR_LGREEN) *oBar:bRClicked:={|| NIL } ; oBar:bLClicked:={|| NIL } DEFINE SBUTTON OF oBar prompt "&Ativar" resource "bitmap_48" tooltip "Aceitar" ACTION (odlg:end()) FONT oDlg:oFont NOBORDER COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_CYAN},{CLR_CYAN,CLR_WHITE})} DEFINE SBUTTON OF oBar prompt "&Novo" resource "bitmap_32" message "Novo Cadastro" tooltip "Novo" FONT oDlg:oFont action newhelp() noborder COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_CYAN},{CLR_CYAN,CLR_WHITE})} //*TEXT POSITION ON_BOTTOM DEFINE SBUTTON OF oBar prompt "&Alterar" resource "bitmap_46" message "Alterar Cadastro" tooltip "Alterar" FONT oDlg:oFont noborder COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_CYAN},{CLR_CYAN,CLR_WHITE})} DEFINE SBUTTON OF oBar Prompt "&Excluir" resource "bitmap_38" message "Excluir Cadastro" tooltip "Excluir" action testbrow() FONT oDlg:oFont noborder COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_CYAN},{CLR_CYAN,CLR_WHITE})} //*TEXT POSITION ON_BOTTOM DEFINE SBUTTON OF oBar prompt "&xwano" resource "bitmap_1" message "Trocar Exercicio" tooltip "Exercicio" ACTION zip() noborder COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_CYAN},{CLR_CYAN,CLR_WHITE})} *DEFINE sBUTTON prompt "&Desativar " OF oBar when .f. noborder DEFINE SBUTTON OF oBar prompt "&Sair" resource "bitmap_52" tooltip "Sair" ACTION(LSAIU:=.T.,ownd:end()) FONT oDlg:oFont noborder COLOR CLR_BLACK,{|oB| IF(oB:lMouseOver,{CLR_WHITE,CLR_CYAN},{CLR_CYAN,CLR_WHITE})} return( 0 ) Luiz Arruda - Corumbá/MS FiveWin 2.4 - WS - [x]Harbour 0.99.50 (Simplex) - xDev 0.65 ico.corumba@gmail.com Vamos Aderir:"Retorne avisando se a dica funcionou"id=blue> Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.