You've already forked lazarus-ccr
b125c09d40
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6728 8e941d3f-bd1b-0410-a28a-d453659cc2b4
209 lines
4.3 KiB
Plaintext
209 lines
4.3 KiB
Plaintext
object Form1: TForm1
|
|
Left = 542
|
|
Height = 292
|
|
Top = 225
|
|
Width = 451
|
|
Caption = 'RxTextHolder demo'
|
|
ClientHeight = 292
|
|
ClientWidth = 451
|
|
LCLVersion = '2.1.0.0'
|
|
object Button1: TButton
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Owner
|
|
Left = 6
|
|
Height = 31
|
|
Top = 6
|
|
Width = 50
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Line 1'
|
|
OnClick = Button1Click
|
|
TabOrder = 0
|
|
end
|
|
object Memo1: TMemo
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = Button1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = Owner
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = Owner
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 0
|
|
Height = 249
|
|
Top = 43
|
|
Width = 451
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
Lines.Strings = (
|
|
'Memo1'
|
|
)
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
end
|
|
object Button2: TButton
|
|
AnchorSideLeft.Control = Button1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
Left = 62
|
|
Height = 31
|
|
Top = 6
|
|
Width = 51
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Line 2'
|
|
OnClick = Button2Click
|
|
TabOrder = 2
|
|
end
|
|
object Button3: TButton
|
|
AnchorSideLeft.Control = Button2
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
Left = 119
|
|
Height = 31
|
|
Top = 6
|
|
Width = 51
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Line 3'
|
|
OnClick = Button3Click
|
|
TabOrder = 3
|
|
end
|
|
object Button4: TButton
|
|
AnchorSideLeft.Control = Button3
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
Left = 176
|
|
Height = 31
|
|
Top = 6
|
|
Width = 52
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'Line 4'
|
|
OnClick = Button4Click
|
|
TabOrder = 4
|
|
end
|
|
object Button5: TButton
|
|
AnchorSideLeft.Control = Button4
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
Left = 234
|
|
Height = 31
|
|
Top = 6
|
|
Width = 41
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'SQL'
|
|
OnClick = Button5Click
|
|
TabOrder = 5
|
|
end
|
|
object Button6: TButton
|
|
AnchorSideLeft.Control = Button5
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
Left = 281
|
|
Height = 31
|
|
Top = 6
|
|
Width = 53
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'HTML'
|
|
OnClick = Button6Click
|
|
TabOrder = 6
|
|
end
|
|
object Button7: TButton
|
|
AnchorSideLeft.Control = Button6
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = Owner
|
|
Left = 340
|
|
Height = 31
|
|
Top = 6
|
|
Width = 42
|
|
AutoSize = True
|
|
BorderSpacing.Around = 6
|
|
Caption = 'XML'
|
|
OnClick = Button7Click
|
|
TabOrder = 7
|
|
end
|
|
object RxTextHolder1: TRxTextHolder
|
|
Highlighter = rxSynNone
|
|
Items = <
|
|
item
|
|
Caption = 'Line 1'
|
|
Lines.Strings = (
|
|
'Line 1'
|
|
'Line 1'
|
|
'Line 1'
|
|
'Line 1'
|
|
'Line 1'
|
|
)
|
|
end
|
|
item
|
|
Caption = 'Line 2'
|
|
Lines.Strings = (
|
|
'Line 2'
|
|
' Line 2'
|
|
' Line 2'
|
|
'Line 2'
|
|
)
|
|
end
|
|
item
|
|
Caption = 'Line 3'
|
|
Lines.Strings = (
|
|
'Line 3'
|
|
' Line 3'
|
|
'Line 3'
|
|
' Line 3'
|
|
'Line 3'
|
|
)
|
|
end
|
|
item
|
|
Caption = 'Line 4'
|
|
Lines.Strings = (
|
|
'Line 4'
|
|
'Line 4'
|
|
'Line 4'
|
|
'Line 4'
|
|
)
|
|
end
|
|
item
|
|
Caption = 'SQL'
|
|
Lines.Strings = (
|
|
'select'
|
|
' *'
|
|
'from'
|
|
' table123'
|
|
)
|
|
end
|
|
item
|
|
Caption = 'HTML'
|
|
Lines.Strings = (
|
|
'<html>'
|
|
'<head>'
|
|
'<title>Demo page</title>'
|
|
'</head>'
|
|
'<body>'
|
|
'Hello world!'
|
|
'</body>'
|
|
'</html>'
|
|
)
|
|
end
|
|
item
|
|
Caption = 'XML'
|
|
Lines.Strings = (
|
|
'<?xml version="1.0" encoding="UTF-8"?>'
|
|
'<CONFIG>'
|
|
' <Package Version="4">'
|
|
' <PublishOptions>'
|
|
' <Version Value="2"/>'
|
|
' <IgnoreBinaries Value="False"/>'
|
|
' </PublishOptions>'
|
|
' </Package>'
|
|
'</CONFIG>'
|
|
''
|
|
''
|
|
)
|
|
end>
|
|
Left = 16
|
|
Top = 16
|
|
end
|
|
end
|