Unit ClockFrm

Classes

TForm1 -

Functions

Types

TButtonArrow

Constants

WS_SMALLTITLEBAR

Variables

Form1


Functions


Types


TButtonArrow = (arwUp, arwDown, arwRestore);

Constants

WS_SMALLTITLEBAR = $4000

====================================================================} { Program: Ledclock } { Author: Sean R. Malloy } { Copyright 1995 by Sean R. Malloy } { } { This program creates a binary clock in the upper left corner of } { the Windows display. The program displays three columns of LEDs; } { the leftmost column is hours, the middle column is minutes, and } { the rightmost column is seconds. Each column displays the value of } { that part of the time in a binary format, low-order bit at the } { bottom. The color of the LEDs can be changed by the popup menu } { accessed by right-clicking anywhere within the program's client } { area. } { } { The compiled version of this program and its source code may be } { freely distributed under the following conditions: } { } { 1. This copyright notice remains unaltered. } { 2. No 'compilation copyright' is claimed over any collection } { containing this component or any of its associated files. } { 3. No fee is charged for this component, except to cover the } { cost of the disk by which the component is transferred. } { This prohibition includes all WWW sites and BBSes that } { require payment for download privileges. } { } { This program uses two custom components: } { the RoundLed component available as RNDLED11.ZIP } { the TResolutionFix component available as RESFIX.ZIP } { The RoundLed component is copyright 1995 by Martyn Dowsett } { (CIS 100676,1560) } { The TResolutionFix component is copyright 1995 by Sean Malloy } { (malloy@cris.com) } { Both components are available on the Super Delphi Page at } { http://sunsite.icm.edu.pl/~robert/delphi } {====================================================================

Variables

Form1 : TForm1

Public declarations