Электронные часы

unit ufMain;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Lcd99, Vcl.ExtCtrls, watDigit, Vcl.ColorGrd, JvComponentBase, JvBalloonHint,
  JvHint;
 
type
  TFormMain = class(TForm)
    PanelLcd: TPanel;
    LCD: TLCD99;
    ClockTimer: TTimer;
    Panel2: TPanel;
    ColorGrid: TColorGrid;
    BalloonHint1: TBalloonHint;
    JvHint1: TJvHint;
    BalloonHint: TJvBalloonHint;
    procedure ClockTimerTimer(Sender: TObject);
    procedure ColorGridChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  FormMain: TFormMain;
 
implementation
 
{$R *.dfm}
 
procedure TFormMain.ClockTimerTimer(Sender: TObject);
begin
  lcd.Value:= FormatDateTime('hh:mm:ss', time());
end;
 
procedure TFormMain.ColorGridChange(Sender: TObject);
begin
  PanelLcd.Color:= ColorGrid.BackgroundColor;
  lcd.Color:= PanelLcd.Color;
  lcd.OffColor:= lcd.Color;
  lcd.OnColor:= ColorGrid.ForegroundColor;
end;
 
end.

procedure ccc(pn,c:byte);
begin
  case c of
    0: begin
         (form1.FindComponent('c'+inttostr(pn)+'_1') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_2') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_3') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_4') as Tshape).Visible:=false;
         (form1.FindComponent('c'+inttostr(pn)+'_5') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_6') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_7') as Tshape).Visible:=true;
       end;
    1: begin
         (form1.FindComponent('c'+inttostr(pn)+'_1') as Tshape).Visible:=false;
         (form1.FindComponent('c'+inttostr(pn)+'_2') as Tshape).Visible:=false;
         (form1.FindComponent('c'+inttostr(pn)+'_3') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_4') as Tshape).Visible:=false;
         (form1.FindComponent('c'+inttostr(pn)+'_5') as Tshape).Visible:=false;
         (form1.FindComponent('c'+inttostr(pn)+'_6') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_7') as Tshape).Visible:=false;
       end;
    2: begin
         (form1.FindComponent('c'+inttostr(pn)+'_1') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_2') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_3') as Tshape).Visible:=false;
         (form1.FindComponent('c'+inttostr(pn)+'_4') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_5') as Tshape).Visible:=false;
         (form1.FindComponent('c'+inttostr(pn)+'_6') as Tshape).Visible:=true;
         (form1.FindComponent('c'+inttostr(pn)+'_7') as Tshape).Visible:=true;
       end;
  end;
end;
 
procedure TForm1.TimerTimer(Sender: TObject);
var t:string;
begin
  Button3.Caption:=timetostr(time);
  t:=timetostr(time);
  case strtoint(t[1]) of
  0: ccc(1,0);
  1: ccc(1,1);
  2: ccc(1,2);
  end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  MaskArr: array[0..9] of Byte = (119, 18, 107, 91, 30, 93, 125, 19, 127, 95);
var
  i: Integer;
  Hour, Min, Sec, MSec, L, H: Word;
begin
  DecodeTime(Now, Hour, Min, Sec, MSec);
  L := Sec mod 10;
  H := Sec div 10;
 
  for i := 0 to 6 do
  begin
    TControl(FindComponent('Shape' + IntToStr(i+1))).Visible := MaskArr[H] and (1 shl i) > 0;
    TControl(FindComponent('Shape' + IntToStr(7+i+1))).Visible := MaskArr[L] and (1 shl i) > 0;
  end;
end;