Botones en Pantalla Principal

Post Reply
jbrita
Posts: 425
Joined: Mon Jan 16, 2006 3:42 pm

Botones en Pantalla Principal

Post 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
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: Botones en Pantalla Principal

Post 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"
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Botones en Pantalla Principal

Post by karinha »

Sirve asi?

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

Image

Abrazos, saludos.
João Santos - São Paulo - Brasil
jbrita
Posts: 425
Joined: Mon Jan 16, 2006 3:42 pm

Re: Botones en Pantalla Principal

Post by jbrita »

resulto todo bien.. muchas gracias
Post Reply