RtfLabel, Version 1.3a (alt)

Hinweis: dies ist nicht die neueste Version!

Zurück zur Übersicht

Datei: Sample/drtsamp.dfm

object FormDrawRtfText: TFormDrawRtfText
  Left = 0
  Top = 0
  Caption = 'DrawRtfText Example'
  ClientHeight = 393
  ClientWidth = 473
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 153
    Height = 393
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 48
      Width = 49
      Height = 13
      Caption = 'Alignment:'
    end
    object Label2: TLabel
      Left = 8
      Top = 163
      Width = 30
      Height = 13
      Caption = '&Zoom:'
      FocusControl = ComboBox1
    end
    object Label3: TLabel
      Left = 8
      Top = 195
      Width = 38
      Height = 13
      Caption = '&Version:'
      FocusControl = ComboBox2
    end
    object Label4: TLabel
      Left = 8
      Top = 224
      Width = 63
      Height = 13
      Caption = 'Size: ? x ? px'
    end
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 65
      Height = 25
      Caption = '&Load...'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 80
      Top = 8
      Width = 65
      Height = 25
      Caption = '&Update'
      TabOrder = 1
      OnClick = Button3Click
    end
    object Panel3: TPanel
      Left = 8
      Top = 64
      Width = 65
      Height = 49
      BevelOuter = bvNone
      TabOrder = 2
      object RadioButton1: TRadioButton
        Left = 0
        Top = 0
        Width = 57
        Height = 17
        Caption = 'Left'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = CheckBox2Click
      end
      object RadioButton2: TRadioButton
        Left = 0
        Top = 16
        Width = 57
        Height = 17
        Caption = 'Center'
        TabOrder = 1
        OnClick = CheckBox2Click
      end
      object RadioButton3: TRadioButton
        Left = 0
        Top = 32
        Width = 57
        Height = 17
        Caption = 'Right'
        TabOrder = 2
        OnClick = CheckBox2Click
      end
    end
    object Panel4: TPanel
      Left = 80
      Top = 64
      Width = 65
      Height = 49
      BevelOuter = bvNone
      TabOrder = 3
      object RadioButton4: TRadioButton
        Left = 0
        Top = 0
        Width = 57
        Height = 17
        Caption = 'Top'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = CheckBox2Click
      end
      object RadioButton5: TRadioButton
        Left = 0
        Top = 16
        Width = 57
        Height = 17
        Caption = 'Middle'
        TabOrder = 1
        OnClick = CheckBox2Click
      end
      object RadioButton6: TRadioButton
        Left = 0
        Top = 32
        Width = 57
        Height = 17
        Caption = 'Bottom'
        TabOrder = 2
        OnClick = CheckBox2Click
      end
    end
    object CheckBox2: TCheckBox
      Left = 8
      Top = 128
      Width = 57
      Height = 17
      Caption = 'Wrap'
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = CheckBox2Click
    end
    object Button2: TButton
      Left = 80
      Top = 124
      Width = 65
      Height = 25
      Caption = 'Font...'
      TabOrder = 5
      OnClick = Button2Click
    end
    object ComboBox1: TComboBox
      Left = 56
      Top = 160
      Width = 57
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 6
      OnClick = CheckBox2Click
      Items.Strings = (
        '      5'
        '    10'
        '    25'
        '    50'
        '    75'
        '  100'
        '  125'
        '  150'
        '  200'
        '  250'
        '  300'
        '  500'
        '2000'
        '4000'
        '6000')
    end
    object ComboBox2: TComboBox
      Left = 56
      Top = 192
      Width = 49
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 7
      OnClick = ComboBox2Click
    end
  end
  object Panel1a: TPanel
    Left = 153
    Top = 0
    Width = 320
    Height = 393
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object LabelSep: TLabel
      Left = 0
      Top = 113
      Width = 320
      Height = 3
      Align = alTop
      AutoSize = False
    end
    object Panel2: TPanel
      Left = 0
      Top = 116
      Width = 320
      Height = 277
      Align = alClient
      BevelOuter = bvNone
      BorderStyle = bsSingle
      Color = clWindow
      TabOrder = 0
      object PaintBox1: TPaintBox
        Left = 0
        Top = 0
        Width = 316
        Height = 273
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentFont = False
        OnPaint = PaintBox1Paint
        ExplicitLeft = 8
        ExplicitTop = 168
        ExplicitWidth = 105
        ExplicitHeight = 105
      end
    end
    object Memo1: TMemo
      Left = 0
      Top = 0
      Width = 320
      Height = 113
      Align = alTop
      Lines.Strings = (
        'Memo1')
      MaxLength = 100000000
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'RTF files|*.rtf|All files|*.*'
    Options = [ofHideReadOnly, ofFileMustExist]
    Title = 'Load RTF file'
    Left = 8
    Top = 256
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Left = 40
    Top = 256
  end
end
Flocke's Garage
Valid HTML 4.01 Transitional Valid CSS!
(C) 2005-2013 Volker Siebert.
Creative Commons-LizenzvertragDer gesamte Inhalt dieser Webseite steht unter einer Creative Commons-Lizenz (sofern nicht anders angegeben).