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

IDE: fixed copying multiple selected lines from the messages view

Browse Source 
git-svn-id: trunk@11194 -
This commit is contained in:
vincents 2007-05-25 08:57:17 +00:00
parent c8de8a54bc
commit 5cc700d456
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/msgview.pp
View File

@ -129,6 +129,7 @@ type
function MsgCount: integer;
procedure FilterLines(Filter: TOnFilterLine);
function GetVisibleMessagesAsText: string;
function GetSelectedMessagesAsText: string;
procedure SaveMessagesToFile(const Filename: string);
procedure SrcEditLinesInsertedDeleted(const Filename: string;
FirstLine, LineCount: Integer);
@ -603,6 +604,22 @@ begin
sl.Free;
end;
function TMessagesView.GetSelectedMessagesAsText: string;
var
sl: TStringList;
node: TTreeNode;
begin
sl:=TStringList.Create;
node := MessageTreeView.GetFirstMultiSelected;
while assigned(node) do
begin
sl.Add(node.Text);
node := node.GetNextMultiSelected;
end;
Result:=sl.Text;
sl.Free;
end;
procedure TMessagesView.SaveMessagesToFile(const Filename: string);
// save visible messages to file
begin
@ -826,8 +843,8 @@ end;
procedure TMessagesView.CopyMenuItemClick(Sender: TObject);
begin
if MessageTreeView.Selected=nil then exit;
Clipboard.AsText := MessageTreeView.Selected.Text;
if MessageTreeView.GetFirstMultiSelected=nil then exit;
Clipboard.AsText := GetSelectedMessagesAsText;
end;
procedure TMessagesView.FormDeactivate(Sender: TObject);