|
| 
| Submitted on: 3/17/2002 6:23:45 PM
By: Jonathan Rossing
Level: Intermediate
User Rating:
By 8 Users
Compatibility:Delphi 5
Users have accessed this code 4786 times.
|
|
| | | 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...
| |
|
| |
|
Download 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 |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
3/18/2002 4:21:39 PM:Andrew 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?
|
3/18/2002 4:58:48 PM:Jonathan Rossing
I have not a clue, but I have made it
in Delphi 6, but it should work in
delphi 5...
|
3/25/2002 3:48:11 PM:Ultima4701
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.)
|
3/27/2002 12:38:10 PM:Andrew Carter
I am running Win98 SE for Delphi, and
Win 2000 for C++. I will try executing
this program in Win 2000!!!
|
4/1/2002 9:37:28 AM:Tarek 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...
|
4/1/2002 10:56:07 AM:Jonathan Rossing
It's very strange, it works fine on my
computer...
|
4/4/2002 1:18:06 PM:Jim Campbell
Reworked your code and added some
stuff
See "Transparent Analog Clock"
in this forum for the complete scoop.
|
4/11/2002 8:26:00 AM:K. O. Thaha Hussain
See my Analog Clock in VB section to
see the formula.
- Thaha Hussain
|
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?
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
