From 385b19dbc744dabeaf770d24682f3fa6fc074124 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 5 Mar 2000 13:06:32 +0000
Subject: [PATCH]   * the title can be user defined

---
 rtl/win32/graph.inc  | 12 +++++++++---
 rtl/win32/graphh.inc | 10 +++++++++-
 2 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/rtl/win32/graph.inc b/rtl/win32/graph.inc
index ec08fc2648..c93519344b 100644
--- a/rtl/win32/graph.inc
+++ b/rtl/win32/graph.inc
@@ -426,9 +426,12 @@ var
   hWindow: HWnd;
 begin
 
-  hWindow := CreateWindow('MyWindow', 'Graph window application',
+  hWindow := CreateWindow('MyWindow', windowtitle,
               ws_OverlappedWindow, 50, 50,
-              maxx+20, maxy+20, 0, 0, system.MainInstance, nil);
+              maxx+2*GetSystemMetrics(SM_CXBORDER),
+              maxy+2*GetSystemMetrics(SM_CYBORDER)+
+                GetSystemMetrics(SM_CYCAPTION),
+              0, 0, system.MainInstance, nil);
 
   if hWindow <> 0 then begin
     ShowWindow(hWindow, SW_SHOW);
@@ -718,7 +721,10 @@ function queryadapterinfo : pmodeinfo;
 
 {
   $Log$
-  Revision 1.6  2000-01-07 16:41:52  daniel
+  Revision 1.7  2000-03-05 13:06:32  florian
+    * the title can be user defined
+
+  Revision 1.6  2000/01/07 16:41:52  daniel
     * copyright 2000
 
   Revision 1.5  1999/12/08 09:09:34  pierre
diff --git a/rtl/win32/graphh.inc b/rtl/win32/graphh.inc
index 4f1bbf27cd..34c8173486 100644
--- a/rtl/win32/graphh.inc
+++ b/rtl/win32/graphh.inc
@@ -26,8 +26,13 @@
 
   const
     { predefined window style }
+    { we shouldn't set CS_DBLCLKS here }
+    { because most dos applications    }
+    { handle double clicks on it's own }
     graphwindowstyle : DWord = cs_hRedraw or cs_vRedraw;
 
+    windowtitle : pchar = 'Graph window application';
+
 CONST
 
   m640x200x16       = VGALo;
@@ -62,7 +67,10 @@ CONST
 
 {
   $Log$
-  Revision 1.4  2000-01-07 16:41:52  daniel
+  Revision 1.5  2000-03-05 13:07:04  florian
+    * the title can be user defined
+
+  Revision 1.4  2000/01/07 16:41:52  daniel
     * copyright 2000
 
   Revision 1.3  1999/12/08 09:09:34  pierre