unit Figur;

interface

uses
  SysUtils, Classes, Controls, Graphics, ExtCtrls, visulib, AdvProgr;

type
  tMaximum = 1..65535;

type
  TFigur = class(TAdvProgress)
  private
    Fstatus : boolean;
    FStatusadresse : string;
    FFigurMaximum : boolean;
    FMaximum : tMaximum;
    FSizeX : integer;
    FSizeY : integer;
    procedure setValue(i : string);
  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner : TComponent); override;
  published
    property FigurMaximum : boolean read FFigurMaximum write FFigurMaximum;
    property Invertiert : boolean read FStatus write FStatus;
    property Statusadresse : string read FStatusadresse write SetValue;
    property Maximum : tMaximum read FMaximum write FMaximum;
    property SizeX : integer read FSizeX write FSizeX;
    property SizeY : integer read FSizeY write FSizeY;
  end;

procedure Register;

implementation


constructor TFigur.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FStatusadresse := '0';
  FMaximum := 65535;
  self.BkColor := clWhite; // Das ist wohl nicht korrekt?
end;


procedure TFigur.setValue(i : string);
begin
  i := checkAdr(UpperCase(i));
  FStatusadresse := i;
end;