paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 12:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the title can be user defined

Browse Source
This commit is contained in:
florian 2000-03-05 13:06:32 +00:00
parent 02ec1d0d3b
commit 385b19dbc7
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win32/graph.inc
View File

@ -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

10
rtl/win32/graphh.inc
View File

@ -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