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

+ option -S to disable the mouse

Browse Source 
* adapted to changes in fpusrscr for DOS
This commit is contained in:
pierre 2000-03-13 20:41:34 +00:00
parent 51f008153a
commit 7e1068e39d
2 changed files with 33 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/text/fp.pas
View File

@ -36,7 +36,7 @@ uses
{$endif debug}
Dos,Objects,
BrowCol,
Views,App,Dialogs,ColorSel,Menus,StdDlg,Validate,
Drivers,Views,App,Dialogs,ColorSel,Menus,StdDlg,Validate,
{$ifdef EDITORS}Editors{$else}WEditor{$endif},
ASCIITab,Calc,
WUtils,WViews,
@ -70,7 +70,7 @@ begin
begin
if (length(Param)>=1) and (Param[1] in['=',':']) then
Delete(Param,1,1); { eat separator }
INIPath:=copy(Param,2,255);
IniFileName:=Param;
end;
{$ifdef go32v2}
'N' :
@ -86,6 +86,12 @@ begin
if (Param='-') then
StartupOptions:=StartupOptions and (not soReturnToLastDir);
end;
'S' :
if Length(Param)=1 then
begin
UseMouse:=false;
ButtonCount:=0;
end;
end;
end
else
@ -230,7 +236,11 @@ BEGIN
END.
{
$Log$
Revision 1.40 2000-03-07 21:58:58 pierre
Revision 1.41 2000-03-13 20:41:34 pierre
+ option -S to disable the mouse
* adapted to changes in fpusrscr for DOS
Revision 1.40 2000/03/07 21:58:58 pierre
+ uses ParseUserScreen and UpdateMode
Revision 1.39 2000/02/12 23:58:26 carl

24
ide/text/fpide.pas
View File

@ -623,8 +623,13 @@ procedure TIDEApp.ShowUserScreen;
begin
DoneSysError;
DoneEvents;
DoneMouse;
If UseMouse then
DoneMouse
else
ButtonCount:=0;
{$ifndef go32v2}
DoneScreen; { this is available in FV app.pas (PFV) }
{$endif go32v2}
DoneDosMem;
if Assigned(UserScreen) then
@ -638,13 +643,20 @@ begin
UserScreen^.SwitchBack;
InitDosMem;
{$ifndef go32v2}
InitScreen;
InitMouse;
{$endif go32v2}
If UseMouse then
InitMouse
else
ButtonCount:=0;
InitEvents;
InitSysError;
CurDirChanged;
Message(Application,evBroadcast,cmUpdate,nil);
{$ifndef go32v2}
UpdateScreen(true);
{$endif go32v2}
end;
function TIDEApp.AutoSave: boolean;
@ -756,7 +768,7 @@ end;
procedure TIDEApp.UpdateINIFile;
begin
SetMenuItemParam(SearchMenuItem(MenuBar^.Menu,cmSaveINI),SmartPath(INIPath));
SetMenuItemParam(SearchMenuItem(MenuBar^.Menu,cmSaveINI),SmartPath(IniFileName));
end;
procedure TIDEApp.UpdateRecentFileList;
@ -915,7 +927,11 @@ end;
END.
{
$Log$
Revision 1.54 2000-03-07 21:57:59 pierre
Revision 1.55 2000-03-13 20:41:35 pierre
+ option -S to disable the mouse
* adapted to changes in fpusrscr for DOS
Revision 1.54 2000/03/07 21:57:59 pierre
+ CtrlC handling
+ UpdateMode method