设置图表标题、坐标轴标题及窗口标题

        设置图表标题、坐标轴标题及窗口标题

图表开发工具为：Oracle Forms 6i Graphics_Builder

1、  设置图表标题：

--功能:设置图表标题。

--创建人：XXX

--创建时间：20100906

--在打开触发器中调用：Set_ChartTitle('新图表标题','chart0');

PROCEDURE Set_ChartTitle(v_title VARCHAR2,v_chart_name VARCHAR2) IS

       chart og_object;

BEGIN

       chart := og_get_object(v_chart_name);

       og_set_title(chart, v_title);

END;

2、  设置坐标轴标题：

--功能:设置坐标轴标题。

--创建人：XXX

--创建时间：20100906

--在打开触发器中调用：Set_Axis_Title('新X标题','新Y标题','template0');

PROCEDURE Set_Axis_Title(label_X VARCHAR2,label_Y VARCHAR2,template_name VARCHAR2) IS  

rec  OG_Contaxis_Ca;

X_Axis OG_Axis;

Y_Axis OG_Axis;

template OG_Template;

BEGIN  

       rec.ca_axis.custlabel := label_X;  

       rec.ca_axis.mask := OG_Custlabel_Axisa;  

       rec.ca_cont.mask := OG_None_Contaxisa;

       template:=OG_Get_Template(template_name);

       X_Axis := og_get_axis(template,OG_X_Axis); --获取X轴对象 

       OG_Set_Attr(X_Axis, rec);

             

       rec.ca_axis.custlabel := label_Y;  

       rec.ca_axis.mask := OG_Custlabel_Axisa;  

       rec.ca_cont.mask := OG_None_Contaxisa;

       template:=OG_Get_Template(template_name);

       Y_Axis := og_get_axis(template,OG_Y1_Axis); --获取Y轴对象 

       OG_Set_Attr(Y_Axis, rec);

END;

3、  设置窗口标题

--功能设置窗口标题。

--创建人：XXX

--创建时间：20100907

--在打开触发器中调用：Set_Window_Title('新窗口标题');

PROCEDURE Set_Window_Title(v_window_name VARCHAR2) IS

  rec  OG_Window_Attr;

  the_main_window   OG_Window;

BEGIN

  the_main_window:=OG_Get_Window('主布局');--如为英文版，则默认窗口名称为：“Main Layout”

  rec.name := v_window_name; 

  rec.mask := OG_NAME_WINDOWA;

  OG_Set_Attr(the_main_window, rec);

END;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10595277/viewspace-672826/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10595277/viewspace-672826/