Unit BinaryClock1

Just a note about my source code. It ain't pretty, but does the job (usually) I am making it available not so much for people to remake the binary clock (which you can) but rather to utuilize the smaller examples within to do things like make tranparent backgrounds, etc.

Classes

TForm1 -

Functions

Types

Constants

Variables

Back
Blink
BStr
Canv
CB1
CB2
CG1
CG2
CHigh
Colons
CR1
CR2
CWide
DB1
DB2
DC
DG1
DG2
DiffStr
DirectoryStr
DR1
DR2
DriveStr
FH
FirstTime
Form1
FTime
I
IHigh
ImageOn
Int1
IntMe
IWide
J
K
LedOffIn
LedOffOut
LedOnIn
LedOnOut
LedSize
Moveable
NewStr
OldBStr
OldPM
OldStr
Pad
PadY
PicStr
PmLite
PMWide
S1
S2
Seconds
TempStr1
TempStr2
TempStr3
TempStr4
TempStr5
TopPos
UpperDisplay


Functions


Types


Constants


Variables

Back : integer

Blink : boolean

BStr : string

Canv : TCanvas

CB1 : integer

CB2 : integer

CG1 : integer

CG2 : integer

CHigh : longint

Colons : boolean

CR1 : integer

CR2 : integer

CWide : longint

DB1 : integer

DB2 : integer

DC : HDc

LED Lights array

DG1 : integer

DG2 : integer

DiffStr : string

DirectoryStr : string

DR1 : integer

DR2 : integer

DriveStr : string

FH : integer

FirstTime : integer

Form1 : TForm1

Public declarations

FTime : boolean

I : integer

IHigh : longint

ImageOn : array [0..4,0..3] of Boolean

Int1 : integer

IntMe : longint

IWide : longint

J : integer

K : integer

LedOffIn : TColor

LedOffOut : TColor

LedOnIn : TColor

LedOnOut : TColor

LedSize : integer

Moveable : boolean

NewStr : string

OldBStr : string

OldPM : string

OldStr : string

Pad : integer

PadY : longint

PicStr : string

PmLite : boolean

PMWide : integer

S1 : string

S2 : string

Seconds : boolean

TempStr1 : string

TempStr2 : string

TempStr3 : string

TempStr4 : string

TempStr5 : string

TopPos : string

UpperDisplay : boolean