anchor.diff:    public
       Text: string;
       Font: TKMFont;
  +    IsPassword:boolean; 
     protected
       constructor Create(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aFont:TKMFont);
       procedure Paint(); override;
     public
       function KeyUp(Key: Word; Shift: TShiftState; IsDown:boolean=false):boolean; override;
   end;
  -
   
   {Checkbox}
   TKMCheckBox = class(TKMControl)
  
positive.code: 
  
  procedure TKMTextEdit.Paint();
  var Col:TColor4;
  begin
    Inherited;
    fRenderUI.WriteBevel(Left, Top, Width, Height);
    if Enabled then Col:=$FFFFFFFF else Col:=$FF888888;
    if HasFocus and ((TimeGetTime div 500) mod 2 = 0)then
      fRenderUI.WriteText(Left+4, Top+4, Width-8, Text+'[', Font, kaLeft, false, Col)
    else
      fRenderUI.WriteText(Left+4, Top+4, Width-8, Text, Font, kaLeft, false, Col);
  end;
  
  
  
negative.code:   AddToCollection(Result);
  end;
  
  function TKMControlsCollection.AddTextEdit(aParent:TKMPanel; aLeft,aTop,aWidth,aHeight:integer; aFont:TKMFont; aIsPassword:boolean=false):TKMTextEdit;
  begin
    Result:=TKMTextEdit.Create(aParent, aLeft,aTop,aWidth,aHeight,aFont);
    AddToCollection(Result);
  