mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-11 10:39:20 +02:00
ide: add empty project resources options frame (disabled by ifdef atm)
git-svn-id: trunk@43212 -
This commit is contained in:
parent
fbe7c6e932
commit
2ef23fc630
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -5129,6 +5129,8 @@ ide/frames/project_lazdoc_options.lfm svneol=native#text/plain
|
||||
ide/frames/project_lazdoc_options.pas svneol=native#text/plain
|
||||
ide/frames/project_misc_options.lfm svneol=native#text/plain
|
||||
ide/frames/project_misc_options.pas svneol=native#text/plain
|
||||
ide/frames/project_resources_options.lfm svneol=native#text/plain
|
||||
ide/frames/project_resources_options.pas svneol=native#text/pascal
|
||||
ide/frames/project_save_options.lfm svneol=native#text/plain
|
||||
ide/frames/project_save_options.pas svneol=native#text/plain
|
||||
ide/frames/project_versioninfo_options.lfm svneol=native#text/plain
|
||||
|
@ -280,6 +280,7 @@ const
|
||||
ProjectOptionsLazDoc = 300;
|
||||
ProjectOptionsSave = 400;
|
||||
ProjectOptionsVersionInfo = 500;
|
||||
ProjectOptionsResources = 550;
|
||||
ProjectOptionsI18N = 600;
|
||||
ProjectOptionsMisc = 700;
|
||||
|
||||
|
9
ide/frames/project_resources_options.lfm
Normal file
9
ide/frames/project_resources_options.lfm
Normal file
@ -0,0 +1,9 @@
|
||||
object ResourcesOptionsFrame: TResourcesOptionsFrame
|
||||
Left = 0
|
||||
Height = 240
|
||||
Top = 0
|
||||
Width = 320
|
||||
TabOrder = 0
|
||||
DesignLeft = 260
|
||||
DesignTop = 149
|
||||
end
|
59
ide/frames/project_resources_options.pas
Normal file
59
ide/frames/project_resources_options.pas
Normal file
@ -0,0 +1,59 @@
|
||||
unit project_resources_options;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, FileUtil, Forms, Controls,
|
||||
IDEOptionsIntf, Project, LazarusIDEStrConsts;
|
||||
|
||||
type
|
||||
|
||||
{ TResourcesOptionsFrame }
|
||||
|
||||
TResourcesOptionsFrame = class(TAbstractIDEOptionsEditor)
|
||||
public
|
||||
function GetTitle: string; override;
|
||||
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
|
||||
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
|
||||
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
|
||||
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TResourcesOptionsFrame }
|
||||
|
||||
function TResourcesOptionsFrame.GetTitle: string;
|
||||
begin
|
||||
Result := dlgPOResources;
|
||||
end;
|
||||
|
||||
procedure TResourcesOptionsFrame.Setup(ADialog: TAbstractOptionsEditorDialog);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TResourcesOptionsFrame.ReadSettings(AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TResourcesOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
class function TResourcesOptionsFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
|
||||
begin
|
||||
Result := TProject;
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterIDEOptionsEditor(GroupProject, TResourcesOptionsFrame, ProjectOptionsResources);
|
||||
|
||||
end.
|
||||
|
@ -66,7 +66,7 @@
|
||||
<PackageName Value="SynEdit"/>
|
||||
</Item7>
|
||||
</RequiredPackages>
|
||||
<Units Count="109">
|
||||
<Units Count="110">
|
||||
<Unit0>
|
||||
<Filename Value="lazarus.pp"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -426,6 +426,7 @@
|
||||
<Filename Value="frames/project_application_options.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="ProjectApplicationOptionsFrame"/>
|
||||
<HasResources Value="True"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
<UnitName Value="project_application_options"/>
|
||||
</Unit51>
|
||||
@ -820,6 +821,13 @@
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<UnitName Value="etMessagesWnd"/>
|
||||
</Unit108>
|
||||
<Unit109>
|
||||
<Filename Value="frames/project_resources_options.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="ResourcesOptionsFrame"/>
|
||||
<ResourceBaseClass Value="Frame"/>
|
||||
<UnitName Value="project_resources_options"/>
|
||||
</Unit109>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
@ -2277,6 +2277,7 @@ resourcestring
|
||||
dlgProjectOptionsFor = 'Options for Project: %s';
|
||||
dlgPOApplication = 'Application';
|
||||
dlgPOFroms = 'Forms';
|
||||
dlgPOResources = 'Resources';
|
||||
dlgPOMisc = 'Miscellaneous';
|
||||
dlgPOI18n = 'i18n';
|
||||
rsEnableI18n = 'Enable i18n';
|
||||
|
@ -134,7 +134,7 @@ uses
|
||||
// project option frames
|
||||
project_application_options, project_forms_options, project_lazdoc_options,
|
||||
project_save_options, project_versioninfo_options, project_i18n_options,
|
||||
project_misc_options,
|
||||
project_misc_options, {$ifdef UseProjectResourcesFrame} project_resources_options, {$endif}
|
||||
// project compiler option frames
|
||||
compiler_path_options, compiler_config_target, compiler_parsing_options,
|
||||
compiler_codegen_options, compiler_debugging_options, compiler_verbosity_options,
|
||||
|
Loading…
Reference in New Issue
Block a user