pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity
Files
901b92fa7253da596d484795c088fd52c0c54b41
lazarus-ccr/components/jvcllaz/examples/JvHTControls/unit1.lfm
wp_xxyyzz e513970d1c jvcllaz: Fix incomplete handling of Windows line ending in JvHTControls in Linux. 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6986 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2019-05-31 15:16:44 +00:00

278 lines
10 KiB
Plaintext
Raw Blame History

object MainForm: TMainForm
Left = 369
Height = 468
Top = 219
Width = 575
Caption = 'JvHTControls'
ClientHeight = 468
ClientWidth = 575
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '2.1.0.0'
object PageControl1: TPageControl
Left = 0
Height = 422
Top = 0
Width = 575
ActivePage = TabSheet1
Align = alClient
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'TJvHTLabel'
ClientHeight = 394
ClientWidth = 567
object JvHTLabel1: TJvHTLabel
Left = 8
Height = 106
Hint = 'HTLabel with:<br/>'#13#10'<b>bold</b><br>'#13#10'<i>italic</i><br>'#13#10'<u>underline</u><br>'#13#10'<s>strikeout</s><br>'#13#10'<font color="Red">c</font><font color="blue">o</font><font color="Green">l</font><font color="Fuchsia">o</font><font color="Maroon">r</font><br>'#13#10'<a href="http://www.freepascal.org/">Links</a> and <a href="custom">custom links</a>'
Top = 8
Width = 120
Caption = 'HTLabel with:<br>'#13#10'<b>bold</b><br>'#13#10'<i>italic</i><br>'#13#10'<u>underline</u><br>'#13#10'<s>strikeout</s><br>'#13#10'<font color="Red">c</font><font color="blue">o</font><font color="Green">l</font><font color="Fuchsia">o</font><font color="Maroon">r</font><br>'#13#10'<a href="http://www.freepascal.org/">Links</a> and <a href="custom">custom links</a>'
ParentColor = False
ParentShowHint = False
ShowHint = True
OnHyperLinkClick = JvHTLabel1HyperLinkClick
end
object Memo1: TMemo
Left = 0
Height = 123
Hint = '<b>HTML</b><br>'#13#10'<i>Enter HTML content</i>'
Top = 271
Width = 567
Align = alBottom
Lines.Strings = (
'HTLabel with:<br>'
'<b>bold</b><br>'
'<i>italic</i><br>'
'<u>underline</u><br>'
'<s>strikeout</s><br>'
'<font color="Red">c</font><font color="blue">o</font><font color="Green">l</font><font color="Fuchsia">o</font><font color="Maroon">r</font><br>'
'<a href="http://www.freepascal.org/">Links</a> and <a href="custom">custom links</a>'
)
OnChange = Memo1Change
ParentFont = False
ParentShowHint = False
ScrollBars = ssAutoBoth
ShowHint = True
TabOrder = 0
WordWrap = False
end
object Splitter1: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 266
Width = 567
Align = alBottom
ResizeAnchor = akBottom
end
end
object TabSheet2: TTabSheet
Caption = 'TJvHTListBox'
ClientHeight = 394
ClientWidth = 574
object JvHTListBox1: TJvHTListBox
Left = 0
Height = 394
Hint = '<b>TJvHTListBox</b><br>'#13#10'<i>ListBox with HT items</i>'
Top = 0
Width = 152
HideSel = False
OnHyperLinkClick = JvHTListBox1HyperLinkClick
Align = alLeft
ColorHighlight = clHighlight
ColorHighlightText = clHighlightText
ColorDisabledText = clGrayText
Items.Strings = (
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
)
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object Splitter2: TSplitter
Left = 152
Height = 394
Top = 0
Width = 5
end
object Memo2: TMemo
AnchorSideLeft.Control = Splitter2
AnchorSideLeft.Side = asrBottom
Left = 157
Height = 90
Hint = '<b>New item content</b><br><i>Enter new item contnent</i>'
Top = 8
Width = 409
Anchors = [akTop, akLeft, akRight]
Lines.Strings = (
'new item...'
)
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object Button1: TButton
AnchorSideLeft.Control = Splitter2
AnchorSideLeft.Side = asrBottom
Left = 157
Height = 25
Hint = '<b>Add item</b><br>'#13#10'<i>Add item to ListBox and ComboBox</i>'
Top = 112
Width = 75
AutoSize = True
Caption = 'Add item'
OnClick = Button1Click
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object JvHTComboBox1: TJvHTComboBox
AnchorSideLeft.Control = Splitter2
AnchorSideLeft.Side = asrBottom
Left = 157
Height = 24
Hint = '<b>TJvHTComboBox</b><br>'#13#10'<i>ComboBox with HT items</i>'
Top = 160
Width = 152
HideSel = False
ColorHighlight = clHighlight
ColorHighlightText = clHighlightText
ColorDisabledText = clGrayText
Items.Strings = (
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
'<b>Lazarus</b><br><a href="http://www.lazarus-ide.org/">Home page</a> or <a hred="http://forum.lazarus.freepascal.org/">Forum</a>'
'<b>Free Pascal</b><br><a href="http://www.freepascal.org/">Home page</a>'
'<b>Other...</b><br><i>Other stuff</i> <font color="clred">d-oh!</font>...'
)
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object Button2: TButton
AnchorSideLeft.Control = Button1
AnchorSideLeft.Side = asrBottom
Left = 256
Height = 25
Top = 112
Width = 53
AutoSize = True
BorderSpacing.Left = 24
Caption = 'Clear'
OnClick = Button2Click
TabOrder = 5
end
end
object TabSheet3: TTabSheet
Caption = 'TJvDBHTLabel'
ClientHeight = 394
ClientWidth = 574
object JvDBHTLabel1: TJvDBHTLabel
Left = 8
Height = 16
Top = 8
Width = 297
DataSource = DataSource1
Mask = 'Numeric field: <b><field="Num"></b><br>Field 1: <b><font color="clRed"><field="fld1"></font></b><br><i>Field 2:</i> <b><font color="clGreen"><field="fld2"></font></b><br>And some link: <a href="url"><field="Fld1"></a><br><a href="qwe">#<field="num"></a> - <b><field="fld1"> <field="fld2"></b>'
ParentColor = False
OnHyperLinkClick = JvDBHTLabel1HyperLinkClick
end
object DBGrid1: TDBGrid
Left = 0
Height = 130
Top = 264
Width = 574
Align = alBottom
Color = clWindow
Columns = <>
DataSource = DataSource1
TabOrder = 0
end
object Splitter3: TSplitter
Cursor = crVSplit
Left = 0
Height = 5
Top = 259
Width = 574
Align = alBottom
ResizeAnchor = akBottom
end
object Memo3: TMemo
Left = 0
Height = 99
Top = 160
Width = 574
Align = alBottom
Lines.Strings = (
'Numeric field: <b><field="Num"></b><br>Field 1: <b><font color="clRed"><field="fld1"></font></b><br><i>Field 2:</i> <b><font color="clGreen"><field="fld2"></font></b><br>And some link: <a href="url"><field="Fld1"></a><br><a href="qwe">#<field="num"></a> - <b><field="fld1"> <field="fld2"></b>'
)
OnChange = Memo3Change
TabOrder = 2
end
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 34
Top = 428
Width = 563
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.Hint = '<b>Exit</b><br>'#13#10'<i>Exit application</i>'
CloseButton.DefaultCaption = True
CloseButton.ShowHint = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 1
ShowButtons = [pbClose]
end
object MemDataset1: TMemDataset
Active = True
FieldDefs = <
item
Name = 'Num'
DataType = ftInteger
end
item
Name = 'Fld1'
DataType = ftString
Size = 20
end
item
Name = 'Fld2'
DataType = ftString
Size = 20
end>
left = 384
top = 112
end
object DataSource1: TDataSource
DataSet = MemDataset1
left = 464
top = 112
end
end
Reference in New Issue View Git Blame Copy Permalink