Wellington Vieira Posted April 25, 2019 Report Share Posted April 25, 2019 Boa tarde, Eu uso para apresentar na tela as categorias e produtos com imagens, essas imagens tem a resolução de 79 X 75 pixels, e utilizo para isso o BTNBMP, gostaria de saber se possível se eu aumentar a resolução da imagem e apresentar no BTNBMP com alguma opção de adjust, para ajustar a imagem ao botão. Existe essa opção para o BTNBMP, como tem para o image ? Obrigado. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 25, 2019 Report Share Posted April 25, 2019 Num intindi a questão muito bem, seria isso? #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oBru, oDlg, oBtn DEFINE BRUSH oBru FILENAME "../bitmaps/Backgrnd/beach.bmp" DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT @ 2, 2 SAY "Hello" OF oDlg oDlg:aControls[ 1 ]:lTransparent = .t. @ 70, 80 BTNBMP oBtn FILENAME "../bitmaps/yes.bmp" ; SIZE 50, 30 OF oDlg NOBORDER ACTION MsgInfo( "click" ) ADJUST oBtn:lTransparent = .T. ACTIVATE DIALOG oDlg CENTERED return nil Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 25, 2019 Author Report Share Posted April 25, 2019 Seria o seguinte. O meu botão tem a seguinte sintaxe: @ 024,005 BTNBMP obotaogrupo01 center size 039,037 font obotaof noborder of barRestaurante pixel O tamanho deste botão é de 39X37 ( size ). As minhas imagens tem hoje 79 X 75 pixels, quando carrego a imagem no botão acima, ela funciona perfeitamente, obotaogrupo01:SetFile("cerveja.bmp") O que eu queria era carregar uma imagem de 200 X 176 pixels, no botão obotaogrupo01, e que ele se ajustasse ao tamanho do botão que é de 039,037 (size). Eu tentei colocar na sintaxe do comando a opção ADJUST, mas ele não mostra a imagem ajustada ao botão, na realidade não mostra a imagem. Seria isso, Obrigado. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 25, 2019 Report Share Posted April 25, 2019 Não sei se BTNMP ou BITMAP, tem comando abaixo, só testando. Com o comando IMAGE eu sei q tem. oImagem:lStretch := ( .T. ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 25, 2019 Report Share Posted April 25, 2019 Eu acho que aqui, pode matar sua "charada". Eu acho... abs. Quote Link to comment Share on other sites More sharing options...
Wellington Vieira Posted April 26, 2019 Author Report Share Posted April 26, 2019 Obrigado. resolvido 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.