From a2a47250423e3b22bdcf1a52f2e214b71102579c Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 21 Feb 2013 15:33:08 +0000
Subject: 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.
---
 examples/apps/nanoedit/testfiles/file2.pas | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 examples/apps/nanoedit/testfiles/file2.pas

(limited to 'examples/apps/nanoedit/testfiles/file2.pas')

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;
-- 
cgit v1.2.3-70-g09d2