From cd2e78fa00e6e90032e2c5653b9675b0bc9456d9 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Sat, 20 Jun 2015 14:17:19 +0200
Subject: [PATCH] Para imagen de fondo e icono, ahora uso FILE() en vez de
 ADIR() porque si no, no encuentra el archivo interno.

---
 foxbin2prg.prg | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 5405431..e49a56c 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -493,6 +493,10 @@ LPARAMETERS tc_InputFile, tcType, tcTextName, tlGenText, tcDontShowErrors, tcDeb
 #DEFINE C_FILETYPE_QUERYSUPPORT		"Q"
 *-- Fin / End
 
+IF _VFP.StartMode > 0 THEN
+	SYS(2450,1)
+ENDIF
+
 LOCAL loCnv AS c_foxbin2prg OF 'FOXBIN2PRG.PRG'
 LOCAL lnResp, loEx AS EXCEPTION
 
@@ -4635,11 +4639,13 @@ DEFINE CLASS frm_avance AS Form
 				THISFORM.CAPTION		= 'FoxBin2Prg ' + _SCREEN.c_FB2PRG_EXE_Version + ' > - ' + loLang.C_PROCESS_PROGRESS_LOC + '  (' + loLang.C_PRESS_ESC_TO_CANCEL + ')'
 			ENDIF
 
-			IF ADIR( laDirInfo, FORCEEXT( toFoxBin2Prg.c_Foxbin2prg_FullPath, 'ICO' ) ) > 0 THEN
+			*IF ADIR( laDirInfo, FORCEEXT( toFoxBin2Prg.c_Foxbin2prg_FullPath, 'ICO' ) ) > 0 THEN
+			IF FILE( FORCEEXT( toFoxBin2Prg.c_Foxbin2prg_FullPath, 'ICO' ) ) THEN
 				THISFORM.Icon = FORCEEXT( toFoxBin2Prg.c_Foxbin2prg_FullPath, 'ICO' )
 			ENDIF
 
-			IF ADIR( laDirInfo, toFoxBin2Prg.c_BackgroundImage ) > 0 THEN
+			*IF ADIR( laDirInfo, toFoxBin2Prg.c_BackgroundImage ) > 0 THEN
+			IF FILE( toFoxBin2Prg.c_BackgroundImage ) THEN
 				CLEAR RESOURCES
 				THISFORM.Picture = toFoxBin2Prg.c_BackgroundImage
 			ENDIF