object Form1: TForm1 Left = 196 Height = 457 Top = 181 Width = 634 ActiveControl = RichMemo1 Align = alNone AllowDropFiles = False AutoScroll = True AutoSize = False BorderIcons = [biSystemMenu, biMinimize, biMaximize] BorderStyle = bsSizeable BorderWidth = 0 Caption = 'Form1' ClientHeight = 457 ClientWidth = 634 DefaultMonitor = dmActiveForm DockSite = False DragKind = dkDrag DragMode = dmManual Enabled = True FormStyle = fsNormal OnCreate = FormCreate ParentBiDiMode = True ParentFont = False Position = poDesigned ShowInTaskBar = stDefault UseDockManager = False LCLVersion = '0.9.27' WindowState = wsNormal object RichMemo1: TRichMemo Left = 15 Height = 358 Top = 16 Width = 619 Align = alNone Alignment = taLeftJustify Anchors = [akTop, akLeft, akRight, akBottom] BorderStyle = bsSingle Color = clWindow DragCursor = crDrag DragKind = dkDrag DragMode = dmManual Enabled = True Font.Height = -13 Font.Name = 'Tahoma' HideSelection = False Lines.Strings = ( 'RichMemo1' ) MaxLength = 0 ParentBidiMode = True ParentColor = False ParentFont = False ParentShowHint = True ReadOnly = False ScrollBars = ssVertical TabOrder = 0 TabStop = True Visible = True WantReturns = True WantTabs = False end object Button1: TButton Left = 24 Height = 25 Top = 382 Width = 160 Align = alNone Anchors = [akLeft, akBottom] AutoSize = False Cancel = False Caption = 'Make Bold and Red' Color = clBtnFace Default = False DragCursor = crDrag DragKind = dkDrag DragMode = dmManual Enabled = True ParentBidiMode = True ModalResult = 0 OnClick = Button1Click ParentFont = True ParentShowHint = True TabOrder = 1 TabStop = False Visible = True end object Button2: TButton Left = 192 Height = 25 Top = 382 Width = 97 Align = alNone Anchors = [akLeft, akBottom] AutoSize = False Cancel = False Caption = 'Get Attribs' Color = clBtnFace Default = False DragCursor = crDrag DragKind = dkDrag DragMode = dmManual Enabled = True ParentBidiMode = True ModalResult = 0 OnClick = Button2Click ParentFont = True ParentShowHint = True TabOrder = 2 TabStop = False Visible = True end object Button3: TButton Left = 304 Height = 25 Top = 382 Width = 96 Align = alNone Anchors = [akLeft, akBottom] AutoSize = False Cancel = False Caption = 'Select Font' Color = clBtnFace Default = False DragCursor = crDrag DragKind = dkDrag DragMode = dmManual Enabled = True ParentBidiMode = True ModalResult = 0 OnClick = Button3Click ParentFont = True ParentShowHint = True TabOrder = 3 TabStop = False Visible = True end object Button4: TButton Left = 528 Height = 25 Top = 382 Width = 75 Align = alNone Anchors = [akLeft, akBottom] AutoSize = False Cancel = False Caption = 'Save RTF' Color = clBtnFace Default = False DragCursor = crDrag DragKind = dkDrag DragMode = dmManual Enabled = True ParentBidiMode = True ModalResult = 0 OnClick = Button4Click ParentFont = True ParentShowHint = True TabOrder = 4 TabStop = False Visible = True end object Button5: TButton Left = 440 Height = 25 Top = 382 Width = 75 Align = alNone Anchors = [akLeft, akBottom] AutoSize = False Cancel = False Caption = 'Load RTF' Color = clBtnFace Default = False DragCursor = crDrag DragKind = dkDrag DragMode = dmManual Enabled = True ParentBidiMode = True ModalResult = 0 OnClick = Button5Click ParentFont = True ParentShowHint = True TabOrder = 5 TabStop = False Visible = True end object Button6: TButton Left = 24 Height = 25 Top = 415 Width = 160 Align = alNone Anchors = [akLeft, akBottom] AutoSize = False Cancel = False Caption = 'Next Style Range' Color = clBtnFace Default = False DragCursor = crDrag DragKind = dkDrag DragMode = dmManual Enabled = True ParentBidiMode = True ModalResult = 0 OnClick = Button6Click ParentFont = True ParentShowHint = True TabOrder = 6 TabStop = False Visible = True end object Edit1: TEdit Left = 216 Height = 16 Top = 415 Width = 320 Align = alNone Alignment = taLeftJustify AutoSize = True AutoSelect = False BorderStyle = bsSingle Color = clWindow CharCase = ecNormal DragCursor = crDrag DragKind = dkDrag DragMode = dmManual EchoMode = emNormal Enabled = True MaxLength = 0 ParentBidiMode = True ParentColor = False ParentFont = True ParentShowHint = True PasswordChar = #0 ReadOnly = False TabStop = True TabOrder = 7 Text = 'Edit1' Visible = True end object FontDialog1: TFontDialog MinFontSize = 0 MaxFontSize = 0 left = 352 top = 429 end object SaveDialog1: TSaveDialog DefaultExt = '.rtf' Filter = 'RichText file (*.rtf)|*.rtf' Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail] left = 280 top = 429 end object OpenDialog1: TOpenDialog DefaultExt = '.rtf' Filter = 'RichText file (*.rtf)|*.rtf' left = 208 top = 429 end end