groffstudio

unit1.lfm at tip
Login

unit1.lfm at tip

File src/unit1.lfm from the latest check-in


object MainForm: TMainForm
  Left = 1073
  Height = 692
  Top = 99
  Width = 847
  Caption = 'groffstudio'
  ClientHeight = 692
  ClientWidth = 847
  DefaultMonitor = dmPrimary
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  object MainStatusBar: TStatusBar
    Left = 0
    Height = 18
    Top = 674
    Width = 847
    Panels = <    
      item
        Text = 'file name with save status'
        Width = 200
      end    
      item
        Text = 'build successful?'
        Width = 120
      end    
      item
        Text = 'update available'
        Width = 120
      end>
    SimplePanel = False
  end
  object ExtendedNotebook1: TExtendedNotebook
    Left = 8
    Height = 662
    Top = 8
    Width = 827
    ActivePage = tsEdit
    Anchors = [akTop, akLeft, akRight, akBottom]
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 1
    object tsEdit: TTabSheet
      Caption = 'edit a groff document'
      ClientHeight = 626
      ClientWidth = 821
      ParentFont = False
      object GroupBox1: TGroupBox
        Left = 10
        Height = 66
        Top = 555
        Width = 801
        Align = alBottom
        BorderSpacing.Left = 10
        BorderSpacing.Right = 10
        BorderSpacing.Bottom = 5
        Caption = 'build'
        ClientHeight = 39
        ClientWidth = 791
        TabOrder = 0
        object Label1: TLabel
          Left = 184
          Height = 16
          Top = -4
          Width = 83
          Caption = 'macro to use:'
          ParentColor = False
        end
        object cmbMacro: TComboBox
          Left = 184
          Height = 20
          Top = 16
          Width = 100
          ItemHeight = 19
          Items.Strings = (
            'man'
            'me'
            'mm'
            'mom'
            'ms'
          )
          TabOrder = 0
          Text = '[ select ]'
        end
        object Label2: TLabel
          Left = 659
          Height = 16
          Top = -4
          Width = 87
          Anchors = [akTop, akRight]
          Caption = 'output format:'
          ParentColor = False
        end
        object rdPs: TRadioButton
          Left = 655
          Height = 18
          Top = 16
          Width = 85
          Anchors = [akTop, akRight]
          Caption = 'PostScript'
          TabOrder = 1
        end
        object rdPdf: TRadioButton
          Left = 738
          Height = 18
          Top = 16
          Width = 50
          Anchors = [akTop, akRight]
          Caption = 'PDF'
          TabOrder = 2
        end
        object Label3: TLabel
          Left = 400
          Height = 16
          Top = -4
          Width = 91
          Anchors = [akTop, akRight]
          Caption = 'preprocessors:'
          ParentColor = False
        end
        object Label4: TLabel
          Left = 533
          Height = 16
          Top = -4
          Width = 41
          Anchors = [akTop, akRight]
          Caption = 'extras:'
          ParentColor = False
        end
        object btnBuild: TButton
          Left = 0
          Height = 29
          Top = 10
          Width = 75
          Caption = 'build'
          Color = clLime
          Enabled = False
          Font.Style = [fsBold, fsItalic]
          ParentFont = False
          TabOrder = 3
          OnClick = btnBuildClick
        end
        object chkLogFile: TCheckBox
          Left = 80
          Height = 18
          Hint = 'If enabled, a log file containing the groff output will be placed alongside the source document.'
          Top = 16
          Width = 79
          Caption = 'log to file'
          Enabled = False
          TabOrder = 4
        end
        object chkBoxPreprocessors: TCheckComboBox
          Left = 415
          Height = 20
          Top = 15
          Width = 100
          Anchors = [akTop, akRight]
          ItemHeight = 16
          Items.Strings = (
            'chem'
            'eqn'
            'grn'
            'pic'
            'refer'
            'tbl'
          )
          TabOrder = 5
        end
        object chkBoxExtras: TCheckComboBox
          Left = 540
          Height = 20
          Top = 15
          Width = 100
          Anchors = [akTop, akRight]
          ItemHeight = 16
          Items.Strings = (
            'hdtbl'
            'Pdfmark'
          )
          TabOrder = 6
        end
      end
      object btnSaveGroff: TButton
        Left = 736
        Height = 28
        Top = 523
        Width = 75
        Anchors = [akRight, akBottom]
        Caption = 'save'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = btnSaveGroffClick
      end
      object btnLoadGroff: TButton
        Left = 655
        Height = 28
        Top = 523
        Width = 75
        Anchors = [akRight, akBottom]
        Caption = 'load'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = btnLoadGroffClick
      end
      object Label5: TLabel
        Left = 128
        Height = 16
        Top = 535
        Width = 509
        Anchors = [akRight, akBottom]
        Caption = 'note that everything build-related will be stored in the document''s storage directory'
        Font.Color = clBlue
        Font.Style = [fsItalic]
        ParentColor = False
        ParentFont = False
      end
      inline SynEdit1: TSynEdit
        Left = 10
        Height = 518
        Top = 0
        Width = 801
        Anchors = [akTop, akLeft, akRight, akBottom]
        Font.CharSet = 4
        Font.Height = -13
        Font.Name = 'Andale Mono'
        Font.Pitch = fpFixed
        Font.Quality = fqCleartypeNatural
        ParentColor = False
        ParentFont = False
        TabOrder = 3
        Gutter.Width = 57
        Gutter.MouseActions = <>
        RightGutter.Width = 0
        RightGutter.MouseActions = <>
        Keystrokes = <        
          item
            Command = ecUp
            ShortCut = 38
          end        
          item
            Command = ecSelUp
            ShortCut = 8230
          end        
          item
            Command = ecScrollUp
            ShortCut = 16422
          end        
          item
            Command = ecDown
            ShortCut = 40
          end        
          item
            Command = ecSelDown
            ShortCut = 8232
          end        
          item
            Command = ecScrollDown
            ShortCut = 16424
          end        
          item
            Command = ecLeft
            ShortCut = 37
          end        
          item
            Command = ecSelLeft
            ShortCut = 8229
          end        
          item
            Command = ecWordLeft
            ShortCut = 16421
          end        
          item
            Command = ecSelWordLeft
            ShortCut = 24613
          end        
          item
            Command = ecRight
            ShortCut = 39
          end        
          item
            Command = ecSelRight
            ShortCut = 8231
          end        
          item
            Command = ecWordRight
            ShortCut = 16423
          end        
          item
            Command = ecSelWordRight
            ShortCut = 24615
          end        
          item
            Command = ecPageDown
            ShortCut = 34
          end        
          item
            Command = ecSelPageDown
            ShortCut = 8226
          end        
          item
            Command = ecPageBottom
            ShortCut = 16418
          end        
          item
            Command = ecSelPageBottom
            ShortCut = 24610
          end        
          item
            Command = ecPageUp
            ShortCut = 33
          end        
          item
            Command = ecSelPageUp
            ShortCut = 8225
          end        
          item
            Command = ecPageTop
            ShortCut = 16417
          end        
          item
            Command = ecSelPageTop
            ShortCut = 24609
          end        
          item
            Command = ecLineStart
            ShortCut = 36
          end        
          item
            Command = ecSelLineStart
            ShortCut = 8228
          end        
          item
            Command = ecEditorTop
            ShortCut = 16420
          end        
          item
            Command = ecSelEditorTop
            ShortCut = 24612
          end        
          item
            Command = ecLineEnd
            ShortCut = 35
          end        
          item
            Command = ecSelLineEnd
            ShortCut = 8227
          end        
          item
            Command = ecEditorBottom
            ShortCut = 16419
          end        
          item
            Command = ecSelEditorBottom
            ShortCut = 24611
          end        
          item
            Command = ecToggleMode
            ShortCut = 45
          end        
          item
            Command = ecCopy
            ShortCut = 16429
          end        
          item
            Command = ecPaste
            ShortCut = 8237
          end        
          item
            Command = ecDeleteChar
            ShortCut = 46
          end        
          item
            Command = ecCut
            ShortCut = 8238
          end        
          item
            Command = ecDeleteLastChar
            ShortCut = 8
          end        
          item
            Command = ecDeleteLastChar
            ShortCut = 8200
          end        
          item
            Command = ecDeleteLastWord
            ShortCut = 16392
          end        
          item
            Command = ecUndo
            ShortCut = 32776
          end        
          item
            Command = ecRedo
            ShortCut = 40968
          end        
          item
            Command = ecLineBreak
            ShortCut = 13
          end        
          item
            Command = ecSelectAll
            ShortCut = 16449
          end        
          item
            Command = ecCopy
            ShortCut = 16451
          end        
          item
            Command = ecBlockIndent
            ShortCut = 24649
          end        
          item
            Command = ecLineBreak
            ShortCut = 16461
          end        
          item
            Command = ecInsertLine
            ShortCut = 16462
          end        
          item
            Command = ecDeleteWord
            ShortCut = 16468
          end        
          item
            Command = ecBlockUnindent
            ShortCut = 24661
          end        
          item
            Command = ecPaste
            ShortCut = 16470
          end        
          item
            Command = ecCut
            ShortCut = 16472
          end        
          item
            Command = ecDeleteLine
            ShortCut = 16473
          end        
          item
            Command = ecDeleteEOL
            ShortCut = 24665
          end        
          item
            Command = ecUndo
            ShortCut = 16474
          end        
          item
            Command = ecRedo
            ShortCut = 24666
          end        
          item
            Command = ecGotoMarker0
            ShortCut = 16432
          end        
          item
            Command = ecGotoMarker1
            ShortCut = 16433
          end        
          item
            Command = ecGotoMarker2
            ShortCut = 16434
          end        
          item
            Command = ecGotoMarker3
            ShortCut = 16435
          end        
          item
            Command = ecGotoMarker4
            ShortCut = 16436
          end        
          item
            Command = ecGotoMarker5
            ShortCut = 16437
          end        
          item
            Command = ecGotoMarker6
            ShortCut = 16438
          end        
          item
            Command = ecGotoMarker7
            ShortCut = 16439
          end        
          item
            Command = ecGotoMarker8
            ShortCut = 16440
          end        
          item
            Command = ecGotoMarker9
            ShortCut = 16441
          end        
          item
            Command = ecSetMarker0
            ShortCut = 24624
          end        
          item
            Command = ecSetMarker1
            ShortCut = 24625
          end        
          item
            Command = ecSetMarker2
            ShortCut = 24626
          end        
          item
            Command = ecSetMarker3
            ShortCut = 24627
          end        
          item
            Command = ecSetMarker4
            ShortCut = 24628
          end        
          item
            Command = ecSetMarker5
            ShortCut = 24629
          end        
          item
            Command = ecSetMarker6
            ShortCut = 24630
          end        
          item
            Command = ecSetMarker7
            ShortCut = 24631
          end        
          item
            Command = ecSetMarker8
            ShortCut = 24632
          end        
          item
            Command = ecSetMarker9
            ShortCut = 24633
          end        
          item
            Command = EcFoldLevel1
            ShortCut = 41009
          end        
          item
            Command = EcFoldLevel2
            ShortCut = 41010
          end        
          item
            Command = EcFoldLevel3
            ShortCut = 41011
          end        
          item
            Command = EcFoldLevel4
            ShortCut = 41012
          end        
          item
            Command = EcFoldLevel5
            ShortCut = 41013
          end        
          item
            Command = EcFoldLevel6
            ShortCut = 41014
          end        
          item
            Command = EcFoldLevel7
            ShortCut = 41015
          end        
          item
            Command = EcFoldLevel8
            ShortCut = 41016
          end        
          item
            Command = EcFoldLevel9
            ShortCut = 41017
          end        
          item
            Command = EcFoldLevel0
            ShortCut = 41008
          end        
          item
            Command = EcFoldCurrent
            ShortCut = 41005
          end        
          item
            Command = EcUnFoldCurrent
            ShortCut = 41003
          end        
          item
            Command = EcToggleMarkupWord
            ShortCut = 32845
          end        
          item
            Command = ecNormalSelect
            ShortCut = 24654
          end        
          item
            Command = ecColumnSelect
            ShortCut = 24643
          end        
          item
            Command = ecLineSelect
            ShortCut = 24652
          end        
          item
            Command = ecTab
            ShortCut = 9
          end        
          item
            Command = ecShiftTab
            ShortCut = 8201
          end        
          item
            Command = ecMatchBracket
            ShortCut = 24642
          end        
          item
            Command = ecColSelUp
            ShortCut = 40998
          end        
          item
            Command = ecColSelDown
            ShortCut = 41000
          end        
          item
            Command = ecColSelLeft
            ShortCut = 40997
          end        
          item
            Command = ecColSelRight
            ShortCut = 40999
          end        
          item
            Command = ecColSelPageDown
            ShortCut = 40994
          end        
          item
            Command = ecColSelPageBottom
            ShortCut = 57378
          end        
          item
            Command = ecColSelPageUp
            ShortCut = 40993
          end        
          item
            Command = ecColSelPageTop
            ShortCut = 57377
          end        
          item
            Command = ecColSelLineStart
            ShortCut = 40996
          end        
          item
            Command = ecColSelLineEnd
            ShortCut = 40995
          end        
          item
            Command = ecColSelEditorTop
            ShortCut = 57380
          end        
          item
            Command = ecColSelEditorBottom
            ShortCut = 57379
          end        
          item
            Command = ecPaste
            ShortCut = 4182
          end        
          item
            Command = ecCopy
            ShortCut = 4163
          end        
          item
            Command = ecCut
            ShortCut = 4184
          end>
        MouseActions = <>
        MouseTextActions = <>
        MouseSelActions = <>
        Options = [eoAutoIndent, eoEnhanceHomeKey, eoGroupUndo, eoHideRightMargin, eoKeepCaretX, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoDragDropEditing, eoDoubleClickSelectsLine]
        Options2 = [eoEnhanceEndKey, eoPersistentBlock, eoOverwriteBlock, eoAcceptDragDropEditing]
        MouseOptions = [emDragDropEditing, emDoubleClickSelectsLine]
        VisibleSpecialChars = [vscSpace, vscTabAtLast]
        SelectedColor.BackPriority = 50
        SelectedColor.ForePriority = 50
        SelectedColor.FramePriority = 50
        SelectedColor.BoldPriority = 50
        SelectedColor.ItalicPriority = 50
        SelectedColor.UnderlinePriority = 50
        SelectedColor.StrikeOutPriority = 50
        BracketHighlightStyle = sbhsBoth
        BracketMatchColor.Background = clNone
        BracketMatchColor.Foreground = clNone
        BracketMatchColor.Style = [fsBold]
        FoldedCodeColor.Background = clNone
        FoldedCodeColor.Foreground = clGray
        FoldedCodeColor.FrameColor = clGray
        MouseLinkColor.Background = clNone
        MouseLinkColor.Foreground = clBlue
        LineHighlightColor.Background = clNone
        LineHighlightColor.Foreground = clNone
        WantTabs = False
        OnChange = SynEdit1Change
        inline SynLeftGutterPartList1: TSynGutterPartList
          object SynGutterMarks1: TSynGutterMarks
            Width = 24
            MouseActions = <>
            MaxExtraMarksColums = 0
            Options = [sgmoDeDuplicateMarksOnOverflow]
          end
          object SynGutterLineNumber1: TSynGutterLineNumber
            Width = 17
            MouseActions = <>
            MarkupInfo.Background = clBtnFace
            MarkupInfo.Foreground = clNone
            DigitCount = 2
            ShowOnlyLineNumbersMultiplesOf = 1
            ZeroStart = False
            LeadingZeros = False
          end
          object SynGutterChanges1: TSynGutterChanges
            Width = 4
            MouseActions = <>
            ModifiedColor = 59900
            SavedColor = clGreen
          end
          object SynGutterSeparator1: TSynGutterSeparator
            Width = 2
            MouseActions = <>
            MarkupInfo.Background = clWhite
            MarkupInfo.Foreground = clGray
          end
          object SynGutterCodeFolding1: TSynGutterCodeFolding
            MouseActions = <>
            MarkupInfo.Background = clNone
            MarkupInfo.Foreground = clGray
            MouseActionsExpanded = <>
            MouseActionsCollapsed = <>
          end
        end
      end
    end
    object tsSettings: TTabSheet
      Caption = 'groffstudio settings'
      ClientHeight = 626
      ClientWidth = 821
      object chkAutoSaveBuildSettings: TCheckBox
        Left = 0
        Height = 18
        Top = 16
        Width = 341
        Caption = 'save and restore the chosen build settings for next time'
        TabOrder = 0
      end
      object btnSaveSettings: TButton
        Left = 732
        Height = 25
        Top = 595
        Width = 91
        Anchors = [akRight, akBottom]
        Caption = 'save settings'
        TabOrder = 1
        OnClick = btnSaveSettingsClick
      end
      object Label14: TLabel
        Left = 0
        Height = 16
        Top = 248
        Width = 150
        Caption = 'yes, that''s all for now. :-)'
        ParentColor = False
      end
      object chkUpdateCheckOnStart: TCheckBox
        Left = 0
        Height = 18
        Top = 40
        Width = 190
        Caption = 'check for updates on startup'
        TabOrder = 2
      end
      object GroupBox3: TGroupBox
        Left = 0
        Height = 160
        Top = 72
        Width = 320
        Caption = 'pdf output settings'
        ClientHeight = 133
        ClientWidth = 310
        TabOrder = 3
        object chkUseGhostscript: TCheckBox
          Left = 8
          Height = 18
          Top = 8
          Width = 216
          Caption = 'use ghostscript instead of pdfroff'
          TabOrder = 0
          OnChange = chkUseGhostscriptChange
        end
        object chkKeepPostscriptFile: TCheckBox
          Left = 8
          Height = 18
          Top = 32
          Width = 293
          Caption = 'keep the postscript file after writing the pdf file'
          Enabled = False
          TabOrder = 1
        end
        object Label16: TLabel
          Left = 32
          Height = 64
          Top = 56
          Width = 245
          Caption = 'note that disabling this option will delete'#10'your .ps file even if you did not create it'#10'as a part of this pdf export, so choose'#10'wisely.'
          WordWrap = True
        end
      end
    end
    object tsGroff: TTabSheet
      Caption = 'groff version'
      ClientHeight = 626
      ClientWidth = 821
      object GroupBox2: TGroupBox
        Left = 20
        Height = 57
        Top = 561
        Width = 781
        Align = alBottom
        BorderSpacing.Left = 20
        BorderSpacing.Right = 20
        BorderSpacing.Bottom = 8
        Caption = 'groff for Windows'
        ClientHeight = 30
        ClientWidth = 771
        TabOrder = 0
        object Label6: TLabel
          Left = 8
          Height = 16
          Top = 8
          Width = 125
          Caption = 'latest version online:'
          ParentColor = False
        end
        object edtOnlineGroffVersionWindows: TEdit
          Left = 136
          Height = 17
          Top = 8
          Width = 538
          Anchors = [akTop, akLeft, akRight]
          BorderStyle = bsNone
          Enabled = False
          TabOrder = 0
          Text = 'fetching ...'
        end
        object btnDownloadGroffWindows: TButton
          Left = 682
          Height = 25
          Top = 5
          Width = 80
          Anchors = [akTop, akRight]
          Caption = 'download it'
          TabOrder = 1
          OnClick = btnDownloadGroffWindowsClick
        end
      end
      object Label7: TLabel
        Left = 8
        Height = 32
        Top = 8
        Width = 809
        Anchors = [akTop, akLeft, akRight]
        Caption = 'as you might guess, groffstudio requires a working installation of groff. this page performs the basic checks for you. note that on windows, everything is harder than it should. :-)'
        Constraints.MaxHeight = 582
        ParentColor = False
        WordWrap = True
      end
      object Label9: TLabel
        Left = 8
        Height = 16
        Top = 56
        Width = 81
        Caption = 'groff version:'
        ParentColor = False
      end
      object edtGroffInstalledVersion: TEdit
        Left = 144
        Height = 17
        Top = 56
        Width = 673
        Anchors = [akTop, akLeft, akRight]
        BorderStyle = bsNone
        Enabled = False
        TabOrder = 1
      end
      object lblTroffCommandNotFound: TLabel
        Left = 8
        Height = 48
        Top = 130
        Width = 808
        Anchors = [akTop, akLeft, akRight]
        Caption = 'groff was not found. in order to use groffstudio, you absolutely need groff in your PATH variable. on unix and unix-like systems, you''ll need to edit the $PATH variable. on windows, i warmly recommend the Rapid Environment Editor for that.'#13#10'please exit groffstudio at your nearest convenience and adjust your PATH variables. then try again.'
        Font.Color = clRed
        ParentColor = False
        ParentFont = False
        Visible = False
        WordWrap = True
      end
      object edtGroffstudioInstalledVersion: TEdit
        Left = 144
        Height = 17
        Top = 77
        Width = 673
        Anchors = [akTop, akLeft, akRight]
        BorderStyle = bsNone
        Enabled = False
        TabOrder = 2
      end
      object Label10: TLabel
        Left = 8
        Height = 16
        Top = 77
        Width = 118
        Caption = 'groffstudio version:'
        ParentColor = False
      end
      object Label15: TLabel
        Left = 8
        Height = 16
        Top = 98
        Width = 120
        Caption = 'ghostscript version:'
      end
      object edtGhostscriptInstalledVersion: TEdit
        Left = 144
        Height = 17
        Top = 98
        Width = 673
        Anchors = [akTop, akLeft, akRight]
        BorderStyle = bsNone
        Enabled = False
        TabOrder = 3
      end
    end
    object tsAbout: TTabSheet
      Caption = 'about groffstudio'
      ClientHeight = 626
      ClientWidth = 821
      object lblAboutProductName: TLabel
        Left = 0
        Height = 53
        Top = 16
        Width = 297
        Caption = 'groffstudio x.y.z'
        Font.Color = clBlue
        Font.Height = -45
        ParentColor = False
        ParentFont = False
      end
      object Label8: TLabel
        Left = 20
        Height = 16
        Top = 80
        Width = 246
        Caption = 'brought to you by tux0r and contributors'
        ParentColor = False
      end
      object Label11: TLabel
        Left = 0
        Height = 16
        Top = 128
        Width = 53
        Caption = 'Website:'
        Font.Style = [fsItalic]
        ParentColor = False
        ParentFont = False
      end
      object Label12: TLabel
        Left = 0
        Height = 16
        Top = 152
        Width = 69
        Caption = 'Repository:'
        Font.Style = [fsItalic]
        ParentColor = False
        ParentFont = False
      end
      object Label13: TLabel
        Left = 0
        Height = 16
        Top = 176
        Width = 119
        Caption = 'Repository (mirror):'
        Font.Style = [fsItalic]
        ParentColor = False
        ParentFont = False
      end
      object mLicense: TMemo
        Left = 0
        Height = 418
        Top = 216
        Width = 828
        Anchors = [akTop, akLeft, akRight]
        ScrollBars = ssAutoBoth
        TabOrder = 0
      end
      object lblWebsite: TLabel
        Cursor = crHandPoint
        Left = 120
        Height = 16
        Top = 128
        Width = 113
        Caption = 'groff.tuxproject.de'
        Font.Color = clBlue
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lblWebsiteClick
      end
      object lblFossilRepo: TLabel
        Cursor = crHandPoint
        Left = 120
        Height = 16
        Top = 152
        Width = 140
        Caption = 'code.rosaelefanten.org'
        Font.Color = clBlue
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lblFossilRepoClick
      end
      object lblGithubRepo: TLabel
        Cursor = crHandPoint
        Left = 120
        Height = 16
        Top = 176
        Width = 68
        Caption = 'github.com'
        Font.Color = clBlue
        Font.Style = [fsUnderline]
        ParentColor = False
        ParentFont = False
        OnClick = lblGithubRepoClick
      end
    end
  end
  object odOpenGroffFile: TOpenDialog
    Title = 'open a groff document'
    Left = 688
    Top = 8
  end
  object sdSaveGroffFile: TSaveDialog
    Title = 'save a groff document'
    Left = 736
    Top = 8
  end
  object iniStorage: TIniPropStorage
    StoredValues = <>
    IniFileName = 'groffstudio.ini'
    Left = 584
    Top = 8
  end
end