RtfLabel, Version 1.3b (alt)
Hinweis: dies ist nicht die neueste Version!
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 |