[JVCL-Checkins] dev/JVCL3/run JvFormToHtml.pas,1.7,1.8 - - Mantis #1662 (TJvFormToHtml, please change parametername)

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26213/run

Modified Files:
	JvFormToHtml.pas 
Log Message:
- Mantis #1662 (TJvFormToHtml, please change parametername)


Index: JvFormToHtml.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvFormToHtml.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** JvFormToHtml.pas	31 Mar 2004 07:43:16 -0000	1.7
--- JvFormToHtml.pas	18 Apr 2004 09:26:23 -0000	1.8
***************
*** 43,47 ****
    TJvFormToHtml = class(TJvComponent)
    public
!     procedure FormToHtml(const Form: TCustomForm; Path: string);
    end;
  
--- 43,47 ----
    TJvFormToHtml = class(TJvComponent)
    public
!     procedure FormToHtml(const Form: TCustomForm; const Filename: string);
    end;
  
***************
*** 58,62 ****
  end;
  
! procedure TJvFormToHtml.FormToHtml(const Form: TCustomForm; Path: string);
  var
    I, J: Integer;
--- 58,62 ----
  end;
  
! procedure TJvFormToHtml.FormToHtml(const Form: TCustomForm; const Filename: string);
  var
    I, J: Integer;
***************
*** 227,231 ****
    end;
    HTML.Add('</BODY></HTML>');
!   HTML.SaveToFile(Path);
    HTML.Free;
  end;
--- 227,231 ----
    end;
    HTML.Add('</BODY></HTML>');
!   HTML.SaveToFile(Filename);
    HTML.Free;
  end;