设置图表标题、坐标轴标题及窗口标题
设置图表标题、坐标轴标题及窗口标题
图表开发工具为：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博客 ” ，链接：https://blog.itpub.net/10595277/viewspace-672826/ ，如需转载，请注明出处，否则将追究法律责任。
