[JVCL-Checkins] dev/JVCL3/install/JVCLInstall/Helpers HtHint.pas,1.2,1.3 - Eye candy Added dfm/xfm copy in non developer installation m

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/Helpers
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16516/install/JVCLInstall/Helpers

Modified Files:
	HtHint.pas 
Log Message:
Eye candy
Added dfm/xfm copy in non developer installation mode


Index: HtHint.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/install/JVCLInstall/Helpers/HtHint.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** HtHint.pas	9 Apr 2004 22:22:33 -0000	1.2
--- HtHint.pas	1 May 2004 00:39:20 -0000	1.3
***************
*** 44,88 ****
    end;
  
- function WordWrapString(const S: string; Width: Integer = 75): string;
- 
  implementation
  
- function WordWrapString(const S: string; Width: Integer = 75): string;
- var
-   i, cnt, Len, LastWordStart, BreakStrLen: Integer;
- begin
-   Result := S;
-   BreakStrLen := Length(sLineBreak);
-   if (Width <= 0) or (S = '') then
-     Exit;
- 
-   Len := Length(Result);
-   i := 1;
-   while i <= Len do
-   begin
-     cnt := 0;
-     LastWordStart := 0;
-     while (i <= Len) and ((LastWordStart = 0) or (cnt <= Width)) do
-     begin
-       if Result[i] = ' ' then
-         LastWordStart := i;
-       Inc(cnt);
-       Inc(i);
-     end;
-     if i <= Len then
-     begin
-       if LastWordStart > 0 then
-       begin
-         Delete(Result, LastWordStart, 1);
-         Dec(Len, 1);
-         i := LastWordStart;
-       end;
-       Insert(sLineBreak, Result, i);
-       Inc(Len, BreakStrLen);
-       Inc(i, BreakStrLen);
-     end;
-   end;
- end;
- 
  function SubStr(const S: string; const Index: Integer; const Separator: string): string;
  { Returns a substring. Substrings are divided by Sep character [translated] }
--- 44,49 ----