romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 270 fdbozzo - 04/06/2014 23:35:36:

Browse Source 
Ajuste de test y limpieza
This commit is contained in:
fdbozzo
2014-06-05 00:10:20 +02:00
parent 3be2989f90
commit 2714822af0
8 changed files with 27 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
TESTS/DATOS_READONLY/lib_controles.vc2
View File

@@ -1539,8 +1539,12 @@ DEFINE CLASS f_base AS form
LOCAL retVal
tcFilename = EVL(tcFilename, 'optiongroup')
IF NOT '\' $ tcFilename
tcFilename = SYS(5) + ADDBS(CURDIR()) + "TESTS\DATOS_TEST\" + tcFilename + '.bmp'
ENDIF
Declare Integer formtobmp IN "TESTS\PCT_DLL.dll" integer hwnd,String bmpFileName
retVal = formtobmp( THISFORM.HWnd, SYS(5) + ADDBS(CURDIR()) + "TESTS\DATOS_TEST\" + tcFilename + '.bmp' )
retVal = formtobmp( THISFORM.HWnd, tcFilename )
*Declare Integer formtobmpA IN "TESTS\PCT_DLL.dll" string bmpfilename,integer nX,integer nY,integer nX2,integer nY2