paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 04:02:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Rename LinkingOptionsFrame -> DebuggingOptionsFrame

Browse Source 
git-svn-id: trunk@42048 -
This commit is contained in:
juha 2013-07-10 09:38:14 +00:00
parent 82d8a8a308
commit f6e7e7d452
3 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/ideoptionsintf.pas
View File

@ -295,7 +295,7 @@ const
CompilerOptionsConfigTarget = 0250;
CompilerOptionsParsing = 0300;
CompilerOptionsCodeGeneration = 0400;
CompilerOptionsLinking = 0500;
CompilerOptionsDebugging = 0500;
CompilerOptionsVerbosity = 0600;
CompilerOptionsMessages = 0700;
CompilerOptionsOther = 0800;

2
ide/frames/compiler_debugging_options.lfm
View File

@ -1,4 +1,4 @@
object CompilerLinkingOptionsFrame: TCompilerLinkingOptionsFrame
object CompilerDebuggingOptionsFrame: TCompilerDebuggingOptionsFrame
Left = 0
Height = 552
Top = 0

27
ide/frames/compiler_debugging_options.pas
View File

@ -9,9 +9,9 @@ uses
type
{ TCompilerLinkingOptionsFrame }
{ TCompilerDebuggingOptionsFrame }
TCompilerLinkingOptionsFrame = class(TAbstractIDEOptionsEditor)
TCompilerDebuggingOptionsFrame = class(TAbstractIDEOptionsEditor)
chkDebugGDB: TCheckBox;
chkGenGProfCode: TCheckBox;
chkSymbolsStrip: TCheckBox;
@ -66,21 +66,20 @@ begin
end;
end;
{ TCompilerLinkingOptionsFrame }
{ TCompilerDebuggingOptionsFrame }
procedure TCompilerLinkingOptionsFrame.chkDebugGDBChange(Sender: TObject);
procedure TCompilerDebuggingOptionsFrame.chkDebugGDBChange(Sender: TObject);
begin
grpInfoForGDB.Enabled := chkDebugGDB.Checked;
end;
function TCompilerLinkingOptionsFrame.GetTitle: string;
function TCompilerDebuggingOptionsFrame.GetTitle: string;
begin
Result := dlgCODebugging;
end;
procedure TCompilerLinkingOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
procedure TCompilerDebuggingOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
begin
// Setup the Linking Tab
grpInfoForGDB.Caption := dlgCOInfoForGDB;
grpOtherDebuggingInfo.Caption := dlgCOOtherDebuggingInfo;
@ -101,7 +100,7 @@ begin
chkUseExternalDbgSyms.Caption := dlgExtSymb + ' (-Xg)';
end;
procedure TCompilerLinkingOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
procedure TCompilerDebuggingOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
with AOptions as TBaseCompilerOptions do
begin
@ -118,7 +117,7 @@ begin
grpInfoForGDB.Enabled := chkDebugGDB.Checked;
end;
procedure TCompilerLinkingOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
procedure TCompilerDebuggingOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
with AOptions as TBaseCompilerOptions do
begin
@ -133,16 +132,16 @@ begin
end;
end;
class function TCompilerLinkingOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
class function TCompilerDebuggingOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := TBaseCompilerOptions;
end;
initialization
RegisterIDEOptionsEditor(GroupCompiler, TCompilerLinkingOptionsFrame,
CompilerOptionsLinking);
RegisterIDEOptionsEditor(GroupPkgCompiler, TCompilerLinkingOptionsFrame,
CompilerOptionsLinking);
RegisterIDEOptionsEditor(GroupCompiler, TCompilerDebuggingOptionsFrame,
CompilerOptionsDebugging);
RegisterIDEOptionsEditor(GroupPkgCompiler, TCompilerDebuggingOptionsFrame,
CompilerOptionsDebugging);
end.