From c217d32c4effb70bf013b16eaf21156ac04686b5 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 27 Aug 2009 17:16:23 +0200
Subject: Fix default size of tiShowString() form.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
---
 extras/tiopf/gui/tiDialogs.pas | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'extras/tiopf')

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