Index: src/unit1.lfm ================================================================== --- src/unit1.lfm +++ src/unit1.lfm @@ -10,12 +10,12 @@ Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate object MainStatusBar: TStatusBar Left = 0 - Height = 23 - Top = 669 + Height = 18 + Top = 674 Width = 847 Panels = < item Text = 'file name with save status' Width = 200 @@ -33,47 +33,47 @@ object ExtendedNotebook1: TExtendedNotebook Left = 8 Height = 662 Top = 8 Width = 827 - ActivePage = tsEdit + ActivePage = tsSettings Anchors = [akTop, akLeft, akRight, akBottom] Style = tsFlatButtons - TabIndex = 0 + TabIndex = 1 TabOrder = 1 object tsEdit: TTabSheet Caption = 'edit a groff document' - ClientHeight = 631 - ClientWidth = 819 + ClientHeight = 626 + ClientWidth = 821 ParentFont = False object GroupBox1: TGroupBox Left = 10 Height = 66 - Top = 560 - Width = 799 + Top = 555 + Width = 801 Align = alBottom BorderSpacing.Left = 10 BorderSpacing.Right = 10 BorderSpacing.Bottom = 5 Caption = 'build' - ClientHeight = 46 - ClientWidth = 795 + ClientHeight = 39 + ClientWidth = 791 TabOrder = 0 object Label1: TLabel Left = 184 - Height = 15 + Height = 16 Top = -4 - Width = 72 + Width = 83 Caption = 'macro to use:' ParentColor = False end object cmbMacro: TComboBox Left = 184 - Height = 23 + Height = 20 Top = 16 Width = 100 - ItemHeight = 15 + ItemHeight = 19 Items.Strings = ( 'man' 'me' 'mm' 'mom' @@ -81,50 +81,50 @@ ) TabOrder = 0 Text = '[ select ]' end object Label2: TLabel - Left = 672 - Height = 15 + Left = 659 + Height = 16 Top = -4 - Width = 78 + Width = 87 Anchors = [akTop, akRight] Caption = 'output format:' ParentColor = False end object rdPs: TRadioButton - Left = 673 - Height = 19 + Left = 655 + Height = 18 Top = 16 - Width = 71 + Width = 85 Anchors = [akTop, akRight] Caption = 'PostScript' TabOrder = 1 end object rdPdf: TRadioButton - Left = 753 - Height = 19 + Left = 738 + Height = 18 Top = 16 - Width = 39 + Width = 50 Anchors = [akTop, akRight] Caption = 'PDF' TabOrder = 2 end object Label3: TLabel - Left = 419 - Height = 15 + Left = 400 + Height = 16 Top = -4 - Width = 76 + Width = 91 Anchors = [akTop, akRight] Caption = 'preprocessors:' ParentColor = False end object Label4: TLabel - Left = 544 - Height = 15 + Left = 533 + Height = 16 Top = -4 - Width = 34 + Width = 41 Anchors = [akTop, akRight] Caption = 'extras:' ParentColor = False end object btnBuild: TButton @@ -140,21 +140,21 @@ TabOrder = 3 OnClick = btnBuildClick end object chkLogFile: TCheckBox Left = 80 - Height = 19 + Height = 18 Hint = 'If enabled, a log file containing the groff output will be placed alongside the source document.' Top = 16 - Width = 68 + Width = 79 Caption = 'log to file' Enabled = False TabOrder = 4 end object chkBoxPreprocessors: TCheckComboBox - Left = 419 - Height = 22 + Left = 415 + Height = 20 Top = 15 Width = 100 Anchors = [akTop, akRight] ItemHeight = 16 Items.Strings = ( @@ -166,12 +166,12 @@ 'tbl' ) TabOrder = 5 end object chkBoxExtras: TCheckComboBox - Left = 544 - Height = 22 + Left = 540 + Height = 20 Top = 15 Width = 100 Anchors = [akTop, akRight] ItemHeight = 16 Items.Strings = ( @@ -180,50 +180,50 @@ ) TabOrder = 6 end end object btnSaveGroff: TButton - Left = 734 + Left = 736 Height = 28 - Top = 528 + Top = 523 Width = 75 Anchors = [akRight, akBottom] Caption = 'save' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = btnSaveGroffClick end object btnLoadGroff: TButton - Left = 653 + Left = 655 Height = 28 - Top = 528 + Top = 523 Width = 75 Anchors = [akRight, akBottom] Caption = 'load' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = btnLoadGroffClick end object Label5: TLabel - Left = 197 - Height = 15 - Top = 541 - Width = 438 + 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 = 523 + Height = 518 Top = 0 - Width = 799 + Width = 801 Anchors = [akTop, akLeft, akRight, akBottom] Font.CharSet = 4 Font.Height = -13 Font.Name = 'Andale Mono' Font.Pitch = fpFixed @@ -734,113 +734,121 @@ end end end object tsSettings: TTabSheet Caption = 'groffstudio settings' - ClientHeight = 631 - ClientWidth = 819 + ClientHeight = 626 + ClientWidth = 821 object chkAutoSaveBuildSettings: TCheckBox Left = 0 - Height = 19 + Height = 18 Top = 16 - Width = 309 + Width = 341 Caption = 'save and restore the chosen build settings for next time' TabOrder = 0 end object btnSaveSettings: TButton - Left = 730 + Left = 732 Height = 25 - Top = 600 + Top = 595 Width = 91 Anchors = [akRight, akBottom] Caption = 'save settings' TabOrder = 1 OnClick = btnSaveSettingsClick end object Label14: TLabel Left = 0 - Height = 15 - Top = 168 - Width = 129 + Height = 16 + Top = 248 + Width = 150 Caption = 'yes, that''s all for now. :-)' ParentColor = False end object chkUpdateCheckOnStart: TCheckBox Left = 0 - Height = 19 + Height = 18 Top = 40 - Width = 169 + Width = 190 Caption = 'check for updates on startup' TabOrder = 2 end object GroupBox3: TGroupBox Left = 0 - Height = 81 + Height = 160 Top = 72 Width = 320 Caption = 'pdf output settings' - ClientHeight = 61 - ClientWidth = 316 + ClientHeight = 133 + ClientWidth = 310 TabOrder = 3 object chkUseGhostscript: TCheckBox Left = 8 - Height = 19 + Height = 18 Top = 8 - Width = 193 + Width = 216 Caption = 'use ghostscript instead of pdfroff' TabOrder = 0 OnChange = chkUseGhostscriptChange end object chkKeepPostscriptFile: TCheckBox Left = 8 - Height = 19 + Height = 18 Top = 32 - Width = 264 + 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 = 631 - ClientWidth = 819 + ClientHeight = 626 + ClientWidth = 821 object GroupBox2: TGroupBox Left = 20 Height = 57 - Top = 566 - Width = 779 + Top = 561 + Width = 781 Align = alBottom BorderSpacing.Left = 20 BorderSpacing.Right = 20 BorderSpacing.Bottom = 8 Caption = 'groff for Windows' - ClientHeight = 37 - ClientWidth = 775 + ClientHeight = 30 + ClientWidth = 771 TabOrder = 0 object Label6: TLabel Left = 8 - Height = 15 + Height = 16 Top = 8 - Width = 108 + Width = 125 Caption = 'latest version online:' ParentColor = False end object edtOnlineGroffVersionWindows: TEdit Left = 136 - Height = 15 + Height = 17 Top = 8 - Width = 542 + Width = 538 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 0 Text = 'fetching ...' end object btnDownloadGroffWindows: TButton - Left = 686 + Left = 682 Height = 25 Top = 5 Width = 80 Anchors = [akTop, akRight] Caption = 'download it' @@ -848,42 +856,42 @@ OnClick = btnDownloadGroffWindowsClick end end object Label7: TLabel Left = 8 - Height = 30 + Height = 32 Top = 8 - Width = 807 + 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 = 15 + Height = 16 Top = 56 - Width = 70 + Width = 81 Caption = 'groff version:' ParentColor = False end object edtGroffInstalledVersion: TEdit Left = 144 - Height = 15 + Height = 17 Top = 56 - Width = 671 + Width = 673 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 1 end object lblTroffCommandNotFound: TLabel Left = 8 - Height = 45 + Height = 48 Top = 130 - Width = 806 + 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 @@ -890,112 +898,112 @@ Visible = False WordWrap = True end object edtGroffstudioInstalledVersion: TEdit Left = 144 - Height = 15 + Height = 17 Top = 77 - Width = 671 + Width = 673 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 2 end object Label10: TLabel Left = 8 - Height = 15 + Height = 16 Top = 77 - Width = 103 + Width = 118 Caption = 'groffstudio version:' ParentColor = False end object Label15: TLabel Left = 8 - Height = 15 + Height = 16 Top = 98 - Width = 103 + Width = 120 Caption = 'ghostscript version:' end object edtGhostscriptInstalledVersion: TEdit Left = 144 - Height = 15 + Height = 17 Top = 98 - Width = 671 + Width = 673 Anchors = [akTop, akLeft, akRight] BorderStyle = bsNone Enabled = False TabOrder = 3 end end object tsAbout: TTabSheet Caption = 'about groffstudio' - ClientHeight = 631 - ClientWidth = 819 + ClientHeight = 626 + ClientWidth = 821 object lblAboutProductName: TLabel Left = 0 - Height = 61 + Height = 53 Top = 16 - Width = 315 + Width = 297 Caption = 'groffstudio x.y.z' Font.Color = clBlue Font.Height = -45 ParentColor = False ParentFont = False end object Label8: TLabel Left = 20 - Height = 15 + Height = 16 Top = 80 - Width = 217 + Width = 246 Caption = 'brought to you by tux0r and contributors' ParentColor = False end object Label11: TLabel Left = 0 - Height = 15 + Height = 16 Top = 128 - Width = 45 + Width = 53 Caption = 'Website:' Font.Style = [fsItalic] ParentColor = False ParentFont = False end object Label12: TLabel Left = 0 - Height = 15 + Height = 16 Top = 152 - Width = 57 + Width = 69 Caption = 'Repository:' Font.Style = [fsItalic] ParentColor = False ParentFont = False end object Label13: TLabel Left = 0 - Height = 15 + Height = 16 Top = 176 - Width = 99 + Width = 119 Caption = 'Repository (mirror):' Font.Style = [fsItalic] ParentColor = False ParentFont = False end object mLicense: TMemo Left = 0 Height = 418 Top = 216 - Width = 826 + Width = 828 Anchors = [akTop, akLeft, akRight] ScrollBars = ssAutoBoth TabOrder = 0 end object lblWebsite: TLabel Cursor = crHandPoint Left = 120 - Height = 15 + Height = 16 Top = 128 - Width = 99 + Width = 113 Caption = 'groff.tuxproject.de' Font.Color = clBlue Font.Style = [fsUnderline] ParentColor = False ParentFont = False @@ -1002,13 +1010,13 @@ OnClick = lblWebsiteClick end object lblFossilRepo: TLabel Cursor = crHandPoint Left = 120 - Height = 15 + Height = 16 Top = 152 - Width = 121 + Width = 140 Caption = 'code.rosaelefanten.org' Font.Color = clBlue Font.Style = [fsUnderline] ParentColor = False ParentFont = False @@ -1015,13 +1023,13 @@ OnClick = lblFossilRepoClick end object lblGithubRepo: TLabel Cursor = crHandPoint Left = 120 - Height = 15 + Height = 16 Top = 176 - Width = 62 + Width = 68 Caption = 'github.com' Font.Color = clBlue Font.Style = [fsUnderline] ParentColor = False ParentFont = False Index: src/unit1.pas ================================================================== --- src/unit1.pas +++ src/unit1.pas @@ -64,10 +64,11 @@ Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; Label15: TLabel; + Label16: TLabel; lblGithubRepo: TLabel; lblFossilRepo: TLabel; lblWebsite: TLabel; Label2: TLabel; Label3: TLabel;