paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 03:49:19 +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 begin
OldState:=State; OldState:=State;
inherited SetState(AState,Enable); inherited SetState(AState,Enable);
if ((State xor OldState) and sfActive)<>0 then if ((AState and sfActive)<>0) and ((OldState and sfActive)=0) then
UpdateCommands; UpdateCommands;
end; end;
@ -2505,7 +2505,6 @@ begin
New(ScreenView, Init(R, HSB, VSB, AScreen)); New(ScreenView, Init(R, HSB, VSB, AScreen));
ScreenView^.GrowMode:=gfGrowHiX+gfGrowHiY; ScreenView^.GrowMode:=gfGrowHiX+gfGrowHiY;
Insert(ScreenView); Insert(ScreenView);
UserScreenWindow:=@Self; UserScreenWindow:=@Self;
end; end;
@ -3217,7 +3216,10 @@ end;
END. END.
{ {
$Log$ $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 * hopfully the bug on wrong Menu config fixed
Revision 1.60 2000/02/07 23:40:38 pierre Revision 1.60 2000/02/07 23:40:38 pierre