paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed reference count bug in the unicode version of TView.do_writeViewRec1

Browse Source 
git-svn-id: branches/unicodekvm@48736 -
This commit is contained in:
nickysn 2021-02-21 06:26:22 +00:00
parent 8ed768d486
commit f04d87bc3d
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fv/src/views.inc
View File

@ -4328,11 +4328,19 @@ begin
SrcPos:=x1 - staticVar2.offset;
l:=x2-x1;
if (shadowCounter=0) then
begin
{$ifdef FV_UNICODE}
move(staticVar1^[SrcPos],PVideoBuf(G^.buffer)^[BufPos],l*SizeOf(TEnhancedVideoCell))
while (l>0) do
begin
PVideoBuf(G^.buffer)^[BufPos]:=staticVar1^[SrcPos];
inc(BufPos);
inc(SrcPos);
dec(l);
end;
{$else FV_UNICODE}
move(staticVar1^[SrcPos],PVideoBuf(G^.buffer)^[BufPos],l shl 1)
move(staticVar1^[SrcPos],PVideoBuf(G^.buffer)^[BufPos],l shl 1)
{$endif FV_UNICODE}
end
else
begin { paint with shadowAttr }
while (l>0) do