Alpha Software Mobile Development Tools:   Alpha Anywhere    |   Alpha TransForm subscribe to our YouTube Channel  Follow Us on LinkedIn  Follow Us on Twitter  Follow Us on Facebook

Announcement

Collapse

The Alpha Software Forum Participation Guidelines

The Alpha Software Forum is a free forum created for Alpha Software Developer Community to ask for help, exchange ideas, and share solutions. Alpha Software strives to create an environment where all members of the community can feel safe to participate. In order to ensure the Alpha Software Forum is a place where all feel welcome, forum participants are expected to behave as follows:
  • Be professional in your conduct
  • Be kind to others
  • Be constructive when giving feedback
  • Be open to new ideas and suggestions
  • Stay on topic


Be sure all comments and threads you post are respectful. Posts that contain any of the following content will be considered a violation of your agreement as a member of the Alpha Software Forum Community and will be moderated:
  • Spam.
  • Vulgar language.
  • Quotes from private conversations without permission, including pricing and other sales related discussions.
  • Personal attacks, insults, or subtle put-downs.
  • Harassment, bullying, threatening, mocking, shaming, or deriding anyone.
  • Sexist, racist, homophobic, transphobic, ableist, or otherwise discriminatory jokes and language.
  • Sexually explicit or violent material, links, or language.
  • Pirated, hacked, or copyright-infringing material.
  • Encouraging of others to engage in the above behaviors.


If a thread or post is found to contain any of the content outlined above, a moderator may choose to take one of the following actions:
  • Remove the Post or Thread - the content is removed from the forum.
  • Place the User in Moderation - all posts and new threads must be approved by a moderator before they are posted.
  • Temporarily Ban the User - user is banned from forum for a period of time.
  • Permanently Ban the User - user is permanently banned from the forum.


Moderators may also rename posts and threads if they are too generic or do not property reflect the content.

Moderators may move threads if they have been posted in the incorrect forum.

Threads/Posts questioning specific moderator decisions or actions (such as "why was a user banned?") are not allowed and will be removed.

The owners of Alpha Software Corporation (Forum Owner) reserve the right to remove, edit, move, or close any thread for any reason; or ban any forum member without notice, reason, or explanation.

Community members are encouraged to click the "Report Post" icon in the lower left of a given post if they feel the post is in violation of the rules. This will alert the Moderators to take a look.

Alpha Software Corporation may amend the guidelines from time to time and may also vary the procedures it sets out where appropriate in a particular case. Your agreement to comply with the guidelines will be deemed agreement to any changes to it.



Bonus TIPS for Successful Posting

Try a Search First
It is highly recommended that a Search be done on your topic before posting, as many questions have been answered in prior posts. As with any search engine, the shorter the search term, the more "hits" will be returned, but the more specific the search term is, the greater the relevance of those "hits". Searching for "table" might well return every message on the board while "tablesum" would greatly restrict the number of messages returned.

When you do post
First, make sure you are posting your question in the correct forum. For example, if you post an issue regarding Desktop applications on the Mobile & Browser Applications board , not only will your question not be seen by the appropriate audience, it may also be removed or relocated.

The more detail you provide about your problem or question, the more likely someone is to understand your request and be able to help. A sample database with a minimum of records (and its support files, zipped together) will make it much easier to diagnose issues with your application. Screen shots of error messages are especially helpful.

When explaining how to reproduce your problem, please be as detailed as possible. Describe every step, click-by-click and keypress-by-keypress. Otherwise when others try to duplicate your problem, they may do something slightly different and end up with different results.

A note about attachments
You may only attach one file to each message. Attachment file size is limited to 2MB. If you need to include several files, you may do so by zipping them into a single archive.

If you forgot to attach your files to your post, please do NOT create a new thread. Instead, reply to your original message and attach the file there.

When attaching screen shots, it is best to attach an image file (.BMP, .JPG, .GIF, .PNG, etc.) or a zip file of several images, as opposed to a Word document containing the screen shots. Because Word documents are prone to viruses, many message board users will not open your Word file, therefore limiting their ability to help you.

