unit nappites;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, ExtCtrls, KButtons, kComp, ComCtrls, kbar, MPlayer,
  savepos, kRndLed;

type

  TForm1 = class(TForm)
    Label1: TLabel;
    TrackBar1: TkTrackBar;
    Counter1: TCounter;
    kSpeedButton1: TkSpeedButton;
    kSpeedButton3: TkSpeedButton;
    OpenDialog1: TOpenDialog;
    Image1: TImage;
    MediaPlayer1: TMediaPlayer;
    Panel1: TPanel;
    kSpeedButton2: TkSpeedButton;
    SavePos1: TSavePos;
    kRndLed1: TkRndLed;
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure kSpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure kSpeedButton1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure kSpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
//    sb : TkSpeedButton;
//    bb : TkBitBtn;
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := 'Ajaa';
end;

procedure TForm1.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := '';
end;

procedure TForm1.BitBtn1Exit(Sender: TObject);
begin
  Label1.Caption := '';

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
{
  sb := TkSpeedButton.Create(self);
  sb.BkColor := clAqua;
  sb.Left := 100;
  sb.Top := 100;
  sb.Width := 200;
  sb.Height := 100;
  sb.Parent := self;
  sb.Glyph := SpeedButton2.Glyph;
  sb.Caption := 'Kissa';
  sb.Layout := blGlyphTop;

  bb := TkBitBtn.Create(self);
//  bb.NormalButton := true;
  bb.BkColor := clAqua;
  bb.Left := 300;
  bb.Top := 100;
  bb.Width := 100;
  bb.Height := 100;
  bb.Parent := self;
  bb.Glyph := SpeedButton2.Glyph;
  bb.Caption := 'Koira';
  bb.Layout := blGlyphTop;
}  
end;



procedure TForm1.kSpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  kSpeedButton1.Down := True;
end;

procedure TForm1.kSpeedButton1Click(Sender: TObject);
begin
  If ( kSpeedButton1.Down ) then label1.Caption := 'Lujaa'
  else label1.caption := '';
  kRndLed1.LedOn := Not kRndLed1.LedOn;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Counter1.Value := TrackBar1.Position;
end;

procedure TForm1.TrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TrackBar1.Position := 0;
  Counter1.Value := 0;
end;

procedure TForm1.kSpeedButton3Click(Sender: TObject);
begin
  Panel1.COlor := clRed;
end;

end.