anchor.diff:      constructor Create(AOwner: TComponent); override;
       destructor  Destroy; override;
       function    SelectionText: string;
  +    procedure   SelectAll;
     end;
   
   
     TfpgEdit = class(TfpgCustomEdit)
  -  private
     published
       property    Text;
       property    FontDesc;
  
positive.code:   Repaint;
  end;
  
  
  end.
  
  
negative.code: begin
  //  writeln(Classname, '.Keypress');
    Consumed := False;
  //   lpos := FCursorPos;
    hasChanged := False;
  
    Consumed := True;
  