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

Added an OnSelectionChanged event in Main.pp fired by MSgView dialog. This fires when the ListBox gets clicked on.

Browse Source 
This allows the editor to highlight different lines when you click on different error messages.
Shane

git-svn-id: trunk@372 -
This commit is contained in:
lazarus 2001-10-26 20:36:49 +00:00
parent 74726d5f26
commit 00dc711489
3 changed files with 4667 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/lazarus.pp
View File

@ -67,6 +67,11 @@ end.
{
$Log$
Revision 1.23 2001/10/26 20:36:48 lazarus
Added an OnSelectionChanged event in Main.pp fired by MSgView dialog. This fires when the ListBox gets clicked on.
This allows the editor to highlight different lines when you click on different error messages.
Shane
Revision 1.22 2001/10/15 17:41:30 lazarus
MG: fixed splashform showing

4627
ide/main.pp
View File

File diff suppressed because it is too large Load Diff

45
ide/msgview.pp
View File

@ -35,12 +35,18 @@ type
MessageView : TListBox;
private
Function GetMessage : String;
Procedure MessageViewClicked(sender : TObject);
FOnSelectionChanged : TNotifyEvent;
LastSelectedIndex : Integer;
protected
Function GetSelectedLineIndex : Integer;
public
constructor Create(AOwner : TComponent); override;
Procedure Add(const Texts : String);
Procedure Clear;
Function GetSelectedLineIndex : Integer;
property Message : String read GetMessage;
property SelectedMessageIndex : Integer read GetSelectedLineIndex;
property OnSelectionChanged : TNotifyEvent read FOnSelectionChanged write FOnSelectionChanged;
end;
var
@ -66,8 +72,10 @@ Begin
Align:= alClient;
Visible:= true;
Name := 'MessageView';
end;
end;
LastSelectedIndex := -1;
end;
@ -77,6 +85,9 @@ end;
Procedure TMessagesView.Add(const Texts : String);
Begin
MessageView.Items.Add(Texts);
end;
{------------------------------------------------------------------------------}
@ -85,6 +96,9 @@ end;
Procedure TMessagesView.Clear;
Begin
MessageView.Clear;
if not Assigned(MessagesView.MessageView.OnCLick) then //:= @MessagesView.MessageViewClicked;
MessageView.OnClick := @MessageViewClicked;
end;
{------------------------------------------------------------------------------}
@ -95,15 +109,8 @@ var
I : Integer;
Begin
Result := '';
if (MessageView.Items.Count > 0) and (MessageView.SelCount > 0) then Begin
for i := 0 to MessageView.Items.Count-1 do
Begin
if MessageView.Selected[I] then Begin
Result := MessageView.Items.Strings[i];
Break;
end;
end;
end;
if (MessageView.Items.Count > 0) and (MessageView.SelCount > 0) then
Result := MessageView.Items.Strings[GetSelectedLineIndex];
end;
Function TMessagesView.GetSelectedLineIndex : Integer;
@ -123,6 +130,24 @@ Begin
end;
end;
Procedure TMessagesView.MessageViewClicked(sender : TObject);
var
Temp : Integer; //this temporarily holds the line # of the selection
begin
if (MessageView.Items.Count > 0) and (MessageView.SelCount > 0) then
Begin
Temp := GetSelectedLineIndex;
if Temp <> LastSelectedIndex then
Begin
LastSelectedIndex := Temp;
If Assigned(OnSelectionChanged) then
OnSelectionChanged(self);
end;
end;
end;
initialization
{ $I msgview.lrs}