XDialog Property Sheet - setup

[dik_coleman]

Does anyone know if there is a way to set up a property sheet so that you can get more than one field on a line?????

Been looking thru 'stuff' but can't find any reference to that...

Records with many fields would be alot easier to 'view' and 'edit or enter'.

These sheets are complicated..... especially working with 'record_to_vars', but the final result is great..

D

[dik_coleman]

Re: XDialog Property Sheet - setup

Well, besides not finding an answer to the multiple fields on a line -- which I now feel is not necessary cuz you can leave all or most areas closed until you need them ---
I have another 'problem' -- which is ... record navigation while on the property sheet..
The example only shows the 4 main buttons - first, next, previous, last - it does not illustrate the 'record number selector'.

There may be a very good reason for that because I cannot find any reference to trapping the input to the selector. All that happens without a trap is that the sheet closes...

By merely adding

[Record Number Selector]

in the middle of the other buttons code, I can get the selector to display on the sheet and to accept input.

{region} 
<%B=T;T= Save record;I=$a5_record_commit%!btnSave_button_click >
|
<%B=T;T= Fetch first record;I=$a5_record_first%!btnFirst_button_click >
<%B=T;T= Fetch previous record;I=$a5_record_previous%!btnPrev_button_click >
<[Record Number Selector]!btn_rec_select_click>
<%B=T;T= Fetch next record;I=$a5_record_next%!btnNext_button_click >
<%B=T;T= Fetch last record;I=$a5_record_last%!btnLast_button_click >
{endregion};;

With my limited knowledge, and being unable to find any reference material, I need some help...

Anyone know how to trap the record number input on a property sheet??

Here's a snippet of the buttons trapping code

if a_dlg_button = "btnNext_button_click" then 
		button_xbasic = <<%code_string%
		t.fetch_next()
		t.record_to_vars(p)
		%code_string%
		evaluate_template(button_xbasic)
		a_dlg_button = ""
	end if 
	
	if a_dlg_button = "btnLast_button_click" then 
		button_xbasic = <<%code_string%
		t.fetch_last()
		t.record_to_vars(p)
		%code_string%
		evaluate_template(button_xbasic)
		a_dlg_button = ""
	end if
	
	if a_dlg_button = "btn_rec_select_click" then
	...............................................................
             ...................................................... 
             a_dlg_button = ""   
	end if

At this time (I'll work on it tomorrow) all I can visualize is a button that brings up an input box for the record number and then maybe zoom_to_record?????

Any help will be greatly appreciated..
D

[Peter.Wayne]

Re: XDialog Property Sheet - setup

First, you need an input field next to your button, something like:

[.6RecNum] <Go To!btn_rec_select_click>

and then you need code to trap the button click event:

if a_dlg_button="btn_rec_select_click" then
  if val(RecNum)>0 then 
  button_xbasic = <<%code_string%
	t.fetch_goto(val(RecNum))
	t.record_to_vars(p)
	%code_string%
	evaluate_template(button_xbasic)
  end if
  a_dlg_button = ""
end if

You also need to trap an error in case the user enters a record number that doesn't exist in the table.

[dik_coleman]

Re: XDialog Property Sheet - setup

Thanx for the reply Dr Wayne....

I'll have to wait until tomorrow to get into your suggestions.

Just spent the day going thru the first 23 chapters in your book.
XBasic for Everyone ...

I was learning new things by page 5 and it never stopped all day

Great Book
D