summaryrefslogtreecommitdiff
path: root/prototypes
diff options
context:
space:
mode:
Diffstat (limited to 'prototypes')
-rw-r--r--prototypes/fpgui2/tests/edittest.dpr9
1 files changed, 7 insertions, 2 deletions
diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.dpr
index 35b3a4ce..e4107d50 100644
--- a/prototypes/fpgui2/tests/edittest.dpr
+++ b/prototypes/fpgui2/tests/edittest.dpr
@@ -9,6 +9,7 @@ uses
fpgfx,
gfx_widget,
gfx_imgfmt_bmp,
+ gfx_UTF8utils,
gui_form,
gui_label,
gui_button,
@@ -360,7 +361,7 @@ var
bmp: TfpgImage;
begin
SetPosition(200, 200, 500, 350);
- WindowTitle := 'Test Russian text -> Òåñò';
+ WindowTitle := 'UTF-8 Title -> Òåñò';
label1 := CreateLabel(self, 5, 5, 'Hello world!');
label2 := CreateLabel(self, 5, 20, 'Hello world in Bold!');
@@ -373,7 +374,11 @@ begin
edit1 := CreateEdit(self, 10, 40, 120, 22);
edit1.Text := 'Hello world. Hello world. Hello world.';
edit2 := CreateEdit(self, 10, 70, 200, 22);
- edit2.Text := 'Test Russian text -> Òåñò';
+ edit2.Text := 'UTF-8 text -> Òåñò';
+// writeln(UTF8Length(edit2.text));
+// writeln(Length(edit2.text));
+ UTF8Insert('ö', edit2.Text, 15);
+
// left to right and right to left text in one
// fpGUI doesn't handle this correctly yet.
// See http://www.catch22.net/tuts/editor18.asp for how it needs to display and work