paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ TIDEApp.UpdateMode

Browse Source
This commit is contained in:
pierre 2000-03-07 21:45:33 +00:00
parent de32721a58
commit 88275be9de
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/text/fpmcomp.inc
View File

@ -66,6 +66,18 @@ begin
end;
end;
procedure TIDEApp.UpdateMode;
var ModeMenu : PMenuItem;
begin
ModeMenu:=PAdvancedMenuBar(MenuBar)^.GetMenuItem(cmSwitchesMode);
if assigned(ModeMenu) then
begin
If assigned(ModeMenu^.Param) then
DisposeStr(ModeMenu^.Param);
ModeMenu^.Param:=NewStr(KillTilde(SwitchesModeName[SwitchesMode]));
end;
end;
procedure TIDEApp.DoPrimaryFile;
var
D : PFileDialog;
@ -116,7 +128,10 @@ end;
{
$Log$
Revision 1.7 2000-01-10 14:59:08 pierre
Revision 1.8 2000-03-07 21:45:33 pierre
+ TIDEApp.UpdateMode
Revision 1.7 2000/01/10 14:59:08 pierre
* force recompiling if we change target OS
Revision 1.6 1999/06/25 00:37:56 pierre