Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
24 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 24 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7080 usuários registrados
O último usuário registrado atende pelo nome de Edi_0306

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

Biblioteca MessageBox (FLL) para Visual FoxPro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:45

Encontrei algo que poderá ser muito útil para os colegas que desejam personalizar seus MESSAGEBOX's.

Os colegas poderão acessar a fonte original no seguinte link:
- Extended MessageBox library (FLL) for Visual FoxPro

Demonstrações:

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]

Link para download das demonstrações:
- Clique aqui para baixar o arquivo!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:55

Exemplo1:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

*** set message font
xmsg_AssignMessageFont('Times', 22, .T.)
xmsg_AssignMessageFontColor( RGB(110,80,64) )

*** set back color
xmsg_LoadBackcolorFromSolidColor(1, RGB(230,221,190)) && dialog window
xmsg_LoadBackcolorFromSolidColor(2, RGB(153,147,127))
xmsg_EnableUdfBackcolors(.T.)

*** set button captions and font
xmsg_AssignButtonCaption(1, 'Ne&xt')
xmsg_EnableUdfButtonCaptions(.T.)
xmsg_AssignButtonFont(1, 'Times', 12, .T.)

*** set dialog icon
xmsg_LoadIconFromFileType(0x80, _vfp.ServerName)
xmsg_EnableUdfIcons(.T.)

*** display checkbox
xmsg_EnableCheckBoxCtrl("Show only once")

xmsg_AssignDlgMaxSize(500)

*** display the dialog using library function
xmsg_ShowDialog('Extended MessageBox Library for Visual FoxPro.' + DCRLF +;
   'This is xmsg_ShowDialog() call.',;
   0x80, VERSION())

IF NOT xmsg_GetCheckboxState()
   *** display the dialog using regular MESSAGEBOX()
   xmsg_SetDlgMonitor(.T.)
   MESSAGEBOX('Extended MessageBox Library for Visual FoxPro.' + DCRLF +;
      'This is MESSAGEBOX() call.',;
      64, VERSION())
ENDIF

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:56

