ToolbarClock

[JerryBrightbill]

This is an update to the toolbar clock posted a few moths ago. Attached is a zip file that has the following instructions as well as each piece of code for the xdialog toolbar object in a separate text file.

Add a clock to a Toolbar

Created by: Jerry Brightbill
Brightbill Consulting
[email protected]
Updated April 1, 2003

Steps:

1. Open a Toolbar Design
2. Click on Free-form xdialog
3. Enter the following code in the appropriate xdialog window
4. Preview the new toolbar
5. If all is well, save the toolbar

Note: If you want to change the window color,
change the light green to another color

'--------------------------------------------------
'Enter the following 3 lines in Xdialog Code Window

{timer=update_time}{interval=1}
{font=ms sans serif,9,b}
[%O={B=light green}{C=black} {@@}%.16,1^#vtb_time]

'--------------------------------------------------
'Enter the following 4 lines in Xdialog Event Window

if a_dlg_button = "update_time"
vtb_time = time("0h:0m:0s AM")
a_dlg_button = ""
end if

'--------------------------------------------------
'Enter the following line in Xdialog Setup Code Window

vtb_time = time("0h:0m:0s AM")

Jerry

[JerryBrightbill]

RE: ToolbarClock

Attached is a zip file that contains a demo showing how to create a Toolbar Clock. The 3 "Clock Free Form Xdialog Event.txt" files were saved in the Alpha Sports directory. The exe movie demonstrates how to add the clock to the main menu toolbar in the Alpha Sports database. The clock can be added to any toolbar using the same method.

Jerry

[JerryBrightbill]

RE: ToolbarClock

Here is the zip file with the code text files.

[Ryan Giggs]

RE: ToolbarClock

What alterations would need to be made, if I wanted to put the Date (i.e Sunday, April 18 2004) also in the toolbar along with the date?

[Ryan Giggs]

RE: ToolbarClock

errrrrr...correction....(last line) ***along with the time

[eddie]

RE: ToolbarClock

I would like to do that to?

[davej]

RE: ToolbarClock

Eddie,

I've played with Jerry's code and got what you want.

Change the Setup Code tab to read: v_Date = cdow(DATE())+" - "+CMONTH(DATE())+" "+DAY(DATE())+", "+YEAR(date())+" - "+time("0h:0m:0s AM")

Then, change the Event Code second line to read: v_Date = cdow(DATE())+" "+CMONTH(DATE())+" "+DAY(DATE())+", "+YEAR(date())+" - "+time("0h:0m:0s AM")

Finally, in the last line, change .16 to something like .60. The name of the month and name of the DOW control the length of the string, so you will have to pick a value long enough to display the greatest string length.

Having said all that, I usually use Jerry's code as originally written and include the date as a global variable in the autoexec script and then place the date on all forms. No reason, I just do it that way.

Dave

[Jerry Gray]

RE: ToolbarClock

If anyone wants to increase the size of the clock, there are 3 places in the code you can tweak.

{font=arial,18,i}
[%O={B=Dream Spiral}{C=green} {@@}%.30,3^#vtb_time]

The "18" next to the font is of course the font size. If you increase it like I did, you will have to make room for the display. This is done by changing the width of the field and the height.

Right before the #vtb_time, you see .30,3 The .30 is the width of the field in characters and the 3 is the height in lines based on the default font.

I also changed the background to the custom color used in my toolbars.

If you're getting older, or just need new glasses like me, the larger clock is easier to read.

Thanks Jerry for a neat tool,
Jerry Gray

[Kevin G. Timberlake]

RE: ToolbarClock

I tried the code, but keep getting an error. "Extra Characters at end of expression" I have tried to remove any spaces and such, but no avail. Anyone have advice?
Thanks

[Tom Cone Jr]

RE: ToolbarClock

Often this can mean an extra (unneeded) parenthesis. -- tom

[Kevin G. Timberlake]

RE: ToolbarClock

Thanks Tom...I just needed to slow down and watch the video and see that I put the code in the wrong places. LOL. Thanks tho!
Kevin