Home » Developer & Programmer » Forms » Need help for My Tree Node icons and where the icon files are located (Oracle Forms 6i)
|Re: Need help for My Tree Node icons and where the icon files are located [message #548389 is a reply to message #548245]
||Wed, 21 March 2012 15:27
Registered: March 2008
I think you didn't checked this forum this is common question anyway your form deployed on a web if yes then|
Oracle Forms: Jar Icon Images
Oracle web forms uses image files for icons, by default forms will get each image individually, wasting time and bandwidth.
If you add the images to a jar file they are compressed and are loaded at startup, so each form wouldn't need to load the images each time. It also seems like a neater solution.
This code is a windows command script for creating the icon jar file.
The three parameters need to be set for each system.
· oh = Oracle home
· id = Icon directory
· jf = Jar filename
TITLE Jar Icons
CD /D %id%
%oh%\jdk\bin\jar -cvf %jf% *.*
TITLE Jar Icons Complete
You then need to place the jar file on to your web server, so the web server can access them via a URL.
If you placed the jar file in the forms/java directory you wouldn't need a path, however mixing application and forms files isn't best practice.
The URL path to the jar file needs to be added to the archive parameter in forms/server/formsweb.cfg file, so for example:
or in the archive_jini parameter, if you use JInitiator
You also need to set the imagebase parameter
You can then reference the icons by name inside the form and they should then be displayed.
top_node FTREE.NODE ;
new_node FTREE.NODE ;
child_node FTREE.NODE ;
child_node1 FTREE.NODE ;
cursor prime_cur is SELECT RE,NAME FROM MANUE WHERE LENGTH (RE) = 2 ;
cursor child_cur(T varchar2) is SELECT RE ,NAME FROM MANUE WHERE LENGTH(RE)=4 AND SUBSTR(RE,1,2)=T;
cursor child_cur1(t1 varchar2) is SELECT RE,NAME FROM MANUE WHERE LENGTH(RE)=6 AND SUBSTR(RE,1,4)=t1;
--Find the tree itself.
htree := Find_Item('tmp.tree4');
for dummy in prime_cur
new_node := Ftree.Add_Tree_Node
for child in child_cur(dummy.RE) loop
child_node := Ftree.Add_Tree_Node
for child1 in child_cur1(child.RE) loop
exception when others then
Hope everything is cleared
[EDITED by LF: removed superfluous empty lines]
[Updated on: Thu, 22 March 2012 01:13] by Moderator
Report message to a moderator
Current Time: Sun Mar 09 20:24:14 CDT 2014
Total time taken to generate the page: 0.08641 seconds