mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 13:59:15 +02:00
fpcunit: Show fully test error message when node is selected. Issue #27887, patch from Graeme Geldenhuys.
git-svn-id: trunk@48803 -
This commit is contained in:
parent
ff557fb46c
commit
12b4f237b3
@ -84,7 +84,7 @@ object GUITestRunner: TGUITestRunner
|
||||
Left = 7
|
||||
Height = 36
|
||||
Top = 7
|
||||
Width = 71
|
||||
Width = 65
|
||||
Action = RunAction
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
@ -267,10 +267,10 @@ object GUITestRunner: TGUITestRunner
|
||||
AnchorSideLeft.Control = BtnRun
|
||||
AnchorSideLeft.Side = asrBottom
|
||||
AnchorSideTop.Control = Panel1
|
||||
Left = 84
|
||||
Left = 78
|
||||
Height = 34
|
||||
Top = 7
|
||||
Width = 169
|
||||
Width = 174
|
||||
Action = ActRunHighlightedTest
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
@ -395,6 +395,7 @@ object GUITestRunner: TGUITestRunner
|
||||
ScrollBars = ssAutoBoth
|
||||
StateImages = ilNodeStates
|
||||
TabOrder = 0
|
||||
OnChange = TestTreeChange
|
||||
OnCreateNodeClass = TestTreeCreateNodeClass
|
||||
OnMouseDown = TestTreeMouseDown
|
||||
OnSelectionChanged = TestTreeSelectionChanged
|
||||
@ -851,7 +852,6 @@ object GUITestRunner: TGUITestRunner
|
||||
end>
|
||||
VisibleSpecialChars = [vscSpace, vscTabAtLast]
|
||||
ReadOnly = True
|
||||
SelectedColor.FrameEdges = sfeAround
|
||||
SelectedColor.BackPriority = 50
|
||||
SelectedColor.ForePriority = 50
|
||||
SelectedColor.FramePriority = 50
|
||||
@ -859,23 +859,17 @@ object GUITestRunner: TGUITestRunner
|
||||
SelectedColor.ItalicPriority = 50
|
||||
SelectedColor.UnderlinePriority = 50
|
||||
SelectedColor.StrikeOutPriority = 50
|
||||
IncrementColor.FrameEdges = sfeAround
|
||||
HighlightAllColor.FrameEdges = sfeAround
|
||||
BracketHighlightStyle = sbhsBoth
|
||||
BracketMatchColor.Background = clNone
|
||||
BracketMatchColor.Foreground = clNone
|
||||
BracketMatchColor.FrameEdges = sfeAround
|
||||
BracketMatchColor.Style = [fsBold]
|
||||
FoldedCodeColor.Background = clNone
|
||||
FoldedCodeColor.Foreground = clGray
|
||||
FoldedCodeColor.FrameColor = clGray
|
||||
FoldedCodeColor.FrameEdges = sfeAround
|
||||
MouseLinkColor.Background = clNone
|
||||
MouseLinkColor.Foreground = clBlue
|
||||
MouseLinkColor.FrameEdges = sfeAround
|
||||
LineHighlightColor.Background = clNone
|
||||
LineHighlightColor.Foreground = clNone
|
||||
LineHighlightColor.FrameEdges = sfeAround
|
||||
inline TSynGutterPartList
|
||||
object TSynGutterMarks
|
||||
Width = 24
|
||||
@ -886,7 +880,6 @@ object GUITestRunner: TGUITestRunner
|
||||
MouseActions = <>
|
||||
MarkupInfo.Background = clBtnFace
|
||||
MarkupInfo.Foreground = clNone
|
||||
MarkupInfo.FrameEdges = sfeAround
|
||||
DigitCount = 2
|
||||
ShowOnlyLineNumbersMultiplesOf = 1
|
||||
ZeroStart = False
|
||||
@ -903,7 +896,6 @@ object GUITestRunner: TGUITestRunner
|
||||
MouseActions = <>
|
||||
MarkupInfo.Background = clWhite
|
||||
MarkupInfo.Foreground = clGray
|
||||
MarkupInfo.FrameEdges = sfeAround
|
||||
end
|
||||
object TSynGutterCodeFolding
|
||||
MouseActions = <
|
||||
@ -934,7 +926,6 @@ object GUITestRunner: TGUITestRunner
|
||||
end>
|
||||
MarkupInfo.Background = clNone
|
||||
MarkupInfo.Foreground = clGray
|
||||
MarkupInfo.FrameEdges = sfeAround
|
||||
MouseActionsExpanded = <
|
||||
item
|
||||
ClickCount = ccAny
|
||||
@ -2010,19 +2001,6 @@ object GUITestRunner: TGUITestRunner
|
||||
object SynXMLSyn1: TSynXMLSyn
|
||||
DefaultFilter = 'XML Document (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
|
||||
Enabled = False
|
||||
ElementAttri.FrameEdges = sfeAround
|
||||
AttributeAttri.FrameEdges = sfeAround
|
||||
NamespaceAttributeAttri.FrameEdges = sfeAround
|
||||
AttributeValueAttri.FrameEdges = sfeAround
|
||||
NamespaceAttributeValueAttri.FrameEdges = sfeAround
|
||||
TextAttri.FrameEdges = sfeAround
|
||||
CDATAAttri.FrameEdges = sfeAround
|
||||
EntityRefAttri.FrameEdges = sfeAround
|
||||
ProcessingInstructionAttri.FrameEdges = sfeAround
|
||||
CommentAttri.FrameEdges = sfeAround
|
||||
DocTypeAttri.FrameEdges = sfeAround
|
||||
SpaceAttri.FrameEdges = sfeAround
|
||||
SymbolAttri.FrameEdges = sfeAround
|
||||
WantBracesParsed = False
|
||||
left = 80
|
||||
top = 176
|
||||
|
@ -101,6 +101,7 @@ type
|
||||
procedure GUITestRunnerShow(Sender: TObject);
|
||||
procedure MenuItem3Click(Sender: TObject);
|
||||
procedure SaveAsToolButtonClick(Sender: TObject);
|
||||
procedure TestTreeChange(Sender: TObject; Node: TTreeNode);
|
||||
procedure TestTreeCreateNodeClass(Sender: TCustomTreeView;
|
||||
var NodeClass: TTreeNodeClass);
|
||||
procedure TestTreeMouseDown(Sender: TOBject; Button: TMouseButton;
|
||||
@ -446,6 +447,13 @@ begin
|
||||
XMLSynEdit.Lines.SaveToFile(SaveDialog.FileName);
|
||||
end;
|
||||
|
||||
procedure TGUITestRunner.TestTreeChange(Sender: TObject; Node: TTreeNode);
|
||||
begin
|
||||
if not Assigned(Node) then
|
||||
Exit;
|
||||
Memo1.Lines.Text := TMessageTreeNode(Node).Message;
|
||||
end;
|
||||
|
||||
procedure TGUITestRunner.TestTreeCreateNodeClass(Sender: TCustomTreeView;
|
||||
var NodeClass: TTreeNodeClass);
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user