diff options
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index e3876da4..46d51352 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -95,6 +95,7 @@ type procedure miRecentProjectsClick(Sender: TObject; const FileName: String); procedure miProjectSave(Sender: TObject); procedure miProjectSaveAs(Sender: TObject); + procedure AddUnitToProject(const AUnitName: TfpgString); procedure miProjectAddUnitToProject(Sender: TObject); procedure tvProjectDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); procedure grdMessageKeyPressed(Sender: TObject; var KeyCode: Word; var ShiftState: TShiftState; var Consumed: Boolean); @@ -485,21 +486,15 @@ begin end; end; -procedure TMainForm.miProjectAddUnitToProject(Sender: TObject); +procedure TMainForm.AddUnitToProject(const AUnitName: TfpgString); var u: TUnit; s: TfpgString; r: TfpgTreeNode; n: TfpgTreeNode; begin - s := pcEditor.ActivePage.Hint; -// writeln('adding unit: ', s); - if s = '' then - Exit; - if GProject.UnitList.FileExists(s) then - Exit; u := TUnit.Create; - u.FileName := s; + u.FileName := AUnitName; u.Opened := True; GProject.UnitList.Add(u); // add reference to tabsheet @@ -512,6 +507,19 @@ begin tvProject.Invalidate; end; +procedure TMainForm.miProjectAddUnitToProject(Sender: TObject); +var + s: TfpgString; +begin + s := pcEditor.ActivePage.Hint; +// writeln('adding unit: ', s); + if s = '' then + Exit; + if GProject.UnitList.FileExists(s) then + Exit; + AddUnitToProject(s); +end; + procedure TMainForm.tvProjectDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); var r: TfpgTreeNode; |