// MENU PRINCIPAL
// Para Carregar a Ultima Tela Salva no Arquivo .INI chamar FundoWnd()
IF FILE( "FUNDO.INI" )
FUNDOWND() // Chamada ao fundo de tela Escolhida Pelo Usu聽rio. Muito Bom.
ELSE
NOME_ARQ := FCREATE("FUNDO.INI")
NREGISTRO := "[MAIN]" ;
+ CRLF + ;
"Tipo=1" + ;
+ CRLF + ;
"Style=BRICKS" + ;
+ CRLF + ;
"Cor=32768" + ;
+ CRLF + ;
"File=.\ARANHA.BMP" + ;
+ CRLF+CRLF + ;
"[LOGO]" + ;
+ CRLF + ;
"File=.\Logo.bmp" + ;
+ CRLF + ;
"Row=10" + ;
+ CRLF + ;
"Col=10" + ;
+ CRLF+CRLF + ;
"[THANKS]" + ;
+ CRLF + ;
"Special Thanks = "+"Ednaldo Rolim" +;
+ CRLF +;
"Propriet聽rio.. = "+"Jo脝o <!-- e --><a href="mailto:Santos-kapiabafwh@gmail.com.br">Santos-kapiabafwh@gmail.com.br</a><!-- e -->"+;
+ CRLF + ;
"Meu Site:..... = "+"Visite: <!-- w --><a class="postlink" href="http://www.pleno.com.br">www.pleno.com.br</a><!-- w -->" +;
+ CRLF+CRLF +;
"Autor......... = "+"Jo脝o Santos - <!-- e --><a href="mailto:kapiabafwh@gmail.com.br">kapiabafwh@gmail.com.br</a><!-- e -->"
FWRITE( NOME_ARQ, NREGISTRO )
FCLOSE( NOME_ARQ )
FUNDOWND() // Chamada ao fundo de tela Escolhida Pelo Usu聽rio. Muito Bom.
ENDIF
// Enviado Por Ednaldo Rolim, Para Colocar o Logo em 23/11/2002
// nheight() = Pra Cima Pra Baixo = -235
// nWidth() = Pra Esquerda Pra Direita = -410
WndCenter( oWndMain:hWnd )
ACTIVATE WIN...
FUNCTION FundoWnd( nOption, oWin, cWStyle, nWCor )
LOCAL oIni, oBrush, oBmp
LOCAL nTipo, cStyle, nCor, cFile, cLogo, nRow, nCol, lSelect
LOCAL cDiretor := GetPvProfString( "Settings", "SaveDir", FilePath(), ".\FUNDO.INI" )
LOCAL cMascara := "*.BMP", oImage
LOCAL Nome_Arq, nRegistro, oDlg, cMsg, cTexto
LOCAL nResHoriz, nResVert
DEFAULT nOption := 0, oWin := oWndMain:oWndClient
IF nOption < 0 .AND. nOption > 4
RETURN NIL
ENDIF
INI oIni FILE ".\Fundo.ini"
GET nTipo SECTION "MAIN" ENTRY "Tipo" OF oIni DEFAULT 1
GET cStyle SECTION "MAIN" ENTRY "Style" OF oIni DEFAULT "Bricks"
GET nCor SECTION "MAIN" ENTRY "Cor" OF oIni DEFAULT nRGB( 0, 0, 255 )
GET cFile SECTION "MAIN" ENTRY "File" OF oIni DEFAULT ".\Aranha.bmp"
GET cLogo SECTION "LOGO" ENTRY "File" OF oIni DEFAULT ".\Logo.bmp"
GET nRow SECTION "LOGO" ENTRY "Row" OF oIni DEFAULT 10
GET nCol SECTION "LOGO" ENTRY "Col" OF oIni DEFAULT 10
ENDINI
IF nOption == 0
lSelect := .F.
ELSEIF nOption == 1 // Vem do Menu Principal, troca a BMP
nTipo := 1
lSelect := .T.
ELSEIF nOption == 2
cStyle := cWStyle
nTipo := 2
lSelect := .F.
ELSEIF nOption == 3
nCor := nWCor
nTipo := 3
lSelect := .F.
ELSEIF nOption == 4
nTipo := 3
lSelect := .T.
ENDIF
//---- Cria o Brush
//
IF nTipo == 1
IF lSelect // No Windows 7, precisa estar como administrador senao...
//cFile := SubStr( cGetFile( "*.BMP", "Selecione o Arquivo Bitmap (.BMP)" ), 1 )
cFile := SubStr( cGetFile( "*.BMP", "Selecione o Arquivo Bitmap (.BMP)" ), 3 )
ENDIF
IF Empty( cFile )
Return Nil
ENDIF
// DEFINE BRUSH oBrush FILE cFile
//SET BRUSH OF oWin TO oBrush // Modificado em: 20/04/2011
nResHoriz := oWndMain:nHorzRes() // retorna a resolucao horizontal
nResVert := oWndMain:nVertRes() // retorna a resolucao vertical
IF nResHoriz = 1440 .AND. nResVert = 900
@ 0, 0 IMAGE oImage SIZE 1440, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1366 .AND. nResVert = 768
@ 0, 0 IMAGE oImage SIZE 1366, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1360 .AND. nResVert = 768
@ 0, 0 IMAGE oImage SIZE 1360, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1280 .AND. nResVert = 768
@ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1280 .AND. nResVert = 720
@ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1280 .AND. nResVert = 960
@ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1280 .AND. nResVert = 800
@ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1280 .AND. nResVert = 720
@ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1280 .AND. nResVert = 600
@ 0, 0 IMAGE oImage SIZE 1280, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1600 .AND. nResVert = 1200
@ 0, 0 IMAGE oImage SIZE 1600, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1680 .AND. nResVert = 1050
@ 0, 0 IMAGE oImage SIZE 1680, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 2560 .AND. nResVert = 1600
@ 0, 0 IMAGE oImage SIZE 2560, 668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSEIF nResHoriz = 1024 .AND. nResVert = 768
IF ISWINXP()
@ 0, 0 IMAGE oImage SIZE 1024,668 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSE
@ 0, 0 IMAGE oImage SIZE 1024,678 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ENDIF
ELSE
IF ISWINXP()
@ 0, 0 IMAGE oImage SIZE 800,500 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ELSE
@ 0, 0 IMAGE oImage SIZE 800,510 OF oWin ADJUST
oImage:Progress( .F. )
oImage:LoadBmp( cFile )
ENDIF
ENDIF
ELSEIF nTipo == 2
DEFINE BRUSH oBrush STYLE ( cStyle )
ELSEIF nTipo == 3
IF lSelect
nCor := ChooseColor()
ENDIF
DEFINE BRUSH oBrush COLOR nCor
ENDIF
//---- Estabelece o Brush da Janela
//
IF nTipo != 1
SET BRUSH OF oWin TO oBrush
ENDIF
IF nOption != 0
// Grava no Arquivo INI as Modifica鈥∶s
INI oIni FILE ".\Fundo.ini"
SET SECTION "MAIN" ENTRY "Tipo" OF oIni TO nTipo
SET SECTION "MAIN" ENTRY "Style" OF oIni TO cStyle
SET SECTION "MAIN" ENTRY "Cor" OF oIni TO nCor
SET SECTION "MAIN" ENTRY "File" OF oIni TO cFile
SET SECTION "LOGO" ENTRY "File" OF oIni TO cLogo
SET SECTION "LOGO" ENTRY "Row" OF oIni TO nRow
SET SECTION "LOGO" ENTRY "Col" OF oIni TO nCol
SET SECTION "THANKS" ENTRY "Special Thanks" ;
OF oIni TO "Ednaldo Rolim - <!-- e --><a href="mailto:ednaldorolim@uol.com.br">ednaldorolim@uol.com.br</a><!-- e --> - My Friend"
SET SECTION "THANKS" ENTRY "Autor..." ;
OF oIni TO "Jo脝o Santos - <!-- e --><a href="mailto:kapiabafwh@gmail.com.br">kapiabafwh@gmail.com.br</a><!-- e -->"
SET SECTION "THANKS" ENTRY "Meu Site:....." ;
OF oIni TO "Visite: <!-- w --><a class="postlink" href="http://www.pleno.com.br">www.pleno.com.br</a><!-- w -->"
ENDINI
// REINICIAR O PROGRAMA PARA ASSUMIR A NOVA TELA DE FUNDO
IF nOption == 1
MsgInfo( OemToAnsi( "Aten鈥∶唎 Usu聽rio: " )+CRLF+ ;
OemToAnsi( "PRECISO REINICIAR O PROGRAMA " )+CRLF+ ;
OemToAnsi( "Tecle <ENTER> Para Continuar " ), ;
OemToAnsi( "Tecle <Enter> Para Finalizar " ) )
MsgRun( "Desligando o Programa... ", ;
"Por Favor, Espere! ", ;
{ | oDlg | ( DESLIGA_VENDAS( oDlg ) ) } )
AEVAL(DIRECTORY( "VENDAS.BAT" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )
IF .NOT. FILE( "VENDAS.BAT" )
NOME_ARQ := FCREATE("VENDAS.BAT")
NREGISTRO := "@ECHO OFF" ;
+ CRLF + ;
"CLS" + ;
+ CRLF + CRLF + ;
"VENDAS.EXE" + ;
+ CRLF + CRLF + ;
"CLS" + ;
+ CRLF + ;
"EXIT"
FWRITE( NOME_ARQ, NREGISTRO )
FCLOSE( NOME_ARQ )
ENDIF
DbCloseAll()
WinExec( "VENDAS.BAT", 0 )
__Quit()
ENDIF
ENDIF
RETURN NIL
Regards, saludos.