Similarly, if you are uploading a zipped archive, you should simply create a .ZIP file and not a self-extracting .EXE as many users will not run your EXE file.
See more
See less

Lesson 17 Xdialog

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    Lesson 17 Xdialog

    Hi All,

    I have been Working with the Learning Xdialog that ships with A5.

    In lesson 17 there is the Creating a genie dialog box,

    The code does not work as intended, It is not meant to move on to the next page if a field is not filled it, I would like to implement this feature on a dialog box that I have built, can anybody tell why it does not work.

    Andy


    Code from Lesson I have highlighted the relevant code
    Code:
    page = 1
    max_pages = 3 
    
    dim genie_stay as l     'flag controls if you can move off the current genie page.
    genie_stay = .f.
    dim error_message as c 
    error_message = ""      'error message if you try to move off the current page when all conditions have not been met.
    vl = local_variables()
    
    
    define_pages(vl)
    set_flags(vl)
    
    ui_dlg_box("Genie",<<%dlg%
    {startup=init}
    {region0}
    {region1}
    {wrap=20};
    This script demonstrates an approach to designing a Genie with Xdialog, using Embedded Dialog boxes.;
    {lf};
    The text in this region will appear on all Genie pages.;
    {lf};
    
      {image=group}
    {endregion1}|{sp}|
    {frame=1,1}
    {region3}
    {embedded=60,15genie}
    {endregion3};
    {region}
    {endregion};
    {endregion0};
    {region}
    {justify=right}<15&Cancel> <15<&Previous!previous?flag_previous> <15&Next\>!next?flag_next> <15&Finish!finish?flag_finish>
    {endregion}
    %dlg%, <<%code%
    if a_dlg_button = "finish" then 
    
    end if 
    if a_dlg_button = "init" then 
    	a_dlg_button = ""
    	show_page(vl,1)
    end if 
    if a_dlg_button = "next" then 
    	a_dlg_button = ""
    	page = page + 1 
    	if page > max_pages then 
    		page = max_pages
    	end if 
    	show_page(vl,page)
    end if 
    if a_dlg_button = "previous" then 
    	a_dlg_button = ""
    	page = page - 1 
    	if page < 1 then 
    		page = 1 
    	end if 
    	show_page(vl,page)
    end if 
    %code%)
    
    
    [B]function show_page as c (vars as p, page as n )
    with vars 
    	if genie_stay = .f. then 
    		temp_code = eval("page_"+page)
    		evaluate_template(temp_code)
    		set_flags(vl)
    	else
    		ui_msg_box("Error",error_message,UI_STOP_SYMBOL)
    	end if 
    end with
    end function [/B]
    
    
    function define_pages as c (vars as p)
    with vars
    page_1 = <<%dlg2%
    ui_modeless_dlg_box("genie",<<%dlg%
    {cellspillover=on}
    {lf};
    Welcome to the Xdialog genie.;
    {lf};
    Press the Next button below to get started.;
    %dlg%,<<%code%
    1=1 
    %code%)
    %dlg2%
    
    
    page_2 = <<%dlg2%
    ui_modeless_dlg_box("genie",<<%dlg%
    {cellspillover=on}
    Enter your name:;
    {lf};
    {lf};
    Firstname: | [.30fname];
    {lf};
    Lastname: | [.30lname];
    %dlg%,<<%code%
    1=1
    %code%)
    %dlg2%
    
    
    page_3 = <<%dlg2%
    
    ui_modeless_dlg_box("genie",<<%dlg%
    {cellspillover=on}
    Enter your age:;
    {lf};
    {lf};
    Age: | [.30age];
    {lf};
    
    %dlg%,<<%code%
    1=1 
    %code%)
    %dlg2%
    
    end with
    end function
    
    
    
    function set_flags as c (vars as p)
    with vars 
    	if page = max_pages
    		flag_finish = .t.
    		flag_next = .f.
    		flag_finish = .t.
    		flag_previous = .t.
    	else if page = 1 then 
    		flag_next = .t.
    		flag_previous = .f.
    		flag_finish = .f.
    	else
    		flag_next = .t.
    		flag_previous = .t.
    		flag_finish = .f.
    	end if 
    end with
    end function

    #2
    Re: Lesson 17 Xdialog

    Hi Andy,

    I have looked at Lesson 17, I cant see where the Next is set to be greyed out unless the Name fields are filled. The Finish button only becomes available when you get to the page that asks for Age.

    So I guess your real question is, how do you keep a button greyed out when no value has been entered into a field?

    I will have a look through the other samples and see if I can find the answer.

    Had a quick look, have a look at Lesson 4, Disabling Controls.
    Regards
    Keith Hubert
    Alpha Guild Member
    London.
    KHDB Management Systems
    Skype = keith.hubert


    For your day-to-day Needs, you Need an Alpha Database!

    Comment


      #3
      Re: Lesson 17 Xdialog

      Hi KeIth,

      So I guess your real question is, how do you keep a button greyed out when no value has been entered into a field?
      No thats not the question I asked, If you look at the code there is a function as below, what I cannot figor out is how the genie_stay is set to .t.

      Andy



      function show_page as c (vars as p, page as n )
      with vars
      if genie_stay = .f. then
      temp_code = eval("page_"+page)
      evaluate_template(temp_code)
      set_flags(vl)
      else
      ui_msg_box("Error",error_message,UI_STOP_SYMBOL)
      end if
      end with
      end function

      Comment


        #4
        Re: Lesson 17 Xdialog

        Andy:

        The "work" is being done in the Set_Flags() function which sets the various "flag_" logical variables to true or false.

        If you look at the xdialog button code you will see that each has "?flag_previous", "?Flag_next" component in the button code. These make the buttons "conditional" depending on the value of the flag_ variables.
        Finian

        Comment


          #5
          Re: Lesson 17 Xdialog

          Hi Finian and Andy,

          Finian, the function only seems to make the buttons conditional depending which page you are on. I'm trying to add the extra condition if there is a value in the field.

          Here is function
          function set_flags as c (vars as p)
          with vars
          if page = max_pages
          flag_finish = .t.
          flag_next = .f.
          flag_finish = .t.
          flag_previous = .t.
          else if page = 1 then
          flag_next = .t.
          flag_previous = .f.
          flag_finish = .f.
          else if page = 2 .and. fname ="" then
          flag_next = .F.
          flag_previous = .T.
          flag_finish = .f.

          else
          flag_next = .t.
          flag_previous = .t.
          flag_finish = .f.
          end if
          end with
          end function
          I put in the bolded section. This keeps the user on page 2 until the Fname gets a value. That is what I was hoping would happen. The Next button still remains greyed out even if there is a value in the Fname.

          How do you set the Next to .T. after some text has been entered into First Name (fname)?
          Regards
          Keith Hubert
          Alpha Guild Member
          London.
          KHDB Management Systems
          Skype = keith.hubert


          For your day-to-day Needs, you Need an Alpha Database!

          Comment


            #6
            Re: Lesson 17 Xdialog

            Here is a workaround - while it does not grey out the next button if the last name is not filled in - it will give you a message if the first name and the last name fields are not filled in - it won't allow you to leave that page until the two fields are filled in - not nice but it works

            I am attaching the code here to show the changes (in red) but am also attaching the export txt file so that you can load it into the code editor and not have to retype it

            FWIW

            Code:
            page = 1
            max_pages = 3 
            [COLOR="Red"]
            dim lname as c
            dim fname as c [/color]
            
            dim genie_stay as l     'flag controls if you can move off the current genie page.
            genie_stay = .f.
            dim error_message as c 
            error_message = ""      'error message if you try to move off the current page when all conditions have not been met.
            vl = local_variables()
            
            
            define_pages(vl)
            set_flags(vl)
            
            ui_dlg_box("Genie",<<%dlg%
            {startup=init}
            {region0}
            {region1}
            {wrap=20};
            This script demonstrates an approach to designing a Genie with Xdialog, using Embedded Dialog boxes.;
            {lf};
            The text in this region will appear on all Genie pages.;
            {lf};
            
              {image=group}
            {endregion1}|{sp}|
            {frame=1,1}
            {region3}
            {embedded=60,15genie}
            {endregion3};
            {region}
            {endregion};
            {endregion0};
            {region}
            {justify=right}<15&Cancel> <15<&Previous!previous?flag_previous> <15&Next\>!next?flag_next> <15&Finish!finish?flag_finish>
            
            {endregion}
            %dlg%, <<%code%
            
            if a_dlg_button = "finish" then 
            
            end if 
            
            if a_dlg_button = "init" then 
            	a_dlg_button = ""
            	show_page(vl,1)
            end if
            [COLOR="Red"] 
            if a_dlg_button = "next" then 
            	if page = 2 .and. fname<>"" .and. lname="" then
            	a_dlg_button=""
            		msgbox("", "You have to enter a last name")
            	    page =2
            	    
            	else if page=2 .and. fname="" .and. lname<>"" then
            	a_dlg_button=""
            	    msgbox("","you have to enter a first Name")
            	   	page = 2
            	else if page = 2 .and. fname="" .and. lname="" then
            	a_dlg_button=""
            		msgbox("","you have to enter first and last names")
            		page = 2
            		
            	else
            		a_dlg_button=""
            		page = page + 1 
            		if page > max_pages then 
            		page = max_pages
            end if	 
            end if
            	show_page(vl,page)
            	
             end if [/color]
            if a_dlg_button = "previous" then 
            	a_dlg_button = ""
            	page = page - 1 
            	if page < 1 then 
            		page = 1 
            	end if 
            	show_page(vl,page)
            end if 
            %code%)
            
            
            function show_page as c (vars as p, page as n )
            with vars 
            		if genie_stay = .f. then 
            		temp_code = eval("page_"+page)
            		evaluate_template(temp_code)
            		set_flags(vl)
            	else
            		ui_msg_box("Error",error_message,UI_STOP_SYMBOL)
            	end if
            	
            end with
            end function 
            
            
            function define_pages as c (vars as p)
            with vars
            page_1 = <<%dlg2%
            ui_modeless_dlg_box("genie",<<%dlg%
            {cellspillover=on}
            {lf};
            Welcome to the Xdialog genie.;
            {lf};
            Press the Next button below to get started.;
            %dlg%,<<%code%
            1=1 
            %code%)
            %dlg2%
            
            
            page_2 = <<%dlg2%
            ui_modeless_dlg_box("genie",<<%dlg%
            {cellspillover=on}
            Enter your name:;
            {lf};
            {lf};
            Firstname: | [.30fname];
            {lf};
            Lastname: | [.30lname];
            %dlg%,<<%code%
            1=1
            %code%)
            %dlg2%
            
            
            page_3 = <<%dlg2%
            
            ui_modeless_dlg_box("genie",<<%dlg%
            {cellspillover=on}
            Enter your age:;
            {lf};
            {lf};
            Age: | [.30age];
            {lf};
            
            %dlg%,<<%code%
            1=1 
            %code%)
            %dlg2%
            
            end with
            end function
            
            function set_flags as c (vars as p)
            with vars
            
            	if page = max_pages
            		flag_next = .f.
            		flag_finish = .t.
            		flag_previous = .t.
            	else if page = 1 then 
            		flag_next = .t.
            		flag_previous = .f.
            		flag_finish = .f.
            	else
            		flag_next = .t.
            		flag_previous = .t.
            		flag_finish = .f.
            	end if
            	
            end with
            end function

            Tom Baker
            Last edited by Tbaker; 09-28-2008, 04:38 PM. Reason: Updated attachment

            Comment


              #7
              Re: Lesson 17 Xdialog

              Hi All

              This is how I solved the problem with the Xdialog Genie with help from Selwyn

              The extra code is is in bold

              Code:
              'Created By  : Selwyn
              'Updated By  : Selwyn Rabins
              page = 1
              max_pages = 3
              
              dim genie_stay as l    'flag controls if you can move off the
              current genie page.
              genie_stay = .f.
              dim error_message as c
              error_message = ""      'error message if you try to move off the
              current page when all conditions have not been met.
              vl = local_variables()
              
              
              define_pages(vl)
              set_flags(vl)
              
              ui_dlg_box("Genie",<<%dlg%
              {startup=init}
              {region0}
              {region1}
              {wrap=20};
              This script demonstrates an approach to designing a Genie with
              Xdialog, using Embedded Dialog boxes.;
              {lf};
              The text in this region will appear on all Genie pages.;
              {lf};
              
                {image=group}
              {endregion1}|{sp}|
              {frame=1,1}
              {region3}
              {embedded=60,15genie}
              {endregion3};
              {region}
              {endregion};
              {endregion0};
              {region}
              {justify=right}<15&Cancel> <15<&Previous!previous?flag_previous>
              <15&Next\>!next?flag_next> <15&Finish!finish?flag_finish>
              {endregion}
              %dlg%, <<%code%
              if a_dlg_button = "finish" then
              
              end if
              if a_dlg_button = "init" then
                      a_dlg_button = ""
                      show_page(vl,1)
              end if
              if a_dlg_button = "next" then
                      a_dlg_button = ""
              
                      [B]validate(vl)[/B]
              
                      if genie_stay = .f. then
                              page = page + 1
                              if page > max_pages then
                                      page = max_pages
                              end if
                              show_page(vl,page)
                      end if
              end if
              if a_dlg_button = "previous" then
                      a_dlg_button = ""
                      page = page - 1
                      if page < 1 then
                              page = 1
                      end if
                      show_page(vl,page)
              end if
              %code%)
              
              [B]function validate as v (vars as p)
              with vars
              genie_stay = .f.
              if page = 2 then
                      if fname = "" then
                              ui_msg_box("","Firstname is required")
                              genie_stay = .t.
                              page = page - 1
                              exit function
                      end if
              end if
              end with
              end function[/B]
              
              
              function show_page as c (vars as p, page as n )
              with vars
                      if genie_stay = .f. then
                              temp_code = eval("page_"+page)
                              evaluate_template(temp_code)
                              set_flags(vl)
                      else
                              ui_msg_box("Error",error_message,UI_STOP_SYMBOL)
                      end if
              end with
              end function
              
              
              function define_pages as c (vars as p)
              with vars
              page_1 = <<%dlg2%
              ui_modeless_dlg_box("genie",<<%dlg%
              {cellspillover=on}
              {lf};
              Welcome to the Xdialog genie.;
              {lf};
              Press the Next button below to get started.;
              %dlg%,<<%code%
              1=1
              %code%)
              %dlg2%
              
              
              page_2 = <<%dlg2%
              ui_modeless_dlg_box("genie",<<%dlg%
              {cellspillover=on}
              Enter your name:;
              {lf};
              {lf};
              Firstname: | [.30fname];
              {lf};
              Lastname: | [.30lname];
              %dlg%,<<%code%
              1=1
              %code%)
              %dlg2%
              
              
              page_3 = <<%dlg2%
              
              ui_modeless_dlg_box("genie",<<%dlg%
              {cellspillover=on}
              Enter your age:;
              {lf};
              {lf};
              Age: | [.30age];
              {lf};
              
              %dlg%,<<%code%
              1=1
              %code%)
              %dlg2%
              
              end with
              end function
              
              
              
              function set_flags as c (vars as p)
              with vars
                      if page = max_pages
                              flag_finish = .t.
                              flag_next = .f.
                              flag_finish = .t.
                              flag_previous = .t.
                      else if page = 1 then
                              flag_next = .t.
                              flag_previous = .f.
                              flag_finish = .f.
                      else
                              flag_next = .t.
                              flag_previous = .t.
                              flag_finish = .f.
                      end if
              end with
              end function

              Comment

              Working...
              X