Page 1 of 1

Botones en Pantalla Principal

Posted: Thu Feb 11, 2021 2:11 pm
by jbrita
Amigos necesito poner 3 botones con imagen en la pantalla principal

#include "FiveWin.ch"

static oWnd

function Main()

DEFINE WINDOW oWnd TITLE "My application"

ACTIVATE WINDOW oWnd MAXIMIZED
return nil

saludos

Re: Botones en Pantalla Principal

Posted: Thu Feb 11, 2021 2:29 pm
by MGA
Existe algumas formas de se fazer isso, segue uma delas, revise tambem ribbonbar no FWH\SAMPLES:

Local oBarmap

define window s_oWndMaps from 04,25 to 0,0 mdichild of M->oWnd title ".:: Google Maps ::. " color CLR_WHITE,CLR_WHITE

define buttonbar oBarmap size 34,34 3D of s_oWndMaps 2007
define button of oBarmap resource "GOOGLE" noborder action( GoogleMaps(.t.) ) message "Alterar dados do mapa corrente" tooltip "Alterar"
define button of oBarmap resource "PRINTER" noborder action( s_oActiveXM:Do( "ExecWB", 7,1 ) ) message "Imprimir mapa" tooltip "Imprimir"
define button of oBarmap resource "EXITM" noborder action( s_oActiveXM:Do( "ExecWB", 12,1 ), s_oWndMaps:End() ) message "Fechar mapa" tooltip "Fechar"

Re: Botones en Pantalla Principal

Posted: Thu Feb 11, 2021 2:54 pm
by karinha
Sirve asi?

https://i.imgur.com/teS9kHy.png

Image

Abrazos, saludos.

Re: Botones en Pantalla Principal

Posted: Fri Feb 12, 2021 12:43 am
by jbrita
resulto todo bien.. muchas gracias