Alpha Video Training
Results 1 to 17 of 17

Thread: Xdialog weekly grid

  1. #1
    Member
    Real Name
    chris bell
    Join Date
    Oct 2005
    Location
    Israel
    Posts
    252

    Default Xdialog weekly grid

    After racking my brains and sending Pysdo-bug Reports to Selwyn with array behaviours. Which He, very graciously replied to with some enlightening comments. TNX Selwyn! I put together this layout coded below:
    Copy, Paste into new xbasic script in the CODE tab of Alpha, save and then run to see results.
    Code:
    dim xDlgHeader as p
    dim dlg_title as c 
    dim dlg_body as c 
    dim dlg_event as c
     xDlgHeader.HeadingText = " A weekly View    "
     xDlgHeader.Image = "a5v7_largeIcon"
     xDlgHeader.BodyText = <<%str%
     
    All in all finished
    %str%
    dlg_title = "A weeks view "
    vdate = date()-(dow(date())-1)
    vdaynum  = dow(date())-1
    vldate = vdate
    sun1 = vldate+7
    mon1 = vldate+1
    tue1 = vldate+2
    wed1 = vldate+3
    thu1 = vldate+4
    fri1 = vldate+5
    sat1 = vldate+6
    dlg_body = <<%dlg%
    'If you include the {removecomments} command, any line that starts with an single quote will be treated as a comment.
    {removecomments}
    {theme=xp}
    {background=white}
    '{can_exit=close}
    {startup=init}
    {stretch=}
    {stickto=top,right}
    {justify=right}
    <%B=N;I=$$window.button.minimize%!minimize><%B=N;I=$$window.button.close%!close>;
    {region=1};
    {image=logo}
    {endregion}
    {justify=center}
    {XdialogTitleSection=70,6xDlgHeader};;
    {lf};
    {blueframe=1,5: }
    
     {'%O={F=Arial,14}{C=Black}WEEK OF%} [.15mon1!change]-[.15sun1!change]  ;
    <%B=T;O={J=C,C}{B=Orange}monday;OF={J=C,C}monday%13,1!mon>
    <%B=T;O={J=C,C}{B=Orange}tuesday;OF={J=C,C}tuesday%13,1!tue>
    <%B=T;O={J=C,C}{B=Orange}wednesday;OF={J=C,C}wednesday%13,1!wed>
    <%B=T;O={J=C,C}{B=Orange}thursday;OF={J=C,C}thursday%13,1!thu>
    <%B=T;O={J=C,C}{B=Orange}friday;OF={J=C,C}friday%13,1!fri>
    <%B=T;O={J=C,C}{B=Orange}saturday;OF={J=C,C}saturday%13,1!sat>
    <%B=T;O={J=C,C}{B=Orange}sunday;OF={J=C,C}sunday%15,1!sun>;
    {watch=vldate!change}
     [.15mon1!change]
    [.15tue1!change]
    [.15wed1!change]
    [.15thu1!change]
    [.15fri1!change]
    [.15sat1!change]
    [.15sun1!change];;
     <%O={J=C,C}{I:'$$navigate.prev'} PREV%!prev>
     
     <%O={J=C,C}{I:'$$navigate.next'} NEXT%!next> 
    {endregion};
    {lf};
    {region=a}
    {xmargin=1}{ymargin=1}
    {stretch=height,width}
    {stretch=}
    '{stickto=bottom,left}
    This is an indication of current vldate.value [.15vldate];
    {lf};
    {endregion};
    {condition_begin=vldate=date()}
    {justify=center}
    [.15vldate] {condition_end} <%O={J=C,C}{I:'$$code.execute'} Today%!today>;
    %dlg%
    dlg_event = <<%code%
     if a_dlg_button = "init" then
         a_dlg_button = ""
     end if
     
    if a_dlg_button = "next" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vldate= vldate+7
      sun1 = vldate+7
      mon1 = vldate+1
      tue1 = vldate+2
      wed1 = vldate+3
      thu1 = vldate+4
      fri1 = vldate+5
      sat1 = vldate+6
      %code_string%
      evaluate_template(button_xbasic)
    end if
    if a_dlg_button = "prev" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vldate=vldate -7
      sun1 = vldate+7
      mon1 = vldate+1
      tue1 = vldate+2
      wed1 = vldate+3
      thu1 = vldate+4
      fri1 = vldate+5
      sat1 = vldate+6
      %code_string%
      evaluate_template(button_xbasic)
    end if
     if a_dlg_button = "today" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vdaynum  = dow(date())-1
      vldate = vdate+vdaynum
      vldate = date()-(dow(date())-1)
      sun1 = vdate+7
      mon1 = vdate+1
      tue1 = vdate+2
      wed1 = vdate+3
      thu1 = vdate+4
      fri1 = vdate+5
      sat1 = vdate+6
      %code_string%
      evaluate_template(button_xbasic)
      button_xbasic1 = <<%code_string%
      vldate = vdate+vdaynum
      %code_string%
      evaluate_template(button_xbasic1)  
    end if 
    if a_dlg_button = "close" then 
     ui_modeless_dlg_close(dlg_title)
    end if 
    if a_dlg_button = "init" then
            a_dlg_button = ""    
    end if
    if a_dlg_button = "minimize" then
        a_dlg_button = ""
        ui_dlg_minimize(dlg_title)
    end if
    if a_dlg_button = "sat" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Saturday and the date is  "+sat1)
    end if
    if a_dlg_button = "fri" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Friday and the date is  "+fri1)
    end if
    if a_dlg_button = "thu" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Thursday and the date is  "+thu1)
    end if
    if a_dlg_button = "wed" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Wednesday and the date is  "+wed1)
    end if
    if a_dlg_button = "tue" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Tuesday and the date is  "+tue1)
    end if
    if a_dlg_button = "mon" then 
     a_dlg_button = ""
     ui_msg_box("Back to the Grind!","The day is Monday and the date is  "+mon1)
    end if
    if a_dlg_button = "sun" then 
     a_dlg_button = ""
     ui_msg_box("Don't you ever rest!","Take a day off you deserved it..")
    end if
    
     
    %code%
    
    'Now, display the Xdialog.
    ui_modeless_dlg_box(dlg_title,dlg_body,dlg_event)
    Please feel free to use this. As I will for an Xdialog with embedded browse.
    If any one can trim this down or arrange an alternative logic for coding the variable containers then please have a go! but, please post the results in this thread for everone to enjoy.
    P.S. Click on the orange labels for a popup message
    Last edited by christobal; 05-23-2008 at 09:12 AM.
    “There is nothing like a dream to create the future.”
    But then again:
    Basic research is what I am doing when I don't know what I am doing and to steal ideas from one person is plagiarism; to steal from many is research!

  2. #2
    Member
    Real Name
    Walter Morgan
    Join Date
    Jan 2008
    Posts
    146

    Default Re: Xdialog weekly grid

    Well done!

    I'm just beginning to explore XDialog and this is a great example!

    Thanks for sharing,

    Walt

  3. #3
    "Certified" Alphaholic
    Real Name
    Mike Christensen
    Join Date
    Nov 2005
    Location
    Michigan U.P.
    Posts
    5,937

    Default Re: Xdialog weekly grid

    Nice Chris, Thanks!

    This works great in version 8 and for the most part in version 5...I don't know about the versions 6, 7, or 9.
    Mike
    __________________________________________
    It is only when we forget all our learning that we begin to know.
    It's not what you look at that matters, it's what you see.
    Henry David Thoreau
    __________________________________________




  4. #4
    Member
    Real Name
    chris bell
    Join Date
    Oct 2005
    Location
    Israel
    Posts
    252

    Default Re: Xdialog weekly grid

    It was written in V9 for navigating through an xdialog embedded browse based upon a formated browse. The full version is in Hebrew which is a RTL direction language with the first day of the week being Sunday through to Friday and Saturday as the weekend day.So to post that wouldn't be much use to the majority of Develpopers on the forum. The {condition begin=} has been available since V6, according to the help files it can contain nested conditions. The full version included a (browse_card} object which is only available from V9.
    “There is nothing like a dream to create the future.”
    But then again:
    Basic research is what I am doing when I don't know what I am doing and to steal ideas from one person is plagiarism; to steal from many is research!

  5. #5
    "Certified" Alphaholic NoeticCC's Avatar
    Real Name
    Andrea Gill
    Join Date
    Nov 2007
    Location
    Golcar, West Yorkshire, UK
    Posts
    2,070

    Default Re: Xdialog weekly grid

    Wow that is great!!! I have GOT to start learning Xdialog!!!

  6. #6
    VAR
    Real Name
    Martin W. Cole
    Join Date
    Apr 2000
    Location
    Terrell, Texas (near Dallas)
    Posts
    5,954

    Default Re: Xdialog weekly grid

    has anyone figured out how to make the buttons and dates the same size and line them up properly
    Cole Custom Programming - Terrell, Texas
    972 524 8714
    martin_w_cole@msn.com

    ____________________
    "A young man who is not liberal has no heart, but an old man who is not conservative has no mind." GB Shaw

  7. #7
    Volunteer Moderator Peter.Greulich's Avatar
    Real Name
    Peter Greulich
    Join Date
    Apr 2000
    Location
    Boston, MA
    Posts
    11,644

    Default Re: Xdialog weekly grid

    Quote Originally Posted by martinwcole View Post
    has anyone figured out how to make the buttons and dates the same size and line them up properly
    Martin,

    I'm no xdialog expert and I just did this down & dirty:

    Code:
    dim xDlgHeader as p
    dim dlg_title as c 
    dim dlg_body as c 
    dim dlg_event as c
     xDlgHeader.HeadingText = " A weekly View    "
     xDlgHeader.Image = "a5v7_largeIcon"
     xDlgHeader.BodyText = <<%str%
     
    All in all finished
    %str%
    dlg_title = "A weeks view "
    vdate = date()-(dow(date())-1)
    vdaynum  = dow(date())-1
    vldate = vdate
    sun1 = vldate+7
    mon1 = vldate+1
    tue1 = vldate+2
    wed1 = vldate+3
    thu1 = vldate+4
    fri1 = vldate+5
    sat1 = vldate+6
    dlg_body = <<%dlg%
    'If you include the {removecomments} command, any line that starts with an single quote will be treated as a comment.
    {removecomments}
    {theme=xp}
    {background=white}
    '{can_exit=close}
    {startup=init}
    {stretch=}
    {stickto=top,right}
    {justify=right}
    <%B=N;I=$$window.button.minimize%!minimize><%B=N;I=$$window.button.close%!close>;
    {region=1};
    {image=logo}
    {endregion}
    {justify=center}
    {XdialogTitleSection=70,6xDlgHeader};;
    {lf};
    {blueframe=1,5: }
    
    
    {watch=vldate!change}
    
    
    {'%O={F=Arial,14}{C=Black}WEEK OF%} [.15mon1!change]-[.15sun1!change]  ;
    
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}monday;OF={J=C,C}monday%14,1!mon>;
    [.15mon1!change]
    {endregion}
    
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}tuesday;OF={J=C,C}tuesday%14,1!tue>;
    [.15tue1!change]
    {endregion}
    
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}wednesday;OF={J=C,C}wednesday%14,1!wed>;
    [.15wed1!change]
    {endregion}
    
    
    {region}
    <%B=T;O={J=C,C}{B=Green}thursday;OF={J=C,C}thursday%14,1!thu>;
    [.15thu1!change]
    {endregion}
    
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}friday;OF={J=C,C}friday%14,1!fri>;
    [.15fri1!change]
    {endregion}
    
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}saturday;OF={J=C,C}saturday%14,1!sat>;
    [.15sat1!change]
    {endregion}
    
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}sunday;OF={J=C,C}sunday%14,1!sun>;
    [.15sun1!change];;
    {endregion}
    
    
    {lf};
    
     <%O={J=C,C}{I:'$$navigate.prev'} PREV%!prev>
     
     <%O={J=C,C}{I:'$$navigate.next'} NEXT%!next> 
    {endregion};
    {lf};
    {region=a}
    {xmargin=1}{ymargin=1}
    {stretch=height,width}
    {stretch=}
    '{stickto=bottom,left}
    This is an indication of current vldate.value [.15vldate];
    {lf};
    {endregion};
    {condition_begin=vldate=date()}
    {justify=center}
    [.15vldate] {condition_end} <%O={J=C,C}{I:'$$code.execute'} Today%!today>;
    %dlg%
    dlg_event = <<%code%
     if a_dlg_button = "init" then
         a_dlg_button = ""
     end if
     
    if a_dlg_button = "next" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vldate= vldate+7
      sun1 = vldate+7
      mon1 = vldate+1
      tue1 = vldate+2
      wed1 = vldate+3
      thu1 = vldate+4
      fri1 = vldate+5
      sat1 = vldate+6
      %code_string%
      evaluate_template(button_xbasic)
    end if
    if a_dlg_button = "prev" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vldate=vldate -7
      sun1 = vldate+7
      mon1 = vldate+1
      tue1 = vldate+2
      wed1 = vldate+3
      thu1 = vldate+4
      fri1 = vldate+5
      sat1 = vldate+6
      %code_string%
      evaluate_template(button_xbasic)
    end if
     if a_dlg_button = "today" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vdaynum  = dow(date())-1
      vldate = vdate+vdaynum
      vldate = date()-(dow(date())-1)
      sun1 = vdate+7
      mon1 = vdate+1
      tue1 = vdate+2
      wed1 = vdate+3
      thu1 = vdate+4
      fri1 = vdate+5
      sat1 = vdate+6
      %code_string%
      evaluate_template(button_xbasic)
      button_xbasic1 = <<%code_string%
      vldate = vdate+vdaynum
      %code_string%
      evaluate_template(button_xbasic1)  
    end if 
    if a_dlg_button = "close" then 
     ui_modeless_dlg_close(dlg_title)
    end if 
    if a_dlg_button = "init" then
            a_dlg_button = ""    
    end if
    if a_dlg_button = "minimize" then
        a_dlg_button = ""
        ui_dlg_minimize(dlg_title)
    end if
    if a_dlg_button = "sat" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Saturday and the date is  "+sat1)
    end if
    if a_dlg_button = "fri" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Friday and the date is  "+fri1)
    end if
    if a_dlg_button = "thu" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Thursday and the date is  "+thu1)
    end if
    if a_dlg_button = "wed" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Wednesday and the date is  "+wed1)
    end if
    if a_dlg_button = "tue" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Tuesday and the date is  "+tue1)
    end if
    if a_dlg_button = "mon" then 
     a_dlg_button = ""
     ui_msg_box("Back to the Grind!","The day is Monday and the date is  "+mon1)
    end if
    if a_dlg_button = "sun" then 
     a_dlg_button = ""
     ui_msg_box("Don't you ever rest!","Take a day off you deserved it..")
    end if
    
    
     
    %code%
    
    
    'Now, display the Xdialog.
    ui_modeless_dlg_box(dlg_title,dlg_body,dlg_event)
    Last edited by Peter.Greulich; 10-03-2013 at 05:37 PM.

  8. #8
    VAR
    Real Name
    Martin W. Cole
    Join Date
    Apr 2000
    Location
    Terrell, Texas (near Dallas)
    Posts
    5,954

    Default Re: Xdialog weekly grid

    very good - what lines did you change?
    Cole Custom Programming - Terrell, Texas
    972 524 8714
    martin_w_cole@msn.com

    ____________________
    "A young man who is not liberal has no heart, but an old man who is not conservative has no mind." GB Shaw

  9. #9
    Volunteer Moderator Peter.Greulich's Avatar
    Real Name
    Peter Greulich
    Join Date
    Apr 2000
    Location
    Boston, MA
    Posts
    11,644

    Default Re: Xdialog weekly grid

    I marked the code in red. Basically I moved the "watch" above the rest and put each date pair in their own regions along with a line break. I also changed the character length of the day text from 13 to 14.

  10. #10
    VAR
    Real Name
    Martin W. Cole
    Join Date
    Apr 2000
    Location
    Terrell, Texas (near Dallas)
    Posts
    5,954

    Default Re: Xdialog weekly grid

    kool beans daddy'o
    Cole Custom Programming - Terrell, Texas
    972 524 8714
    martin_w_cole@msn.com

    ____________________
    "A young man who is not liberal has no heart, but an old man who is not conservative has no mind." GB Shaw

  11. #11
    "Certified" Alphaholic MoGrace's Avatar
    Real Name
    Robin
    Join Date
    Mar 2006
    Location
    Los Angeles
    Posts
    3,687

    Default Re: Xdialog weekly grid

    Waiting for a screenshot...
    Robin

    Discernment is not needed in things that differ, but in those things that appear to be the same. - Miles Sanford

  12. #12
    VAR
    Real Name
    Martin W. Cole
    Join Date
    Apr 2000
    Location
    Terrell, Texas (near Dallas)
    Posts
    5,954

    Default Re: Xdialog weekly grid

    run Peter's code from the interactiove window
    Cole Custom Programming - Terrell, Texas
    972 524 8714
    martin_w_cole@msn.com

    ____________________
    "A young man who is not liberal has no heart, but an old man who is not conservative has no mind." GB Shaw

  13. #13
    Member
    Real Name
    Jo Hulsen
    Join Date
    Mar 2006
    Location
    The Netherlands
    Posts
    331

    Default Re: Xdialog weekly grid

    Improved alignment of boxes and text.
    Changed lines in blue.

    Code:
    dim xDlgHeader as p
    dim dlg_title as c 
    dim dlg_body as c 
    dim dlg_event as c
     xDlgHeader.HeadingText = " A weekly View    "
     xDlgHeader.Image = "a5v7_largeIcon"
     xDlgHeader.BodyText = <<%str%
    All in all finished
    %str%
    dlg_title = "A weeks view "
    vdate = date()-(dow(date())-1)
    vdaynum  = dow(date())-1
    vldate = vdate
    sun1 = vldate+7
    mon1 = vldate+1
    tue1 = vldate+2
    wed1 = vldate+3
    thu1 = vldate+4
    fri1 = vldate+5
    sat1 = vldate+6
    dlg_body = <<%dlg%
    'If you include the {removecomments} command, any line that starts with an single quote will be treated as a comment.
    {removecomments}
    {theme=xp}
    {background=white}
    '{can_exit=close}
    {startup=init}
    {stretch=}
    {stickto=top,right}
    {justify=right}
    <%B=N;I=$$window.button.minimize%!minimize><%B=N;I=$$window.button.close%!close>;
    {region=1};
    {image=logo}
    {endregion}
    {justify=center}
    {XdialogTitleSection=70,6xDlgHeader};;
    {lf};
    {blueframe=1,5: }
    
    {watch=vldate!change}
    
    {'%O={F=Arial,14}{C=Black}WEEK OF%} [.12mon1!change]_[.12sun1!change]  ;
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}monday;OF={J=C,C}monday%10.8,1!mon>;
    {justify=top,center}[.12mon1!change]
    {endregion}
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}tuesday;OF={J=C,C}tuesday%10.8,1!tue>;
    {justify=top,center}[.12tue1!change]
    {endregion}
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}wednesday;OF={J=C,C}wednesday%10.8,1!wed>;
    {justify=top,center}[.12wed1!change]
    {endregion}
    
    {region}
    <%B=T;O={J=C,C}{B=Green}thursday;OF={J=C,C}thursday%10.8,1!thu>;
    {justify=top,center}[.12thu1!change]
    {endregion}
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}friday;OF={J=C,C}friday%10.8,1!fri>;
    {justify=top,center}[.12fri1!change]
    {endregion}
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}saturday;OF={J=C,C}saturday%10.8,1!sat>;
    {justify=top,center}[.12sat1!change]
    {endregion}
    
    {region}
    <%B=T;O={J=C,C}{B=Orange}sunday;OF={J=C,C}sunday%10.8,1!sun>;
    {justify=top,center}[.12sun1!change];;
    {endregion}
    
    {lf};
    {region}
    <%O={J=C,L}{I:'$$navigate.prev'} PREV%!prev>
    <%O={J=C,C}{I:'$$navigate.next'} NEXT%!next>
    {endregion};
    {lf};
    {region=a}
    {xmargin=1}{ymargin=1}
    {stretch=height,width}
    {stretch=}
    '{stickto=bottom,left}
    This is an indication of current vldate.value [.12vldate];{lf};
    {endregion};
    
    {condition_begin=vldate=date()}
    {justify=center}
    [.12vldate] {condition_end} <%O={J=C,C}{I:'$$code.execute'} Today%!today>;
    %dlg%
    dlg_event = <<%code%
     if a_dlg_button = "init" then
         a_dlg_button = ""
     end if
     
    if a_dlg_button = "next" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vldate= vldate+7
      sun1 = vldate+7
      mon1 = vldate+1
      tue1 = vldate+2
      wed1 = vldate+3
      thu1 = vldate+4
      fri1 = vldate+5
      sat1 = vldate+6
      %code_string%
      evaluate_template(button_xbasic)
    end if
    if a_dlg_button = "prev" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vldate=vldate -7
      sun1 = vldate+7
      mon1 = vldate+1
      tue1 = vldate+2
      wed1 = vldate+3
      thu1 = vldate+4
      fri1 = vldate+5
      sat1 = vldate+6
      %code_string%
      evaluate_template(button_xbasic)
    end if
     if a_dlg_button = "today" then
     'a_dlg_button = ""
     button_xbasic = <<%code_string%
      vdaynum  = dow(date())-1
      vldate = vdate+vdaynum
      vldate = date()-(dow(date())-1)
      sun1 = vdate+7
      mon1 = vdate+1
      tue1 = vdate+2
      wed1 = vdate+3
      thu1 = vdate+4
      fri1 = vdate+5
      sat1 = vdate+6
      %code_string%
      evaluate_template(button_xbasic)
      button_xbasic1 = <<%code_string%
      vldate = vdate+vdaynum
      %code_string%
      evaluate_template(button_xbasic1)  
    end if 
    if a_dlg_button = "close" then 
     ui_modeless_dlg_close(dlg_title)
    end if 
    if a_dlg_button = "init" then
            a_dlg_button = ""    
    end if
    if a_dlg_button = "minimize" then
        a_dlg_button = ""
        ui_dlg_minimize(dlg_title)
    end if
    if a_dlg_button = "sat" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Saturday and the date is  "+sat1)
    end if
    if a_dlg_button = "fri" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Friday and the date is  "+fri1)
    end if
    if a_dlg_button = "thu" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Thursday and the date is  "+thu1)
    end if
    if a_dlg_button = "wed" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Wednesday and the date is  "+wed1)
    end if
    if a_dlg_button = "tue" then 
     a_dlg_button = ""
     ui_msg_box("Your Choice","The day is Tuesday and the date is  "+tue1)
    end if
    if a_dlg_button = "mon" then 
     a_dlg_button = ""
     ui_msg_box("Back to the Grind!","The day is Monday and the date is  "+mon1)
    end if
    if a_dlg_button = "sun" then 
     a_dlg_button = ""
     ui_msg_box("Don't you ever rest!","Take a day off you deserved it..")
    end if
     
    %code%
    
    'Now, display the Xdialog.
    ui_modeless_dlg_box(dlg_title,dlg_body,dlg_event)
    Jo Hulsen
    Dommel Valley Solutions
    The Netherlands

  14. #14
    Volunteer Moderator Peter.Greulich's Avatar
    Real Name
    Peter Greulich
    Join Date
    Apr 2000
    Location
    Boston, MA
    Posts
    11,644

    Default Re: Xdialog weekly grid

    Ah, you've perfected it!

  15. #15
    Member
    Real Name
    Jo Hulsen
    Join Date
    Mar 2006
    Location
    The Netherlands
    Posts
    331

    Default Re: Xdialog weekly grid

    I just gave it a go and also wanted to change a button but, as I'm no XDialog expert, failed on that one.
    The idea was to change the NEXT button to have text "NEXT" followed by the image.
    Perhaps somebody else knows how to solve that one?
    Jo Hulsen
    Dommel Valley Solutions
    The Netherlands

  16. #16
    "Certified" Alphaholic
    Real Name
    John Koh
    Join Date
    Jan 2004
    Location
    Maryland, USA
    Posts
    1,077

    Default Re: Xdialog weekly grid

    Jo,

    The idea was to change the NEXT button to have text "NEXT" followed by the image.
    Did you mean this

    Code:
    {region}
    <%O={J=C,L}{I:'$$navigate.prev'} PREV%!prev>
    <%O={J=C,C}{I:'$$navigate.next'} NEXT%!next>
    <%O={J=C,C}Button1 {I:'$$application.chrome'}%!event1>
    {endregion};

  17. #17
    Member
    Real Name
    Jo Hulsen
    Join Date
    Mar 2006
    Location
    The Netherlands
    Posts
    331

    Default Re: Xdialog weekly grid

    Indeed John, thanks for the example.

    The code now looks like:

    Code:
    {region}
    <%O={J=C,L}{I:'$$navigate.prev'} PREV%!prev>
    <%O={J=C,C}NEXT {I:'$$navigate.next'}%!next>
    {endregion};
    Weekview.PNG
    Jo Hulsen
    Dommel Valley Solutions
    The Netherlands

Similar Threads

  1. Property Grid Style Xdialog
    By martinwcole in forum Alpha Five Version 8
    Replies: 2
    Last Post: 02-25-2007, 07:54 AM
  2. Weekly Training Seminars in Alpha Five from PACE
    By Valerie Simpkins in forum Web Application Server v6
    Replies: 0
    Last Post: 08-29-2005, 08:23 AM
  3. Weekly Training Seminars in Alpha Five
    By Valerie Simpkins in forum Announcements
    Replies: 0
    Last Post: 08-29-2005, 08:22 AM
  4. WEEKLY REPORT IN A MONTH OR IN A YEAR
    By nehru in forum Alpha Five Version 5
    Replies: 0
    Last Post: 05-19-2004, 10:39 PM
  5. Weekly Sales Total
    By IP in forum Alpha Five Version 4
    Replies: 9
    Last Post: 02-23-2001, 08:13 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •