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

* UpdateCommands changed again, still not correct :(

Browse Source
This commit is contained in:
pierre 2000-03-07 21:50:38 +00:00
parent 88275be9de
commit f24f6e23c4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/text/fpviews.pas
View File

@ -1294,7 +1294,7 @@ var OldState: word;
begin
OldState:=State;
inherited SetState(AState,Enable);
if ((State xor OldState) and sfActive)<>0 then
if ((AState and sfActive)<>0) and ((OldState and sfActive)=0) then
UpdateCommands;
end;
@ -2505,7 +2505,6 @@ begin
New(ScreenView, Init(R, HSB, VSB, AScreen));
ScreenView^.GrowMode:=gfGrowHiX+gfGrowHiY;
Insert(ScreenView);
UserScreenWindow:=@Self;
end;
@ -3217,7 +3216,10 @@ end;
END.
{
$Log$
Revision 1.61 2000-03-01 22:32:48 pierre
Revision 1.62 2000-03-07 21:50:38 pierre
* UpdateCommands changed again, still not correct :(
Revision 1.61 2000/03/01 22:32:48 pierre
* hopfully the bug on wrong Menu config fixed
Revision 1.60 2000/02/07 23:40:38 pierre