Dialog box Title

[JetLi]

How can i change the title of dialog or confirmation boxes in alpha five? e.g. when i made a button and assigned an action script which is delete, and i clicked, the button and prompts me with a conformation if i want to delete the record,what will i do to change title of the dialog box?

[JetLi]

Re: Dialog box Title

Found some thread regarding this but they were not answered, I figured it out a bit, but this is okey with me.
My solution was , i created an action script prompting the user for yes no dialog, then i played a script on yes option,
the script was just simply an xbasic delete - topparent.delete_record(). maybe this could also be applicable in save confirmation etc,i'l try later.
This solution could be suited for beginners like.

[JetLi]

Re: Dialog box Title

Now it's not working, maybe i overlooked a while ago, i thought it's working, but i still see the built in alpha five title in the confirm dialog. Please Help.Thanks!

[Corelius]

Re: Dialog box Title

I use a script as follow

dim tbl as p
tbl = table.current()
tbl.delete_record()

This will delete the current record without any confirmation.

Use a action script or xbasic for the confirmation dialog.
action_sc.PNG

Cornelius

[JetLi]

Re: Dialog box Title

Thank you Cornelius. I appreciate it very much!

[JetLi]

Re: Dialog box Title

I thought the delete that Cornelius shared is working , but when i added a new browse it deletes all the child records instead of the current record in a browse.

[Stan Mathews]

Re: Dialog box Title

dim tbl as p [COLOR="#0000FF"]'establish table pointer variable[/COLOR]
tbl = table.current() [COLOR="#0000FF"]'get pointer to current table, either the table or parent table of a set on which the layout is based[/COLOR]
tbl.delete_record() [COLOR="#0000FF"][/COLOR][COLOR="#0000FF"]'delete a record in the table[/COLOR]

If you are working with a set this will delete the parent record and orphan all related child records. If you want to delete a single child record you need

tbl = table.current(#)

where # is the position of the table in the set.

[JetLi]

Re: Dialog box Title

I use a script as follow

dim tbl as p
tbl = table.current()
tbl.delete_record()

This will delete the current record without any confirmation.

Use a action script or xbasic for the confirmation dialog.
[ATTACH=CONFIG]30494[/ATTACH]

Cornelius

This works fine if it is only 1 table, How do i modify the code so that i can delete in individual tables in a set? Same with add, How do i add on individual tables in a set?Thanks!

[JetLi]

Re: Dialog box Title

dim tbl as p [COLOR="#0000FF"]'establish table pointer variable[/COLOR]
tbl = table.current() [COLOR="#0000FF"]'get pointer to current table, either the table or parent table of a set on which the layout is based[/COLOR]
tbl.delete_record() [COLOR="#0000FF"][/COLOR][COLOR="#0000FF"]'delete a record in the table[/COLOR]

If you are working with a set this will delete the parent record and orphan all related child records. If you want to delete a single child record you need

tbl = table.current(#)

where # is the position of the table in the set.

"If you are working with a set this will delete the parent record and orphan all related child records. If you want to delete a single child record you need"
Thanks Stan for the quick reply,Yap it did deletes the parent and child records are left.
,How do i get the position of the table in the set? pls. help, i'm still on my third week in learning Alpha five,I have no books , no tutorials, just this forum.

"If you are working with a set this will delete the parent record and orphan all related child records. If you want to delete a single child record you need" Yap it did deletes the parent and child records are left.

[Stan Mathews]

Re: Dialog box Title

You have access to the same wiki that everyone else does.

Wiki
.current()

[JetLi]

Re: Dialog box Title

Thanks much! Stan I got it, I tried deleting in individual tables and it worked, , I'll try to add also in individual tables.

[Stan Mathews]

Re: Dialog box Title

Are you not able to use the links I provided?

TABLE.CURRENT( [ Slot_Number as N ] )

If your current table is part of a set, Slot 1 is the primary table, Slot 2 is the first child, Slot 3 is the grandchild or the primary table's second child, and so on. All open tables, whether or not they are part of a set, will occupy slots in the session.

[Corelius]

Re: Dialog box Title

I thought the delete that Cornelius shared is working , but when i added a new browse it deletes all the child records instead of the current record in a browse.

I like to setup a button in the embedded browse.
browse.png

You have to get the right table pointer, please look at script as follow:

function Actions0_ButtonClick as v( event as C,data as C, row as N)
	this.Set_Viewport_row(row)
	IF this.Table_Get().Mode_Get() > 0 THEN
		this.Commit()
	END IF
	
	dim tbl as p
	dim ret as n
	ret = ui_msg_box("L�schen", "Delete this row?",UI_QUESTION_SYMBOL+UI_YES_NO)
	if ret = UI_YES_SELECTED then
		tbl = this.table_get()
		tbl.delete_record()		    
	end if

	
end function

Cornelius

[Ray in Capetown]

Re: Dialog box Title

Thats a very neat concept Cornelius for this type of application
It would be nice to get your input in here more often.