paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 04:00:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

Minor fixes

Browse Source 
Shane

git-svn-id: trunk@404 -
This commit is contained in:
lazarus 2001-11-09 20:48:36 +00:00
parent 40cb0d378a
commit 8dd386378b
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/compiler.pp
View File

@ -137,7 +137,7 @@ writeln('[TCompiler.Compile] Output="',OutputLine,'"');
else if (pos(') Warning:',OutputLine) <> 0) then
WriteMessage := AProject.CompilerOptions.ShowWarn
or AProject.CompilerOptions.ShowAll
else if (copy(OutputLine,1,5)='Panic') or (pos(') Fatal:',OutputLine) <> 0)
else if (copy(OutputLine,1,5)='Panic') or (pos(') Fatal:',OutputLine) <> 0) or (pos('Fatal: ',OutputLine) <> 0)
then begin
Result:=mrCancel;
WriteMessage := true;
@ -336,6 +336,10 @@ end.
{
$Log$
Revision 1.20 2001/11/09 20:48:36 lazarus
Minor fixes
Shane
Revision 1.19 2001/11/09 18:39:11 lazarus
MG: turned back to stable ground (use old process.pp)

8
lcl/include/hintwindow.inc
View File

@ -1,4 +1,12 @@
{ THintWindow }
{
use:
HintWindow := THintWindow.Create(nil);
Rect := HintWindow.CalcHintRect(0,'This is the hint',nil);
HintWindow.ActivateHint(Rect,'This is the hint');
}
constructor THintWindow.Create(AOwner: TComponent);
begin