unit KLabel;
{-------------------------------------------------------------------------------
  Oma label, johon voidaan tallettaa joukko merkkijonona eri tarkoistusperiä
  varten.

  Tekijä:         Vesa Lappalainen
  Aika:           30.11.1996
  Delphi-versio:  1.0 & 2.0
  Komponentit:    TMatLabel
  Muutokset:
}

interface


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

const MatLabels = 4;

type
  TMatLabel = class(TLabel)
  private
  protected
  public
    st:array [0..MatLabels-1] of string;
    constructor Create(AOwner:TComponent);                             override;
  published
  end;

procedure Register;

implementation

constructor TMatLabel.Create(AOwner:TComponent);
var i:integer;
begin
  inherited Create(AOwner);
  for i:=0 to MatLabels-1 do begin
    st[i] := '';
  end;
end;

procedure Register;
begin
  RegisterComponents('Kave2000', [TMatLabel]);
end;


end.