anchor.diff:  { TKMPanel } //virtual panels to contain child items
   constructor TKMPanel.Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer);
   begin
  -  Inherited Create(aLeft,aTop,aWidth,aHeight);
  -  ParentTo(aParent);
  -end;
  -
  +  Inherited Create(aParent, aLeft,aTop,aWidth,aHeight);
  +end;
  +
  +
  +destructor TKMPanel.Destroy; 
  +var i:integer;
  +begin
  +  for i:=1 to ChildCount do
  +    Childs[i].Free;
  +  Inherited;
  +end;
  +
  +
  +{Parentize control to another control}
  +{Parent control has a list of all it's child controls}
  +{Also transform child according to parent position}
  +procedure TKMPanel.AddChild(aChild:TKMControl);
  +begin
  +  inc(ChildCount);
  +  {Hereby I still try to make a rule to count starting from 1, not from zero}
  +  setlength(Childs, ChildCount+1);
  +  Childs[ChildCount] := aChild;
  +  aChild.Parent := Self;
  +end;
   
   procedure TKMPanel.SetHeight(aValue:Integer);
   var i:integer;
  
positive.code: 
  constructor TKMLabel.Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aFont:TKMFont; aTextAlign: KAlign; aCaption:string; aColor:TColor4=$FFFFFFFF);
  begin
    Inherited Create(aLeft,aTop,aWidth,aHeight);
    ParentTo(aParent);
    Font:=aFont;
    FontColor:=aColor;
    TextAlign:=aTextAlign;
  
negative.code:     Font: TKMFont;
      FontColor:TColor4;
      TextAlign: KAlign;
      constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aPos:integer; aCaption:string=''; aFont:TKMFont=fnt_Mini; aColor:TColor4=$FFFFFFFF);
      procedure Paint; override;
  end;
  
  