Random Colors Piano Bar

The piano is a musical instrument played by means of a keyboard that produces sound by striking steel strings with felt hammers.

Imagine steel strings are color bars, imagine every color producing a different random sound .. and we have a new entry for the Fancy Delphi Application Contest.

Rate this FDAC Entry!

Random Colors Piano

This silly little program creates labels (TLabel) at run time and paints them using a random color. Labels are placed in a control array. When you hover your mouse over the label a sound is played.

Here's the main program's source section:

var
  Lab: Array[1..65] of TLabel;

.....

procedure CreatePiano;
var
  k: Byte;
begin
  for k:= 1 to 65 do Lab[k].Color:= Random(16777216) ;
end;

procedure TRndLabColForm.FormCreate(Sender: TObject) ;
var
  k: Byte;
begin
  Randomize;
  for k:= 1 to 65 do
  begin
    Lab[k]:= TLabel.Create(Self) ;
    Lab[k].Parent := Self;
    Lab[k].Left := 8 + 11*(k-1) ;
    Lab[k].Color:= Random(16777216) ;
    Lab[k].OnMouseEnter:= BarClick;
  end;
end;

procedure TRndLabColForm.BarClick(Sender: TObject) ;
begin
  Application.ProcessMessages;

  with Sender as TLabel do
     Windows.Beep(440 + (Color div 3500), 100) ;
end;

"Random Colors Piano" was submitted by "Don Rowlett".

Do you have a FDA(C)? Submit your Delphi code to the Fancy Delphi Application Contest.