Code: Select all | Expand
// 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 Santos-kapiabafwh@gmail.com.br"+;
+ CRLF + ;
"Meu Site:..... = "+
"Visite: www.pleno.com.br" +;
+ CRLF+CRLF +;
"Autor......... = "+
"JoÆo Santos - kapiabafwh@gmail.com.br" 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‡äes 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 - ednaldorolim@uol.com.br - My Friend" SET SECTION
"THANKS" ENTRY
"Autor..." ;
OF oIni
TO "JoÆo Santos - kapiabafwh@gmail.com.br" SET SECTION
"THANKS" ENTRY
"Meu Site:....." ;
OF oIni
TO "Visite: www.pleno.com.br" ENDINI
// REINICIAR O PROGRAMA PARA ASSUMIR A NOVA TELA DE FUNDO IF nOption ==
1 MsgInfo( OemToAnsi
( "Aten‡Æo 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 ENDIFRETURN NIL
Regards, saludos.
