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

IDE: rename also the form and functions ManageExamples -> ExampleManager

Browse Source 
git-svn-id: trunk@41098 -
This commit is contained in:
juha 2013-05-09 15:37:16 +00:00
parent bdba8f2a01
commit 5e8fd84cce
4 changed files with 62 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
ide/examplemanager.lfm
View File

@ -1,9 +1,9 @@
object ManageExamplesForm: TManageExamplesForm
object ExampleManagerForm: TExampleManagerForm
Left = 356
Height = 491
Top = 130
Width = 837
Caption = 'ManageExamplesForm'
Caption = 'ExampleManagerForm'
ClientHeight = 491
ClientWidth = 837
OnClose = FormClose
@ -12,14 +12,14 @@ object ManageExamplesForm: TManageExamplesForm
LCLVersion = '1.1'
object ProjectsGroupBox: TGroupBox
Left = 0
Height = 334
Height = 338
Top = 107
Width = 424
Align = alClient
BorderSpacing.Top = 3
Caption = 'Projects'
ClientHeight = 315
ClientWidth = 420
ClientHeight = 309
ClientWidth = 418
TabOrder = 0
object ProjectsListBox: TListBox
AnchorSideLeft.Control = ProjectsGroupBox
@ -30,22 +30,20 @@ object ManageExamplesForm: TManageExamplesForm
AnchorSideBottom.Control = ProjectsGroupBox
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 284
Top = 31
Width = 420
Height = 280
Top = 29
Width = 418
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 5
ItemHeight = 0
MultiSelect = True
OnSelectionChange = ProjectsListBoxSelectionChange
ScrollWidth = 416
TabOrder = 0
TopIndex = -1
end
object ProjectFilter: TListFilterEdit
AnchorSideLeft.Control = ProjectsListBox
Left = 0
Height = 25
Height = 23
Top = 1
Width = 221
ButtonWidth = 23
@ -61,8 +59,8 @@ object ManageExamplesForm: TManageExamplesForm
AnchorSideTop.Side = asrCenter
Left = 271
Height = 21
Top = 3
Width = 112
Top = 2
Width = 113
BorderSpacing.Left = 50
Caption = 'Relative paths'
OnClick = RelativeCheckBoxClick
@ -72,8 +70,8 @@ object ManageExamplesForm: TManageExamplesForm
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 38
Top = 447
Height = 34
Top = 451
Width = 825
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
@ -89,7 +87,7 @@ object ManageExamplesForm: TManageExamplesForm
object ActionGroupBox: TGroupBox
AnchorSideLeft.Side = asrBottom
Left = 432
Height = 334
Height = 338
Top = 107
Width = 405
Align = alRight
@ -97,16 +95,16 @@ object ManageExamplesForm: TManageExamplesForm
BorderSpacing.Left = 3
BorderSpacing.Top = 3
Caption = 'Action'
ClientHeight = 315
ClientWidth = 401
ClientHeight = 309
ClientWidth = 399
TabOrder = 2
object Label1: TLabel
AnchorSideTop.Control = BuildAllSelectedButton
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = BuildAllSelectedButton
AnchorSideRight.Side = asrBottom
Left = 258
Height = 17
Left = 256
Height = 15
Top = 31
Width = 130
Anchors = [akTop, akRight]
@ -140,7 +138,7 @@ object ManageExamplesForm: TManageExamplesForm
Left = 208
Height = 25
Top = 6
Width = 187
Width = 185
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 6
Caption = 'Build All Selected'
@ -173,7 +171,7 @@ object ManageExamplesForm: TManageExamplesForm
Left = 208
Height = 25
Top = 48
Width = 187
Width = 185
Anchors = [akTop, akLeft, akRight]
Caption = 'Select None'
Enabled = False
@ -189,9 +187,9 @@ object ManageExamplesForm: TManageExamplesForm
AnchorSideBottom.Control = ActionGroupBox
AnchorSideBottom.Side = asrBottom
Left = 2
Height = 235
Height = 229
Top = 78
Width = 397
Width = 395
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 3
BorderSpacing.Around = 2
@ -214,10 +212,10 @@ object ManageExamplesForm: TManageExamplesForm
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ExamplesCheckBox
AnchorSideTop.Side = asrCenter
Left = 420
Left = 419
Height = 21
Top = 5
Width = 134
Width = 136
BorderSpacing.Left = 33
Caption = 'Include Testcases'
OnChange = ExamplesCheckBoxChange
@ -229,7 +227,7 @@ object ManageExamplesForm: TManageExamplesForm
Left = 253
Height = 21
Top = 5
Width = 134
Width = 133
BorderSpacing.Top = 3
Caption = 'Include Examples'
Checked = True
@ -262,8 +260,8 @@ object ManageExamplesForm: TManageExamplesForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 253
Height = 25
Top = 61
Height = 23
Top = 57
Width = 542
ShowHidden = False
ButtonWidth = 23
@ -281,7 +279,7 @@ object ManageExamplesForm: TManageExamplesForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 253
Height = 27
Height = 23
Top = 27
Width = 566
Anchors = [akTop, akLeft, akRight]
@ -294,7 +292,7 @@ object ManageExamplesForm: TManageExamplesForm
end
object Splitter1: TSplitter
Left = 424
Height = 337
Height = 341
Top = 104
Width = 5
Align = alRight

