paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 07:34:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix display refresh command.

Browse Source 
git-svn-id: trunk@3770 -
This commit is contained in:
daniel 2006-06-03 11:30:54 +00:00
parent 366e3e820f
commit 06be3aba7d
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fv/views.pas
View File

@ -855,7 +855,7 @@ const
MouseUsesVideoBuf = false;
{$endif not UNIX}
procedure DrawScreenBuf;
procedure DrawScreenBuf(force:boolean);
begin
if (GetLockScreenCount=0) then
begin
@ -868,7 +868,7 @@ begin
end
else
HideMouse;
UpdateScreen(false);
UpdateScreen(force);
If not MouseUsesVideoBuf then
ShowMouse;
end;
@ -1430,7 +1430,7 @@ begin
LockScreenUpdate; { don't update the screen yet }
Draw;
UnLockScreenUpdate;
DrawScreenBuf;
DrawScreenBuf(false);
TView.DrawCursor;
end;
end;
@ -2164,11 +2164,16 @@ end;
{--TGroup-------------------------------------------------------------------}
{ ReDraw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB }
{ ReDraw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 2Jun06 DM }
{---------------------------------------------------------------------------}
procedure TGroup.Redraw;
begin
{Lock to prevent screen update.}
lockscreenupdate;
DrawSubViews(First, nil);
unlockscreenupdate;
{Draw all views at once, forced update.}
drawscreenbuf(true);
end;
@ -4341,7 +4346,7 @@ begin
B[i]:=myChar;
do_writeView(X,X+Count,Y,B);
end;
DrawScreenBuf;
DrawScreenBuf(false);
end;
@ -4352,7 +4357,7 @@ begin
if h>0 then
for i:=0 to h-1 do
do_writeView(x,x+w,y+i,buf);
DrawScreenBuf;
DrawScreenBuf(false);
end;
@ -4370,10 +4375,10 @@ begin
MyColor:=MapColor(Color);
MyColor:=MyColor shl 8;
for i:=0 to l-1 do
B[i]:=MyColor+ord(Str[i+1]);
B[i]:=MyColor+ord(Str[i+1]);
do_writeView(x,x+l,y,b);
end;
DrawScreenBuf;
DrawScreenBuf(false);
end;

1
ide/fpide.pas
View File

@ -1064,6 +1064,7 @@ begin
UpdatePrimaryFile;
UpdateINIFile;
Message(Application,evBroadcast,cmCommandSetChanged,nil);
application^.redraw;
end;
procedure TIDEApp.SourceWindowClosed;