anchor.diff:  
   
   procedure TKMTextEdit.Paint();
  -var Col:TColor4;
  +var Col:TColor4; RText:String;
   begin
     Inherited;
     fRenderUI.WriteBevel(Left, Top, Width, Height);
     if Enabled then Col:=$FFFFFFFF else Col:=$FF888888;
  +  RText:='*************************';
  +  if IsPassword then setlength(RText, length(Text)) else RText:=Text;
     if HasFocus and ((TimeGetTime div 500) mod 2 = 0)then
  -    fRenderUI.WriteText(Left+4, Top+4, Width-8, Text+'[', Font, kaLeft, false, Col)
  +    fRenderUI.WriteText(Left+4, Top+4, Width-8, RText+'[', Font, kaLeft, false, Col)
     else
  -    fRenderUI.WriteText(Left+4, Top+4, Width-8, Text, Font, kaLeft, false, Col);
  +    fRenderUI.WriteText(Left+4, Top+4, Width-8, RText, Font, kaLeft, false, Col);
   end;
   
   
  
positive.code:   public
      Text: string;
      Font: TKMFont;
    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)
  
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);
  