56
ide/examplemanager.pas
View File

@ -11,9 +11,9 @@ uses
type
{ TManageExamplesForm }
{ TExampleManagerForm }
TManageExamplesForm = class(TForm)
TExampleManagerForm = class(TForm)
BuildAllSelectedButton: TBitBtn;
SelectPanel: TPanel;
RelativeCheckBox: TCheckBox;
@ -63,19 +63,19 @@ type
property IdleConnected: boolean read fIdleConnected write SetIdleConnected;
end;
function ShowManageExamplesDlg: TModalResult;
function ShowExampleManagerDlg: TModalResult;
implementation
{$R *.lfm}
function ShowManageExamplesDlg: TModalResult;
function ShowExampleManagerDlg: TModalResult;
var
theForm: TManageExamplesForm;
theForm: TExampleManagerForm;
begin
Result:=mrCancel;
theForm:=TManageExamplesForm.Create(Nil);
theForm:=TExampleManagerForm.Create(Nil);
try
Result:=theForm.ShowModal;
if Result=mrYes then
@ -93,11 +93,11 @@ type
TListFileSearcher = class(TFileSearcher)
private
fForm: TManageExamplesForm;
fForm: TExampleManagerForm;
protected
procedure DoFileFound; override;
public
constructor Create(aForm: TManageExamplesForm);
constructor Create(aForm: TExampleManagerForm);
end;
{ TListFileSearcher }
@ -107,15 +107,15 @@ begin
fForm.ProjectFilter.Items.Add(FileName);
end;
constructor TListFileSearcher.Create(aForm: TManageExamplesForm);
constructor TListFileSearcher.Create(aForm: TExampleManagerForm);
begin
inherited Create;
fForm := aForm;
end;
{ TManageExamplesForm }
{ TExampleManagerForm }
constructor TManageExamplesForm.Create(AnOwner: TComponent);
constructor TExampleManagerForm.Create(AnOwner: TComponent);
begin
inherited Create(AnOwner);
fFirstSelectedIndex:=-1;
@ -152,34 +152,34 @@ begin
FillProjectsPending;
end;
destructor TManageExamplesForm.Destroy;
destructor TExampleManagerForm.Destroy;
begin
inherited Destroy;
end;
procedure TManageExamplesForm.FormCreate(Sender: TObject);
procedure TExampleManagerForm.FormCreate(Sender: TObject);
begin
IDEDialogLayoutList.ApplyLayout(Self);
end;
procedure TManageExamplesForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure TExampleManagerForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
IDEDialogLayoutList.SaveLayout(Self);
end;
procedure TManageExamplesForm.FillDirectoriesPending;
procedure TExampleManagerForm.FillDirectoriesPending;
begin
fNeedsFindDirectories:=True;
IdleConnected:=True;
end;
procedure TManageExamplesForm.FillProjectsPending;
procedure TExampleManagerForm.FillProjectsPending;
begin
fNeedsFindProjects:=True;
IdleConnected:=True;
end;
procedure TManageExamplesForm.SetIdleConnected(const AValue: boolean);
procedure TExampleManagerForm.SetIdleConnected(const AValue: boolean);
begin
if fIdleConnected=AValue then exit;
fIdleConnected:=AValue;
@ -189,7 +189,7 @@ begin
Application.RemoveOnIdleHandler(@OnIdle);
end;
procedure TManageExamplesForm.OnIdle(Sender: TObject; var Done: Boolean);
procedure TExampleManagerForm.OnIdle(Sender: TObject; var Done: Boolean);
var
Searcher: TListFileSearcher;
AllDirs: TStringList;
@ -241,7 +241,7 @@ begin
fUpdating:=False;
end;
procedure TManageExamplesForm.RootRadioGroupClick(Sender: TObject);
procedure TExampleManagerForm.RootRadioGroupClick(Sender: TObject);
var
LazSrc: Boolean;
begin
@ -252,7 +252,7 @@ begin
RootDirectoryEdit.Enabled:=not LazSrc;
end;
procedure TManageExamplesForm.DirectoryComboBoxChange(Sender: TObject);
procedure TExampleManagerForm.DirectoryComboBoxChange(Sender: TObject);
begin
if DirectoryExists(DirectoryComboBox.Text) then begin
RootDirectoryEdit.Text:=DirectoryComboBox.Text;
@ -260,17 +260,17 @@ begin
end;
end;
procedure TManageExamplesForm.RootDirectoryEditChange(Sender: TObject);
procedure TExampleManagerForm.RootDirectoryEditChange(Sender: TObject);
begin
FillProjectsPending;
end;
procedure TManageExamplesForm.ExamplesCheckBoxChange(Sender: TObject);
procedure TExampleManagerForm.ExamplesCheckBoxChange(Sender: TObject);
begin
FillDirectoriesPending;
end;
procedure TManageExamplesForm.OpenSelectedButtonClick(Sender: TObject);
procedure TExampleManagerForm.OpenSelectedButtonClick(Sender: TObject);
begin
if fFirstSelectedIndex <> -1 then begin
if FileExistsUTF8(ProjectsListBox.Items[fFirstSelectedIndex]) then begin
@ -282,7 +282,7 @@ begin
end;
end;
procedure TManageExamplesForm.BuildAllSelectedButtonClick(Sender: TObject);
procedure TExampleManagerForm.BuildAllSelectedButtonClick(Sender: TObject);
var
i: Integer;
begin
@ -293,7 +293,7 @@ begin
end;
end;
procedure TManageExamplesForm.SelectAllButtonClick(Sender: TObject);
procedure TExampleManagerForm.SelectAllButtonClick(Sender: TObject);
begin
fChangingSelections:=True;
ProjectsListBox.SelectAll;
@ -301,7 +301,7 @@ begin
ProjectsListBoxSelectionChange(ProjectsListBox, False); // In the end update buttons
end;
procedure TManageExamplesForm.SelectNoneButtonClick(Sender: TObject);
procedure TExampleManagerForm.SelectNoneButtonClick(Sender: TObject);
var
i: Integer;
begin
@ -312,13 +312,13 @@ begin
ProjectsListBoxSelectionChange(ProjectsListBox, False);
end;
procedure TManageExamplesForm.RelativeCheckBoxClick(Sender: TObject);
procedure TExampleManagerForm.RelativeCheckBoxClick(Sender: TObject);
begin
;
end;
// Project list selection changes. Adjust buttons.
procedure TManageExamplesForm.ProjectsListBoxSelectionChange(Sender: TObject; User: boolean);
procedure TExampleManagerForm.ProjectsListBoxSelectionChange(Sender: TObject; User: boolean);
var
HasSelected: Boolean;
ReadMe, RealReadMe: String;

