paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 04:39:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash within donevideo (merged)

Browse Source
This commit is contained in:
peter 2001-06-13 18:32:55 +00:00
parent 69b8e3ad44
commit fb71f8969e
2 changed files with 21 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/win32/video.pp
View File

@ -32,8 +32,13 @@ var
ConsoleCursorInfo : TConsoleCursorInfo; ConsoleCursorInfo : TConsoleCursorInfo;
MaxVideoBufSize : DWord; MaxVideoBufSize : DWord;
const
VideoInitialized : boolean = false;
procedure InitVideo; procedure InitVideo;
begin begin
if VideoInitialized then
DoneVideo;
ScreenColor:=true; ScreenColor:=true;
GetConsoleScreenBufferInfo(TextRec(Output).Handle, ConsoleInfo); GetConsoleScreenBufferInfo(TextRec(Output).Handle, ConsoleInfo);
GetConsoleCursorInfo(TextRec(Output).Handle, ConsoleCursorInfo); GetConsoleCursorInfo(TextRec(Output).Handle, ConsoleCursorInfo);
@ -73,19 +78,20 @@ begin
GetMem(VideoBuf,MaxVideoBufSize); GetMem(VideoBuf,MaxVideoBufSize);
GetMem(OldVideoBuf,MaxVideoBufSize); GetMem(OldVideoBuf,MaxVideoBufSize);
VideoInitialized:=true;
{ClearScreen; not needed PM }
end; end;
procedure DoneVideo; procedure DoneVideo;
begin begin
{ ClearScreen; also not needed PM }
SetCursorType(crUnderLine); SetCursorType(crUnderLine);
{ SetCursorPos(0,0); also not needed PM } if VideoInitialized then
FreeMem(VideoBuf,MaxVideoBufSize); begin
FreeMem(OldVideoBuf,MaxVideoBufSize); FreeMem(VideoBuf,MaxVideoBufSize);
FreeMem(OldVideoBuf,MaxVideoBufSize);
end;
VideoBufSize:=0; VideoBufSize:=0;
VideoInitialized:=false;
end; end;
@ -352,7 +358,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.2 2001-04-10 21:28:36 peter Revision 1.3 2001-06-13 18:32:55 peter
* fixed crash within donevideo (merged)
Revision 1.2 2001/04/10 21:28:36 peter
* removed warnigns * removed warnigns
Revision 1.1 2001/01/13 11:03:59 peter Revision 1.1 2001/01/13 11:03:59 peter

7
rtl/win32/wininc/func.inc
View File

@ -1003,7 +1003,7 @@ function DdeDisconnectList(_para1:HCONVLIST):BOOL;external 'user32' name 'DdeDis
function DdeEnableCallback(_para1:DWORD; _para2:HCONV; _para3:UINT):BOOL;external 'user32' name 'DdeEnableCallback'; function DdeEnableCallback(_para1:DWORD; _para2:HCONV; _para3:UINT):BOOL;external 'user32' name 'DdeEnableCallback';
function DdeFreeDataHandle(_para1:HDDEDATA):WINBOOL; external 'user32' name 'DdeFreeDataHandle'; function DdeFreeDataHandle(_para1:HDDEDATA):WINBOOL; external 'user32' name 'DdeFreeDataHandle';
function DdeFreeStringHandle(_para1:DWORD;_para2:HSZ):WINBOOL; external 'user32' name 'DdeFreeStringHandle'; function DdeFreeStringHandle(_para1:DWORD;_para2:HSZ):WINBOOL; external 'user32' name 'DdeFreeStringHandle';
function DdeGetData(_para1:HDDEDATA; var _para2:BYTE; _para3:DWORD; _para4:DWORD):DWORD; external 'user32' name 'DdeGetData'; function DdeGetData(_para1:HDDEDATA;_para2:LPBYTE; _para3:DWORD; _para4:DWORD):DWORD; external 'user32' name 'DdeGetData';
function DdeGetLastError(_para1:DWORD):UINT; external 'user32' name 'DdeGetLastError'; function DdeGetLastError(_para1:DWORD):UINT; external 'user32' name 'DdeGetLastError';
function DdeImpersonateClient(_para1:HCONV):BOOL;external 'user32' name 'DdeImpersonateClient'; function DdeImpersonateClient(_para1:HCONV):BOOL;external 'user32' name 'DdeImpersonateClient';
function DdeKeepStringHandle(_para1:DWORD; _para2:HSZ):BOOL;external 'user32' name 'DdeKeepStringHandle'; function DdeKeepStringHandle(_para1:DWORD; _para2:HSZ):BOOL;external 'user32' name 'DdeKeepStringHandle';
@ -2226,7 +2226,10 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2001-02-09 23:08:31 peter Revision 1.5 2001-06-13 18:32:55 peter
* fixed crash within donevideo (merged)
Revision 1.4 2001/02/09 23:08:31 peter
* fixed bugs 1398,1399,1400 * fixed bugs 1398,1399,1400
Revision 1.3 2001/02/02 20:53:18 peter Revision 1.3 2001/02/02 20:53:18 peter