paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 20:21:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid Search sometimes disabled for Editor Windows

Browse Source
This commit is contained in:
pierre 2000-02-01 10:58:41 +00:00
parent 8803dc455b
commit 2cbd2456cf
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/text/fpviews.pas
View File

@ -196,10 +196,6 @@ type
function GetPalette: PPalette;virtual; function GetPalette: PPalette;virtual;
constructor Load(var S: TStream); constructor Load(var S: TStream);
procedure Store(var S: TStream); procedure Store(var S: TStream);
destructor Done; virtual; destructor Done; virtual;
end; end;
@ -1265,7 +1261,7 @@ var OldState: word;
begin begin
OldState:=State; OldState:=State;
inherited SetState(AState,Enable); inherited SetState(AState,Enable);
if ((AState xor State) and sfActive)<>0 then if ((AState xor OldState) and sfActive)<>0 then
UpdateCommands; UpdateCommands;
end; end;
@ -1399,7 +1395,7 @@ begin
if ExistsFile(GDBOutputFile) then if ExistsFile(GDBOutputFile) then
begin begin
if Editor^.LoadFile=false then if Editor^.LoadFile=false then
ErrorBox(#3'Error reading file.',nil); ErrorBox(#3'Error reading file'#13#3+GDBOutputFile,nil);
end end
else else
{ Empty files are buggy !! } { Empty files are buggy !! }
@ -3078,7 +3074,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.54 2000-01-10 14:59:50 pierre Revision 1.55 2000-02-01 10:58:41 pierre
* avoid Search sometimes disabled for Editor Windows
Revision 1.54 2000/01/10 14:59:50 pierre
* TProgramInfo was not registered * TProgramInfo was not registered
Revision 1.53 2000/01/07 14:02:52 pierre Revision 1.53 2000/01/07 14:02:52 pierre