ide: add empty project resources options frame (disabled by ifdef atm)

git-svn-id: trunk@43212 -
This commit is contained in:
paul 2013-10-12 04:51:53 +00:00
parent fbe7c6e932
commit 2ef23fc630
7 changed files with 82 additions and 2 deletions

2
.gitattributes vendored
View File

@ -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_lazdoc_options.pas svneol=native#text/plain
ide/frames/project_misc_options.lfm 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_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.lfm svneol=native#text/plain
ide/frames/project_save_options.pas svneol=native#text/plain ide/frames/project_save_options.pas svneol=native#text/plain
ide/frames/project_versioninfo_options.lfm svneol=native#text/plain ide/frames/project_versioninfo_options.lfm svneol=native#text/plain

View File

@ -280,6 +280,7 @@ const
ProjectOptionsLazDoc = 300; ProjectOptionsLazDoc = 300;
ProjectOptionsSave = 400; ProjectOptionsSave = 400;
ProjectOptionsVersionInfo = 500; ProjectOptionsVersionInfo = 500;
ProjectOptionsResources = 550;
ProjectOptionsI18N = 600; ProjectOptionsI18N = 600;
ProjectOptionsMisc = 700; ProjectOptionsMisc = 700;

View File

@ -0,0 +1,9 @@
object ResourcesOptionsFrame: TResourcesOptionsFrame
Left = 0
Height = 240
Top = 0
Width = 320
TabOrder = 0
DesignLeft = 260
DesignTop = 149
end

View 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.

View File

@ -66,7 +66,7 @@
<PackageName Value="SynEdit"/> <PackageName Value="SynEdit"/>
</Item7> </Item7>
</RequiredPackages> </RequiredPackages>
<Units Count="109"> <Units Count="110">
<Unit0> <Unit0>
<Filename Value="lazarus.pp"/> <Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -426,6 +426,7 @@
<Filename Value="frames/project_application_options.pas"/> <Filename Value="frames/project_application_options.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="ProjectApplicationOptionsFrame"/> <ComponentName Value="ProjectApplicationOptionsFrame"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Frame"/> <ResourceBaseClass Value="Frame"/>
<UnitName Value="project_application_options"/> <UnitName Value="project_application_options"/>
</Unit51> </Unit51>
@ -820,6 +821,13 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="etMessagesWnd"/> <UnitName Value="etMessagesWnd"/>
</Unit108> </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> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

View File

@ -2277,6 +2277,7 @@ resourcestring
dlgProjectOptionsFor = 'Options for Project: %s'; dlgProjectOptionsFor = 'Options for Project: %s';
dlgPOApplication = 'Application'; dlgPOApplication = 'Application';
dlgPOFroms = 'Forms'; dlgPOFroms = 'Forms';
dlgPOResources = 'Resources';
dlgPOMisc = 'Miscellaneous'; dlgPOMisc = 'Miscellaneous';
dlgPOI18n = 'i18n'; dlgPOI18n = 'i18n';
rsEnableI18n = 'Enable i18n'; rsEnableI18n = 'Enable i18n';

View File

@ -134,7 +134,7 @@ uses
// project option frames // project option frames
project_application_options, project_forms_options, project_lazdoc_options, project_application_options, project_forms_options, project_lazdoc_options,
project_save_options, project_versioninfo_options, project_i18n_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 // project compiler option frames
compiler_path_options, compiler_config_target, compiler_parsing_options, compiler_path_options, compiler_config_target, compiler_parsing_options,
compiler_codegen_options, compiler_debugging_options, compiler_verbosity_options, compiler_codegen_options, compiler_debugging_options, compiler_verbosity_options,