lazarus-ccr/components/lazmapviewer/source/mvextradata.pas

unit mvExtraData;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils,graphics;

type

  { TDrawingExtraData }

  TDrawingExtraData = class
  private
    FColor: TColor;
    FId: integer;
    procedure SetColor(AValue: TColor);
  public
    constructor Create(aId : integer);virtual;
    property Color : TColor read FColor write SetColor;
    property Id : integer read FId;
  End;

implementation

{ TDrawingExtraData }


procedure TDrawingExtraData.SetColor(AValue: TColor);
begin
  if FColor=AValue then Exit;
  FColor:=AValue;
end;

constructor TDrawingExtraData.Create(aId: integer);
begin
  FId:=aId;
  FColor:=clRed;
end;

end.