Código: Selecionar todos
ABOUT DIALOG 100, 38, 299, 188
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Sobre o 5Volution Legacy Fenix"
FONT 8, "MS Sans Serif"
{
PUSHBUTTON "Fechar", 10, 244, 169, 50, 14
EDITTEXT 3, 105, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
EDITTEXT 4, 152, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
EDITTEXT 5, 200, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
EDITTEXT 6, 248, 144, 45, 12, ES_CENTER | ES_READONLY | WS_BORDER | WS_TABSTOP
CONTROL "TBitMap", 7, "TBitMap", WS_CHILD | WS_VISIBLE, 7, 6, 89, 151
LTEXT "5Volution Legacy Fenix 2006 (Revisão X)", 1, 105, 6, 192, 13
LTEXT "Todos os Direitos Reservados à Jose Carlos da Rocha", -1, 105, 24, 192, 8
LTEXT "Email: irochinha@itelefonica.com.br", -1, 105, 44, 142, 8
LTEXT "Conta: Unibanco, Agencia 1234 C/C 1.234.567", -1, 105, 52, 178, 8
LTEXT "Aviso: este programa de computador é protegido por leis de direitos autorais e tratados internacionais. A reprodução ou distribuição não autorizada deste programa, ou de qualquer parte dele, resultará em severas punições civis e criminais, e os infratores serão punidos sob a máxima extensão possivel dentro da lei.", -1, 105, 70, 191, 51
GROUPBOX "", -1, -4, 159, 308, 34, BS_GROUPBOX
LTEXT "Identificação do produto (Product ID):", 2, 105, 130, 192, 8
}
Código: Selecionar todos
function dlgabout( oque )
local oDlg
cSay3 := "GF65"
cSay4 := "K476"
cSay5 := "93M6"
cSay6 := "YT6W"
SET _3DLOOK ON
DEFINE DIALOG oDlg NAME "about"
REDEFINE SAY oSay1 VAR "5Volution Legacy Fenix 2006 (Revisao: 20060912)" ID 1 OF oDlg
REDEFINE SAY oSay2 VAR "Identificacao do produto (Product ID): " ID 2 OF oDlg
REDEFINE GET oSay3 VAR cSay3 ID 3 OF oDlg NO MODIFY
REDEFINE GET oSay4 VAR cSay4 ID 4 OF oDlg NO MODIFY
REDEFINE GET oSay5 VAR cSay5 ID 5 OF oDlg NO MODIFY
REDEFINE GET oSay6 VAR cSay6 ID 6 OF oDlg NO MODIFY
REDEFINE BITMAP oBitMap ID 7 FILENAME "5Vol.bmp" OF oDlg
REDEFINE BUTTON ID 10 OF oDlg ACTION oDlg:End() DEFAULT
ACTIVATE DIALOG oDlg CENTERED
return .t.