include "FiveWin.ch"

static oWnd

function Main()

DEFINE WINDOW oWnd TITLE "My application"

ACTIVATE WINDOW oWnd MAXIMIZED
return nil

saludos

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: Botones en Pantalla Principal
Posted: Thu Feb 11, 2021 02:29 PM

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

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

karinha

Posts: 8515