PageRenderTime 14ms CodeModel.GetById 2ms app.highlight 6ms RepoModel.GetById 1ms app.codeStats 0ms

/components/jcf2/Notepad/frmJcfNotepad.dfm

http://github.com/graemeg/lazarus
Unknown | 323 lines | 323 code | 0 blank | 0 comment | 0 complexity | ae3800fbfab81755fdd304d94e44dcd2 MD5 | raw file
  1object fmJCFNotepad: TfmJCFNotepad
  2  Left = 165
  3  Top = 173
  4  Caption = 'JCF Notepad'
  5  ClientHeight = 624
  6  ClientWidth = 847
  7  Color = clBtnFace
  8  Font.Charset = ANSI_CHARSET
  9  Font.Color = clWindowText
 10  Font.Height = -15
 11  Font.Name = 'Segoe UI'
 12  Font.Style = []
 13  KeyPreview = True
 14  Menu = MainMenu1
 15  OldCreateOrder = False
 16  Scaled = False
 17  OnCreate = FormCreate
 18  OnDestroy = FormDestroy
 19  OnKeyUp = FormKeyUp
 20  OnResize = FormResize
 21  OnShow = FormShow
 22  PixelsPerInch = 96
 23  TextHeight = 20
 24  object sb1: TStatusBar
 25    Left = 0
 26    Top = 599
 27    Width = 847
 28    Height = 25
 29    Panels = <
 30      item
 31        Width = 80
 32      end
 33      item
 34        Width = 50
 35      end>
 36    ParentFont = True
 37    UseSystemFont = False
 38  end
 39  object pnlTop: TPanel
 40    Left = 0
 41    Top = 0
 42    Width = 847
 43    Height = 35
 44    Align = alTop
 45    TabOrder = 1
 46    object sbLoad: TSpeedButton
 47      Left = 2
 48      Top = 2
 49      Width = 70
 50      Height = 29
 51      Action = actOpen
 52      ParentShowHint = False
 53      ShowHint = True
 54    end
 55    object sbSave: TSpeedButton
 56      Left = 148
 57      Top = 2
 58      Width = 94
 59      Height = 29
 60      Action = actSave
 61    end
 62    object sbGo: TSpeedButton
 63      Left = 74
 64      Top = 2
 65      Width = 72
 66      Height = 29
 67      Action = actGo
 68    end
 69    object sbClear: TSpeedButton
 70      Left = 244
 71      Top = 2
 72      Width = 70
 73      Height = 29
 74      Action = actClear
 75    end
 76  end
 77  object pcPages: TPageControl
 78    Left = 0
 79    Top = 35
 80    Width = 847
 81    Height = 564
 82    ActivePage = tsInput
 83    Align = alClient
 84    TabOrder = 2
 85    OnChange = pcPagesChange
 86    object tsInput: TTabSheet
 87      Caption = 'Input'
 88      object mInput: TJvMemo
 89        Left = 0
 90        Top = 0
 91        Width = 839
 92        Height = 529
 93        AutoSize = False
 94        MaxLines = 0
 95        HideCaret = False
 96        Align = alClient
 97        Font.Charset = ANSI_CHARSET
 98        Font.Color = clWindowText
 99        Font.Height = -18
