mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-17 22:09:28 +02:00
codetools: fixed example
git-svn-id: branches/fixes_1_8@56072 -
This commit is contained in:
mattias
parent
34f62d03ab
commit
577d46b3d1
@ -70,7 +70,7 @@ begin
|
||||
// read parameters
|
||||
Tool.ReadNextAtom;
|
||||
if Tool.CurPos.Flag<>cafRoundBracketOpen then
|
||||
Tool.RaiseException('( expected, but '+Tool.GetAtom+' found');
|
||||
Tool.RaiseException(20171014154139,'( expected, but '+Tool.GetAtom+' found');
|
||||
Tool.ReadTilBracketClose(true);
|
||||
ToPos:=Tool.CurPos.EndPos;
|
||||
// read semicolon
|
||||
|
||||
@ -1,17 +1,17 @@
|
||||
object Form1: TForm1
|
||||
Left = 280
|
||||
Height = 444
|
||||
Height = 497
|
||||
Top = 130
|
||||
Width = 803
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 444
|
||||
ClientHeight = 497
|
||||
ClientWidth = 803
|
||||
OnCreate = FormCreate
|
||||
OnShow = FormShow
|
||||
LCLVersion = '1.7'
|
||||
LCLVersion = '1.8.0.5'
|
||||
object Chart1: TChart
|
||||
Left = 4
|
||||
Height = 436
|
||||
Height = 489
|
||||
Top = 4
|
||||
Width = 463
|
||||
AxisList = <
|
||||
@ -72,18 +72,18 @@ object Form1: TForm1
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 584
|
||||
Height = 444
|
||||
Height = 497
|
||||
Top = 0
|
||||
Width = 219
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 444
|
||||
ClientHeight = 497
|
||||
ClientWidth = 219
|
||||
TabOrder = 1
|
||||
object LblSeries: TLabel
|
||||
Left = 4
|
||||
Height = 21
|
||||
Top = 30
|
||||
Height = 18
|
||||
Top = 31
|
||||
Width = 215
|
||||
Align = alTop
|
||||
BorderSpacing.Left = 4
|
||||
@ -96,8 +96,8 @@ object Form1: TForm1
|
||||
end
|
||||
object CbShow: TCheckBox
|
||||
Left = 4
|
||||
Height = 19
|
||||
Top = 55
|
||||
Height = 18
|
||||
Top = 53
|
||||
Width = 215
|
||||
Align = alTop
|
||||
BorderSpacing.Left = 4
|
||||
@ -110,8 +110,8 @@ object Form1: TForm1
|
||||
end
|
||||
object Notebook1: TNotebook
|
||||
Left = 0
|
||||
Height = 366
|
||||
Top = 78
|
||||
Height = 422
|
||||
Top = 75
|
||||
Width = 219
|
||||
PageIndex = 0
|
||||
Align = alClient
|
||||
@ -120,16 +120,16 @@ object Form1: TForm1
|
||||
object Page1: TPage
|
||||
object GbLineSerLines: TGroupBox
|
||||
Left = 0
|
||||
Height = 126
|
||||
Top = 169
|
||||
Height = 131
|
||||
Top = 167
|
||||
Width = 211
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Lines'
|
||||
ClientHeight = 106
|
||||
ClientWidth = 207
|
||||
ClientHeight = 108
|
||||
ClientWidth = 203
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
@ -137,9 +137,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbShowLines
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 22
|
||||
Top = 14
|
||||
Left = 76
|
||||
Height = 20
|
||||
Top = 22
|
||||
Width = 118
|
||||
PenPattern = '1|1'
|
||||
PointerStyle = psNone
|
||||
@ -157,9 +157,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = CbLineSerLinePenStyle
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 22
|
||||
Top = 44
|
||||
Left = 76
|
||||
Height = 20
|
||||
Top = 50
|
||||
Width = 118
|
||||
Mode = ccmPenWidth
|
||||
PenPattern = '1|1'
|
||||
@ -177,9 +177,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbLineSerLinePenStyle
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 18
|
||||
Width = 47
|
||||
Height = 16
|
||||
Top = 24
|
||||
Width = 56
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Pen style'
|
||||
ParentColor = False
|
||||
@ -190,9 +190,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbLineSerLinePenWidth
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 48
|
||||
Width = 53
|
||||
Height = 16
|
||||
Top = 52
|
||||
Width = 61
|
||||
Caption = 'Pen width'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
@ -203,9 +203,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = CbLineSerLinePenWidth
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 22
|
||||
Top = 74
|
||||
Left = 76
|
||||
Height = 20
|
||||
Top = 78
|
||||
Width = 118
|
||||
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
|
||||
Anchors = [akTop, akRight]
|
||||
@ -221,21 +221,20 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbLineSerLinePenColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 78
|
||||
Width = 50
|
||||
Height = 16
|
||||
Top = 80
|
||||
Width = 58
|
||||
Caption = 'Pen color'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
object CbShowLines: TCheckBox
|
||||
AnchorSideTop.Control = GbLineSerLines
|
||||
Left = 149
|
||||
Height = 19
|
||||
Top = -9
|
||||
Width = 49
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 0
|
||||
Width = 54
|
||||
Alignment = taLeftJustify
|
||||
Anchors = []
|
||||
Caption = 'Show'
|
||||
Checked = True
|
||||
OnChange = LinePenChange
|
||||
@ -246,7 +245,7 @@ object Form1: TForm1
|
||||
end
|
||||
object GbLineSerPointer: TGroupBox
|
||||
Left = 0
|
||||
Height = 157
|
||||
Height = 155
|
||||
Top = 4
|
||||
Width = 211
|
||||
Align = alTop
|
||||
@ -254,8 +253,8 @@ object Form1: TForm1
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Pointer symbol'
|
||||
ClientHeight = 137
|
||||
ClientWidth = 207
|
||||
ClientHeight = 132
|
||||
ClientWidth = 203
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
@ -263,9 +262,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbShowPoints
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 22
|
||||
Top = 14
|
||||
Left = 76
|
||||
Height = 20
|
||||
Top = 22
|
||||
Width = 118
|
||||
Mode = ccmPointerStyle
|
||||
PenPattern = '1|1'
|
||||
@ -283,9 +282,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbLineSerPointerStyle
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 18
|
||||
Width = 40
|
||||
Height = 16
|
||||
Top = 24
|
||||
Width = 46
|
||||
BorderSpacing.Left = 8
|
||||
Caption = 'Symbol'
|
||||
ParentColor = False
|
||||
@ -296,9 +295,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbLineSerPointerBrushColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 48
|
||||
Width = 45
|
||||
Height = 16
|
||||
Top = 52
|
||||
Width = 54
|
||||
Caption = 'Fill color'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
@ -308,9 +307,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbLineSerPointerBorderColor
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 78
|
||||
Width = 65
|
||||
Height = 16
|
||||
Top = 80
|
||||
Width = 77
|
||||
Caption = 'Border color'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
@ -321,9 +320,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = CbLineSerPointerBrushColor
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 22
|
||||
Top = 74
|
||||
Left = 76
|
||||
Height = 20
|
||||
Top = 78
|
||||
Width = 118
|
||||
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
|
||||
Anchors = [akTop, akRight]
|
||||
@ -339,9 +338,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Control = CbLineSerPointerStyle
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 22
|
||||
Top = 44
|
||||
Left = 76
|
||||
Height = 20
|
||||
Top = 50
|
||||
Width = 118
|
||||
Style = [cbStandardColors, cbExtendedColors, cbCustomColor, cbPrettyNames]
|
||||
Anchors = [akTop, akRight]
|
||||
@ -356,9 +355,9 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = CbLineSerPointerBorderColor
|
||||
AnchorSideTop.Side = asrBottom
|
||||
AnchorSideRight.Side = asrBottom
|
||||
Left = 80
|
||||
Height = 23
|
||||
Top = 104
|
||||
Left = 76
|
||||
Height = 16
|
||||
Top = 106
|
||||
Width = 62
|
||||
Alignment = taRightJustify
|
||||
BorderSpacing.Top = 8
|
||||
@ -373,21 +372,20 @@ object Form1: TForm1
|
||||
AnchorSideTop.Control = EdLineSerPointerSize
|
||||
AnchorSideTop.Side = asrCenter
|
||||
Left = 8
|
||||
Height = 15
|
||||
Top = 108
|
||||
Width = 20
|
||||
Height = 16
|
||||
Top = 106
|
||||
Width = 25
|
||||
Caption = 'Size'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
object CbShowPoints: TCheckBox
|
||||
AnchorSideTop.Control = GbLineSerPointer
|
||||
Left = 148
|
||||
Height = 19
|
||||
Top = -9
|
||||
Width = 49
|
||||
Left = 0
|
||||
Height = 18
|
||||
Top = 0
|
||||
Width = 54
|
||||
Alignment = taLeftJustify
|
||||
Anchors = []
|
||||
Caption = 'Show'
|
||||
Checked = True
|
||||
OnChange = LinePointerChange
|
||||
@ -871,7 +869,7 @@ object Form1: TForm1
|
||||
end
|
||||
object Label21: TLabel
|
||||
Left = 4
|
||||
Height = 15
|
||||
Height = 16
|
||||
Top = 4
|
||||
Width = 211
|
||||
Align = alTop
|
||||
@ -882,7 +880,7 @@ object Form1: TForm1
|
||||
object Bevel2: TBevel
|
||||
Left = 4
|
||||
Height = 3
|
||||
Top = 23
|
||||
Top = 24
|
||||
Width = 211
|
||||
Align = alTop
|
||||
BorderSpacing.Left = 4
|
||||
@ -892,7 +890,7 @@ object Form1: TForm1
|
||||
end
|
||||
object ChartListbox1: TChartListbox
|
||||
Left = 467
|
||||
Height = 436
|
||||
Height = 489
|
||||
Top = 4
|
||||
Width = 112
|
||||
Chart = Chart1
|
||||
@ -906,7 +904,7 @@ object Form1: TForm1
|
||||
end
|
||||
object Splitter1: TSplitter
|
||||
Left = 579
|
||||
Height = 444
|
||||
Height = 497
|
||||
Top = 0
|
||||
Width = 5
|
||||
Align = alRight
|
||||
|
||||
Loading…
Reference in New Issue
Block a user