mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-04 14:29:25 +01:00
692 lines
20 KiB
ObjectPascal
692 lines
20 KiB
ObjectPascal
{ /***************************************************************************
|
|
projectopts.pp - Lazarus IDE unit
|
|
-----------------------------------
|
|
|
|
***************************************************************************/
|
|
|
|
***************************************************************************
|
|
* *
|
|
* This source is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
* This code 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. See the GNU *
|
|
* General Public License for more details. *
|
|
* *
|
|
* A copy of the GNU General Public License is available on the World *
|
|
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
|
* obtain it by writing to the Free Software Foundation, *
|
|
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
|
* *
|
|
***************************************************************************
|
|
|
|
Author: Mattias Gaertner
|
|
|
|
Abstract:
|
|
Project options dialog
|
|
|
|
}
|
|
unit ProjectOpts;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Arrow, Buttons, LCLProc, Classes, CodeToolManager, Controls, Dialogs,
|
|
ExtCtrls, Forms, Graphics, IDEOptionDefs, IDEWindowIntf, LazarusIDEStrConsts,
|
|
LCLIntf, LResources, Project, ProjectIntf, StdCtrls, SysUtils, IDEProcs;
|
|
|
|
type
|
|
|
|
{ TProjectOptionsDialog }
|
|
|
|
TProjectOptionsDialog = class(TForm)
|
|
Label2: TLabel;
|
|
|
|
Notebook: TNotebook;
|
|
ApplicationPage: TPage;
|
|
FormsPage: TPage;
|
|
MiscPage: TPage;
|
|
LazDocPage: TPage;
|
|
SavePage: TPage;
|
|
|
|
// Application
|
|
AppSettingsGroupBox: TGroupBox;
|
|
OutputSettingsGroupBox: TGroupBox;
|
|
SelectDirectoryDialog: TSelectDirectoryDialog;
|
|
TitleLabel: TLabel;
|
|
TitleEdit: TEdit;
|
|
TargetFileLabel: TLabel;
|
|
TargetFileEdit: TEdit;
|
|
|
|
// Forms
|
|
FormsAutoCreatedLabel: TLabel;
|
|
FormsAutoCreatedListBox: TListBox;
|
|
FormsAvailFormsLabel: TLabel;
|
|
FormsAvailFormsListBox: TListBox;
|
|
FormsAddToAutoCreatedFormsBtn: TArrow;
|
|
FormsRemoveFromAutoCreatedFormsBtn: TArrow;
|
|
FormsMoveAutoCreatedFormUpBtn: TArrow;
|
|
FormsMoveAutoCreatedFormDownBtn: TArrow;
|
|
FormsAutoCreateNewFormsCheckBox: TCheckBox;
|
|
FormsMoveAutoCreatedFormsDownBtn: TArrow;
|
|
|
|
// Misc
|
|
MainUnitIsPascalSourceCheckBox: TCheckBox;
|
|
MainUnitHasUsesSectionForAllUnitsCheckBox: TCheckBox;
|
|
MainUnitHasCreateFormStatementsCheckBox: TCheckBox;
|
|
MainUnitHasTitleStatementCheckBox: TCheckBox;
|
|
RunnableCheckBox: TCheckBox;
|
|
AlwaysBuildCheckBox: TCheckBox;
|
|
|
|
//lazdoc settings
|
|
LazDocBrowseButton: TButton;
|
|
LazDocPathEdit: TEdit;
|
|
LazDocDeletePathButton: TButton;
|
|
LazDocAddPathButton: TButton;
|
|
LazDocPathsGroupBox: TGroupBox;
|
|
LazDocListBox: TListBox;
|
|
|
|
// Session
|
|
SaveClosedUnitInfoCheckBox: TCheckBox;
|
|
SaveOnlyProjectUnitInfoCheckBox: TCheckBox;
|
|
SaveSessionLocationRadioGroup: TRadioGroup;
|
|
|
|
// buttons at bottom
|
|
OKButton: TButton;
|
|
CancelButton: TButton;
|
|
|
|
procedure FormsPageResize(Sender: TObject);
|
|
procedure LazDocAddPathButtonClick(Sender: TObject);
|
|
procedure LazDocBrowseButtonClick(Sender: TObject);
|
|
procedure LazDocDeletePathButtonClick(Sender: TObject);
|
|
procedure ProjectOptionsClose(Sender: TObject;
|
|
var CloseAction: TCloseAction);
|
|
procedure ProjectOptionsResize(Sender: TObject);
|
|
procedure FormsAddToAutoCreatedFormsBtnClick(Sender: TObject);
|
|
procedure FormsRemoveFromAutoCreatedFormsBtnClick(Sender: TObject);
|
|
procedure FormsMoveAutoCreatedFormUpBtnClick(Sender: TObject);
|
|
procedure FormsMoveAutoCreatedFormDownBtnClick(Sender: TObject);
|
|
private
|
|
FProject: TProject;
|
|
procedure SetProject(AProject: TProject);
|
|
procedure SetupApplicationPage(PageIndex: Integer);
|
|
procedure SetupFormsPage(PageIndex: Integer);
|
|
procedure SetupMiscPage(PageIndex: Integer);
|
|
procedure SetupLazDocPage(PageIndex: Integer);
|
|
procedure SetupSavePage(PageIndex: Integer);
|
|
procedure FillAutoCreateFormsListbox;
|
|
procedure FillAvailFormsListBox;
|
|
function IndexOfAutoCreateForm(FormName: String): Integer;
|
|
function FirstAutoCreateFormSelected: Integer;
|
|
function FirstAvailFormSelected: Integer;
|
|
procedure SelectOnlyThisAutoCreateForm(Index: Integer);
|
|
function GetAutoCreatedFormsList: TStrings;
|
|
function GetProjectTitle: String;
|
|
function SetAutoCreateForms: Boolean;
|
|
function SetProjectTitle: Boolean;
|
|
public
|
|
constructor Create(TheOwner: TComponent); override;
|
|
property Project: TProject read FProject write SetProject;
|
|
end;
|
|
|
|
function ShowProjectOptionsDialog(AProject: TProject): TModalResult;
|
|
|
|
function ProjectSessionStorageToLocalizedName(s: TProjectSessionStorage): string;
|
|
function LocalizedNameToProjectSessionStorage(
|
|
const s: string): TProjectSessionStorage;
|
|
|
|
var
|
|
ProjectOptionsDialog: TProjectOptionsDialog;
|
|
|
|
implementation
|
|
|
|
|
|
function ShowProjectOptionsDialog(AProject: TProject): TModalResult;
|
|
begin
|
|
with TProjectOptionsDialog.Create(Nil) do
|
|
try
|
|
Project := AProject;
|
|
Result := ShowModal;
|
|
finally
|
|
Free;
|
|
end;
|
|
end;
|
|
|
|
function ProjectSessionStorageToLocalizedName(s: TProjectSessionStorage
|
|
): string;
|
|
begin
|
|
case s of
|
|
pssInProjectInfo: Result:=lisPOSaveInLpiFil;
|
|
pssInProjectDir: Result:=lisPOSaveInLpsFileInProjectDirectory;
|
|
pssInIDEConfig: Result:=lisPOSaveInIDEConfigDirectory;
|
|
pssNone: Result:=lisPODoNotSaveAnySessionInfo;
|
|
else
|
|
RaiseGDBException('');
|
|
end;
|
|
end;
|
|
|
|
function LocalizedNameToProjectSessionStorage(const s: string
|
|
): TProjectSessionStorage;
|
|
begin
|
|
for Result:=Low(TProjectSessionStorage) to High(TProjectSessionStorage) do
|
|
if ProjectSessionStorageToLocalizedName(Result)=s then exit;
|
|
Result:=pssInProjectInfo;
|
|
end;
|
|
|
|
|
|
{ TProjectOptionsDialog }
|
|
|
|
constructor TProjectOptionsDialog.Create(TheOwner: TComponent);
|
|
begin
|
|
inherited Create(TheOwner);
|
|
|
|
Caption := dlgProjectOptions;
|
|
OKButton.Caption:=lisOkBtn;
|
|
CancelButton.Caption:=dlgCancel;
|
|
|
|
NoteBook.PageIndex := 0;
|
|
|
|
SetupApplicationPage(0);
|
|
SetupFormsPage(1);
|
|
SetupMiscPage(2);
|
|
SetupLazDocPage(3);
|
|
SetupSavePage(4);
|
|
|
|
ProjectOptionsResize(TheOwner);
|
|
|
|
IDEDialogLayoutList.ApplyLayout(Self, 430, 375);
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.SetupApplicationPage(PageIndex: Integer);
|
|
begin
|
|
NoteBook.Page[PageIndex].Caption := dlgPOApplication;
|
|
|
|
AppSettingsGroupBox.Caption := dlgApplicationSettings;
|
|
TitleLabel.Caption := dlgPOTitle;
|
|
TitleEdit.Text := '';
|
|
OutputSettingsGroupBox.Caption := dlgPOOutputSettings;
|
|
TargetFileLabel.Caption := dlgPOTargetFileName;
|
|
TargetFileEdit.Text := '';
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.SetupLazDocPage(PageIndex: Integer);
|
|
begin
|
|
NoteBook.Page[PageIndex].Caption := lisLazDoc;
|
|
|
|
LazDocPathsGroupBox.Caption := lisLazDocPathsGroupBox;
|
|
LazDocAddPathButton.Caption := lisLazDocAddPathButton;
|
|
LazDocDeletePathButton.Caption := lisLazDocDeletePathButton;
|
|
|
|
LazDocPathEdit.Clear;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.SetupSavePage(PageIndex: Integer);
|
|
var
|
|
s: TProjectSessionStorage;
|
|
begin
|
|
NoteBook.Page[PageIndex].Caption := dlgPOSaveSession;
|
|
|
|
SaveClosedUnitInfoCheckBox.Caption := dlgSaveEditorInfo;
|
|
SaveOnlyProjectUnitInfoCheckBox.Caption := dlgSaveEditorInfoProject;
|
|
SaveSessionLocationRadioGroup.Caption:=lisPOSaveSessionInformationIn;
|
|
for s:=Low(TProjectSessionStorage) to High(TProjectSessionStorage) do
|
|
SaveSessionLocationRadioGroup.Items.Add(
|
|
ProjectSessionStorageToLocalizedName(s));
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.SetupFormsPage(PageIndex: Integer);
|
|
begin
|
|
NoteBook.Page[PageIndex].Caption := dlgPOFroms;
|
|
|
|
FormsAutoCreatedLabel.Caption := dlgAutoCreateForms;
|
|
FormsAvailFormsLabel.Caption := dlgAvailableForms;
|
|
FormsAutoCreateNewFormsCheckBox.Caption := dlgAutoCreateNewForms;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.SetupMiscPage(PageIndex: Integer);
|
|
begin
|
|
NoteBook.Page[PageIndex].Caption := dlgPOMisc;
|
|
|
|
MainUnitIsPascalSourceCheckBox.Caption := lisMainUnitIsPascalSource;
|
|
MainUnitHasUsesSectionForAllUnitsCheckBox.Caption := lisMainUnitHasUsesSectionContainingAllUnitsOfProject;
|
|
MainUnitHasCreateFormStatementsCheckBox.Caption := lisMainUnitHasApplicationCreateFormStatements;
|
|
MainUnitHasTitleStatementCheckBox.Caption := lisMainUnitHasApplicationTitleStatements;
|
|
RunnableCheckBox.Caption := lisProjectIsRunnable;
|
|
AlwaysBuildCheckBox.Caption := lisProjOptsAlwaysBuildEvenIfNothingChanged;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.SetProject(AProject: TProject);
|
|
begin
|
|
FProject := AProject;
|
|
if AProject = Nil then
|
|
exit;
|
|
|
|
with AProject do
|
|
begin
|
|
TitleEdit.Text := Title;
|
|
TargetFileEdit.Text := TargetFilename;
|
|
end;
|
|
FillAutoCreateFormsListbox;
|
|
FillAvailFormsListBox;
|
|
|
|
FormsAutoCreateNewFormsCheckBox.Checked := Project.AutoCreateForms;
|
|
|
|
SaveClosedUnitInfoCheckBox.Checked := (pfSaveClosedUnits in AProject.Flags);
|
|
SaveOnlyProjectUnitInfoCheckBox.Checked :=
|
|
(pfSaveOnlyProjectUnits in AProject.Flags);
|
|
SaveSessionLocationRadioGroup.ItemIndex:=ord(AProject.SessionStorage);
|
|
|
|
MainUnitIsPascalSourceCheckBox.Checked :=
|
|
(pfMainUnitIsPascalSource in AProject.Flags);
|
|
MainUnitHasUsesSectionForAllUnitsCheckBox.Checked :=
|
|
(pfMainUnitHasUsesSectionForAllUnits in AProject.Flags);
|
|
MainUnitHasCreateFormStatementsCheckBox.Checked :=
|
|
(pfMainUnitHasCreateFormStatements in AProject.Flags);
|
|
MainUnitHasTitleStatementCheckBox.Checked :=
|
|
(pfMainUnitHasTitleStatement in AProject.Flags);
|
|
RunnableCheckBox.Checked := (pfRunnable in AProject.Flags);
|
|
AlwaysBuildCheckBox.Checked := (pfAlwaysBuild in AProject.Flags);
|
|
|
|
//lazdoc
|
|
SplitString(Project.LazDocPaths,';',LazDocListBox.Items,true);
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.ProjectOptionsClose(Sender: TObject;
|
|
var CloseAction: TCloseAction);
|
|
var
|
|
NewFlags: TProjectFlags;
|
|
|
|
procedure SetProjectFlag(AFlag: TProjectFlag; AValue: Boolean);
|
|
begin
|
|
if AValue then
|
|
Include(NewFlags, AFlag)
|
|
else
|
|
Exclude(NewFlags, AFlag);
|
|
end;
|
|
|
|
begin
|
|
if ModalResult = mrOk then
|
|
begin
|
|
|
|
with Project do
|
|
begin
|
|
Title := TitleEdit.Text;
|
|
TargetFilename := TargetFileEdit.Text;
|
|
end;
|
|
|
|
// flags
|
|
NewFlags := Project.Flags;
|
|
SetProjectFlag(pfSaveClosedUnits, SaveClosedUnitInfoCheckBox.Checked);
|
|
SetProjectFlag(pfSaveOnlyProjectUnits,
|
|
SaveOnlyProjectUnitInfoCheckBox.Checked);
|
|
SetProjectFlag(pfMainUnitIsPascalSource,
|
|
MainUnitIsPascalSourceCheckBox.Checked);
|
|
SetProjectFlag(pfMainUnitHasUsesSectionForAllUnits,
|
|
MainUnitHasUsesSectionForAllUnitsCheckBox.Checked);
|
|
SetProjectFlag(pfMainUnitHasCreateFormStatements,
|
|
MainUnitHasCreateFormStatementsCheckBox.Checked);
|
|
SetProjectFlag(pfMainUnitHasTitleStatement,
|
|
MainUnitHasTitleStatementCheckBox.Checked);
|
|
SetProjectFlag(pfRunnable, RunnableCheckBox.Checked);
|
|
SetProjectFlag(pfAlwaysBuild, AlwaysBuildCheckBox.Checked);
|
|
Project.Flags := NewFlags;
|
|
|
|
if SaveSessionLocationRadioGroup.ItemIndex>=0 then
|
|
Project.SessionStorage:=LocalizedNameToProjectSessionStorage(
|
|
SaveSessionLocationRadioGroup.Items[
|
|
SaveSessionLocationRadioGroup.ItemIndex]);
|
|
|
|
Project.AutoCreateForms := FormsAutoCreateNewFormsCheckBox.Checked;
|
|
|
|
SetAutoCreateForms;
|
|
SetProjectTitle;
|
|
|
|
//lazdoc
|
|
|
|
Project.LazDocPaths:=StringListToText(LazDocListBox.Items,';',true);
|
|
end;
|
|
|
|
IDEDialogLayoutList.SaveLayout(Self);
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.LazDocAddPathButtonClick(Sender: TObject);
|
|
begin
|
|
if LazDocPathEdit.Text <> '' then
|
|
LazDocListBox.Items.Add(LazDocPathEdit.Text);
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.FormsPageResize(Sender: TObject);
|
|
begin
|
|
with FormsAutoCreatedListBox do
|
|
begin
|
|
Width := (FormsPage.Width - Left * 2 - 6) div 2;
|
|
end;
|
|
|
|
with FormsAvailFormsLabel do
|
|
Left := FormsAvailFormsListBox.Left;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.LazDocBrowseButtonClick(Sender: TObject);
|
|
begin
|
|
if SelectDirectoryDialog.Execute then
|
|
LazDocPathEdit.Text := SelectDirectoryDialog.FileName;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.LazDocDeletePathButtonClick(Sender: TObject);
|
|
begin
|
|
if (LazDocListBox.ItemIndex >= 0) then
|
|
LazDocListBox.Items.Delete(LazDocListBox.ItemIndex);
|
|
end;
|
|
|
|
function TProjectOptionsDialog.GetAutoCreatedFormsList: TStrings;
|
|
var
|
|
i, j: Integer;
|
|
begin
|
|
if (FProject <> Nil) and (FProject.MainUnitID >= 0) then
|
|
begin
|
|
Result := CodeToolBoss.ListAllCreateFormStatements(
|
|
FProject.MainUnitInfo.Source);
|
|
if Result <> Nil then
|
|
for i := 0 to Result.Count - 1 do
|
|
begin
|
|
j := Pos(':', Result[i]);
|
|
if j > 0 then
|
|
if 't' + lowercase(copy(Result[i], 1, j - 1)) = lowercase(
|
|
copy(Result[i], j + 1, length(Result[i]) - j)) then
|
|
Result[i] := copy(Result[i], 1, j - 1);
|
|
end// shorten lines of type 'FormName:TFormName' to simply 'FormName'
|
|
;
|
|
end
|
|
else
|
|
Result := Nil;
|
|
end;
|
|
|
|
function TProjectOptionsDialog.GetProjectTitle: String;
|
|
begin
|
|
Result := '';
|
|
if (FProject = Nil) or (FProject.MainUnitID < 0) then
|
|
exit;
|
|
CodeToolBoss.GetApplicationTitleStatement(
|
|
FProject.MainUnitInfo.Source, Result);
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.FillAutoCreateFormsListbox;
|
|
var
|
|
sl: TStrings;
|
|
begin
|
|
sl := GetAutoCreatedFormsList;
|
|
FormsAutoCreatedListBox.Items.BeginUpdate;
|
|
FormsAutoCreatedListBox.Items.Clear;
|
|
if sl <> Nil then
|
|
begin
|
|
FormsAutoCreatedListBox.Items.Assign(sl);
|
|
sl.Free;
|
|
end;
|
|
FormsAutoCreatedListBox.Items.EndUpdate;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.FillAvailFormsListBox;
|
|
var
|
|
sl: TStringList;
|
|
i: Integer;
|
|
begin
|
|
FormsAvailFormsListBox.Items.BeginUpdate;
|
|
FormsAvailFormsListBox.Items.Clear;
|
|
|
|
if (FProject <> Nil) then
|
|
begin
|
|
sl := TStringList.Create;
|
|
try
|
|
for i := 0 to FProject.UnitCount - 1 do
|
|
if (FProject.Units[i].IsPartOfProject) and
|
|
(FProject.Units[i].ComponentName <> '') and
|
|
(IndexOfAutoCreateForm(FProject.Units[i].ComponentName) < 0) then
|
|
sl.Add(FProject.Units[i].ComponentName);
|
|
sl.Sort;
|
|
FormsAvailFormsListBox.Items.Assign(sl);
|
|
finally
|
|
sl.Free;
|
|
end;
|
|
end;
|
|
FormsAvailFormsListBox.Items.EndUpdate;
|
|
end;
|
|
|
|
function TProjectOptionsDialog.IndexOfAutoCreateForm(FormName:
|
|
String): Integer;
|
|
var
|
|
p: Integer;
|
|
begin
|
|
p := Pos(':', FormName);
|
|
if p > 0 then
|
|
FormName := copy(FormName, 1, p - 1);
|
|
Result := FormsAutoCreatedListBox.Items.Count - 1;
|
|
while (Result >= 0) do
|
|
begin
|
|
p := Pos(':', FormsAutoCreatedListBox.Items[Result]);
|
|
if p < 1 then
|
|
p := length(FormsAutoCreatedListBox.Items[Result]) + 1;
|
|
if AnsiCompareText(copy(FormsAutoCreatedListBox.Items[Result], 1, p - 1)
|
|
, FormName) = 0 then
|
|
exit;
|
|
dec(Result);
|
|
end;
|
|
end;
|
|
|
|
function TProjectOptionsDialog.FirstAutoCreateFormSelected: Integer;
|
|
begin
|
|
Result := 0;
|
|
while (Result < FormsAutoCreatedListBox.Items.Count) and
|
|
(not FormsAutoCreatedListBox.Selected[Result]) do
|
|
inc(Result);
|
|
if Result = FormsAutoCreatedListBox.Items.Count then
|
|
Result := -1;
|
|
end;
|
|
|
|
function TProjectOptionsDialog.FirstAvailFormSelected: Integer;
|
|
begin
|
|
Result := 0;
|
|
while (Result < FormsAvailFormsListBox.Items.Count) and
|
|
(not FormsAvailFormsListBox.Selected[Result]) do
|
|
inc(Result);
|
|
if Result = FormsAvailFormsListBox.Items.Count then
|
|
Result := -1;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.FormsAddToAutoCreatedFormsBtnClick(
|
|
Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
NewFormName: String;
|
|
begin
|
|
FormsAutoCreatedListBox.Items.BeginUpdate;
|
|
with FormsAvailFormsListBox do
|
|
begin
|
|
Items.BeginUpdate;
|
|
i := 0;
|
|
while i < Items.Count do
|
|
if Selected[i] then
|
|
begin
|
|
NewFormName := Items[i];
|
|
Items.Delete(i);
|
|
FormsAutoCreatedListBox.Items.Add(NewFormName);
|
|
end
|
|
else
|
|
inc(i);
|
|
Items.EndUpdate;
|
|
end;
|
|
FormsAutoCreatedListBox.Items.EndUpdate;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.FormsRemoveFromAutoCreatedFormsBtnClick(
|
|
Sender: TObject);
|
|
var
|
|
i, NewPos, cmp: Integer;
|
|
OldFormName: String;
|
|
begin
|
|
FormsAutoCreatedListBox.Items.BeginUpdate;
|
|
FormsAvailFormsListBox.Items.BeginUpdate;
|
|
i := 0;
|
|
while i < FormsAutoCreatedListBox.Items.Count do
|
|
if FormsAutoCreatedListBox.Selected[i] then
|
|
begin
|
|
OldFormName := FormsAutoCreatedListBox.Items[i];
|
|
FormsAutoCreatedListBox.Items.Delete(i);
|
|
NewPos := 0;
|
|
cmp := 1;
|
|
while (NewPos < FormsAvailFormsListBox.Items.Count) do
|
|
begin
|
|
cmp := AnsiCompareText(FormsAvailFormsListBox.Items[NewPos], OldFormName);
|
|
if cmp < 0 then
|
|
inc(NewPos)
|
|
else
|
|
break;
|
|
end;
|
|
if cmp = 0 then
|
|
continue;
|
|
FormsAvailFormsListBox.Items.Insert(NewPos, OldFormName);
|
|
end
|
|
else
|
|
inc(i);
|
|
FormsAvailFormsListBox.Items.EndUpdate;
|
|
FormsAutoCreatedListBox.Items.EndUpdate;
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.FormsMoveAutoCreatedFormUpBtnClick(
|
|
Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
h: String;
|
|
begin
|
|
i := FirstAutoCreateFormSelected;
|
|
if i < 1 then
|
|
exit;
|
|
with FormsAutoCreatedListBox do
|
|
begin
|
|
Items.BeginUpdate;
|
|
h := Items[i];
|
|
Items[i] := Items[i - 1];
|
|
Items[i - 1] := h;
|
|
Items.EndUpdate;
|
|
end;
|
|
SelectOnlyThisAutoCreateForm(i - 1);
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.FormsMoveAutoCreatedFormDownBtnClick(
|
|
Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
h: String;
|
|
begin
|
|
i := FirstAutoCreateFormSelected;
|
|
if (i < 0) or (i >= FormsAutoCreatedListBox.Items.Count - 1) then
|
|
exit;
|
|
with FormsAutoCreatedListBox do
|
|
begin
|
|
Items.BeginUpdate;
|
|
h := Items[i];
|
|
Items[i] := Items[i + 1];
|
|
Items[i + 1] := h;
|
|
Items.EndUpdate;
|
|
end;
|
|
SelectOnlyThisAutoCreateForm(i + 1);
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.ProjectOptionsResize(Sender: TObject);
|
|
begin
|
|
end;
|
|
|
|
procedure TProjectOptionsDialog.SelectOnlyThisAutoCreateForm(Index: Integer);
|
|
var
|
|
i: Integer;
|
|
begin
|
|
with FormsAutoCreatedListBox do
|
|
for i := 0 to Items.Count - 1 do
|
|
Selected[i] := (i = Index);
|
|
end;
|
|
|
|
function TProjectOptionsDialog.SetAutoCreateForms: Boolean;
|
|
var
|
|
i: Integer;
|
|
OldList: TStrings;
|
|
begin
|
|
Result := True;
|
|
if (Project.MainUnitID < 0) or
|
|
(not (pfMainUnitHasUsesSectionForAllUnits in Project.Flags)) then
|
|
exit;
|
|
OldList := GetAutoCreatedFormsList;
|
|
if (OldList = Nil) then
|
|
exit;
|
|
try
|
|
if OldList.Count = FormsAutoCreatedListBox.Items.Count then
|
|
begin
|
|
|
|
{ Just exit if the form list is the same }
|
|
i := OldList.Count - 1;
|
|
while (i >= 0) and
|
|
(CompareText(OldList[i], FormsAutoCreatedListBox.Items[i]) = 0) do
|
|
dec(i);
|
|
if i < 0 then
|
|
Exit;
|
|
end;
|
|
|
|
if not CodeToolBoss.SetAllCreateFromStatements(
|
|
Project.MainUnitInfo.Source, FormsAutoCreatedListBox.Items) then
|
|
begin
|
|
MessageDlg(lisProjOptsError,
|
|
Format(lisProjOptsUnableToChangeTheAutoCreateFormList, [LineEnding]),
|
|
mtWarning, [mbCancel], 0);
|
|
Result := False;
|
|
exit;
|
|
end;
|
|
finally
|
|
OldList.Free;
|
|
end;
|
|
end;
|
|
|
|
function TProjectOptionsDialog.SetProjectTitle: Boolean;
|
|
var
|
|
OldTitle: String;
|
|
begin
|
|
Result := True;
|
|
if (Project.MainUnitID < 0) or
|
|
(not (pfMainUnitHasTitleStatement in Project.Flags)) then
|
|
exit;
|
|
OldTitle := GetProjectTitle;
|
|
if (OldTitle = '') and Project.TitleIsDefault then
|
|
exit;
|
|
|
|
if (OldTitle <> Project.Title) and (not Project.TitleIsDefault) then
|
|
if not CodeToolBoss.SetApplicationTitleStatement(
|
|
Project.MainUnitInfo.Source, Project.Title) then
|
|
begin
|
|
MessageDlg(lisProjOptsError,
|
|
'Unable to change project title in source.'#13 +
|
|
CodeToolBoss.ErrorMessage,
|
|
mtWarning, [mbCancel], 0);
|
|
Result := False;
|
|
end// set Application.Title:= statement
|
|
;
|
|
|
|
if (OldTitle <> '') and Project.TitleIsDefault then
|
|
if not CodeToolBoss.RemoveApplicationTitleStatement(
|
|
Project.MainUnitInfo.Source) then
|
|
begin
|
|
MessageDlg(lisProjOptsError,
|
|
'Unable to remove project title from source.'#13 +
|
|
CodeToolBoss.ErrorMessage,
|
|
mtWarning, [mbCancel], 0);
|
|
Result := False;
|
|
end// delete title
|
|
;
|
|
end;
|
|
|
|
initialization
|
|
{$I projectopts.lrs}
|
|
|
|
end.
|