paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

skipped messages are now shown to see progress

Browse Source 
git-svn-id: trunk@3867 -
This commit is contained in:
mattias 2003-02-21 22:43:54 +00:00
parent be157b87aa
commit f1dfccd5a1
2 changed files with 63 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
ide/msgview.pp
View File

@ -45,19 +45,25 @@ type
TMessagesView = class(TForm)
MessageView : TListBox;
private
FLastLineIsProgress: boolean;
FOnSelectionChanged: TNotifyEvent;
Function GetMessage: String;
Procedure MessageViewClicked(sender : TObject);
procedure SetLastLineIsProgress(const AValue: boolean);
protected
Function GetSelectedLineIndex: Integer;
procedure SetSelectedLineIndex(const AValue: Integer);
public
constructor Create(AOwner : TComponent); override;
procedure Add(const Texts : String);
constructor Create(TheOwner: TComponent); override;
procedure Add(const Msg: String);
procedure AddSeparator;
procedure ShowProgress(const Msg: String);
procedure ClearTillLastSeparator;
procedure ShowTopMessage;
function MsgCount: integer;
procedure Clear;
public
property LastLineIsProgress: boolean read FLastLineIsProgress write SetLastLineIsProgress;
property Message : String read GetMessage;
property SelectedMessageIndex: Integer
read GetSelectedLineIndex write SetSelectedLineIndex;
@ -75,13 +81,13 @@ const SeparatorLine = '----------------------------';
{ TMessagesView }
{------------------------------------------------------------------------------}
{ TMessagesView.Create }
{------------------------------------------------------------------------------}
constructor TMessagesView.Create(AOwner : TComponent);
{------------------------------------------------------------------------------
TMessagesView.Create
------------------------------------------------------------------------------}
constructor TMessagesView.Create(TheOwner : TComponent);
var ALayout: TIDEWindowLayout;
Begin
inherited Create(AOwner);
inherited Create(TheOwner);
if LazarusResources.Find(ClassName)=nil then begin
Caption:='Messages';
MessageView := TListBox.Create(Self);
@ -98,13 +104,17 @@ Begin
ALayout.Apply;
end;
{------------------------------------------------------------------------------}
{ TMessagesView.Add }
{------------------------------------------------------------------------------}
Procedure TMessagesView.Add(const Texts : String);
{------------------------------------------------------------------------------
TMessagesView.Add
------------------------------------------------------------------------------}
Procedure TMessagesView.Add(const Msg: String);
Begin
MessageView.Items.Add(Texts);
if FLastLineIsProgress then begin
MessageView.Items[MessageView.Items.Count-1]:=Msg;
FLastLineIsProgress:=false;
end else begin
MessageView.Items.Add(Msg);
end;
end;
Procedure TMessagesView.AddSeparator;
@ -112,6 +122,17 @@ begin
Add(SeparatorLine);
end;
procedure TMessagesView.ShowProgress(const Msg: String);
begin
if FLastLineIsProgress then
MessageView.Items[MessageView.Items.Count-1]:=Msg
else begin
MessageView.Items.Add(Msg);
FLastLineIsProgress:=true;
end;
MessageView.TopIndex:=MessageView.Items.Count-1;
end;
procedure TMessagesView.ClearTillLastSeparator;
var LastSeparator: integer;
begin
@ -122,35 +143,42 @@ begin
if LastSeparator>=0 then begin
while (Items.Count>LastSeparator) do begin
Items.Delete(Items.Count-1);
FLastLineIsProgress:=false;
end;
end;
end;
end;
procedure TMessagesView.ShowTopMessage;
begin
if MessageView.Items.Count>0 then
MessageView.TopIndex:=0;
end;
function TMessagesView.MsgCount: integer;
begin
Result:=MessageView.Items.Count;
end;
{------------------------------------------------------------------------------}
{ TMessagesView.Clear }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TMessagesView.Clear
------------------------------------------------------------------------------}
Procedure TMessagesView.Clear;
Begin
MessageView.Clear;
if not Assigned(MessagesView.MessageView.OnCLick) then //:= @MessagesView.MessageViewClicked;
MessageView.OnClick := @MessageViewClicked;
FLastLineIsProgress:=false;
if not Assigned(MessagesView.MessageView.OnClick) then
MessageView.OnClick := @MessageViewClicked;
end;
{------------------------------------------------------------------------------}
{ TMessagesView.GetMessage }
{------------------------------------------------------------------------------}
Function TMessagesView.GetMessage : String;
{------------------------------------------------------------------------------
TMessagesView.GetMessage
------------------------------------------------------------------------------}
Function TMessagesView.GetMessage: String;
Begin
Result := '';
if (MessageView.Items.Count > 0) and (MessageView.SelCount > 0) then
Result := MessageView.Items.Strings[GetSelectedLineIndex];
Result := MessageView.Items.Strings[GetSelectedLineIndex];
end;
Function TMessagesView.GetSelectedLineIndex : Integer;
@ -178,6 +206,14 @@ begin
end;
end;
procedure TMessagesView.SetLastLineIsProgress(const AValue: boolean);
begin
if FLastLineIsProgress=AValue then exit;
if FLastLineIsProgress then
MessageView.Items.Delete(MessageView.Items.Count-1);
FLastLineIsProgress:=AValue;
end;
procedure TMessagesView.SetSelectedLineIndex(const AValue: Integer);
begin
MessageView.ItemIndex:=AValue;

3
ide/outputfilter.pas
View File

@ -50,6 +50,7 @@ type
private
fCurrentDirectory: string;
fFilteredOutput: TStringList;
fOnReadLine: TOnOutputString;
fOutput: TStringList;
fLastErrorType: TErrorType;
fLastMessageType: TOutputMessageType;
@ -89,6 +90,7 @@ type
read fPrgSourceFilename write fPrgSourceFilename;
property OnGetIncludePath: TOnGetIncludePath
read fOnGetIncludePath write fOnGetIncludePath;
property OnReadLine: TOnOutputString read fOnReadLine write fOnReadLine;
property OnOutputString: TOnOutputString
read fOnOutputString write fOnOutputString;
property Options: TOuputFilterOptions read fOptions write fOptions;
@ -192,6 +194,7 @@ begin
fLastMessageType:=omtNone;
fLastErrorType:=etNone;
fOutput.Add(s);
if Assigned(OnReadLine) then OnReadLine(s);
if DontFilterLine then begin
DoAddFilteredLine(s);
end else if (ofoSearchForFPCMessages in Options) and (ReadFPCompilerLine(s))