paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 13:31:43 +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

15
ide/text/fpviews.pas
View File

@ -196,10 +196,6 @@ type
function GetPalette: PPalette;virtual;
constructor Load(var S: TStream);
procedure Store(var S: TStream);
destructor Done; virtual;
end;
@ -1265,8 +1261,8 @@ var OldState: word;
begin
OldState:=State;
inherited SetState(AState,Enable);
if ((AState xor State) and sfActive)<>0 then
UpdateCommands;
if ((AState xor OldState) and sfActive)<>0 then
UpdateCommands;
end;
procedure TSourceWindow.UpdateCommands;
@ -1399,7 +1395,7 @@ begin
if ExistsFile(GDBOutputFile) then
begin
if Editor^.LoadFile=false then
ErrorBox(#3'Error reading file.',nil);
ErrorBox(#3'Error reading file'#13#3+GDBOutputFile,nil);
end
else
{ Empty files are buggy !! }
@ -3078,7 +3074,10 @@ end;
END.
{
$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
Revision 1.53 2000/01/07 14:02:52 pierre