#include "outlook.ch"
// DEFINE FONT oFont NAME "Arial" SIZE 0, -12
oFont = TFont():New( GetDefaultFontName(), 0, GetDefaultFontHeight(),, )
@ 0, 0 OUTLOOK2 oOut ;
SIZE oApp():oSplit:nLeft, oPDlg:nHeight()-oApp():oWndMain:oMsgBar:nHeight ;
PIXEL ;
FONT oFont ;
OF oPDlg
DEFINE GROUP OF OUTLOOK oOut PROMPT "Clientes" ;
RESOURCE "EBLOCK2"
DEFINE LABEL OF OUTLOOK oOut ;
PROMPT "Primera etiqueta"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "ECUENTAS" ;
PROMPT "Outgoing messages" ;
ACTION msginfo("Your code ..." )
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "ESALIR" ;
PROMPT "Exit from the application" ;
ACTION oApp():oDlg:End()
DEFINE LABEL OF OUTLOOK oOut ;
PROMPT "Segunda etiqueta"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "CONFIG7" ;
PROMPT "Third control" ;
ACTION ClrMain()
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "EUNIDAD" ;
PROMPT "Fourth control"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "EUSUARIO" ;
PROMPT "This is the the fifth control"
DEFINE GROUP OF OUTLOOK oOut PROMPT "Empresa" ;
RESOURCE "BTN10A"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "CONFIG3" ;
PROMPT "First button on second group bar"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "CONFIG7" ;
PROMPT "Second button on second group bar"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "B16USER" ;
PROMPT "Third button"
DEFINE GROUP OF OUTLOOK oOut PROMPT "Agentes" ;
RESOURCE "BTN13A"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "EBLOCK3" ;
PROMPT "First button"
DEFINE BITMAP OF OUTLOOK oOut ;
RESOURCE "EBLOCK3" ;
PROMPT "Second button"
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 46 guests