paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 00:50:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

Components, FPCUnit: select first item in test tree in order to immediately activate 'Run All tests' button, patch by Reinier Olislagers, bug #22905

Browse Source 
git-svn-id: trunk@38740 -
This commit is contained in:
maxim 2012-09-18 17:51:33 +00:00
parent 1f7e4e5c2e
commit 0cf8665e4c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpcunit/guitestrunner.pas
View File

@ -250,6 +250,10 @@ begin
MenuItem1.Caption:= smiCopy; MenuItem1.Caption:= smiCopy;
MenuItem2.Caption:= smiCut; MenuItem2.Caption:= smiCut;
MenuItem3.Caption:= smiCopyClipbrd; MenuItem3.Caption:= smiCopyClipbrd;
// Select the first entry in the tree in order to immediately activate the
// Run All tests button:
if TestTree.Items.Count>0 then
TestTree.Items.SelectOnlyThis(TestTree.Items[0]);
end; end;
procedure TGUITestRunner.RunExecute(Sender: TObject); procedure TGUITestRunner.RunExecute(Sender: TObject);