Modify film_reorder.il

Hi

That is possible. You'll have to save all current visibility settings - the easiest thing would probably be to create a script that saves a temp colorview file to disk. When you close the program this color view should be reselected and then the temp file deleted.

 Similarly selecting a film could load the corresponding film.

(defun _ns_save_org_colorview ()
let((tmp_file)
 ;------------------- save the original color view for later restoration
 tmp_file = axlDMOpenFile("ALLEGRO_SCRIPT", "tmp", "w")
 fprintf(tmp_file "scriptmode +i +n +w +c\n")
 fprintf(tmp_file "setwindow pcb\n")
 fprintf(tmp_file "colorview create\n")
 fprintf(tmp_file "setwindow form.colorview_create\n")
 fprintf(tmp_file "FORM colorview_create colorview_name ns_pdf_out\n")
 fprintf(tmp_file "FORM colorview_create save\n")
 fprintf(tmp_file "FORM colorview_create done\n")
 fprintf(tmp_file "setwindow pcb\n")
 axlDMClose(tmp_file)
 axlShell("replay tmp")
 if( isFile( "tmp.scr") then deleteFile("tmp.scr"))
)
)

(defun _ns_load_view (f2view)
let((tmp_file)
 ; load the original color view
 tmp_file = axlDMOpenFile("ALLEGRO_SCRIPT", "tmp", "w")
 fprintf(tmp_file "scriptmode +i +n +w +c\n")
 fprintf(tmp_file "setwindow pcb\n")
 fprintf(tmp_file "setwindow form.vf_vis\n")
 fprintf(tmp_file "FORM vf_vis colorview_list %s\n" f2view)
 fprintf(tmp_file "setwindow pcb\n")
 axlDMClose(tmp_file)
 axlShell("replay tmp")
 if( isFile( "tmp.scr") then deleteFile("tmp.scr"))  
)
) 

Best regards

Ole

Hi

the code is for colorview create function, for what i mean loading the artwork film in the list and  when select from list window

it will display the desired artwork. 

Thank you... 

Hi Ole,

     I like this film_reorder skill file, But when I insert code. did not work for me. Please help.            

)
("UP"
for(key 0 film_count-1
film_order[key] = nth(key val)
); end for unless
(setq count -1) (setq j -1)
(prev_list = final_list = next_list = nil)
(setq sel_index 0 )
sel_items = axlFormListGetSelItems(myform "FILMS_LIST")
unless(length(sel_items) != 1
foreach(items val
j++
unless(items != car(sel_items)
sel_index = j
) ; end unless
) ; end foreach
(setq haha film_order[sel_index])
if(sel_index != 0 then
current_prev = film_order[sel_index-1]
else (setq current_prev nil) final_list = val); end if
unless(current_prev == nil
for(key 0 sel_index-2
prev_list = append(prev_list list(film_order[key]))
); end for
for(key sel_index+1 length(brd_films)-1
next_list = append(next_list list(film_order[key]))
) ; end for
unless(sel_index-2 == -1
final_list = append(prev_list final_list)
) ; end unless
final_list = append(final_list list(haha))
final_list = append(final_list list(current_prev))
unless((sel_index+1 > length(brd_films)-1)
final_list = append(final_list next_list)
) ; end unless
) ; end unless
) ; end if
axlFormListDeleteItem(myform, "FILMS_LIST" val)
if(final_list == nil then (setq final_list val))
axlFormListAddItem(myform, "FILMS_LIST" final_list 0)
(setq val final_list)
if(sel_index > 0 then
axlFormListSelect(myform "FILMS_LIST" sel_index-1)
else
axlFormListSelect(myform "FILMS_LIST" 0)
)
("DOWN"

Thanks

Hi Johnny,

I copied Ole's solution and it works for me in 16.6 and 17.2. I don't see how to attach a random file here but I tried making it a media file. May not work. If you contact me at evan.shultz@qsc.com I'll send it to you.

Cheers!

film_reorder.zip