100        Font.Name = 'Courier New'
101        Font.Style = []
102        ParentFont = False
103        ScrollBars = ssVertical
104        TabOrder = 0
105        OnClick = mInputClick
106        OnEnter = mInputEnter
107        OnKeyDown = mInputKeyDown
108        OnKeyUp = mInputKeyDown
109        OnMouseUp = mInputMouseUp
110      end
111    end
112    object tsOutput: TTabSheet
113      Caption = 'Output'
114      ImageIndex = 1
115      object lblMessages: TLabel
116        Left = 15
117        Top = 207
118        Width = 64
119        Height = 20
120        Caption = 'Messages'
121      end
122      object mOutput: TJvMemo
123        Left = 15
124        Top = 20
125        Width = 228
126        Height = 109
127        AutoSize = False
128        ClipboardCommands = [caCopy]
129        MaxLines = 0
130        HideCaret = False
131        Font.Charset = ANSI_CHARSET
132        Font.Color = clWindowText
133        Font.Height = -18
134        Font.Name = 'Courier New'
135        Font.Style = []
136        ParentColor = True
137        ParentFont = False
138        ReadOnly = True
139        ScrollBars = ssVertical
140        TabOrder = 0
141        OnClick = mOutputClick
142        OnEnter = mOutputEnter
143        OnKeyUp = mOutputKeyUp
144      end
145      object mMessages: TJvMemo
146        Left = 15
147        Top = 233
148        Width = 228
149        Height = 110
150        AutoSize = False
151        ClipboardCommands = [caCopy]
152        MaxLines = 0
153        HideCaret = False
154        Font.Charset = ANSI_CHARSET
155        Font.Color = clWindowText
156        Font.Height = -18
157        Font.Name = 'Courier New'
158        Font.Style = []
159        ParentColor = True
160        ParentFont = False
161        ReadOnly = True
162        ScrollBars = ssVertical
163        TabOrder = 1
164      end
165    end
166  end
167  object ActionList1: TActionList
168    Left = 364
169    Top = 17
170    object actOpen: TAction
171      Caption = '&Open...'
172      Hint = 'Open an input file'
173      OnExecute = actOpenExecute
174    end
175    object actSave: TAction
176      Caption = '&Save output...'
177      Hint = 'Save the output'
178      OnExecute = actSaveExecute
179    end
180    object actGo: TAction
181      Caption = '&Go'
182      Hint = 'Run the formatter on the input'
183      OnExecute = actGoExecute
184    end
185    object actClear: TAction
186      Caption = '&Clear'
187      OnExecute = actClearExecute
188    end
189    object actCopy: TAction
190      Caption = 'Copy'
191      Hint = 'Copy output to clipboard'
192      ShortCut = 16451
193      OnExecute = actCopyExecute
194    end
195    object actPaste: TAction
196      Caption = '&Paste'
197      Hint = 'Paste from clipboard to input'
198      ShortCut = 16470
199      OnExecute = actPasteExecute
200    end
201    object ActCut: TAction
202      Caption = '&Cut'
203      ShortCut = 16472
204      OnExecute = ActCutExecute
205    end
206  end
207  object OpenDialog1: TOpenDialog
208    DefaultExt = '*.pas'
209    Left = 496
210    Top = 16
211  end
212  object SaveDialog1: TSaveDialog
213    Left = 444
214    Top = 20
215  end
216  object MainMenu1: TMainMenu
217    Left = 400
218    Top = 8
219    object mnuFile: TMenuItem
220      Caption = '&File'
221      OnClick = actCopyExecute
222      object mnuFileOpen: TMenuItem
223        Action = actOpen
224      end
225      object mnuFileSaveOut: TMenuItem
226        Action = actSave
227      end
228      object mnuFileSaveIn: TMenuItem
229        Caption = 'Save &Input'
230        OnClick = mnuFileSaveInClick
231      end
232      object mnuFileSaveInAs: TMenuItem
233        Caption = 'Save Input &as...'
234        OnClick = mnuFileSaveInAsClick
235      end
236      object N1: TMenuItem
237        Caption = '-'
238      end
239      object mnuExit: TMenuItem
240        Caption = 'Exit'
241        OnClick = mnuExitClick
242      end
243    end
244    object mnuEdit: TMenuItem
245      Caption = '&Edit'
246      object mnuEditCut: TMenuItem
247        Action = ActCut
248      end
249      object mnuEditCopy: TMenuItem
250        Action = actCopy
251        Hint = 'Copy to clipboard'
252      end
253      object mnuEditPaste: TMenuItem
254        Action = actPaste
255      end
256      object mnuEditSelectAll: TMenuItem
257        Caption = 'Select &All'
258        ShortCut = 16449
259        OnClick = mnuEditSelectAllClick
260      end
261      object mnuEditCopyOutput: TMenuItem
262        Caption = 'Copy &Output'
263        ShortCut = 16463
264        OnClick = mnuEditCopyOutputClick
265      end
266      object mnuEditCopyMessages: TMenuItem
267        Caption = 'Copy &Messages'
268        ShortCut = 16461
269        OnClick = mnuEditCopyMessagesClick
270      end
271    end
272    object mnuFormat: TMenuItem
273      Caption = '&Format'
274      object mnuEditGo: TMenuItem
275        Action = actGo
276        ShortCut = 16455
277      end
278      object mnuEditClear: TMenuItem
279        Action = actClear
280        ShortCut = 16474
281      end
282    end
283    object mnuSettings: TMenuItem
284      Caption = '&Settings'
285      object mnuShowRegSetting: TMenuItem
286        Caption = '&Registry Settings...'
287        GroupIndex = 1
288        OnClick = mnuShowRegSettingClick
289      end
290      object mnuFormatSettings: TMenuItem
291        Caption = '&Format Settings...'
292        GroupIndex = 1
293        OnClick = mnuFormatSettingsClick
294      end
295    end
296    object mnuHelp: TMenuItem
297      Caption = '&Help'
298      object Contents1: TMenuItem
299        Caption = '&Contents'
300        OnClick = Contents1Click
301      end
302      object mnuHelpAbout: TMenuItem
303        Caption = '&About'
304        OnClick = mnuHelpAboutClick
305      end
306    end
307  end
308  object mruFiles: TJvMRUManager
309    Duplicates = dupIgnore
310    AccelDelimiter = adSpace
311    Capacity = 9
312    RecentMenu = mnuFile
313    OnClick = mruFilesClick
314    Left = 540
315    Top = 24
316  end
317  object JvFormStorage1: TJvFormStorage
318    AppStoragePath = 'fmJCFNotepad\'
319    StoredValues = <>
320    Left = 576
321    Top = 8
322  end
323end