RtfLabel, Version 1.3b (alt)

Hinweis: dies ist nicht die neueste Version!

Zurück zur Übersicht

Datei: Sample/rlsamp.dfm

object FormRtfLabelExample: TFormRtfLabelExample
  Left = 0
  Top = 0
  Caption = 'RtfLabel Example'
  ClientHeight = 361
  ClientWidth = 481
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 481
    Height = 105
    Align = alTop
    MaxLength = 100000000
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 105
    Width = 481
    Height = 44
    Align = alTop
    BevelOuter = bvNone
    ParentColor = True
    TabOrder = 1
    object Label1: TLabel
      Left = 192
      Top = 3
      Width = 30
      Height = 13
      Caption = '&Zoom:'
      FocusControl = ComboBox1
    end
    object Label2: TLabel
      Left = 256
      Top = 3
      Width = 38
      Height = 13
      Caption = '&Version:'
      FocusControl = ComboBox2
    end
    object CheckBox1: TCheckBox
      Left = 9
      Top = 6
      Width = 81
      Height = 17
      Caption = '&Transparent'
      Checked = True
      State = cbChecked
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Left = 8
      Top = 22
      Width = 81
      Height = 17
      Caption = '&Wordwrap'
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBox2Click
    end
    object CheckBox3: TCheckBox
      Left = 96
      Top = 4
      Width = 89
      Height = 17
      Caption = '&Padding (4px)'
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox3Click
    end
    object CheckBox4: TCheckBox
      Left = 96
      Top = 22
      Width = 81
      Height = 17
      Caption = '&Autosize'
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = CheckBox4Click
    end
    object ComboBox1: TComboBox
      Left = 192
      Top = 18
      Width = 57
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
      OnClick = ComboBox1Click
      Items.Strings = (
        '      5'
        '    10'
        '    25'
        '    50'
        '    75'
        '  100'
        '  125'
        '  150'
        '  200'
        '  250'
        '  300'
        '  500'
        '2000'
        '4000'
        '6000')
    end
    object Panel2: TPanel
      Left = 312
      Top = 0
      Width = 169
      Height = 44
      Align = alRight
      BevelOuter = bvNone
      ParentColor = True
      TabOrder = 5
      object Button1: TButton
        Left = 8
        Top = 8
        Width = 73
        Height = 25
        Caption = '&Load'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 88
        Top = 8
        Width = 73
        Height = 25
        Caption = '&Update'
        TabOrder = 1
        OnClick = Button2Click
      end
    end
    object ComboBox2: TComboBox
      Left = 256
      Top = 18
      Width = 57
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      OnClick = ComboBox2Click
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 149
    Width = 481
    Height = 212
    HorzScrollBar.Tracking = True
    VertScrollBar.Tracking = True
    Align = alClient
    Color = clWindow
    ParentColor = False
    TabOrder = 2
    OnResize = ScrollBox1Resize
    object PaintBox1: TPaintBox
      Left = 0
      Top = 0
      Width = 477
      Height = 208
      Align = alClient
      OnPaint = PaintBox1Paint
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'rtf'
    Filter = 'RTF files|*.rtf|All files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist]
    Title = 'Load RTF file'
    Left = 200
    Top = 8
  end
end
Flocke's Garage
Valid HTML 4.01 Transitional Valid CSS!
(C) 2005-2018 Volker Siebert.
Creative Commons-LizenzvertragDer gesamte Inhalt dieser Webseite steht unter einer Creative Commons-Lizenz (sofern nicht anders angegeben).