My Visual Database — How To Add Clock In Form

Re: How To Add Clock In Form

null@example.com (bysalih) — Sun, 26 May 2024 11:55:27 +0000

how can i make a digital clock code. please add a small example

Re: How To Add Clock In Form

null@example.com (AD1408) — Mon, 13 Mar 2017 13:47:36 +0000

Hi Dmitry,

Thank you very much.............................
Great stuff as usual...... Appreciated very much........

Re: How To Add Clock In Form

null@example.com (DriveSoft) — Mon, 13 Mar 2017 13:23:00 +0000

Hello.

Fixed project.
Also I have added possibility to change offset of clock in minutes.

Re: How To Add Clock In Form

null@example.com (AD1408) — Fri, 10 Mar 2017 19:52:23 +0000

I put 1 analog clock for local but couldn't add another one that works in this case for Honolulu..

When adding second analog clock, I couldn't prevent handles repainting.

Please see the attached sample project:

Re: How To Add Clock In Form

null@example.com (AD1408) — Thu, 09 Mar 2017 04:00:56 +0000

Hi Derek,

Thanks a lot for the sample project............................

It's fine using PC clock as a base. It'd be much more easier for a user if getting time is automated. That's why I was hoping to get time from the web. By the way I couldn't find how you displayed labels from 2 to 24 so that I can customize and add more clocks?
EDIT: I have found labels, you have used a blank characters for each label except label 1. Therefore customizing and adding more clocks resolved.

The following makes all clocks live which I wanted:

var
   Timer: TTimer;

procedure formwtz_OnShow (Sender: string; Action: string);
begin
     Timer := TTimer.Create (nil);
     Timer.OnTimer := @OnTimer;
     Timer.Interval := 1000;
     Timer.Enabled := True;
end;

procedure OnTimer;
begin
  //Form1.Label1.Caption := FormatDateTime('c', Now);  //Shows date and time together
  formwtz.label25.Caption := FormatDateTime('ddd dd mmm yyyy', Now); // Shows date: Wed 01 Mar 2017 depending on comp date display settings
  //Form1.Label2.Caption := FormatDateTime('t:s', Now); //Shows clock only with hour minutes and seconds
  //formwtz.Label26.Caption := FormatDateTime('hh : mm : ss', Now); //Shows clock only with hour minutes and seconds
  formwtz.label26.caption := 'Local Time is:  ' +FormatDateTime('hh : mm : ss', Now);

  formwtz.label1.Caption  := sqlexecute('select city from ctz where labelno = "01"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "01"')/24));
  formwtz.label2.Caption  := sqlexecute('select city from ctz where labelno = "02"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "02"')/24));
  formwtz.label3.Caption  := sqlexecute('select city from ctz where labelno = "03"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "03"')/24));
  formwtz.label4.Caption  := sqlexecute('select city from ctz where labelno = "04"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "04"')/24));
  formwtz.label5.Caption  := sqlexecute('select city from ctz where labelno = "05"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "05"')/24));
  formwtz.label6.Caption  := sqlexecute('select city from ctz where labelno = "06"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "06"')/24));
  formwtz.label7.Caption  := sqlexecute('select city from ctz where labelno = "07"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "07"')/24));
  formwtz.label8.Caption  := sqlexecute('select city from ctz where labelno = "08"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "08"')/24));
  formwtz.label9.Caption  := sqlexecute('select city from ctz where labelno = "09"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "09"')/24));
  formwtz.label10.Caption := sqlexecute('select city from ctz where labelno = "10"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "10"')/24));
  formwtz.label11.Caption := sqlexecute('select city from ctz where labelno = "11"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "11"')/24));
  formwtz.label12.Caption := sqlexecute('select city from ctz where labelno = "12"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "12"')/24));
  formwtz.label13.Caption := sqlexecute('select city from ctz where labelno = "13"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "13"')/24));
  formwtz.label14.Caption := sqlexecute('select city from ctz where labelno = "14"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "14"')/24));
  formwtz.label15.Caption := sqlexecute('select city from ctz where labelno = "15"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "15"')/24));
  formwtz.label16.Caption := sqlexecute('select city from ctz where labelno = "16"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "16"')/24));
  formwtz.label17.Caption := sqlexecute('select city from ctz where labelno = "17"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "17"')/24));
  formwtz.label18.Caption := sqlexecute('select city from ctz where labelno = "18"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "18"')/24));
  formwtz.label19.Caption := sqlexecute('select city from ctz where labelno = "19"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "19"')/24));
  formwtz.label20.Caption := sqlexecute('select city from ctz where labelno = "20"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "20"')/24));
  formwtz.label21.Caption := sqlexecute('select city from ctz where labelno = "21"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "21"')/24));
  formwtz.label22.Caption := sqlexecute('select city from ctz where labelno = "22"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "22"')/24));
  formwtz.label23.Caption := sqlexecute('select city from ctz where labelno = "23"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "23"')/24));
  formwtz.label24.Caption := sqlexecute('select city from ctz where labelno = "24"')+':  '+timetostr(time+(sqlexecute('select pm from ctz where labelno = "24"')/24));
