{
  Autor: Michael Springwald
  Datum: Sontag, 05.Augst.2007

  Updates: Montag, 06.Augst.2007, Dienstag, 07.Augst.2007
}

unit uplTypes;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Graphics, umyObjectlist;

type
  { TPlTextItemStyle }
  TPlTextStyle = class
  private

  protected

  public
    bgColor:TColor;
    fgColor:TColor;
    font_size:Integer;
    font_name:String;
    font_style:TFontStyles;

    constructor Create;
    destructor Destroy;
  published
  end;

  TPLTextItem = class
  public
    c:Word;
    itemStyle:TPlTextStyle;
    issel:Boolean;
    constructor Create;
  end;

  { TPLTextObj }
  TPLTextObj = class
  private
    function GetText: String;
    procedure SetText(const AValue: String);

  protected
  public
    textlist:TmyObjectList;
    constructor Create;
    destructor Destroy;
  published
    property Text:String read GetText write SetText;
  end;

implementation

{ TPlTextItemStyle }

constructor TPlTextStyle.Create;
begin
  bgColor:=clNone; fgColor:=clNone;
  font_size:=-1; font_name:=''; font_style:=[];
end;

destructor TPlTextStyle.Destroy;
begin

end;

{ TPLTextObj }

function TPLTextObj.GetText: String;
var
  x:Integer;
  str:String;
begin
  for x:=0 to textlist.Count-1 do begin
    str:=str+chr(TPLTextItem(textlist.items[x]).c);
  end;
  result:=Str;
end;

procedure TPLTextObj.SetText(const AValue: String);
begin

end;

constructor TPLTextObj.Create;
begin
  textlist:=TmyObjectList.Create;
end;

destructor TPLTextObj.Destroy;
begin

end;

{ TPLTextItem }

constructor TPLTextItem.Create;
begin
  itemStyle:=nil;
  isSel:=False;
end;

end.