Hallo,
ich habe da an meinem projekt einen seltsammen fehler den ich nicht ganz verstehe geschweige denn weg machen könnte und zwar bekomme ich immer
"[Fehler] uPaint.pas(93): Der linken Seite kann nichts zugewiesen werden"
hier ist meine qullcode
Delphi-Quellcode:
tStyle = class
public
procedure LoadStyle(FileName:String);
procedure SaveStyle(FileName:String);
procedure SetDefault;
private
fSize,fFirstPos:TPoint;
fPen:TPen;
fBrush:TBrush;
fObjectTyp:Integer;
fName:String;
fVisible:Boolean;
function GetSize:Tpoint;
procedure SetSize(Size:Tpoint);
function GetFirstPos:TPoint;
procedure SetFirstPos(FirstPos:TPoint);
procedure SetPen(Pen:TPen);
function GetPen:TPen;
function GetBrush:TBrush;
procedure SetBrush(Brush:TBrush);
procedure SetObjectTyp(NewTyp:Integer);
function GetOjectTyp:Integer;
procedure SetName(NewName:String);
function GetName:String;
procedure SetVisible(Visible:Boolean);
function GetVisible:Boolean;
published
property Size:TPoint read GetSize write SetSize;
property Position:TPoint read GetFirstPos write SetFirstPos;
property Pen:TPen read GetPen write SetPen;
property Brush:TBrush read GetBrush write SetBrush;
property ObjectTyp:Integer read GetOjectTyp write SetObjectTyp;
property Name:String read GetName write SetName;
property Visible:Boolean read GetVisible write SetVisible;
private
end;
und so nutze ich ihn:
Delphi-Quellcode:
...
style:=tStyle.Create;
style.Size.x:=20;style.Size.y:=20;
was mache ich falsch ???
ich hab hier im forum unter der fehlermeldung gesucht aber leider nichts gefunden... und die hilfe ist auch nicht sehr hilfreich für mich.
währe toll wenn jemmand den fehler finden und mir sagen kann was ich falsch gemacht habe.