anchor.diff:      procedure   HandleResize(awidth, aheight: TfpgCoord); override;
       procedure   btnLoadClicked(Sender: TObject);
       procedure   ChangeFontClicked(Sender: TObject);
  +    procedure   TextEditDrawLine(Sender: TObject; ALineText: TfpgString; ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; var AllowSelfDraw: Boolean);
     public
       constructor Create(AOwner: TComponent); override;
       procedure   AfterCreate; override;
  
positive.code:   typinfo,
    Sysutils,
    fpg_base, fpg_main, fpg_form, fpg_button, fpg_label,
    fpg_memo, fpg_dialogs, fpg_utils, fpg_radiobutton,
    fpg_textedit, fpg_checkbox, fpg_panel;
    
  type
  
negative.code:     Name := 'TextEdit';
      SetPosition(300, 172, 280, 235);
      Anchors := [anLeft,anRight,anTop,anBottom];
      Lines.Add('program Test1;');
      Lines.Add('{$mode objfpc}{$H+}');
      Lines.Add('uses');
      Lines.Add('  classes;');
      Lines.Add('var');
      Lines.Add('  i: integer;');
      Lines.Add('begin');
      Lines.Add('  writeln(i);');
      Lines.Add('end.');
      Lines.Add('');
      //    FontDesc := '#Edit1';
      FontDesc := 'Bitstream Vera Sans Mono-10';
      //    Lines.Insert(1,'0 Beforje 1 after');
      ParentShowHint := True;
      OnDrawLine := @TextEditDrawLine;
    end;
  
    btnLoad := TfpgButton.Create(self);
  