anchor.diff:    fpgStyle.DrawFocusRect(self, r);
   end;
   
  -function TfpgCanvas.DrawText(x, y, w, h: TfpgCoord; AText: string; AFlags: TFTextFlags;
  +function TfpgCanvas.DrawText(x, y, w, h: TfpgCoord; AText: TfpgString; AFlags: TFTextFlags;
                   ALineSpace: integer): integer;
   var
     wtxt, htxt, i, wt, l: integer;
  -  wraptxt: string;
  +  wraptxt: TfpgString;
     wraplst: TStringList;
   begin
     if (txtWrap in AFlags) then
  
positive.code:     procedure   DrawDirectionArrow(x, y, w, h: TfpgCoord; direction: integer);
      procedure   DrawDirectionArrow(r: TfpgRect; direction: integer);
      procedure   DrawFocusRect(r: TfpgRect);
      function    DrawText(x, y, w, h: TfpgCoord; AText: string; AFlags: TFTextFlags; ALineSpace: integer = 2): integer;
      function    DrawText(x, y: TfpgCoord; AText: string; ALineSpace: integer = 2): integer;
      function    DrawText(r: TfpgRect; AText: string; AFlags: TFTextFlags = [txtLeft, txtTop]; ALineSpace: integer = 2): integer;
    end;
  
  
  
negative.code:   end;
  end;
  
  function TfpgCanvas.DrawText(x, y: TfpgCoord; AText: TfpgString;
      AFlags: TFTextFlags; ALineSpace: integer): integer;
  begin
    Result := DrawText(x, y, 0, 0, AText, AFlags, ALineSpace);
  end;
  
  function TfpgCanvas.DrawText(r: TfpgRect; AText: TfpgString; AFlags: TFTextFlags;
      ALineSpace: integer): integer;
  begin
    Result := DrawText(r.Left, r.Top, r.Width, r.Height, AText, AFlags, ALineSpace);
  end;
  