Advice on techniques
Posted: Fri Aug 07, 2009 2:40 pm
by tyc >> Fri, 22 Nov 2002 6:33:50 GMT
Hi Jade Developers,
My developers had come up with some questions which I am unable to
answer so far, thus need advise on these.
1) In the development environment, we are able to select CLASS, and
get the References from the Menu bar and be able to see all the references made by the Class.
Is there anyway we can code this functionality and what would be
the correct way of doing that.
2) Again in development stage, we have Forms which we can change the values in the Controls.Since to change it in the Developement
environment [especially when there are a lot of forms] means a lot of effort, we tried to change it using coding. Yet we found that no
matter how we change the properties in the Form, whenever we use the Painter to view the forms, it remains unchanged.
Is there any way we can use codes to change the properties of the Form and let it update to the Forms permanently?
Below is an excerpt of our codes. Was it done wrongly?
vars
cls : Class;
p : Property;
ctr : Control;
i,id,j : Integer;
form : Form;
aMethod : Method;
frm : FrmFAMast;
binOld,binNew : Binary; begin
id := 5129;
beginTransaction;
foreach cls in currentSchema.getAllClasses(false) do
if cls.transient = true and (cls.inheritsFrom (Form))
then
form := currentSchema.findFormForLocale(cls.name,id);
if (not global.isValidObject(form)) then
continue;
endif;
foreach i in 1 to form.controlCount() do
ctr := form.controls(i);
if (ctr.isKindOf(Label) and ctr.fontSize <=9)
then
ctl.fontSize :=10;
endif;
endforeach;
endforeach;
commitTransaction;
Advise and comments appreciated
Thanks
Regards,
L.C. Lim
end;
Hi Jade Developers,
My developers had come up with some questions which I am unable to
answer so far, thus need advise on these.
1) In the development environment, we are able to select CLASS, and
get the References from the Menu bar and be able to see all the references made by the Class.
Is there anyway we can code this functionality and what would be
the correct way of doing that.
2) Again in development stage, we have Forms which we can change the values in the Controls.Since to change it in the Developement
environment [especially when there are a lot of forms] means a lot of effort, we tried to change it using coding. Yet we found that no
matter how we change the properties in the Form, whenever we use the Painter to view the forms, it remains unchanged.
Is there any way we can use codes to change the properties of the Form and let it update to the Forms permanently?
Below is an excerpt of our codes. Was it done wrongly?
vars
cls : Class;
p : Property;
ctr : Control;
i,id,j : Integer;
form : Form;
aMethod : Method;
frm : FrmFAMast;
binOld,binNew : Binary; begin
id := 5129;
beginTransaction;
foreach cls in currentSchema.getAllClasses(false) do
if cls.transient = true and (cls.inheritsFrom (Form))
then
form := currentSchema.findFormForLocale(cls.name,id);
if (not global.isValidObject(form)) then
continue;
endif;
foreach i in 1 to form.controlCount() do
ctr := form.controls(i);
if (ctr.isKindOf(Label) and ctr.fontSize <=9)
then
ctl.fontSize :=10;
endif;
endforeach;
endforeach;
commitTransaction;
Advise and comments appreciated
Thanks
Regards,
L.C. Lim
end;