Página 1 de 1

tfileopendlg

Publicado: Mié Abr 06, 2005 1:13 pm
por Francisco Sanchez
VAmos a ver como tengo que hacer funcionar el cfilter y lo del nfilterindex.
Es para mostrar un dialogo de seleccion y que el usuario solo pueda
seleccionar ficheros con las extensiones mas conocidas de imagenes, es decir
que solo pueda seleccionar ficheros del tipo *.jpg, *.bmp, *.gif, *.tif,
etc.... aunque no se si xailer las soportara todas.
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL

tfileopendlg

Publicado: Mié Abr 06, 2005 1:22 pm
por Francisco Sanchez
ya me contesto yo :
:cFilter := "JPG *.jpg|*.jpg, BMP *.bmp|*.bmp, GIF *.gif|*.gif, Todos los
Ficheros *.*|*.*"
con esto parece que funciona
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL

tfileopendlg

Publicado: Mié Abr 06, 2005 1:27 pm
por Francisco Sanchez
Algo puse mal pues muestra abajo los tipos, ojo que el bmp y gif me los pone
como un solo tipo, se come "BMP" delante de *.bmp y no me funciona el filtro
no muestra los ficheros de imagenes a seleccionar.
WITH OBJECT TFileOpenDlg():New( oForm )
:cFilter := "JPG *.jpg|*.jpg, BMP *.bmp|*.bmp, GIF
*.gif|*.gif, Todos los Ficheros *.*|*.*"
If :Run()
::oMaskEdit_Foto:Value := :cFullFileName
ENDIF
END
Atentamente : Francisco Sanchez GERENTE GRUPO ST - Software TOTAL

tfileopendlg

Publicado: Mié Abr 06, 2005 1:35 pm
por jfgimenez
Paco,
:cFilter := "JPG *.jpg|*.jpg|BMP *.bmp|*.bmp|GIF *.gif|*.gif|Todos los
Ficheros *.*|*.*"
--
Un saludo,
José F. Giménez