paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +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} {$endif debug}
Dos,Objects, Dos,Objects,
BrowCol, BrowCol,
Views,App,Dialogs,ColorSel,Menus,StdDlg,Validate, Drivers,Views,App,Dialogs,ColorSel,Menus,StdDlg,Validate,
{$ifdef EDITORS}Editors{$else}WEditor{$endif}, {$ifdef EDITORS}Editors{$else}WEditor{$endif},
ASCIITab,Calc, ASCIITab,Calc,
WUtils,WViews, WUtils,WViews,
@ -70,7 +70,7 @@ begin
begin begin
if (length(Param)>=1) and (Param[1] in['=',':']) then if (length(Param)>=1) and (Param[1] in['=',':']) then
Delete(Param,1,1); { eat separator } Delete(Param,1,1); { eat separator }
INIPath:=copy(Param,2,255); IniFileName:=Param;
end; end;
{$ifdef go32v2} {$ifdef go32v2}
'N' : 'N' :
@ -86,6 +86,12 @@ begin
if (Param='-') then if (Param='-') then
StartupOptions:=StartupOptions and (not soReturnToLastDir); StartupOptions:=StartupOptions and (not soReturnToLastDir);
end; end;
'S' :
if Length(Param)=1 then
begin
UseMouse:=false;
ButtonCount:=0;
end;
end; end;
end end
else else
@ -230,7 +236,11 @@ BEGIN
END. END.
{ {
$Log$ $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 + uses ParseUserScreen and UpdateMode
Revision 1.39 2000/02/12 23:58:26 carl 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 begin
DoneSysError; DoneSysError;
DoneEvents; DoneEvents;
DoneMouse; If UseMouse then
DoneMouse
else
ButtonCount:=0;
{$ifndef go32v2}
DoneScreen; { this is available in FV app.pas (PFV) } DoneScreen; { this is available in FV app.pas (PFV) }
{$endif go32v2}
DoneDosMem; DoneDosMem;
if Assigned(UserScreen) then if Assigned(UserScreen) then
@ -638,13 +643,20 @@ begin
UserScreen^.SwitchBack; UserScreen^.SwitchBack;
InitDosMem; InitDosMem;
{$ifndef go32v2}
InitScreen; InitScreen;
InitMouse; {$endif go32v2}
If UseMouse then
InitMouse
else
ButtonCount:=0;
InitEvents; InitEvents;
InitSysError; InitSysError;
CurDirChanged; CurDirChanged;
Message(Application,evBroadcast,cmUpdate,nil); Message(Application,evBroadcast,cmUpdate,nil);
{$ifndef go32v2}
UpdateScreen(true); UpdateScreen(true);
{$endif go32v2}
end; end;
function TIDEApp.AutoSave: boolean; function TIDEApp.AutoSave: boolean;
@ -756,7 +768,7 @@ end;
procedure TIDEApp.UpdateINIFile; procedure TIDEApp.UpdateINIFile;
begin begin
SetMenuItemParam(SearchMenuItem(MenuBar^.Menu,cmSaveINI),SmartPath(INIPath)); SetMenuItemParam(SearchMenuItem(MenuBar^.Menu,cmSaveINI),SmartPath(IniFileName));
end; end;
procedure TIDEApp.UpdateRecentFileList; procedure TIDEApp.UpdateRecentFileList;
@ -915,7 +927,11 @@ end;
END. END.
{ {
$Log$ $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 + CtrlC handling
+ UpdateMode method + UpdateMode method