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

* avoid random colors in Screen view

Browse Source
This commit is contained in:
pierre 2002-06-13 10:54:54 +00:00
parent 375eca81ae
commit 5e1a849e83
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpviews.pas
View File

@ -3360,7 +3360,7 @@ begin
else
begin Text:=''; Attr:=''; end;
Text:=copy(Text,Delta.X+1,255); Attr:=copy(Attr,Delta.X+1,255);
MoveChar(B,' ',0,Size.X);
MoveChar(B,' ',GetColor(1),Size.X);
for X:=1 to length(Text) do
MoveChar(B[X-1],Text[X],ord(Attr[X]),1);
WriteLine(0,Y-Delta.Y,Size.X,1,B);
@ -4210,7 +4210,10 @@ end;
END.
{
$Log$
Revision 1.21 2002-06-06 08:15:29 pierre
Revision 1.22 2002-06-13 10:54:54 pierre
* avoid random colors in Screen view
Revision 1.21 2002/06/06 08:15:29 pierre
* fix GDBwindow indicator bug
Revision 1.20 2002/06/01 20:08:42 marco