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

* fix problems with -S option

Browse Source
This commit is contained in:
pierre 2002-01-09 09:46:10 +00:00
parent f19d533f51
commit 3a403da9f5
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ide/fp.pas
View File

@ -31,7 +31,7 @@ uses
dpmiexcp,
{$endif go32v2}
{$ifdef fpc}
keyboard,video,
keyboard,video,mouse,
{$endif fpc}
Dos,Objects,
BrowCol,
@ -48,6 +48,26 @@ uses
FPTools,{$ifndef NODEBUG}FPDebug,{$endif}FPTemplt,FPCatch,FPRedir,FPDesk,
FPCodTmp,FPCodCmp;
{$ifdef fpc}
Const
DummyMouseDriver : TMouseDriver = (
useDefaultQueue : true;
InitDriver : nil;
DoneDriver : nil;
DetectMouse : nil;
ShowMouse : nil;
HideMouse : nil;
GetMouseX : nil;
GetMouseY : nil;
GetMouseButtons : nil;
SetMouseXY : nil;
GetMouseEvent : nil;
PollMouseEvent : nil;
PutMouseEvent : nil;
);
{$endif fpc}
procedure ProcessParams(BeforeINI: boolean);
function IsSwitch(const Param: string): boolean;
@ -106,6 +126,10 @@ begin
if Length(Param)=1 then
begin
UseMouse:=false;
{$ifdef fpc}
DoneMouse;
SetMouseDriver(DummyMouseDriver);
{$endif fpc}
ButtonCount:=0;
end;
{$ifdef fpc}
@ -295,7 +319,10 @@ BEGIN
END.
{
$Log$
Revision 1.2 2001-08-05 12:23:00 peter
Revision 1.3 2002-01-09 09:46:10 pierre
* fix problems with -S option
Revision 1.2 2001/08/05 12:23:00 peter
* Automatically support for fvision or old fv
Revision 1.1 2001/08/04 11:30:22 peter