diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-02-21 15:33:08 +0000 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2013-02-21 15:33:08 +0000 |
commit | a2a47250423e3b22bdcf1a52f2e214b71102579c (patch) | |
tree | d25b0246eda04a73a58f7e1657bd3bc47ab302a3 /examples/apps/nanoedit/testfiles/file2.pas | |
parent | a35615c726e05796feb2ff5ae63dbd3958d4135a (diff) | |
download | fpGUI-a2a47250423e3b22bdcf1a52f2e214b71102579c.tar.xz |
nanoedit - a mini notepad like text editor
I have been using this for some time now. I required a mini editor on
non-Windows platforms, so created this project to solve that.
This is also a testbed project for my "elastic tabstops" implementation.
Diffstat (limited to 'examples/apps/nanoedit/testfiles/file2.pas')
-rw-r--r-- | examples/apps/nanoedit/testfiles/file2.pas | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/examples/apps/nanoedit/testfiles/file2.pas b/examples/apps/nanoedit/testfiles/file2.pas new file mode 100644 index 00000000..86144432 --- /dev/null +++ b/examples/apps/nanoedit/testfiles/file2.pas @@ -0,0 +1,19 @@ +{ ************************************** + * oeu oe uoe uoeu * + * oeu oe uoe uoeu * + * oeu oe uoe uoeu * + ************************************** } +procedure TMainForm.miOpenClick(Sender: TObject); +var + dlg: TfpgFileDialog; +begin + dlg := TfpgFileDialog.Create(nil); + try + if dlg.RunOpenFile then + begin + memEditor.Lines.LoadFromFile(dlg.FileName); + end; + finally + dlg.Free; + end; +end; |