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

fpcunit: New Expand/Collapse tree nodes popup menu items. Issue #27887, patch from Graeme Geldenhuys.

Browse Source 
git-svn-id: trunk@48804 -
This commit is contained in:
juha 2015-04-21 17:30:01 +00:00
parent 12b4f237b3
commit f0c6c67de5
2 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpcunit/guitestrunner.lfm
View File

@ -1901,6 +1901,17 @@ object GUITestRunner: TGUITestRunner
Images = ResultsXMLImageList
left = 368
top = 240
object miCollapseNodes: TMenuItem
Caption = 'Collapse Nodes'
OnClick = miCollapseNodesClick
end
object miExpandNodes: TMenuItem
Caption = 'Expand Nodes'
OnClick = miExpandNodesClick
end
object MenuItem9: TMenuItem
Caption = '-'
end
object miRunTest: TMenuItem
Action = RunAction
Caption = '&Run all selected (checked) tests'

19
components/fpcunit/guitestrunner.pas
View File

@ -53,11 +53,14 @@ type
btnRunHighlighted: TBitBtn;
ilNodeStates: TImageList;
Memo1: TMemo;
miExpandNodes: TMenuItem;
miCollapseNodes: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
miRunTest: TMenuItem;
miShowfailureMsg: TMenuItem;
pbBar: TPaintBox;
@ -96,6 +99,8 @@ type
procedure ActRunHighLightedTestUpdate(Sender: TObject);
procedure ActUncheckCurrentSuiteExecute(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure miCollapseNodesClick(Sender: TObject);
procedure miExpandNodesClick(Sender: TObject);
procedure RunExecute(Sender: TObject);
procedure GUITestRunnerCreate(Sender: TObject);
procedure GUITestRunnerShow(Sender: TObject);
@ -424,6 +429,20 @@ begin
FConfStore.Free;
end;
procedure TGUITestRunner.miCollapseNodesClick(Sender: TObject);
begin
if not Assigned(TestTree.Selected) then
Exit;
TestTree.Selected.Collapse(True);
end;
procedure TGUITestRunner.miExpandNodesClick(Sender: TObject);
begin
if not Assigned(TestTree.Selected) then
Exit;
TestTree.Selected.Expand(True);
end;
procedure TGUITestRunner.GUITestRunnerShow(Sender: TObject);
begin
// restore last used position and size