Important alert: (current site time 7/16/2013 5:34:36 AM EDT)
 

winzip icon

A small Clock

Email
Submitted on: 3/17/2002 6:23:45 PM
By: Jonathan Rossing 
Level: Intermediate
User Rating: By 9 Users
Compatibility: Delphi 5
Views: 17524
author picture
 
     This is a small transparent analog clock. I have not worked with delphi for a while so if you can make the code any shorter please let me know. vote/comment plz...

 
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com

 
Terms of Agreement:   
By using this code, you agree to the following terms...   
  1. You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
  2. You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
  3. You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
  4. You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.

Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Intermediate category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments

3/18/2002 4:21:39 PMAndrew Carter

Hello, I am having trouble accessing your code. When I open it, it says "Error reading Form1.TranparentColor". Then, when I try compiling it gives me alot of errors. Do You Know Why?
(If this comment was disrespectful, please report it.)

 
3/18/2002 4:58:48 PMJonathan Rossing

I have not a clue, but I have made it in Delphi 6, but it should work in delphi 5...
(If this comment was disrespectful, please report it.)

 
3/25/2002 3:48:11 PMUltima4701

Andrew Carter - Are you running Windows 2000 or XP? If not, that may be your problem. Most transparent forms/controls are done with an API that is only included with Windows 2000 and XP. (The lastest two versions of the NT kernel.)
(If this comment was disrespectful, please report it.)

 
3/27/2002 12:38:10 PMAndrew Carter

I am running Win98 SE for Delphi, and Win 2000 for C++. I will try executing this program in Win 2000!!!
(If this comment was disrespectful, please report it.)

 
4/1/2002 9:37:28 AMTarek Hussein

Okay This was not working with me converting the time was worng..

I changed that

procedure TForm1.Timer1Timer(Sender: TObject);
Var Dum:Word;
begin
Min_Check:=min;
Hour_Check:=hour;
DecodeDateTime(Time, Dum, Dum, Dum, Hour, Min, Sek, Dum);

And Now it's Work...
(If this comment was disrespectful, please report it.)

 
4/1/2002 10:56:07 AMJonathan Rossing

It's very strange, it works fine on my computer...

(If this comment was disrespectful, please report it.)

 
4/4/2002 1:18:06 PMJim Campbell

Reworked your code and added some stuff
See "Transparent Analog Clock" in this forum for the complete scoop.
(If this comment was disrespectful, please report it.)

 
4/11/2002 8:26:00 AMK. O. Thaha Hussain

See my Analog Clock in VB section to see the formula.

- Thaha Hussain
(If this comment was disrespectful, please report it.)

 
3/10/2003 1:15:02 PM

The unit Variants are not included in the code that, is it a standard unit in delphi or one of your own, and if how can I get it?
(If this comment was disrespectful, please report it.)

 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.