object Form1: TForm1

Left = 0

Top = 0

BorderIcons = [biSystemMenu, biMinimize]

BorderStyle = bsSingle

Caption = 'DzHTMLText Example'

ClientHeight = 320

ClientWidth = 697

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Tahoma'

Font.Style = []

OnCreate = FormCreate

TextHeight = 13

object Lb: TDzHTMLText

Left = 8

Top = 8

Width = 337

Height = 273

Font.Charset = ANSI_CHARSET

Font.Color = clWindowText

Font.Height = -13

Font.Name = 'Segoe UI'

Font.Style = []

Color = clWhite

ParentColor = False

ParentFont = False

Lines.Strings = (

'<imgres:LOGO><fc:clGreen> Welcome to my app!</fc>'

''

'<b>This is an important text</b> and <i>this is italic text</i>.' +

'<br><u>But we have underline too</u>, and <s>strike-out</s> if y' +

'ou want.<br><br>You can change the <fn:Courier New>font name</fn' +

'> and the <fs:14>font size</fs><br>The <fc:clRed>colors</fc> are' +

' <bc:clYellow>allowed</bc> too! <img:0> <i>and images</i> <img:1' +

'><br><br><c>Alignment, we have!</c><br><r>This is great</r>'

''

'Click <a:www.google.com.br>here</a> to open Google.'

'This is an image from resource: <a:INFO_ABOUT><imgres:about> Abo' +

'ut the program</a>')

Images = MyImages

OnLinkClick = LbLinkClick

OnRetrieveImgRes = LbRetrieveImgRes

LineVertAlign = vaCenter

end

object Lb2: TDzHTMLText

Left = 351

Top = 8

Width = 337

Height = 274

Font.Charset = ANSI_CHARSET

Font.Color = clWindowText

Font.Height = -13

Font.Name = 'Segoe UI'

Font.Style = []

Color = clWhite

ParentColor = False

ParentFont = False

Lines.Strings = (

'You can use divs too:<fc:#EF7769>'

'<div:align=center,width=full>'

'<nbr><div:width=50,lncolor=clGray,thick=1><c>1</c></div><div:wid' +

'th=200,lncolor=clGray,thick=1,thick_left=0>JOHN</div><div:width=' +

'75,lncolor=clGray,thick=1,thick_left=0><r>100,000</r></div>'

'<div:width=50,lncolor=clGray,thick=1,thick_top=0><c>2</c></div><' +

'div:width=200,lncolor=clGray,thick=1,thick_left=0,thick_top=0>SA' +

'RAH</div><div:width=75,lncolor=clGray,thick=1,thick_left=0,thick' +

'_top=0><r>180,000</r></div>'

'<div:width=50,lncolor=clGray,thick=1,thick_top=0><c>3</c></div><' +

'div:width=200,lncolor=clGray,thick=1,thick_left=0,thick_top=0>ER' +

'IC</div><div:width=75,lncolor=clGray,thick=1,thick_left=0,thick_' +

'top=0,color=clLime><r>1.150,000</r></div>'

'</div></fc>'

'HTML Lists:<fc:#2768EF>'

'<nbr><ul>'

'<li>Item 1</li>'

'<li>Item 2</li>'

'<nbr><ol>'

'<li>Sub item 1</li>'

'<li>Sub item 2</li>'

'<nbr><ol>'

'<li><i>Detail 2.1</i></li>'

'<li><i>Detail 2.2</i></li>'

'<nbr></ol>'

'<li>Sub item 3</li>'

'<nbr></ol>'

'<li>Item 3</li>'

'<nbr></ul></fc>'

'<nbr><div:x=200,y=100,width=120><c>This is a <b>floating div are' +

'a</b>, where you can write any text and even use tags!!!</c></di' +

'v>')

LineVertAlign = vaCenter

end

object Lb3: TDzHTMLText

Left = 8

Top = 288

Width = 681

Height = 33

Font.Charset = ANSI_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'Segoe UI'

Font.Style = [fsItalic]

ParentFont = False

Lines.Strings = (

'<c>Please note that components above have <b>White</b> backgound' +

' only because I want to show the bounds, to understand line brea' +

'ks and alignments. Of course you can use parent backgound (defau' +

'lt), like this.</c>')

end

object MyImages: TImageList

Height = 24

Width = 24

Left = 240

Top = 240

Bitmap = {

end