8
ide/main.pp
View File

@ -835,7 +835,7 @@ type
function OnRunExternalTool(Tool: TIDEExternalToolOptions): TModalResult;
function DoRunExternalTool(Index: integer; ShowAbort: Boolean): TModalResult;
function DoSaveBuildIDEConfigs(Flags: TBuildLazarusFlags): TModalResult; override;
function DoManageExamples(): TModalResult; override;
function DoExampleManager: TModalResult; override;
function DoBuildLazarus(Flags: TBuildLazarusFlags): TModalResult; override;
function DoBuildAdvancedLazarus(ProfileNames: TStringList): TModalResult;
function DoBuildFile(ShowAbort: Boolean): TModalResult;
@ -4506,7 +4506,7 @@ end;
procedure TMainIDE.mnuToolManageExamplesClicked(Sender: TObject);
begin
DoManageExamples();
DoExampleManager();
end;
procedure TMainIDE.mnuToolBuildLazarusClicked(Sender: TObject);
@ -7485,9 +7485,9 @@ begin
if Result<>mrOk then exit;
end;
function TMainIDE.DoManageExamples: TModalResult;
function TMainIDE.DoExampleManager: TModalResult;
begin
Result:=ShowManageExamplesDlg;
Result:=ShowExampleManagerDlg;
end;
function TMainIDE.DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult;

2
ide/mainintf.pas
View File

@ -173,7 +173,7 @@ type
function PrepareForCompile: TModalResult; virtual; abstract; // stop things that interfere with compilation, like debugging
function DoSaveBuildIDEConfigs(Flags: TBuildLazarusFlags): TModalResult; virtual; abstract;
function DoManageExamples(): TModalResult; virtual; abstract;
function DoExampleManager: TModalResult; virtual; abstract;
function DoBuildLazarus(Flags: TBuildLazarusFlags): TModalResult; virtual; abstract;
function DoSaveForBuild(AReason: TCompileReason): TModalResult; virtual; abstract;
function DoPublishModule(Options: TPublishModuleOptions;