RtfLabel, Version 1.3c (alt)
Hinweis: dies ist nicht die neueste Version!
Datei: Sample/drtsamp.dfm.txt
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 = 0 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 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 |