mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +01:00
114 lines
2.9 KiB
PHP
114 lines
2.9 KiB
PHP
{
|
|
This file is part of the Free Pascal Integrated Development Environment
|
|
Copyright (c) 1998 by Berczi Gabor
|
|
|
|
Compiler menu entries
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
procedure TIDEApp.Target;
|
|
var R,R2: TRect;
|
|
D: PCenterDialog;
|
|
RB: PRadioButtons;
|
|
TargetCount,I: integer;
|
|
LastItem: PSItem;
|
|
L: longint;
|
|
begin
|
|
TargetCount:=TargetSwitches^.ItemCount;
|
|
R.Assign(0,0,60,4+TargetCount);
|
|
New(D, Init(R, dialog_target));
|
|
with D^ do
|
|
begin
|
|
HelpCtx:=hcTarget;
|
|
GetExtent(R); R.Grow(-3,-1); Inc(R.A.Y);
|
|
R2.Copy(R); Inc(R2.A.Y); R2.B.Y:=R2.A.Y+TargetCount;
|
|
LastItem:=nil;
|
|
for I:=TargetCount-1 downto 0 do
|
|
LastItem:=NewSItem(TargetSwitches^.ItemName(I), LastItem);
|
|
New(RB, Init(R2, LastItem));
|
|
L:=ord(TargetSwitches^.GetCurrSel);
|
|
RB^.SetData(L);
|
|
Insert(RB);
|
|
R2.Copy(R);
|
|
R2.B.Y:=R2.A.Y+1;
|
|
Insert(New(PLabel, Init(R2, label_target_platform, RB)));
|
|
end;
|
|
InsertButtons(D);
|
|
RB^.Select;
|
|
if Desktop^.ExecView(D)=cmOK then
|
|
begin
|
|
TargetSwitches^.SetCurrSel(RB^.Value);
|
|
{ we allways need to recompile if we change
|
|
the target OS PM }
|
|
if L<>RB^.Value then
|
|
PrevMainFile:='';
|
|
UpdateTarget;
|
|
end;
|
|
Dispose(D, Done);
|
|
end;
|
|
|
|
procedure TIDEApp.UpdateTarget;
|
|
var TargetMenu : PMenuItem;
|
|
begin
|
|
TargetMenu:=PAdvancedMenuBar(MenuBar)^.GetMenuItem(cmTarget);
|
|
if assigned(TargetMenu) then
|
|
begin
|
|
If assigned(TargetMenu^.Param) then
|
|
DisposeStr(TargetMenu^.Param);
|
|
TargetMenu^.Param:=NewStr(KillTilde(TargetSwitches^.ItemName(TargetSwitches^.GetCurrSel)));
|
|
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;
|
|
FileName : string;
|
|
begin
|
|
New(D, Init('*.pri;*.pas',label_primaryfile_primaryfile,'*.pri;*.pas',fdOpenButton,hidPrimaryFile));
|
|
D^.HelpCtx:=hcPrimaryFile;
|
|
if Desktop^.ExecView(D)<>cmCancel then
|
|
begin
|
|
D^.GetFileName(FileName);
|
|
SetPrimaryFile(FileName);
|
|
UpdatePrimaryFile;
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TIDEApp.DoClearPrimary;
|
|
begin
|
|
PrimaryFile:='';
|
|
PrimaryFileMain:='';
|
|
PrimaryFileSwitches:='';
|
|
PrimaryFilePara:='';
|
|
UpdatePrimaryFile;
|
|
end;
|
|
|
|
|
|
procedure TIDEApp.DoCompilerMessages;
|
|
begin
|
|
if not CompilerMessageWindow^.GetState(sfVisible) then
|
|
CompilerMessageWindow^.Show;
|
|
CompilerMessageWindow^.MakeFirst;
|
|
end;
|
|
|