Exemplo 2:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

   PRIVATE cMessage, cCaption, nTimeout
   cMessage='This sample shows how to specify the initial position of the dialog.'
   cCaption='Dialog initial position'
   nTimeout=2000

   xmsg_ShowDialog(cMessage + DCRLF + 'The dialog is centered by default.',;
      64, cCaption, nTimeout)

   xmsg_AssignDlgPosition(300, 200)
   xmsg_ShowDialog('Now the dialog position is set to [300,200]',;
      64, cCaption, nTimeout)

   nTimeout=1000
   cMessage='The dialog can be anchored to the screen.'
   xmsg_AssignMessageFont('', 14)

   xmsg_AssignMessageFontColor( RGB(64,64,64) )

   xmsg_AssignDlgPosition(1, 1, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignDlgPosition(0, 1, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignDlgPosition(2, 1, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignMessageFontColor( RGB(92,92,92) )

   xmsg_AssignDlgPosition(1, 0, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignDlgPosition(0, 0, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignDlgPosition(2, 0, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignMessageFontColor( RGB(128,128,128) )

   xmsg_AssignDlgPosition(1, 2, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignDlgPosition(0, 2, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

   xmsg_AssignDlgPosition(2, 2, .T.)
   xmsg_ShowDialog(cMessage, 64, cCaption, nTimeout)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:56

Exemplo 3:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

   PRIVATE cMessage, cCaption, nTimeout
   cCaption='Message Font and Font Color'
   
   * step 1 -----------------------------------------------------------------------
   xmsg_AssignMessageFont('', 16, .F., .T.)
   xmsg_AssignMessageFontColor( RGB(92,128,92) )
   xmsg_AssignDlgMaxSize(600)
   cMessage='This sample shows how to specify the font of the message ' +;
      'and the font color.'
   nTimeout=5000
   xmsg_ShowDialog(cMessage, 64+1, cCaption, nTimeout )
   xmsg_AssignDlgMaxSize()

   * step 2 -----------------------------------------------------------------------
   xmsg_AssignMessageFontColor( RGB(156,93,120) )
   cMessage='While the size of the message font gradually increases, ' +;
      'the dialog automatically reshapes itself to accomodate the text.'
   nTimeout=1000

   LOCAL nFontSize
   FOR nFontSize=18 TO 48 STEP 4
      xmsg_AssignMessageFont('Times New Roman', nFontSize)
      xmsg_ShowDialog(cMessage + DCRLF +;
      'Now the size is '+TRANSFORM(nFontSize) + '.',;
      64+1, cCaption, nTimeout )
   NEXT

   * step 3 -----------------------------------------------------------------------
   cMessage='The message is displayed in a variety of fonts:'
   nTimeout=1000

   DO proc01 WITH 'Arial', 24, RGB(70,90,200)
   DO proc01 WITH 'Arial Narrow', 34, RGB(140,80,60)
   DO proc01 WITH 'Times New Roman', 28, RGB(120,60,200)
   DO proc01 WITH 'Cooper Black', 32, RGB(128,128,128)
   DO proc01 WITH 'Calibri', 32, RGB(140,80,60)
   DO proc01 WITH 'Courier New', 32, RGB(70,90,200)
   DO proc01 WITH 'Century', 32, RGB(40,100,40)
   DO proc01 WITH 'Verdana', 48, RGB(190,30,15)
   DO proc01 WITH 'Tahoma', 32, RGB(140,80,60)
   DO proc01 WITH 'Book Antiqua', 24, RGB(70,90,200)
   DO proc01 WITH 'Lucida Console', 24, RGB(40,100,40)
   DO proc01 WITH 'Georgia', 24, RGB(120,60,200)
   DO proc01 WITH 'Impact', 32, RGB(140,80,60)
   DO proc01 WITH 'Garamond', 48, RGB(70,90,200)
   DO proc01 WITH 'Arial Black', 48, RGB(128,128,128)
   DO proc01 WITH 'Lucida Handwriting', 24, RGB(120,60,200)

PROCEDURE proc01(cFontName, nFontSize, nFontColor)
   LOCAL lResult

   IF AFONT(arrFont, m.cFontName, m.nFontSize)

      xmsg_AssignMessageFontColor( nFontColor )
      xmsg_AssignMessageFont(m.cFontName, m.nFontSize)
      xmsg_ShowDialog(cMessage + DCRLF + cFontName,;
         64+1, cCaption, nTimeout)
   ENDIF

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:57

Exemplo 4:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

   PRIVATE cMessage, cCaption, nTimeout
   cCaption='Dialog Back Color'
   nTimeout=5000
   
   cMessage='The background color and brush can be loaded ' +;
      'from a variety of sources:' + DCRLF +;
      '   - solid colors' + CRLF +;
      '   - system colors' + CRLF +;
      '   - hatch patterns' + CRLF +;
      '   - bitmap resources' + CRLF +;
      '   - bitmap files'

   xmsg_AssignDlgMaxSize(-600, 0)
   xmsg_AssignMessageFont('Times', 18)
   xmsg_AssignMessageFontColor(RGB(129,21,24))

   xmsg_EnableUdfBackcolors(.T.)  && important

   xmsg_LoadBackcolorFromSolidColor(1, RGB(255,210,156))
   xmsg_LoadBackcolorFromSolidColor(2, RGB(179,148,109))
   xmsg_ShowDialog(cMessage, 64+3, cCaption)

   xmsg_LoadBackcolorFromSystemColor(1, 1)
   xmsg_LoadBackcolorFromSystemColor(2, 5)
   xmsg_ShowDialog(cMessage, 64+3, cCaption)

   xmsg_LoadBackcolorFromHatchBrush(1, 2, RGB(255,210,156))
   xmsg_LoadBackcolorFromHatchBrush(2, 3, RGB(179,148,109))
   xmsg_ShowDialog(cMessage, 64+3, cCaption)

   xmsg_ResetBackcolor(2)
   xmsg_AssignMessageFont('Times', 28)
   cMessage='Small bitmaps can be used as brush patterns.'

   xmsg_LoadBackcolorFromBitmapFile(1, 'bitmap_pattern_002.bmp')
   xmsg_AssignMessageFontColor(RGB(70,90,100))
   xmsg_ShowDialog(cMessage, 64+3, cCaption)

   cMessage='Loading background from a large bitmap file and ' +;
      'locking the dimensions of the MessageBox ' +;
      'produces not bad result at all.'

   * the client area of the dialog window is forced
   * to be 500 by 300 pixels, which is the dimensions
   * of this particular bitmap
   xmsg_AssignDlgMaxSize(-500, -300)
   xmsg_AssignMessageFont('Arial', 18)

   xmsg_AssignMessageFontColor(RGB(50,70,122))
   xmsg_LoadBackcolorFromBitmapFile(1, 'bg_500_300_001.bmp')
   xmsg_ShowDialog(cMessage, 48+3, cCaption)

- Clique aqui para baixar a imagem1 utilizada neste exemplo!
- Clique aqui para baixar a imagem2 utilizada neste exemplo!


Última edição por Marcos Guedes em 4/2/2010, 11:11, editado 2 vez(es)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:57

Exemplo 5:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

   PRIVATE cMessage, cCaption, nTimeout
   nTimeout=2000

   cCaption='Dialog Icon'
   cMessage='The dialog icon can be loaded from a resource file.' + DCRLF +;
      'VFP executable itself is a resource file containing several icons.'

   xmsg_LoadIconFromResourceFile(16, _vfp.ServerName, 0) && STOP
   xmsg_LoadIconFromResourceFile(32, _vfp.ServerName, 1) && QUESTION
   xmsg_LoadIconFromResourceFile(48, _vfp.ServerName, 2) && EXCLAMATION
   xmsg_LoadIconFromResourceFile(64, _vfp.ServerName, 3) && INFO

   xmsg_EnableUdfIcons(.T.)

   xmsg_ShowDialog(cMessage, 16+3, cCaption, nTimeout)
   xmsg_ShowDialog(cMessage, 32+3, cCaption, nTimeout)
   xmsg_ShowDialog(cMessage, 48+3, cCaption, nTimeout)
   xmsg_ShowDialog(cMessage, 64+3, cCaption, nTimeout)

   LOCAL cIconPath, nIconCount, nIconIndex, cIconFile
   cMessage='Loading an icon from ICO file is that simple...'
   nTimeout=1000
   cIconPath=HOME(4)+'Icons\Win95\'
   nIconCount=ADIR(arrIcons, cIconPath + '*.ico')

   FOR nIconIndex=1 TO MIN(3, nIconCount)

      cIconFile=cIconPath + arrIcons[nIconIndex,1]
      xmsg_LoadIconFromIconFile(16, cIconFile)

      xmsg_ShowDialog(cMessage + DCRLF + cIconFile,;
         16+3, cCaption, nTimeout)
   NEXT

   cMessage='Default icon for a file type can also be displayed.'

   xmsg_LoadIconFromFileType(16, '*.pdf')
   xmsg_ShowDialog(cMessage, 16+3, cCaption, nTimeout)
   xmsg_LoadIconFromFileType(16, '*.doc')
   xmsg_ShowDialog(cMessage, 16+3, cCaption, nTimeout)
   xmsg_LoadIconFromFileType(16, '*.xls')
   xmsg_ShowDialog(cMessage, 16+3, cCaption, nTimeout)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:57

Exemplo 6:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

   PRIVATE cMessage, cCaption, nTimeout

   cCaption='Button Captions and Fonts'
   cMessage='There are 11 standard buttons that can show inside the MessageBox ' +;
      'depending on the selected DialogBoxType.' + DCRLF +;
      'For DialogBoxType=3' + CRLF +;
      'Yes, No, and Cancel buttons are displayed.'
   
   xmsg_EnableUdfButtonCaptions(.T.)

   xmsg_AssignButtonCaption(6, 'Forward')  && YES
   xmsg_AssignButtonCaption(7, 'Back')  && NO
   xmsg_AssignButtonCaption(2, 'Exit')  && CANCEL
   xmsg_ShowDialog(cMessage, 64+3, cCaption, 1000)

   xmsg_AssignButtonCaption(6, 'Monday')  && YES
   xmsg_AssignButtonCaption(7, 'Tuesday')  && NO
   xmsg_AssignButtonCaption(2, 'Wednesday')  && CANCEL
   xmsg_ShowDialog(cMessage, 64+3, cCaption, 1000)

   xmsg_AssignButtonCaption(6, 'Red')  && YES
   xmsg_AssignButtonCaption(7, 'Yellow')  && NO
   xmsg_AssignButtonCaption(2, 'Orange')  && CANCEL
   xmsg_ShowDialog(cMessage, 64+3, cCaption, 1000)

   xmsg_AssignButtonCaption(6, 'Alpha')  && YES
   xmsg_AssignButtonCaption(7, 'Beta')  && NO
   xmsg_AssignButtonCaption(2, 'Gamma')  && CANCEL
   xmsg_ShowDialog(cMessage, 64+3, cCaption, 1000)

   xmsg_EnableUdfButtonCaptions(.F.)
   xmsg_AssignButtonFont(6, 'Arial', 12, .F., .T.)
   xmsg_AssignButtonFont(7, 'Arial', 12, .F., .T.)
   xmsg_AssignButtonFont(2, 'Arial', 12, .F., .T.)
   xmsg_ShowDialog(cMessage, 64+3, cCaption)

   xmsg_AssignButtonFont(6, 'Arial', 12)
   xmsg_AssignButtonFont(7, 'Arial', 12, .T.)
   xmsg_AssignButtonFont(2, 'Arial Black', 12)

   xmsg_ShowDialog(cMessage + DCRLF +;
      'Button font colors cannot be changed.',;
      64+3, cCaption)

   * display up to 3 additional buttons
   xmsg_AssignButtonCaption(12, 'Udf 1')
*!*      xmsg_AssignButtonCaption(13, 'Udf 2')
*!*      xmsg_AssignButtonCaption(14, 'Udf 3')

   ? xmsg_ShowDialog('Display up to three additional buttons.',;
      64+3, cCaption)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:57

Exemplo 7:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

xmsg_EnableCheckBoxCtrl("Show only once")

*** display the dialog using library function
xmsg_ShowDialog('Extended MessageBox Library for Visual FoxPro.' + DCRLF +;
   'This is xmsg_ShowDialog() call.',;
   0x80, VERSION())

IF NOT xmsg_GetCheckboxState()
   *** display the dialog using regular MESSAGEBOX()
   xmsg_SetDlgMonitor(.T.)
   MESSAGEBOX('Extended MessageBox Library for Visual FoxPro.' + DCRLF +;
      'This is MESSAGEBOX() call.',;
      64, VERSION())
ENDIF

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:58

Exemplo 9:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

   PRIVATE cMessage, cCaption, nTimeout
   cCaption='Calling VFP MESSAGEBOX()'
   cMessage='The FLL can monitor calls to the regular ' +;
      'VFP MESSAGEBOX() function automatically adjusting ' +;
      'the view of the dialog.' + DCRLF +;
      'Note that this mode does not support the Timeout parameter.'

   xmsg_SetUnwrappedCharCount(50)

   xmsg_LoadBackcolorFromSolidColor(1, RGB(194,212,178))
   xmsg_LoadBackcolorFromSolidColor(2, RGB(124,135,114))
   xmsg_EnableUdfBackcolors(.T.)
   xmsg_AssignMessageFont('Times', 20, .T.)
   xmsg_AssignMessageFontColor(RGB(41,41,41))
   xmsg_LoadIconFromResourceFile(0x80, _vfp.ServerName, 0) && UDF
   xmsg_EnableUdfIcons(.T.)

   * turns the dialog monitor on
   xmsg_SetDlgMonitor(.T.)
   
   * any MESSAGEBOX call displays dialog with extended features
   = MESSAGEBOX(cMessage, 48+3, cCaption)

   * unless the Timeout parameter set
   = MESSAGEBOX(cMessage + DCRLF +;
      'MESSAGEBOX: the Timeout is 5 seconds...', 48+3, cCaption, 5000)

   xmsg_ShowDialog('Call xmsg_ShowDialog() when Timeout parameter ' +;
      'is required.' + DCRLF +;
      'xmsg_ShowDialog: the Timeout is 5 seconds...', 48+3,;
      cCaption, 5000)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 10:58

Exemplo 10:
Código:
**********************************************************
* Using Extended Messagebox Library for Visual FoxPro
* Copyright © 2009 1361529 Ontario, Inc.
**********************************************************
#INCLUDE samples.h
SET LIBRARY TO xmsg71

   DO Presentation
   SET LIBRARY TO
   
FUNCTION Presentation()
   PRIVATE cMessage, cCaption
   cCaption='Introducing Extended Messagebox FLL'
   
   cMessage='As you know, the VFP MESSAGEBOX() function displays a user-defined dialog box. ' +;
      'As useful as it is, this function has some limitations.' + DCRLF +;
      'The following demo presents extended MESSAGEBOX() functionality ' +;
      'in Visual FoxPro.'
      
   = MESSAGEBOX(cMessage, 64, cCaption)

   xmsg_EnableUdfButtonCaptions(.T.)
   xmsg_AssignButtonCaption(4, '&Next...') && RETRY
   xmsg_AssignButtonCaption(2, 'E&xit')  && CANCEL
   xmsg_AssignButtonCaption(1, 'Next')
   
   cMessage='The Extended Messagebox FLL library empowers the MESSAGEBOX() with additional functionality ' +;
      'by supporting a variety of new settings.' + DCRLF +;
      'The FLL library is intended for use on Vista and Windows XP ' +;
      'machines with Visual FoxPro version 7.0 or newer installed.' + DCRLF +;
      'Keep pressing ENTER key to go through the presentation.'
   dlg()

   cMessage='You can already observe the first feature: the button captions ' +;
      'and button caption fonts can be user-defined.'

   * sets button fonts
   xmsg_AssignButtonFont(4, 'Arial Black', 10)
   xmsg_AssignButtonFont(2, 'Arial', 10, .T.)

   dlg()

   * resets button fonts
   xmsg_AssignButtonFont(4)
   xmsg_AssignButtonFont(2)

   cMessage='The dialog can be positioned anywhere on the screen...'
   xmsg_AssignDlgPosition(700,100)
   dlg()
   xmsg_AssignDlgPosition(50,400)
   dlg()
   xmsg_AssignDlgPosition()

   cMessage='The width and the height of the dialog can be locked. ' + DCRLF +;
      'When locked, the size of the dialog does not change, regardless of the length of the message.'
   xmsg_AssignDlgMaxSize(-600, -200)
   dlg()
   xmsg_AssignDlgMaxSize(-250, -450)
   dlg()

   xmsg_AssignDlgMaxSize(600)
   cMessage='The name, the size and the style of the message font all can be selected.'
   xmsg_AssignMessageFont('Arial Narrow', 22)
   dlg()
   xmsg_AssignMessageFont('Times New Roman', 22, .T.)
   dlg()
   cMessage='With the font selected, the dialog automatically resizes to make the optimal room for the message.'
   xmsg_AssignMessageFont('Times New Roman', 22)
   dlg()

   cMessage='The font used for the dialog message can be really big!'
   xmsg_AssignMessageFont('Arial', 48)
   dlg()

   xmsg_AssignDlgMaxSize()
   cMessage='That Big!'
   xmsg_AssignMessageFont('Arial Black', 96)
   dlg()
   cMessage='Bigger!!!'
   xmsg_AssignMessageFont('Arial Black', 120)
   dlg()
   cMessage='And it can be THAT SMALL. ' + DCRLF +'If you can still read it from screen WITHOUT any kind of magnifying GLASS, ' +;
      'please accept my sincere congratulations. It is supposed to be bloody 4 points. ' + DCRLF +;
      'FREE WILLY! and I owe you $10 (that last statement was a joke, of course).'
   xmsg_AssignMessageFont('Arial', 4)
   dlg()
   cMessage='The TrueType and the OpenType fonts support sizes from 4 and up to 127 points.' +;
      DCRLF+"Please stay reasonable!"
   xmsg_AssignMessageFont('Arial', 18)
   dlg()

   xmsg_AssignDlgMaxSize(600, 0)

   xmsg_AssignMessageFont('Arial Narrow', 28)
   cMessage='Not just the message font but the font color can be selected too...'
   xmsg_AssignMessageFontColor( RGB(64,64,128) )
   dlg()
   xmsg_AssignMessageFontColor( RGB(64,128,64) )
   dlg()
   xmsg_AssignMessageFont('Tahoma', 28, .T.)
   xmsg_AssignMessageFontColor( RGB(192,64,64) )
   dlg()

   xmsg_AssignMessageFont('Times New Roman', 22)
   cMessage='The background of the dialog does not need to be dull anymore.'
   xmsg_EnableUdfBackcolors(.T.)  && important
   xmsg_LoadBackcolorFromSolidColor(1, RGB(255,210,156))
   xmsg_LoadBackcolorFromSolidColor(2, RGB(179,148,109))
   xmsg_AssignMessageFontColor( RGB(97,61,54) )
   dlg()
   cMessage='The background of the dialog does not need to be dull anymore.'
   xmsg_LoadBackcolorFromSolidColor(1, RGB(118,147,207))
   xmsg_LoadBackcolorFromSolidColor(2, RGB(74,93,130))
   xmsg_AssignMessageFontColor( RGB(22,58,130) )
   dlg()
   cMessage='The background of the dialog does not need to be dull anymore.'
   xmsg_LoadBackcolorFromSolidColor(1, RGB(164,219,127))
   xmsg_LoadBackcolorFromSolidColor(2, RGB(107,143,83))
   xmsg_AssignMessageFontColor( RGB(50,90,50) )
   dlg()

   cMessage='Solid colors, system colors and hatch patterns can be used to fill the background...'
   xmsg_AssignMessageFont('Times New Roman', 22)
   xmsg_AssignMessageFontColor( RGB(124,12,102) )
   xmsg_LoadBackcolorFromHatchBrush(1, 2, RGB(255,210,156))
   xmsg_LoadBackcolorFromHatchBrush(2, 3, RGB(179,148,109))
   dlg()

   cMessage='The background can also be filled with a bitmap pattern...'
   xmsg_LoadBackcolorFromBitmapFile(1, 'bitmap_pattern_002.bmp')
   xmsg_LoadBackcolorFromSolidColor(2, RGB(74,93,130))
   xmsg_AssignMessageFontColor(RGB(22,58,130))
   dlg()
   cMessage="That's the same bitmap pattern but now " +;
      'the dialog size is locked to 600 by 400 pixels.'
   xmsg_AssignDlgMaxSize(-600, -400)
   dlg()

   cMessage='When the dialog size is locked to match the size of the background bitmap, ' +;
      'a really striking look can be achieved.'
   xmsg_AssignDlgMaxSize(-500, -300)
   xmsg_AssignMessageFont('Arial', 18)
   xmsg_AssignMessageFontColor(RGB(64,64,128))
   xmsg_LoadBackcolorFromBitmapFile(1, 'bg_500_300_001.bmp')
   xmsg_ResetBackcolor(2)
   dlg()

   xmsg_AssignDlgMaxSize(-500, -280)
   xmsg_LoadBackcolorFromSolidColor(1, RGB(118,147,207))
   xmsg_LoadBackcolorFromSolidColor(2, RGB(74,93,130))
   xmsg_EnableUdfIcons(.T.)
   xmsg_AssignMessageFont('', 16)
   xmsg_AssignMessageFontColor(RGB(64,64,128))

   cIconPath=HOME(4)+'Icons\Win95\'
   nIconCount=ADIR(arrIcons, cIconPath + '*.ico')
   FOR nIconIndex=1 TO MIN(3, nIconCount)
      cIconFile=cIconPath + arrIcons[nIconIndex,1]
      xmsg_LoadIconFromIconFile(64, cIconFile)
      cMessage='The dialog icon can be loaded from any valid ICO file.' +;
         DCRLF + JUSTFNAME(cIconFile)
      dlg()
   NEXT

   xmsg_AssignMessageFontColor(RGB(180,90,0))
   xmsg_LoadBackcolorFromSolidColor(1, RGB(250,250,230))
   xmsg_LoadBackcolorFromSolidColor(2, RGB(240,160,100))

   cMessage='The dialog icon can be loaded from the VFP executable ' +;
      'or from any EXE or DLL file containing icon resources.'
   xmsg_LoadIconFromResourceFile(64, _vfp.ServerName, 0)
   dlg()

   cMessage='The default icon for existing file or a file type can also be loaded. ' +;
      DCRLF + 'Simply pass a file name or the wildcard with the extension.'

   xmsg_LoadIconFromFileType(64, GETENV("windir")+'\system32\calc.exe')
   dlg()
   xmsg_LoadIconFromFileType(64, '*.pdf')
   dlg()

   cMessage='The FLL can also be set to monitor the calls to the regular ' +;
      'VFP MESSAGEBOX() function.' + DCRLF +;
      'Then it automatically adjusts the shape and the look of the dialog upon each call.'

   xmsg_SetDlgMonitor(.T.)
   = MESSAGEBOX(cMessage, 64+5, cCaption)
   xmsg_SetDlgMonitor(.F.)

   cMessage=''  && the message is intentionally empty
   xmsg_AssignMessageFont('Impact', 96)
   xmsg_AssignDlgMaxSize(-600, -300)
*   xmsg_AssignButtonEnabled(4, .F.)
   xmsg_LoadBackcolorFromBitmapFile(1, 'bg_600_300_001.bmp')
   xmsg_ResetBackcolor(2)
   xmsg_ShowDialog(cMessage, 16+5, cCaption)
* end of demo

PROCEDURE dlg()
   IF xmsg_ShowDialog(cMessage, 64+5, cCaption, 60000) = 2
      SET LIBRARY TO
      CANCEL
   ENDIF

- Clique aqui para baixar a imagem1 utilizada neste exemplo!
- Clique aqui para baixar a imagem2 utilizada neste exemplo!
- Clique aqui para baixar a imagem3 utilizada neste exemplo!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por Marcos Guedes em 4/2/2010, 11:13

Estes exemplos estão contidos no arquivo de demonstração cujo link disponibilizei na primeira mensagem, e pode também ser encontrado na fonte original a qual citem, também, na primeira mensagem.

Para que os exemplos funcionem é necessário acompanhar 3 arquivos:
- xmsg71.fll
- xmsg80.fll
- samples.h

- Clique aqui para baixá-los!

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Anexo Re: Biblioteca MessageBox (FLL) para Visual FoxPro

Mensagem por hugo em 4/2/2010, 13:59

boa marcos

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum