summaryrefslogtreecommitdiff
path: root/extras
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2009-08-27 17:16:23 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2009-08-27 17:18:19 +0200
commitc217d32c4effb70bf013b16eaf21156ac04686b5 (patch)
treef5ae98d29de34eac40bea9b22d05d1c6f9b14408 /extras
parentc5946c14e6517ed3c08aae4978d083ede6dc9d10 (diff)
downloadfpGUI-c217d32c4effb70bf013b16eaf21156ac04686b5.tar.xz
Fix default size of tiShowString() form.
Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
Diffstat (limited to 'extras')
-rw-r--r--extras/tiopf/gui/tiDialogs.pas2
1 files changed, 2 insertions, 0 deletions
diff --git a/extras/tiopf/gui/tiDialogs.pas b/extras/tiopf/gui/tiDialogs.pas
index 5a59c088..fe75a749 100644
--- a/extras/tiopf/gui/tiDialogs.pas
+++ b/extras/tiopf/gui/tiDialogs.pas
@@ -98,6 +98,8 @@ begin
lMemo := TfpgMemo.Create(lForm);
try
lForm.WindowTitle := pHeading;
+ lForm.Width := 300;
+ lForm.Height := 300;
lForm.WindowPosition := wpScreenCenter;
lForm.Name := 'FormShowStrings';
lMemo.Lines.Assign(AStrings);