This has me stumped.
As part of a small app I'm writing for a friend, I have need display some
pictures that belong to a particular record.
I have a button on a detail form belonging to the record.
when the button is pressed, I collect all the documents in a folder, filter
them so only valid pictures are included, and put the file names in a
listbox.
Clicking on a row in the listbox shows the corresponding picture in an area
next to the listbox
This works perfectly on Mac Yosemite which I develope on, but he insists on
staying with Snow Leopard 10.6. and it wont work on his platform. I'm using
4D v13.6 and creating a compiled standalone app.
v13.6 is qualified for Snow Leopard, I checked
The code below seems to fail in the document list command, the size of the
array DocArray is 0 throughout the routine.
I moved this code to a seperate method, I checked the structure file, I
retyped all the code.
Nothing seems to work. The compiler does not object and it runs file on my
Version of Yosemite, and another similar System.
I would be most grateful for any insights where this might be failing, just
on Snow Leopard.
If ([Tapes]Path_to_Docs#"")
DocToShow:=""
DocToShow:="volumes"+":"+[Tapes]Path_to_Docs
ARRAY TEXT(DocArray;0)
ARRAY TEXT(DocPathArray;0)
DOCUMENT LIST(DocToShow;DocPathArray;Absolute path)
DOCUMENT LIST(DocToShow;DocArray)
For ($i;Size of array(DocArray);1;-1)
If (Is picture file(docpathArray{$i};*)=False)
DELETE FROM ARRAY(docArray;$i;1)
DELETE FROM ARRAY(docPathArray;$i;1)
End if
End for
Open window(100;100;700;700;8;"Document")
DIALOG([Layouts];"DocPicture")
Else
ALERT("There are No Documents for This Record")
End if
There are 2 arrays in the listbox, DocArray which shows the name of the
picture, anda hidden column, DocPathArray, which holds the full path to the
chosen document
There is then some code in the listbox method to choose which picture to
diplay
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
