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

56
ide/examplemanager.pas
View File

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

8
ide/main.pp
View File

@ -835,7 +835,7 @@ type
function OnRunExternalTool(Tool: TIDEExternalToolOptions): TModalResult; function OnRunExternalTool(Tool: TIDEExternalToolOptions): TModalResult;
function DoRunExternalTool(Index: integer; ShowAbort: Boolean): TModalResult; function DoRunExternalTool(Index: integer; ShowAbort: Boolean): TModalResult;
function DoSaveBuildIDEConfigs(Flags: TBuildLazarusFlags): TModalResult; override; function DoSaveBuildIDEConfigs(Flags: TBuildLazarusFlags): TModalResult; override;
function DoManageExamples(): TModalResult; override; function DoExampleManager: TModalResult; override;
function DoBuildLazarus(Flags: TBuildLazarusFlags): TModalResult; override; function DoBuildLazarus(Flags: TBuildLazarusFlags): TModalResult; override;
function DoBuildAdvancedLazarus(ProfileNames: TStringList): TModalResult; function DoBuildAdvancedLazarus(ProfileNames: TStringList): TModalResult;
function DoBuildFile(ShowAbort: Boolean): TModalResult; function DoBuildFile(ShowAbort: Boolean): TModalResult;
@ -4506,7 +4506,7 @@ end;
procedure TMainIDE.mnuToolManageExamplesClicked(Sender: TObject); procedure TMainIDE.mnuToolManageExamplesClicked(Sender: TObject);
begin begin
DoManageExamples(); DoExampleManager();
end; end;
procedure TMainIDE.mnuToolBuildLazarusClicked(Sender: TObject); procedure TMainIDE.mnuToolBuildLazarusClicked(Sender: TObject);
@ -7485,9 +7485,9 @@ begin
if Result<>mrOk then exit; if Result<>mrOk then exit;
end; end;
function TMainIDE.DoManageExamples: TModalResult; function TMainIDE.DoExampleManager: TModalResult;
begin begin
Result:=ShowManageExamplesDlg; Result:=ShowExampleManagerDlg;
end; end;
function TMainIDE.DoBuildLazarusSub(Flags: TBuildLazarusFlags): TModalResult; 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 PrepareForCompile: TModalResult; virtual; abstract; // stop things that interfere with compilation, like debugging
function DoSaveBuildIDEConfigs(Flags: TBuildLazarusFlags): TModalResult; virtual; abstract; 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 DoBuildLazarus(Flags: TBuildLazarusFlags): TModalResult; virtual; abstract;
function DoSaveForBuild(AReason: TCompileReason): TModalResult; virtual; abstract; function DoSaveForBuild(AReason: TCompileReason): TModalResult; virtual; abstract;
function DoPublishModule(Options: TPublishModuleOptions; function DoPublishModule(Options: TPublishModuleOptions;