paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-22 09:45:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* correct some ansii file conversion problems

Browse Source
This commit is contained in:
pierre 2002-03-20 17:16:11 +00:00
parent 4431b0efc7
commit ae294939aa
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/whtmlhlp.pas
View File

@ -166,8 +166,8 @@ uses Views,WConsts,WUtils,WViews,WHTMLScn;
procedure THTMLAnsiConsole.GotoXY(X,Y : integer);
begin
if X>MaxX then MaxX:=X;
if Y>MaxY then MaxY:=Y;
if X>MaxX then MaxX:=X-1;
if Y>MaxY then MaxY:=Y-1;
inherited GotoXY(X,Y);
end;
@ -196,6 +196,7 @@ end;
procedure THTMLAnsiView.CopyToHTML;
var
Attr,NewAttr : byte;
c : char;
X,Y,Pos : longint;
begin
Attr:=(Buffer^[1] shr 8);
@ -203,7 +204,7 @@ begin
HTMLOwner^.AddText(hscTextAttr+chr(Attr));
for Y:=0 to HTMLConsole^.MaxY-1 do
begin
for X:=1 to HTMLConsole^.MaxX-1 do
for X:=0 to HTMLConsole^.MaxX-1 do
begin
Pos:=(Delta.Y*MaxViewWidth)+X+Y*MaxViewWidth;
NewAttr:=(Buffer^[Pos] shr 8);
@ -212,8 +213,16 @@ begin
Attr:=NewAttr;
HTMLOwner^.AddText(hscTextAttr+chr(Attr));
end;
HTMLOwner^.AddChar(chr(Buffer^[Pos] and $ff));
c:= chr(Buffer^[Pos] and $ff);
if ord(c)>16 then
HTMLOwner^.AddChar(c)
else
HTMLOwner^.AddChar('*');
end;
{ Write start of next line in normal color, for correct alignment }
HTMLOwner^.AddChar(hscNormText);
{ Force to set attr again at start of next line }
Attr:=0;
HTMLOwner^.AddChar(hscLineBreak);
end;
end;
@ -910,7 +919,10 @@ end;
END.
{
$Log$
Revision 1.2 2001-09-18 11:33:53 pierre
Revision 1.3 2002-03-20 17:16:11 pierre
* correct some ansii file conversion problems
Revision 1.2 2001/09/18 11:33:53 pierre
* fix Previous Help Topic
Revision 1.1 2001/08/04 11:30:25 peter