mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-02 03:45:56 +02:00
4a8f1e918d
still possible from the breakpoint list
* COMPILER_1_0, FVISION, GABOR defines removed, only support new
FV and 1.9.x compilers
* Run directory added to Run menu
* Useless programinfo window removed
132 lines
3.5 KiB
PHP
132 lines
3.5 KiB
PHP
{
|
|
$Id$
|
|
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;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.4 2004-11-08 20:28:26 peter
|
|
* Breakpoints are now deleted when removed from source, disabling is
|
|
still possible from the breakpoint list
|
|
* COMPILER_1_0, FVISION, GABOR defines removed, only support new
|
|
FV and 1.9.x compilers
|
|
* Run directory added to Run menu
|
|
* Useless programinfo window removed
|
|
|
|
Revision 1.3 2004/11/03 12:05:54 florian
|
|
+ supported targets are now read dynamically from the included compiler
|
|
|
|
Revision 1.2 2002/09/07 15:40:43 peter
|
|
* old logs removed and tabs fixed
|
|
|
|
}
|