557 lines
12 KiB
Plaintext
557 lines
12 KiB
Plaintext
object fmMain: TfmMain
|
|
Left = 266
|
|
Height = 498
|
|
Top = 242
|
|
Width = 953
|
|
Caption = 'Demo'
|
|
ClientHeight = 498
|
|
ClientWidth = 953
|
|
Menu = MainMenu1
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnResize = FormResize
|
|
OnShow = FormShow
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.5'
|
|
object PanelMain: TPanel
|
|
Left = 0
|
|
Height = 498
|
|
Top = 0
|
|
Width = 672
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
ClientHeight = 498
|
|
ClientWidth = 672
|
|
TabOrder = 0
|
|
object Status: TStatusBar
|
|
Left = 0
|
|
Height = 21
|
|
Top = 477
|
|
Width = 672
|
|
Panels = <>
|
|
end
|
|
object StatusMsg: TStatusBar
|
|
Left = 0
|
|
Height = 21
|
|
Top = 456
|
|
Width = 672
|
|
Font.Color = clBlue
|
|
Panels = <>
|
|
ParentFont = False
|
|
end
|
|
object progress: TProgressBar
|
|
AnchorSideLeft.Control = PanelMain
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideRight.Control = StatusMsg
|
|
AnchorSideRight.Side = asrBottom
|
|
AnchorSideBottom.Control = StatusMsg
|
|
AnchorSideBottom.Side = asrCenter
|
|
Left = 507
|
|
Height = 14
|
|
Top = 459
|
|
Width = 160
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Right = 5
|
|
Smooth = True
|
|
Step = 1
|
|
TabOrder = 2
|
|
Visible = False
|
|
end
|
|
object btnStop: TButton
|
|
AnchorSideRight.Control = progress
|
|
AnchorSideBottom.Control = StatusMsg
|
|
AnchorSideBottom.Side = asrCenter
|
|
Left = 412
|
|
Height = 22
|
|
Top = 455
|
|
Width = 90
|
|
Anchors = [akRight, akBottom]
|
|
BorderSpacing.Right = 5
|
|
Caption = 'stop'
|
|
OnClick = btnStopClick
|
|
TabOrder = 3
|
|
Visible = False
|
|
end
|
|
end
|
|
object PanelRt: TPanel
|
|
Left = 672
|
|
Height = 498
|
|
Top = 0
|
|
Width = 281
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
ClientHeight = 498
|
|
ClientWidth = 281
|
|
TabOrder = 1
|
|
object chkGutter: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 8
|
|
Width = 68
|
|
Caption = 'gutter'
|
|
OnChange = chkGutterChange
|
|
TabOrder = 0
|
|
end
|
|
object chkRuler: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 28
|
|
Width = 58
|
|
Caption = 'ruler'
|
|
OnChange = chkRulerChange
|
|
TabOrder = 1
|
|
end
|
|
object chkMinimap: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 48
|
|
Width = 85
|
|
Caption = 'minimap'
|
|
OnChange = chkMinimapChange
|
|
TabOrder = 2
|
|
end
|
|
object edSpaceX: TSpinEdit
|
|
Left = 8
|
|
Height = 27
|
|
Top = 240
|
|
Width = 52
|
|
MaxValue = 10
|
|
MinValue = -5
|
|
OnChange = edSpaceXChange
|
|
TabOrder = 8
|
|
end
|
|
object Label1: TLabel
|
|
Left = 67
|
|
Height = 17
|
|
Top = 244
|
|
Width = 63
|
|
Caption = 'spacing-x'
|
|
ParentColor = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 67
|
|
Height = 17
|
|
Top = 308
|
|
Width = 47
|
|
Caption = 'margin'
|
|
ParentColor = False
|
|
end
|
|
object edMarRt: TSpinEdit
|
|
Left = 8
|
|
Height = 27
|
|
Top = 304
|
|
Width = 52
|
|
MaxValue = 200
|
|
MinValue = 20
|
|
OnChange = edMarRtChange
|
|
TabOrder = 10
|
|
Value = 20
|
|
end
|
|
object gWrap: TGroupBox
|
|
Left = 144
|
|
Height = 104
|
|
Top = 4
|
|
Width = 128
|
|
Caption = 'wrap'
|
|
ClientHeight = 85
|
|
ClientWidth = 124
|
|
TabOrder = 11
|
|
object chkWrapOff: TRadioButton
|
|
Left = 8
|
|
Height = 24
|
|
Top = 0
|
|
Width = 46
|
|
Caption = 'off'
|
|
Checked = True
|
|
OnChange = chkWrapOffChange
|
|
TabOrder = 0
|
|
TabStop = True
|
|
end
|
|
object chkWrapOn: TRadioButton
|
|
Left = 8
|
|
Height = 24
|
|
Top = 20
|
|
Width = 76
|
|
Caption = 'at edge'
|
|
OnChange = chkWrapOnChange
|
|
TabOrder = 1
|
|
end
|
|
object chkWrapMargin: TRadioButton
|
|
Left = 8
|
|
Height = 24
|
|
Top = 40
|
|
Width = 90
|
|
Caption = 'at margin'
|
|
OnChange = chkWrapMarginChange
|
|
TabOrder = 2
|
|
end
|
|
object chkWrapIndent: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 60
|
|
Width = 101
|
|
Caption = 'with indent'
|
|
OnChange = chkWrapIndentChange
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object edFontsize: TSpinEdit
|
|
Left = 8
|
|
Height = 27
|
|
Top = 176
|
|
Width = 52
|
|
MaxValue = 40
|
|
MinValue = 4
|
|
OnChange = edFontsizeChange
|
|
TabOrder = 6
|
|
Value = 10
|
|
end
|
|
object Label4: TLabel
|
|
Left = 67
|
|
Height = 17
|
|
Top = 180
|
|
Width = 58
|
|
Caption = 'font size'
|
|
ParentColor = False
|
|
end
|
|
object gUnpri: TGroupBox
|
|
Left = 144
|
|
Height = 104
|
|
Top = 108
|
|
Width = 128
|
|
Caption = 'unprintable'
|
|
ClientHeight = 85
|
|
ClientWidth = 124
|
|
TabOrder = 12
|
|
object chkUnprintVis: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 1
|
|
Width = 61
|
|
Caption = 'show'
|
|
OnChange = chkUnprintVisChange
|
|
TabOrder = 0
|
|
end
|
|
object chkUnprintSp: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 20
|
|
Width = 72
|
|
Caption = 'spaces'
|
|
OnChange = chkUnprintSpChange
|
|
TabOrder = 1
|
|
end
|
|
object chkUnprintEnd: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 40
|
|
Width = 58
|
|
Caption = 'ends'
|
|
OnChange = chkUnprintEndChange
|
|
TabOrder = 2
|
|
end
|
|
object chkUnprintEndDet: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 60
|
|
Width = 101
|
|
Caption = 'end-details'
|
|
OnChange = chkUnprintEndDetChange
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object edTabsize: TSpinEdit
|
|
Left = 8
|
|
Height = 27
|
|
Top = 208
|
|
Width = 52
|
|
MaxValue = 12
|
|
MinValue = 1
|
|
OnChange = edTabsizeChange
|
|
TabOrder = 7
|
|
Value = 8
|
|
end
|
|
object Label5: TLabel
|
|
Left = 67
|
|
Height = 17
|
|
Top = 212
|
|
Width = 52
|
|
Caption = 'tab size'
|
|
ParentColor = False
|
|
end
|
|
object bFont: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Top = 92
|
|
Width = 81
|
|
Caption = 'font...'
|
|
OnClick = bFontClick
|
|
TabOrder = 4
|
|
end
|
|
object chkMicromap: TCheckBox
|
|
Left = 8
|
|
Height = 24
|
|
Top = 68
|
|
Width = 95
|
|
Caption = 'micromap'
|
|
OnChange = chkMicromapChange
|
|
TabOrder = 3
|
|
end
|
|
object edSpaceY: TSpinEdit
|
|
Left = 8
|
|
Height = 27
|
|
Top = 272
|
|
Width = 52
|
|
MaxValue = 10
|
|
MinValue = -5
|
|
OnChange = edSpaceYChange
|
|
TabOrder = 9
|
|
end
|
|
object Label6: TLabel
|
|
Left = 67
|
|
Height = 17
|
|
Top = 276
|
|
Width = 62
|
|
Caption = 'spacing-y'
|
|
ParentColor = False
|
|
end
|
|
object bOpt: TButton
|
|
Left = 8
|
|
Height = 25
|
|
Top = 120
|
|
Width = 81
|
|
Caption = 'opts...'
|
|
OnClick = bOptClick
|
|
TabOrder = 5
|
|
end
|
|
object Memo1: TMemo
|
|
Left = 14
|
|
Height = 151
|
|
Top = 336
|
|
Width = 162
|
|
ScrollBars = ssBoth
|
|
TabOrder = 13
|
|
Visible = False
|
|
end
|
|
object btnMarker: TButton
|
|
Left = 144
|
|
Height = 25
|
|
Top = 224
|
|
Width = 96
|
|
Caption = 'marker'
|
|
OnClick = btnMarkerClick
|
|
TabOrder = 14
|
|
end
|
|
end
|
|
object OpenDialog1: TOpenDialog
|
|
Options = [ofFileMustExist, ofEnableSizing]
|
|
left = 472
|
|
top = 20
|
|
end
|
|
object FontDialog1: TFontDialog
|
|
Title = 'Font'
|
|
MinFontSize = 0
|
|
MaxFontSize = 0
|
|
left = 536
|
|
top = 20
|
|
end
|
|
object SaveDialog1: TSaveDialog
|
|
Options = [ofOverwritePrompt, ofEnableSizing, ofViewDetail]
|
|
left = 504
|
|
top = 20
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
left = 432
|
|
top = 80
|
|
object mnuFile: TMenuItem
|
|
Caption = 'File'
|
|
object mnuFileOpen: TMenuItem
|
|
Caption = 'Open..'
|
|
ShortCut = 16463
|
|
OnClick = mnuFileOpenClick
|
|
end
|
|
object mnuFileSav: TMenuItem
|
|
Caption = 'Save..'
|
|
OnClick = mnuFileSaveClick
|
|
end
|
|
object mnuFileEnd: TMenuItem
|
|
Caption = 'Set ends'
|
|
object mnuEndWin: TMenuItem
|
|
Caption = 'win'
|
|
OnClick = mnuEndWinClick
|
|
end
|
|
object mnuEndUnix: TMenuItem
|
|
Caption = 'unix'
|
|
OnClick = mnuEndUnixClick
|
|
end
|
|
object mnuEndMac: TMenuItem
|
|
Caption = 'mac'
|
|
OnClick = mnuEndMacClick
|
|
end
|
|
end
|
|
object mnuFileHtml: TMenuItem
|
|
Caption = 'Export HTML'
|
|
OnClick = mnuFileHtmlClick
|
|
end
|
|
end
|
|
object MenuItem9: TMenuItem
|
|
Caption = 'Search'
|
|
object mnuFind: TMenuItem
|
|
Caption = 'find...'
|
|
ShortCut = 16454
|
|
OnClick = mnuFindClick
|
|
end
|
|
object mnuFindNext: TMenuItem
|
|
Caption = 'find next'
|
|
ShortCut = 114
|
|
OnClick = mnuFindNextClick
|
|
end
|
|
object mnuGoto: TMenuItem
|
|
Caption = 'go to..'
|
|
ShortCut = 16455
|
|
OnClick = bGotoClick
|
|
end
|
|
end
|
|
object mnuEnc: TMenuItem
|
|
Caption = 'Encoding'
|
|
end
|
|
object mnuTst: TMenuItem
|
|
Caption = 'Test'
|
|
object mnuTCaret1: TMenuItem
|
|
Caption = 'set 100 cr''s'
|
|
OnClick = mnuTCaret1Click
|
|
end
|
|
object mnuTCaretK: TMenuItem
|
|
Caption = 'set 2000 cr''s'
|
|
OnClick = bAddCrtClick
|
|
end
|
|
object mnuTMargin: TMenuItem
|
|
Caption = 'set margins..'
|
|
OnClick = mnuTMarginClick
|
|
end
|
|
object mnuTBms: TMenuItem
|
|
Caption = 'toggle bookm'
|
|
OnClick = mnuTBmsClick
|
|
end
|
|
object MenuItem5: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuSyntax: TMenuItem
|
|
Caption = 'hilite syntax'
|
|
ShortCut = 16467
|
|
OnClick = mnuSyntaxClick
|
|
end
|
|
object mnuUnderline: TMenuItem
|
|
Caption = 'underline ''www'''
|
|
OnClick = mnuUnderlineClick
|
|
end
|
|
object MenuItem1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuPane: TMenuItem
|
|
Caption = 'show pane'
|
|
Checked = True
|
|
OnClick = mnuPaneClick
|
|
end
|
|
object mnuOneLine: TMenuItem
|
|
Caption = 'combo..'
|
|
OnClick = mnuOneLineClick
|
|
end
|
|
end
|
|
object mnuOpts: TMenuItem
|
|
Caption = 'Options'
|
|
object mnuOptDlg: TMenuItem
|
|
Caption = 'options..'
|
|
ShortCut = 120
|
|
OnClick = bOptClick
|
|
end
|
|
object mnuOptSave: TMenuItem
|
|
Caption = 'save'
|
|
Visible = False
|
|
OnClick = btnSaveClick
|
|
end
|
|
object mnuOptLoad: TMenuItem
|
|
Caption = 'load'
|
|
Visible = False
|
|
OnClick = btnLoadClick
|
|
end
|
|
end
|
|
object mnuHlp: TMenuItem
|
|
Caption = 'Help'
|
|
object mnuHelpKey: TMenuItem
|
|
Caption = 'commands..'
|
|
ShortCut = 112
|
|
OnClick = bKeymapClick
|
|
end
|
|
object MenuItem2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuHelpMous: TMenuItem
|
|
Caption = 'mouse help..'
|
|
OnClick = mnuHelpMousClick
|
|
end
|
|
end
|
|
end
|
|
object PopupBookmk: TPopupMenu
|
|
left = 480
|
|
top = 104
|
|
object mnuBms: TMenuItem
|
|
Caption = 'toggle all bm''s'
|
|
OnClick = mnuBmsClick
|
|
end
|
|
end
|
|
object PopupNums: TPopupMenu
|
|
left = 523
|
|
top = 128
|
|
object MenuItem3: TMenuItem
|
|
Caption = 'test nums'
|
|
Enabled = False
|
|
end
|
|
end
|
|
object PopupFold: TPopupMenu
|
|
left = 568
|
|
top = 152
|
|
object MenuItem4: TMenuItem
|
|
Caption = 'test fold'
|
|
Enabled = False
|
|
end
|
|
end
|
|
object PopupMinimap: TPopupMenu
|
|
left = 448
|
|
top = 192
|
|
object MenuItem6: TMenuItem
|
|
Caption = 'minimap'
|
|
Enabled = False
|
|
end
|
|
end
|
|
object PopupMicromap: TPopupMenu
|
|
left = 496
|
|
top = 216
|
|
object MenuItem7: TMenuItem
|
|
Caption = 'micromap'
|
|
Enabled = False
|
|
end
|
|
end
|
|
object PopupRuler: TPopupMenu
|
|
left = 552
|
|
top = 240
|
|
object MenuItem8: TMenuItem
|
|
Caption = 'ruler'
|
|
Enabled = False
|
|
end
|
|
end
|
|
object TimerHint: TTimer
|
|
Enabled = False
|
|
Interval = 5500
|
|
OnTimer = TimerHintTimer
|
|
left = 560
|
|
top = 303
|
|
end
|
|
object ApplicationProperties1: TApplicationProperties
|
|
ShowButtonGlyphs = sbgNever
|
|
ShowMenuGlyphs = sbgNever
|
|
left = 548
|
|
top = 366
|
|
end
|
|
end
|