BTNBMP - PARA LOS EXPERTS- Solucionado !

[WilliamAdami]

- Yo tenho un BTNBMP criado pelo Workshop con una image BMP. Gostaria que ao pressionar lo BTNBMP la image contenida redimensionasse para maior ou menor . Seria possible ?

Yo necessito para utilizar em minha funcion DISPLAY, para redimensionamento de tela en qualquer resolucion.

Mas quando redimensiono lo BTNBMP la imagen contenida en lo button non acompanha lo redimensionamento.


Muchas Gracias


William Adami

[WilliamAdami]

yo creo que Lo caminho seja Retirar lo Objeto BMP del button , Redimensioná-lo y enton retornar la imagen en lo BTNBMP.

Algun exemplo de como fazer ?

Muchas Gracias

William

[WilliamAdami]

Yo resolvi da seguinte forma:

#include "fivewin.ch"

function main
local odlg,ob

define dialog odlg resource "DIALOG"

redefine btnbmp ob id 120 of odlg resource "figura" action muda(ob)

activate dialog odlg


return nil


function muda( bt )

o=bt:hbitmap1

o:=resizebmp(o,100,100) // o bmp original era 48 X 48
// vai redimensionar para 100 X 100

bt:hbitmap1:=o
bt:refresh()

return nil




Agora en la funcion DISPLAY posso redimensionar los btnbmp juntamente con la imagene contenida .




Muchas Gracias


William Adami