end;

procedure formwtz_OnClose (Sender: string; Action: string);
begin
     Timer.Free;
end;

I have tried analog clocks version but couldn't........
Could you possible change 2 of the 24 clocks to analog clocks so that we can have combination of digital and analog clocks on same form please - Live version as in the code above?

Re: How To Add Clock In Form

null@example.com (derek) — Wed, 08 Mar 2017 23:09:38 +0000

Hi Adam,
Not sure if I'm misunderstanding you about the clock. Why do you need to go onto the internet to get specific location times - can't you just work it out as plus N hours or minus N hours offset from your PC's own clock?
Example is attached (for maximum flexibility, you can select your own locations (up to 24), the time zone offsets etc etc by clicking on the 'SETUP' button). I appreciate it's just a digital clock (rather than the analogue one) but the principle is identical if you want to make use of it.
Regards,
Derek.

Re: How To Add Clock In Form

null@example.com (AD1408) — Wed, 08 Mar 2017 13:07:58 +0000

Hi Dmitry,

Thank you very much...................
Great stuff...... Appreciated.

Next step would would be to have multiple clocks for different locations around the world beside the local time. For this I guess app needs to connect to Internet to get specific location time.

I hope I'm not asking too much. You have been very kind and providing GREAT help and support.

Re: How To Add Clock In Form

null@example.com (DriveSoft) — Wed, 08 Mar 2017 10:13:53 +0000

In the section const I have added some params to customize clock

const
  R = 70;    // radius of clock
  RN = 85;  // radius of numbers
  color_clock = clBlack;
  color_numbers = clBlack;
  numbers_font = 'Arial';
  numbers_size = 10;

Please download the example again
http://myvisualdatabase.com/forum/viewt … 279#p19279

Re: How To Add Clock In Form

null@example.com (AD1408) — Tue, 07 Mar 2017 13:06:55 +0000

AD1408 wrote:

... I couldn't find a way to customize newly added numbers such as their distance from minutes ellipse, changing font size, font color, using less numbers and using different fonts?

Hi Dmitry,
Are above complicated and requires too much of your time?

Re: How To Add Clock In Form

null@example.com (AD1408) — Fri, 03 Mar 2017 14:17:14 +0000

Great stuff Dmitry!!!
Thank you very much.................

You put the numbers outside the minutes ellipse, that's nice... I couldn't find a way to customize newly added numbers such as their distance from minutes ellipse, changing font size, font color, using less numbers and using different fonts?

Re: How To Add Clock In Form

null@example.com (DriveSoft) — Fri, 03 Mar 2017 11:47:54 +0000

AD1408 wrote:

Thanks a lot Dmitry.............

Script is beyond me in most parts. How can I change clock face, size, use numbers such as 9-3 12-6 or IX-III XII-VI etc. instead of o? And resizing pens length according to clock face?

Please download the example again, from my previous post.

line 2 in script to change clock size

  R = 75 ;    // radius of clock

Re: How To Add Clock In Form

null@example.com (AD1408) — Thu, 02 Mar 2017 14:18:37 +0000

Thanks a lot Dmitry.............

Script is beyond me in most parts. How can I change clock face, size, use numbers such as 9-3 12-6 or IX-III XII-VI etc. instead of o? And resizing pens length according to clock face?

Re: How To Add Clock In Form

null@example.com (DriveSoft) — Thu, 02 Mar 2017 13:20:23 +0000

AD1408

Please download latest beta version
https://www.dropbox.com/s/xf20ksdbdgj6w … b.zip?dl=0

Then you can use this example to draw analog clock

Re: How To Add Clock In Form

null@example.com (AD1408) — Wed, 01 Mar 2017 23:04:05 +0000

I was having a look at Dmitry's clock sample app. It showed date and time together. Played with it a bit as a learning exercise to show date and time separately. Ended up with this digital clock:

I guess making an analog clock is not that easy. Perhaps somebody can take on the challenge to make a nice looking analog clock?

Re: How To Add Clock In Form

null@example.com (DriveSoft) — Wed, 05 Aug 2015 09:27:46 +0000

Please download an example:
http://myvisualdatabase.com/forum/misc. … download=1