paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 22:20:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ TCompilerMessageListBox.SelectFirstError

Browse Source
This commit is contained in:
pierre 2000-02-06 23:41:42 +00:00
parent 7208c18216
commit 05fb7d5941
1 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ide/text/fpcompil.pas
View File

@ -43,7 +43,8 @@ type
PCompilerMessageListBox = ^TCompilerMessageListBox;
TCompilerMessageListBox = object(TMessageListBox)
function GetPalette: PPalette; virtual;
function GetPalette: PPalette; virtual;
procedure SelectFirstError;
end;
PCompilerMessageWindow = ^TCompilerMessageWindow;
@ -183,6 +184,22 @@ begin
GetPalette:=@P;
end;
procedure TCompilerMessageListBox.SelectFirstError;
function IsError(P : PCompilerMessage) : boolean;
begin
IsError:=(P^.TClass and (V_Fatal or V_Error))<>0;
end;
var
P : PCompilerMessage;
begin
P:=List^.FirstThat(@IsError);
If Assigned(P) then
Begin
FocusItem(List^.IndexOf(P));
DrawView;
End;
end;
{*****************************************************************************
TCompilerMessageWindow
@ -679,10 +696,14 @@ begin
{$endif TEMPHEAP}
if Assigned(CompilerMessageWindow) then
with CompilerMessageWindow^ do
if GetState(sfVisible) then
begin
SetState(sfSelected,false);
SetState(sfSelected,true);
if GetState(sfVisible) then
begin
SetState(sfSelected,false);
SetState(sfSelected,true);
end;
if (status.errorCount>0) then
MsgLB^.SelectFirstError;
end;
{ ^^^ we need this trick to reactivate the desktop }
EditorModified:=false;
@ -742,7 +763,10 @@ end;
end.
{
$Log$
Revision 1.49 2000-01-25 00:26:35 pierre
Revision 1.50 2000-02-06 23:41:42 pierre
+ TCompilerMessageListBox.SelectFirstError
Revision 1.49 2000/01/25 00:26:35 pierre
+ Browser info saving
Revision 1.48 2000/01/14 15:38:28 pierre