Haga asi:
En el MENU PRINCIPAL inicie el archivo: FUNDO.INI cambie para FONDO.INI.
// cPathPleno := CURDRIVE() + ":\" + GETCURDIR()
cPathPleno := "\" + GETCURDIR()
// Para Carregar a Ultima Tela Salva no Arquivo .INI chamar FundoWnd()
IF FILE( "FUNDO.INI" )
FUNDOWND() // llama el fondo.
ELSE // crea FUNDO.INI o FONDO.INI
NOME_ARQ := FCREATE("FUNDO.INI")
NREGISTRO := "[MAIN]" ;
+ CRLF + ;
"Tipo=1" + ;
+ CRLF + ;
"Style=BRICKS" + ;
+ CRLF + ;
"Cor=14286847" + ;
+ CRLF + ;
"File="+ALLTRIM(cPathPleno)+"\ARANHA.BMP" + ;
+ CRLF+CRLF + ;
"[LOGO]" + ;
+ CRLF + ;
"File=.\Logo.bmp" + ;
+ CRLF + ;
"Row=10" + ;
+ CRLF + ;
"Col=10" + ;
+ CRLF+CRLF + ;
"[THANKS]" + ;
+ CRLF + ;
"Special Thanks = "+"Ednaldo Alves Rolim" +;
+ CRLF +;
"ProprietĀ rio.. = "+"JoĆo <!-- e --><a href="mailto:Santos-kapiabafwh@gmail.com">Santos-kapiabafwh@gmail.com</a><!-- e -->" +;
+ CRLF + ;
"Meu Site:..... = "+"Visite: www.fivewin.com.br" +;
+ CRLF+CRLF +;
"Autor......... = "+"JoĆo <!-- e --><a href="mailto:Santos-kapiabafwh@gmail.com">Santos-kapiabafwh@gmail.com</a><!-- e -->"
FWRITE( NOME_ARQ, NREGISTRO )
FCLOSE( NOME_ARQ )
FUNDOWND() // Chamada ao fundo de tela Escolhida Pelo UsuĀ rio. Muito Bom.
ENDIF
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"
DEFAULT nOption := 0, oWin := oWnd:oWndClient
IF nOption < 0 .AND. nOption > 4
RETURN NIL
ENDIF
//-> Carrega
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 ".\Fundo.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
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
// Modelo Antigo - Deu Uns Pauzinhos... troquei e funcionou.
// cFile := cGetFile( "*.BMP", "Selecione o Arquivo Bitmap (.BMP)" )
//-> Assim Pega do DiretĀ¢rio Corrente em C:\...
//cFile := cGetFile( cMascara, "Selecione o Arquivo Bitmap (.BMP)", 1, cDiretor, .T. )
//-> Assim Pega em Rede -> Para Todas as MĀ quinas.
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
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 - <!-- 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">kapiabafwh@gmail.com</a><!-- e --> "
SET SECTION "THANKS" ENTRY "Meu Site:....." ;
OF oIni TO "Visite: <!-- w --><a class="postlink" href="http://www.fivewin.com.br">www.fivewin.com.br</a><!-- w -->"
ENDINI
ENDIF
RETURN NIL
