Open form in design mode, change 1 object property, save form, close form with xbasic

[Mike Wilson]

I am interested in opening a form in design mode and changing the property of a form object and saving the change so it is permanent. Is this possible? I've been looking but can't find out how to do this, or if even possible. There was a recent thread about a this for a browse, I believe but I don't think it was ever identified that you can't do this, completely. Thanks.

[Stan Mathews]

Re: Open form in design mode, change 1 object property, save form, close form with xb

I don't think you can open to design mode with xbasic but you can switch to design mode after you open it.

:Form.view(layout_name)
a5_sec_topparent_command("SYSTEM_DESIGN", "design")


If you use ptr = :Form.view(layout_name)
you should be able to reference the form objects via the pointer.

[Mike Wilson]

Re: Open form in design mode, change 1 object property, save form, close form with xb

Stan,
You're a giant! I went through every A5. function. Seem to have misplaced the A5_ functions in my mind. I think I'll try form.load() and see how that works. Thank you very much.

[Stan Mathews]

Re: Open form in design mode, change 1 object property, save form, close form with xb

Don't neglect the Action Scripting, Menu Commands category as a learning and discovery tool.

[Ted Giles]

Re: Open form in design mode, change 1 object property, save form, close form with xb

So where did my post

a5_sec_topparent_command("SYSTEM_DESIGN", "design")

"Where is this documented Stan?" go to?

Someone take it out?

Ah forget it. The answer is above doh!

[Mike Wilson]

Re: Open form in design mode, change 1 object property, save form, close form with xb

Don't neglect the Action Scripting, Menu Commands category as a learning and discovery tool.

Yes, you are right... where it all started really, and then I go and forget about these. Thanks for the reminder.

[csda1]

Re: Open form in design mode, change 1 object property, save form, close form with xb

I went through every A5. function. Seem to have misplaced the A5_ functions in my mind.

You must go through all functions, since Alpha doesn't have a standard nomenclature and the wiki makes it a bit hard to find some stuff.

However, the method shown is a somewhat long, indirect way to open a layout in design mode.
Perhaps you should look at A5_Layout_Design()?

[martinwcole]

Re: Open form in design mode, change 1 object property, save form, close form with xb

here is some code I have been using for several years, originally developed by Jim Chapman

it initially gets some properties of the form, and then saves them back before saving and closing the form - which was necessary at the time this was originally developed, as otherwise some of those properties would be lost. I don't know if it is still necessary, but it works in 10.5.

'Date Created: 27-May-2005 01:55:34 PM
'Last Updated: 31-Aug-2011 03:19:22 PM
'Created By  : martin cole
'Updated By  : martin cole
on error goto errors
onkeylastuse=<<%code%
lastuse=toseconds(time())
%code%
printscreen=<<%code%
if a_user.key.value="{PRNT SCRN}" 'see code archive for sample adb using this
 temp1=this.Name()
 temp=sys_id_size_get(temp1)
 f_width=val(word(temp,1,"x"))
 a_user.key.handled=.t.
 prtscr(f_width)
 end 
end if 
%code%
buttononpush=<<%code%
lastuse=toseconds(time())
%code%
buttonevents=<<%code%
onpush
%code%
vForms = a5.Form_Enum(2)
vNumber = line_count(vForms)
'********************************************
'********************************************
'** Writing to form event 'blows away' other
'** form properties. So initialize variables
'** with the properties before writing to the
'** event and then restore the properties
'** before saving the form.
'********************************************
'********************************************
dim vForm_Height as n = 2
dim vForm_Width as n = 2
dim vWindow_Height_mode as c = ""
dim vWindow_Width_mode as c = ""
dim vWindow_allow_maximize as l = .t.
dim vWindow_allow_minimize as l = .t.
dim vWindow_allow_resize as l = .t.
dim vWindow_has_caption as l = .t.
dim vWindow_has_system_menu as l = .t.
true1=.f.
zz=0
for zz = 1 to vNumber
 true1=.f.
 vFrm = word(vForms,zz,crlf())
 f=form.load(vFrm, "SCRIPT_DISABLE_EXEC") 
 buttons=f.child_enum("f=button")
 
 f.Command("system_design") 
 vForm_Width = f.form_width
 vForm_Height = f.form_height
 vWindow_Height_mode = f.window.height_mode
 vWindow_Width_mode = f.window.width_mode
 vWindow_allow_maximize = f.window.allow_maximize
 vWindow_allow_minimize = f.window.allow_minimize
 vWindow_allow_resize = f.window.allow_resize
 vWindow_has_caption = f.window.has_caption
 vWindow_has_system_menu = f.window.has_system_menu
 changed=.f.
 if *any(f.code.onkey, onkeylastuse)
 else
  f.code.onkey=onkeylastuse + crlf() + f.code.onkey
  true1=.t.
 end if 
 if *any(f.code.onfetch, onkeylastuse)
 else
  f.code.onfetch=onkeylastuse + crlf() + f.code.onfetch
  true1=.t.
 end if 
 if *any(f.code.onkey, printscreen)
 else
  f.code.onkey=printscreen + crlf() + f.code.onkey
  true1=.t.
 end if 
'***********************************
 for i=1 to w_count(buttons,crlf())
  for j=1 to w_count(buttonevents,crlf())
   temp=eval("f:" + alltrim(word(buttons,i,crlf())) + ".code." + word(buttonevents,j,crlf())) 
   temp2=temp   
   if *any(temp, buttononpush)
   else
    temp2=buttononpush + crlf() + temp 
    true1=.t.
    eval("f:" + alltrim(word(buttons,i,crlf())) + ".code." + word(buttonevents,j,crlf()))=temp2   
   end if 
  next j 
  next2:
 next i
'***********************************
 if true1=.t.
  f.form_height = vForm_Height
  f.form_width = vForm_Width
  f.window.height_mode = vWindow_Height_mode
  f.window.width_mode = vWindow_Width_mode
  f.window.allow_maximize = vWindow_allow_maximize
  f.window.allow_minimize = vWindow_allow_minimize
  f.window.allow_resize = vWindow_allow_resize
  f.window.has_caption = vWindow_has_caption
  f.window.has_system_menu = vWindow_has_system_menu
  f.Command("file_save") '??may save time not saving in unnecessary??
 end if 
 f.close()
next zz
end
errors:
err_msg = error_text_get(error_code_get())
line = error_line_number_get()
script = error_script_get()
ui_msg_box("Error", err_msg+" Error occurred at line "+alltrim(str(line,4,0))+ " in script: "+script)
resume next
end

[CALocklin]

Re: Open form in design mode, change 1 object property, save form, close form with xb

You must go through all functions, since Alpha doesn't have a standard nomenclature and the wiki makes it a bit hard to find some stuff.

However, the method shown is a somewhat long, indirect way to open a layout in design mode.
Perhaps you should look at A5_Layout_Design()?

I agree. However, the help info is incomplete - it doesn't tell you how to save the changes. There may be other methods but I use this:

fp = a5_layout_design(...)
<do whatever>
fp.command( "file_save" )