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

* added an API call to avoid the "Graph Window" window title, and readded previously removed variable

Browse Source 
It was used in usegraph
This commit is contained in:
marco 2004-02-18 16:43:29 +00:00
parent b9c1a150a1
commit 6db46c855b
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
demo/graph/samegame.pp
View File

@ -354,6 +354,8 @@ END;
PROCEDURE BuildScreen; PROCEDURE BuildScreen;
{Some procedures that build the screen} {Some procedures that build the screen}
Var S:String; // do not remove. Depends on usegraphics.
BEGIN BEGIN
{$IFDEF UseGraphics} {$IFDEF UseGraphics}
setbkcolor(black); setbkcolor(black);
@ -554,6 +556,12 @@ BEGIN
SetFillStyle(SolidFill,1); SetFillStyle(SolidFill,1);
GetDefaultPalette(Pal); GetDefaultPalette(Pal);
SetAllPalette(Pal); SetAllPalette(Pal);
{$ifdef win32}
{$ifdef win32}
Windows.SetWindowText(GraphWindow,'Samegame, a demonstration of Free Pascal');
{$endif}
{$endif}
{$ENDIF} {$ENDIF}
IF NOT MousePresent THEN IF NOT MousePresent THEN
BEGIN BEGIN
@ -592,7 +600,11 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.6 2003-09-06 14:14:12 marco Revision 1.7 2004-02-18 16:43:29 marco
* added an API call to avoid the "Graph Window" window title, and readded previously removed variable
It was used in usegraph
Revision 1.6 2003/09/06 14:14:12 marco
* removed unused var reported in bug 2170 * removed unused var reported in bug 2170
Revision 1.5 2002/09/07 15:06:35 peter Revision 1.5 2002/09/07 15:06:35 peter