diff options
Diffstat (limited to 'examples/apps/ide/src/frm_main.pas')
| -rw-r--r-- | examples/apps/ide/src/frm_main.pas | 1277 |
1 files changed, 1277 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas new file mode 100644 index 00000000..85b1258b --- /dev/null +++ b/examples/apps/ide/src/frm_main.pas @@ -0,0 +1,1277 @@ +unit frm_main; + +{$mode objfpc}{$H+} + +interface + +uses + SysUtils, Classes, fpg_base, fpg_main, fpg_form, fpg_menu, fpg_panel, + fpg_button, fpg_splitter, fpg_tab, fpg_memo, fpg_label, fpg_grid, + fpg_tree, fpg_textedit, fpg_mru, synregexpr; + +type + + TMainForm = class(TfpgForm) + private + {@VFD_HEAD_BEGIN: MainForm} + pnlMenu: TfpgBevel; + mainmenu: TfpgMenuBar; + Toolbar: TfpgBevel; + btnQuit: TfpgButton; + btnOpen: TfpgButton; + btnSave: TfpgButton; + btnSaveAll: TfpgButton; + btnTest: TfpgButton; + pnlStatusBar: TfpgBevel; + lblStatus: TfpgLabel; + pnlClientArea: TfpgBevel; + pnlWindow: TfpgPageControl; + tsMessages: TfpgTabSheet; + grdMessages: TfpgStringGrid; + tsScribble: TfpgTabSheet; + memScribble: TfpgMemo; + tsTerminal: TfpgTabSheet; + Splitter1: TfpgSplitter; + pnlTool: TfpgPageControl; + tsProject: TfpgTabSheet; + tvProject: TfpgTreeView; + tsFiles: TfpgTabSheet; + grdFiles: TfpgFileGrid; + Splitter2: TfpgSplitter; + grdOpenFiles: TfpgStringGrid; + Splitter3: TfpgSplitter; + pcEditor: TfpgPageControl; + tseditor: TfpgTabSheet; + TextEditor: TfpgTextEdit; + mnuFile: TfpgPopupMenu; + mnuEdit: TfpgPopupMenu; + mnuSearch: TfpgPopupMenu; + mnuView: TfpgPopupMenu; + mnuProject: TfpgPopupMenu; + mnuRun: TfpgPopupMenu; + mnuTools: TfpgPopupMenu; + mnuSettings: TfpgPopupMenu; + mnuHelp: TfpgPopupMenu; + {@VFD_HEAD_END: MainForm} + pmOpenRecentMenu: TfpgPopupMenu; + miRecentProjects: TfpgMenuItem; + FRecentFiles: TfpgMRU; + FRegex: TRegExpr; + procedure FormShow(Sender: TObject); + procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); + procedure btnQuitClicked(Sender: TObject); + procedure btnOpenFileClicked(Sender: TObject); + procedure miFileSave(Sender: TObject); + procedure miFileSaveAs(Sender: TObject); + procedure miSearchProcedureList(Sender: TObject); + procedure miAboutFPGuiClicked(Sender: TObject); + procedure miAboutIDE(Sender: TObject); + procedure miRunMake(Sender: TObject); + procedure miRunBuild(Sender: TObject); + procedure miRunMake1(Sender: TObject); + procedure miRunMake2(Sender: TObject); + procedure miRunMake3(Sender: TObject); + procedure miRunMake4(Sender: TObject); + procedure miConfigureIDE(Sender: TObject); + procedure miViewDebug(Sender: TObject); + procedure miProjectNew(Sender: TObject); + procedure miProjectNewFromTemplate(Sender: TObject); + procedure miProjectOptions(Sender: TObject); + procedure miProjectOpen(Sender: TObject); + procedure miRecentProjectsClick(Sender: TObject; const FileName: String); + procedure miProjectSave(Sender: TObject); + procedure miProjectSaveAs(Sender: TObject); + procedure miProjectAddUnitToProject(Sender: TObject); + procedure tvProjectDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); + procedure TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet); + procedure BuildTerminated(Sender: TObject); + procedure BuildOutput(Sender: TObject; const ALine: string); + procedure UpdateStatus(const AText: TfpgString); + procedure SetupProjectTree; + procedure PopuplateProjectTree; + procedure SetupFilesGrid; + procedure AddMessage(const AMsg: TfpgString); + procedure ClearMessagesWindow; + procedure CloseAllTabs; + procedure LoadProject(const AFilename: TfpgString); + function OpenEditorPage(const AFilename: TfpgString): TfpgTabSheet; + procedure miTest(Sender: TObject); + function GetUnitsNode: TfpgTreeNode; + procedure UpdateWindowTitle; + procedure TextEditDrawLine(Sender: TObject; ALineText: TfpgString; ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; var AllowSelfDraw: Boolean); + public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; + procedure AfterCreate; override; + end; + +{@VFD_NEWFORM_DECL} + +implementation + +uses + process + ,fpg_iniutils + ,fpg_dialogs + ,fpg_utils + ,fpg_stringutils + ,fpg_constants + ,fpg_widget + ,frm_configureide + ,frm_projectoptions + ,frm_debug + ,frm_procedurelist + ,fpg_basegrid + ,ideconst + ,idemacros + ,Project + ,UnitList + ,BuilderThread + ,dbugintf + ,ideutils + ; + + +const + cTitle = 'fpGUI IDE - %s'; + cFileFilterTemplate = '%s (%s)|%s'; + cSourceFiles = '*.pas;*.pp;*.lpr;*.dpr;*.inc'; + cProjectFiles = '*.project'; + + { nicely working so far } + cKeywords = '\s*(begin|end|read|write|try|finally|except|uses|interface' + + '|implementation|procedure|function|constructor|destructor|property' + + '|private|public|published|type|class|unit|program|if|then|for|downto|to' + + '|do|else|while|and|inherited|const|var|initialization|finalization)[^0-9a-zA-Z:=;\)\( ]*'; + + cComments1 = '\s*\/\/.*$'; + +{@VFD_NEWFORM_IMPL} + +procedure TMainForm.btnQuitClicked(Sender: TObject); +begin + Close; +end; + +procedure TMainForm.btnOpenFileClicked(Sender: TObject); +var + s: TfpgString; +begin + s := SelectFileDialog(sfdOpen, Format(cFileFilterTemplate, ['Source Files', cSourceFiles, cSourceFiles])); + if s <> '' then + begin + OpenEditorPage(s); + end; +end; + +procedure TMainForm.miFileSave(Sender: TObject); +var + s: TfpgString; +begin + s := pcEditor.ActivePage.Hint; + if s <> '' then + TfpgTextEdit(pcEditor.ActivePage.Components[0]).SaveToFile(s); +end; + +procedure TMainForm.miFileSaveAs(Sender: TObject); +var + s: TfpgString; +begin + s := SelectFileDialog(sfdSave); + if s <> '' then + TfpgTextEdit(pcEditor.ActivePage.Components[0]).SaveToFile(s); +end; + +procedure TMainForm.miSearchProcedureList(Sender: TObject); +var + s: TfpgString; + edt: TfpgTextEdit; +begin + s := pcEditor.ActivePage.Hint; + if s <> '' then + begin + edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]); + DisplayProcedureList(s, edt); + end; +end; + +procedure TMainForm.miAboutFPGuiClicked(Sender: TObject); +begin + TfpgMessageDialog.AboutFPGui; +end; + +procedure TMainForm.miAboutIDE(Sender: TObject); +begin + TfpgMessageDialog.Information('About fpGUI IDE', + 'fpGUI IDE version ' + FPGUI_VERSION + LineEnding + LineEnding + + 'Created by Graeme Geldenhuys' + LineEnding + + 'Compiled with FPC ' + FPCVersion); +end; + +procedure TMainForm.miRunMake(Sender: TObject); +var + thd: TBuilderThread; +begin + ClearMessagesWindow; + thd := TBuilderThread.Create(True); + thd.OnTerminate := @BuildTerminated; + thd.OnAvailableOutput := @BuildOutput; + thd.Resume; +end; + +procedure TMainForm.miRunBuild(Sender: TObject); +var + thd: TBuilderThread; +begin + ClearMessagesWindow; + thd := TBuilderThread.Create(True); + thd.BuildMode := 1; + thd.OnTerminate := @BuildTerminated; + thd.OnAvailableOutput := @BuildOutput; + thd.Resume; +end; + +procedure TMainForm.miRunMake1(Sender: TObject); +var + thd: TBuilderThread; +begin + ClearMessagesWindow; + thd := TBuilderThread.Create(True); + thd.BuildMode := 2; + thd.OnTerminate := @BuildTerminated; + thd.OnAvailableOutput := @BuildOutput; + thd.Resume; +end; + +procedure TMainForm.miRunMake2(Sender: TObject); +var + thd: TBuilderThread; +begin + ClearMessagesWindow; + thd := TBuilderThread.Create(True); + thd.BuildMode := 3; + thd.OnTerminate := @BuildTerminated; + thd.OnAvailableOutput := @BuildOutput; + thd.Resume; +end; + +procedure TMainForm.miRunMake3(Sender: TObject); +var + thd: TBuilderThread; +begin + ClearMessagesWindow; + thd := TBuilderThread.Create(True); + thd.BuildMode := 4; + thd.OnTerminate := @BuildTerminated; + thd.OnAvailableOutput := @BuildOutput; + thd.Resume; +end; + +procedure TMainForm.miRunMake4(Sender: TObject); +var + thd: TBuilderThread; +begin + ClearMessagesWindow; + thd := TBuilderThread.Create(True); + thd.BuildMode := 5; + thd.OnTerminate := @BuildTerminated; + thd.OnAvailableOutput := @BuildOutput; + thd.Resume; +end; + +procedure TMainForm.miConfigureIDE(Sender: TObject); +begin + DisplayConfigureIDE; + pcEditor.TabPosition := TfpgTabPosition(gINI.ReadInteger(cEditor, 'TabPosition', 0)); +end; + +procedure TMainForm.miViewDebug(Sender: TObject); +begin + if not Assigned(DebugForm) then + fpgApplication.CreateForm(TDebugForm, TfpgWindowBase(DebugForm)); + DebugForm.Show; +end; + +procedure TMainForm.miProjectNew(Sender: TObject); +begin + CloseAllTabs; + FreeProject; + GProject.ProjectName := 'empty.project'; + GProject.MainUnit := 'empty.pas'; + OpenEditorPage(GProject.MainUnit); + miProjectSaveAs(nil); +end; + +procedure TMainForm.miProjectNewFromTemplate(Sender: TObject); +var + dlg: TfpgFileDialog; + lFilename: TfpgString; +begin + CloseAllTabs; + FreeProject; + dlg := TfpgFileDialog.Create(nil); + try + dlg.InitialDir := GMacroList.ExpandMacro(cMacro_TemplateDir); + dlg.Filter := Format(cFileFilterTemplate, ['Project Files', cProjectFiles, cProjectFiles]) + + '|' + rsAllFiles+' ('+AllFilesMask+')'+'|'+AllFilesMask; + if dlg.RunOpenFile then + begin + lFilename := dlg.FileName; + GProject.Load(lFilename); + end; + finally + dlg.Free; + end; +end; + +procedure TMainForm.miProjectOptions(Sender: TObject); +begin + DisplayProjectOptions; +end; + +procedure TMainForm.miProjectOpen(Sender: TObject); +var + s: TfpgString; +begin + s := SelectFileDialog(sfdOpen, Format(cFileFilterTemplate, ['Project Files', cProjectFiles, cProjectFiles])); + if s <> '' then + begin + LoadProject(s); + end; +end; + +procedure TMainForm.miRecentProjectsClick(Sender: TObject; const FileName: String); +begin + LoadProject(Filename); +end; + +procedure TMainForm.miProjectSave(Sender: TObject); +begin + try + GProject.Save; + except + on E: Exception do + begin + TfpgMessageDialog.Critical('', E.Message); + end; + end; + AddMessage('Project saved.'); +end; + +procedure TMainForm.miProjectSaveAs(Sender: TObject); +var + s: TfpgString; +begin + s := SelectFileDialog(sfdSave, Format(cFileFilterTemplate, ['Project Files', cProjectFiles, cProjectFiles])); + if s <> '' then + begin + if fpgExtractFileExt(s) = '' then + s := s + cProjectExt; + try + GProject.Save(s); + except + on E: Exception do + begin + TfpgMessageDialog.Critical('', E.Message); + end; + end; + UpdateWindowTitle; + AddMessage(Format('Project saved as <%s>.', [s])); + end; +end; + +procedure TMainForm.miProjectAddUnitToProject(Sender: TObject); +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.Opened := True; + GProject.UnitList.Add(u); + // add reference to tabsheet + pcEditor.ActivePage.TagPointer := u; + s := ExtractRelativepath(GProject.ProjectDir, u.FileName); + r := GetUnitsNode; + n := r.AppendText(s); + // add reference to treenode + n.Data := u; + tvProject.Invalidate; +end; + +procedure TMainForm.tvProjectDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint); +var + r: TfpgTreeNode; + n: TfpgTreeNode; + ts: TfpgTabSheet; + u: TUnit; +begin + r := GetUnitsNode; + n := tvProject.Selection; + if n.Data <> nil then + u := TUnit(n.Data); + if u <> nil then + begin + ts := OpenEditorPage(u.FileName); + u.Opened := True; + ts.TagPointer := u; // add reference to tabsheet + end; +end; + +procedure TMainForm.TabSheetClosing(Sender: TObject; ATabSheet: TfpgTabSheet); +var + u: TUnit; +begin + u := TUnit(ATabSheet.TagPointer); + if Assigned(u) then + u.Opened := False; +end; + +procedure TMainForm.BuildTerminated(Sender: TObject); +begin + AddMessage('Compilation complete'); +end; + +procedure TMainForm.BuildOutput(Sender: TObject; const ALine: string); +begin + AddMessage(ALine); +end; + +procedure TMainForm.UpdateStatus(const AText: TfpgString); +begin + lblStatus.Text := AText; +end; + +procedure TMainForm.SetupProjectTree; +begin + tvProject.RootNode.Clear; + tvProject.RootNode.AppendText('Units'); + tvProject.RootNode.AppendText('Images'); + tvProject.RootNode.AppendText('Help Files'); + tvProject.RootNode.AppendText('Text'); + tvProject.RootNode.AppendText('Other'); +end; + +procedure TMainForm.PopuplateProjectTree; +var + r: TfpgTreeNode; + n: TfpgTreeNode; + i: integer; + s: TfpgString; +begin + r := GetUnitsNode; + tvProject.Selection := r; + if Assigned(r) then // just to be safe, but 'Units' should always exist + begin + for i := 0 to GProject.UnitList.Count-1 do + begin + {$Note ExtractRelativePath still needs a fpGUI wrapper } + s := ExtractRelativepath(GProject.ProjectDir, GProject.UnitList[i].FileName); + n := r.AppendText(s); + n.Data := GProject.UnitList[i]; + end; + end; + r.Expand; + tvProject.Invalidate; +end; + +procedure TMainForm.SetupFilesGrid; +begin + grdFiles.FileList.FileMask := AllFilesMask; + grdFiles.FileList.ShowHidden := False; + grdFiles.FileList.ReadDirectory; + grdFiles.FileList.Sort(soFileName); + grdFiles.Invalidate; +end; + +procedure TMainForm.AddMessage(const AMsg: TfpgString); +begin + grdMessages.BeginUpdate; + grdMessages.RowCount := grdMessages.RowCount + 1; + grdMessages.Cells[0,grdMessages.RowCount-1] := AMsg; + grdMessages.FocusRow := grdMessages.RowCount; + grdMessages.EndUpdate; +// fpgApplication.ProcessMessages; +end; + +procedure TMainForm.ClearMessagesWindow; +begin + grdMessages.RowCount := 0; +end; + +procedure TMainForm.CloseAllTabs; +var + ts: TfpgTabSheet; + i: integer; +begin + for i := 0 to pcEditor.PageCount-1 do + begin + ts := pcEditor.Pages[0]; + pcEditor.RemoveTabSheet(ts); + ts.Free; + end; +end; + +procedure TMainForm.LoadProject(const AFilename: TfpgString); +var + i: integer; + ts: TfpgTabSheet; +begin + // remove all project info + CloseAllTabs; + SetupProjectTree; + FreeProject; + // now load new project info + GProject.Load(AFilename); + FRecentFiles.AddItem(AFilename); + for i := 0 to GProject.UnitList.Count-1 do + begin + if GProject.UnitList[i].Opened then + begin + ts := OpenEditorPage(GProject.UnitList[i].FileName); + ts.TagPointer := GProject.UnitList[i]; + end; + end; + PopuplateProjectTree; + UpdateWindowTitle; + AddMessage('Project loaded'); +end; + +function TMainForm.OpenEditorPage(const AFilename: TfpgString): TfpgTabSheet; +var + s: TfpgString; + f: TfpgString; + i: integer; + found: Boolean; + ts: TfpgTabSheet; + m: TfpgTextEdit; + ext: TfpgString; +begin + s := AFilename; + f := fpgExtractFileName(s); + found := False; + for i := 0 to pcEditor.PageCount-1 do + begin + if pcEditor.Pages[i].Text = f then + found := True; + if found then + break; + end; + if found then + begin + // reuse existing tab + TfpgTextEdit(pcEditor.Pages[i].Components[0]).Lines.BeginUpdate; + TfpgTextEdit(pcEditor.Pages[i].Components[0]).LoadFromFile(s); + TfpgTextEdit(pcEditor.Pages[i].Components[0]).Lines.EndUpdate; + pcEditor.ActivePageIndex := i; + ts := pcEditor.ActivePage; + end + else + begin + // we need a new tabsheet + ts := pcEditor.AppendTabSheet(f); + m := TfpgTextEdit.Create(ts); + m.SetPosition(1, 1, 200, 20); + m.Align := alClient; + m.FontDesc := gINI.ReadString(cEditor, 'Font', '#Edit2'); + m.GutterVisible := True; + m.GutterShowLineNumbers := True; + m.RightEdge := True; + TfpgTextEdit(ts.Components[0]).Lines.BeginUpdate; + TfpgTextEdit(ts.Components[0]).Lines.LoadFromFile(s); + TfpgTextEdit(ts.Components[0]).Lines.EndUpdate; + if gINI.ReadBool(cEditor, 'SyntaxHighlighting', True) then + begin + ext := fpgExtractFileExt(AFilename); + if (ext = '.pas') or (ext = '.pp') or (ext = '.inc') then + TfpgTextEdit(ts.Components[0]).OnDrawLine := @TextEditDrawLine; + end; + ts.Realign; + pcEditor.ActivePage := ts; + end; + ts.Hint := s; + Result := ts; + UpdateStatus(s); +end; + +procedure TMainForm.miTest(Sender: TObject); +var + s: TfpgString; + r: TfpgString; +begin + TempHourGlassCursor(TfpgWidget(self)); + s := cMacro_Compiler + ' -FU' +cMacro_Target+' -Fu' + cMacro_FPGuiLibDir; +// writeln('source string = ', s); + r := GMacroList.ExpandMacro(s); +// writeln('expanded string = ', r); + sleep(5000); +end; + +function TMainForm.GetUnitsNode: TfpgTreeNode; +begin + Result := tvProject.RootNode.FindSubNode('Units', True); +end; + +procedure TMainForm.UpdateWindowTitle; +begin + WindowTitle := Format(cTitle, [GProject.ProjectName]); +end; + +const + cReservedWords: array[1..50] of string = + ('begin', 'end', 'program', 'procedure', 'var', + 'uses', 'type', 'const', 'if', 'then', + 'for', 'do', 'unit', 'interface', 'implementation', + 'initialization', 'finalization', 'with', 'case', 'private', + 'protected', 'public', 'published', 'override', 'virtual', + 'class', 'record', 'function', 'property', 'to', + 'else', 'finally', 'while', 'except', 'try', + 'constructor', 'destructor', 'read', 'write', 'out', + 'default', 'not', 'and', 'in', 'raise', + 'of', 'resourcestring', 'operator', 'inherited', 'array'); + +procedure TMainForm.TextEditDrawLine(Sender: TObject; ALineText: TfpgString; + ALineIndex: Integer; ACanvas: TfpgCanvas; ATextRect: TfpgRect; + var AllowSelfDraw: Boolean); +var + oldfont, newfont: TfpgFont; + s: TfpgString; // copy of ALineText we work with + i, j, c: integer; // i = position of reserved word; c = last character pos + iLength: integer; // length of reserved word + w: integer; // reserved word loop variable + r: TfpgRect; // string rectangle to draw in + edt: TfpgTextEdit; + lMatchPos, lOffset: integer; // user for regex + + procedure TestFurther(var AIndex: integer); + begin + if AIndex = 0 then + begin + AIndex := UTF8Pos(cReservedWords[w], s); + if (AIndex > 0) then + begin + if (AIndex+iLength-1 <> Length(s)) and not (s[AIndex+iLength] in [';', '.', '(', #10, #13]) then + AIndex := 0; + end; + end; + end; + +begin +// writeln('syntax highlight line: ', ALineIndex); + edt := TfpgTextEdit(Sender); + AllowSelfDraw := False; + + oldfont := TfpgFont(ACanvas.Font); + ACanvas.Color := clWhite; + + { draw the plain text first } + ACanvas.TextColor := clBlack; + ACanvas.DrawText(ATextRect, ALineText); + + lMatchPos := 0; + lOffset := 0; + + { syntax highlighting for: keywords } + newfont := fpgGetFont(edt.FontDesc + ':bold'); + ACanvas.Font := newfont; + FRegex.Expression := cKeywords; + if FRegex.Exec(ALineText) then + begin + for i := 1 to FRegex.SubExprMatchCount do + begin + lMatchPos := FRegex.MatchPos[i]; + lOffset := FRegex.MatchLen[i]; + s := FRegex.Match[i]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + end; + end; + + { syntax highlighting for: comments } + ACanvas.Font := oldfont; + ACanvas.TextColor := clDarkCyan; + FRegex.Expression := cComments1; + if FRegex.Exec(ALineText) then + begin + if FRegex.SubExprMatchCount = 0 then + begin + i := 0; + lMatchPos := FRegex.MatchPos[i]; + lOffset := FRegex.MatchLen[i]; + s := FRegex.Match[i]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + end + else + begin + for i := 1 to FRegex.SubExprMatchCount do + begin + lMatchPos := FRegex.MatchPos[i]; + lOffset := FRegex.MatchLen[i]; + s := FRegex.Match[i]; + j := Length(s); + r.SetRect(ATextRect.Left + (edt.FontWidth * (lMatchPos-1)), ATextRect.Top, + (edt.FontWidth * j), ATextRect.Height); + ACanvas.FillRectangle(r); + ACanvas.DrawText(r, s); + end; + end; + end; + + ACanvas.Font := oldfont; + newfont.Free; +// writeln('------'); +end; + +procedure TMainForm.FormShow(Sender: TObject); +var + lErrPos: integer; +begin + Left := gINI.ReadInteger(Name + 'State', 'Left', Left); + Top := gINI.ReadInteger(Name + 'State', 'Top', Top); + Width := gINI.ReadInteger(Name + 'State', 'Width', Width); + Height := gINI.ReadInteger(Name + 'State', 'Height', Height); + UpdateWindowPosition; + + SetupProjectTree; + SetupFilesGrid; + + // apply editor settings + pcEditor.TabPosition := TfpgTabPosition(gINI.ReadInteger(cEditor, 'TabPosition', 0)); + FRegex := TRegExpr.Create; + FRegex.Expression := cKeywords; +end; + +procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction); +begin + CloseAction := caFree; + gINI.WriteInteger(Name + 'State', 'Left', Left); + gINI.WriteInteger(Name + 'State', 'Top', Top); + gINI.WriteInteger(Name + 'State', 'Width', Width); + gINI.WriteInteger(Name + 'State', 'Height', Height); +end; + +constructor TMainForm.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + OnShow := @FormShow; + OnClose := @FormClose; + SendDebug('TMainForm.Create'); +end; + +destructor TMainForm.Destroy; +begin + FRegex.Free; + inherited Destroy; +end; + +procedure TMainForm.AfterCreate; +begin + SendMethodEnter('TMainForm.AfterCreate'); + {%region 'Auto-generated GUI code' -fold} + {@VFD_BODY_BEGIN: MainForm} + Name := 'MainForm'; + SetPosition(310, 206, 638, 428); + WindowTitle := 'fpGUI IDE - %s'; + Hint := ''; + WindowPosition := wpOneThirdDown; + + pnlMenu := TfpgBevel.Create(self); + with pnlMenu do + begin + Name := 'pnlMenu'; + SetPosition(0, 0, 638, 54); + Align := alTop; + Hint := ''; + Shape := bsSpacer; + end; + + mainmenu := TfpgMenuBar.Create(pnlMenu); + with mainmenu do + begin + Name := 'mainmenu'; + SetPosition(0, 0, 638, 24); + Anchors := [anLeft,anRight,anTop]; + Align := alTop; + end; + + Toolbar := TfpgBevel.Create(pnlMenu); + with Toolbar do + begin + Name := 'Toolbar'; + SetPosition(2, 2, 634, 50); + Anchors := [anLeft,anRight,anTop]; + Align := alClient; + Hint := ''; + Shape := bsSpacer; + end; + + btnQuit := TfpgButton.Create(Toolbar); + with btnQuit do + begin + Name := 'btnQuit'; + SetPosition(4, 2, 24, 24); + Text := ''; + Down := False; + Embedded := True; + FontDesc := '#Label1'; + Hint := ''; + ImageMargin := 0; + ImageName := 'stdimg.quit'; + TabOrder := 3; + OnClick := @btnQuitClicked; + end; + + btnOpen := TfpgButton.Create(Toolbar); + with btnOpen do + begin + Name := 'btnOpen'; + SetPosition(28, 2, 24, 24); + Text := ''; + Down := False; + Embedded := True; + FontDesc := '#Label1'; + Hint := ''; + ImageMargin := 0; + ImageName := 'stdimg.open'; + TabOrder := 4; + OnClick := @btnOpenFileClicked; + end; + + btnSave := TfpgButton.Create(Toolbar); + with btnSave do + begin + Name := 'btnSave'; + SetPosition(56, 2, 24, 24); + Text := ''; + Down := False; + Embedded := True; + FontDesc := '#Label1'; + Hint := ''; + ImageMargin := 0; + ImageName := 'stdimg.save'; + TabOrder := 5; + OnClick := @miFileSave; + end; + + btnSaveAll := TfpgButton.Create(Toolbar); + with btnSaveAll do + begin + Name := 'btnSaveAll'; + SetPosition(80, 2, 24, 24); + Text := ''; + Down := False; + Embedded := True; + Enabled := False; + FontDesc := '#Label1'; + Hint := ''; + ImageMargin := 0; + ImageName := 'stdimg.saveall'; + TabOrder := 6; + end; + + btnTest := TfpgButton.Create(Toolbar); + with btnTest do + begin + Name := 'btnTest'; + SetPosition(168, 2, 80, 24); + Text := 'test'; + Down := False; + FontDesc := '#Label1'; + Hint := ''; + ImageName := ''; + TabOrder := 7; + OnClick := @miTest; + end; + + pnlStatusBar := TfpgBevel.Create(self); + with pnlStatusBar do + begin + Name := 'pnlStatusBar'; + SetPosition(0, 408, 636, 20); + Anchors := [anLeft,anRight,anBottom]; + Hint := ''; + Style := bsLowered; + end; + + lblStatus := TfpgLabel.Create(pnlStatusBar); + with lblStatus do + begin + Name := 'lblStatus'; + SetPosition(2, 2, 632, 16); + Anchors := [anLeft,anRight,anTop]; + Align := alBottom; + FontDesc := '#Label1'; + Hint := ''; + Text := ''; + end; + + pnlClientArea := TfpgBevel.Create(self); + with pnlClientArea do + begin + Name := 'pnlClientArea'; + SetPosition(0, 54, 638, 374); + Anchors := [anLeft,anRight,anTop,anBottom]; + Align := alClient; + Hint := ''; + Shape := bsSpacer; + end; + + pnlWindow := TfpgPageControl.Create(pnlClientArea); + with pnlWindow do + begin + Name := 'pnlWindow'; + SetPosition(2, 288, 634, 84); + ActivePageIndex := 0; + Align := alBottom; + Hint := ''; + TabOrder := 11; + TabPosition := tpRight; + end; + + tsMessages := TfpgTabSheet.Create(pnlWindow); + with tsMessages do + begin + Name := 'tsMessages'; + SetPosition(73, 3, 558, 78); + Text := 'Messages'; + end; + + grdMessages := TfpgStringGrid.Create(tsMessages); + with grdMessages do + begin + Name := 'grdMessages'; + SetPosition(0, 4, 558, 73); + Anchors := [anLeft,anRight,anTop,anBottom]; + BackgroundColor := TfpgColor($80000002); + AddColumn('New', 800, taLeftJustify); + FontDesc := '#Grid'; + HeaderFontDesc := '#GridHeader'; + Hint := ''; + RowCount := 0; + RowSelect := True; + ShowHeader := False; + TabOrder := 13; + end; + + tsScribble := TfpgTabSheet.Create(pnlWindow); + with tsScribble do + begin + Name := 'tsScribble'; + SetPosition(73, 3, 188, 78); + Text := 'Scribble'; + end; + + memScribble := TfpgMemo.Create(tsScribble); + with memScribble do + begin + Name := 'memScribble'; + SetPosition(0, 4, 187, 73); + Anchors := [anLeft,anRight,anTop,anBottom]; + FontDesc := '#Edit2'; + Hint := ''; + Lines.Add('Make notes, use it as a clipboard'); + Lines.Add('or type whatever you want...'); + TabOrder := 15; + end; + + tsTerminal := TfpgTabSheet.Create(pnlWindow); + with tsTerminal do + begin + Name := 'tsTerminal'; + SetPosition(73, 3, 188, 78); + Text := 'Terminal'; + end; + + Splitter1 := TfpgSplitter.Create(pnlClientArea); + with Splitter1 do + begin + Name := 'Splitter1'; + SetPosition(2, 281, 634, 7); + Align := alBottom; + end; + + pnlTool := TfpgPageControl.Create(pnlClientArea); + with pnlTool do + begin + Name := 'pnlTool'; + SetPosition(2, 2, 140, 279); + ActivePageIndex := 0; + Align := alLeft; + Hint := ''; + TabOrder := 18; + end; + + tsProject := TfpgTabSheet.Create(pnlTool); + with tsProject do + begin + Name := 'tsProject'; + SetPosition(3, 24, 134, 252); + Text := 'Project'; + end; + + tvProject := TfpgTreeView.Create(tsProject); + with tvProject do + begin + Name := 'tvProject'; + SetPosition(1, 1, 132, 250); + Anchors := [anLeft,anRight,anTop,anBottom]; + FontDesc := '#Label1'; + Hint := ''; + TabOrder := 20; + OnDoubleClick := @tvProjectDoubleClick; + end; + + tsFiles := TfpgTabSheet.Create(pnlTool); + with tsFiles do + begin + Name := 'tsFiles'; + SetPosition(3, 24, 134, 193); + Text := 'Files'; + end; + + grdFiles := TfpgFileGrid.Create(tsFiles); + with grdFiles do + begin + Name := 'grdFiles'; + SetPosition(1, 1, 131, 190); + Anchors := [anLeft,anRight,anTop,anBottom]; + Options := Options + [go_SmoothScroll]; + end; + + Splitter2 := TfpgSplitter.Create(pnlClientArea); + with Splitter2 do + begin + Name := 'Splitter2'; + SetPosition(142, 2, 8, 279); + Align := alLeft; + end; + + grdOpenFiles := TfpgStringGrid.Create(pnlClientArea); + with grdOpenFiles do + begin + Name := 'grdOpenFiles'; + SetPosition(516, 2, 120, 279); + Align := alRight; + BackgroundColor := TfpgColor($80000002); + AddColumn('File', 100, taLeftJustify); + FontDesc := '#Grid'; + HeaderFontDesc := '#GridHeader'; + Hint := ''; + RowCount := 0; + RowSelect := True; + ShowHeader := False; + TabOrder := 24; + end; + + Splitter3 := TfpgSplitter.Create(pnlClientArea); + with Splitter3 do + begin + Name := 'Splitter3'; + SetPosition(508, 2, 8, 279); + Align := alRight; + end; + + pcEditor := TfpgPageControl.Create(pnlClientArea); + with pcEditor do + begin + Name := 'pcEditor'; + SetPosition(150, 2, 358, 279); + ActivePageIndex := 0; + Align := alClient; + Hint := ''; + TabOrder := 18; + TabPosition := tpRight; + Options := Options + [to_PMenuClose]; + OnClosingTabSheet := @TabSheetClosing; + end; + + tseditor := TfpgTabSheet.Create(pcEditor); + with tseditor do + begin + Name := 'tseditor'; + SetPosition(3, 3, 282, 273); + Text := 'Tabsheet1'; + end; + + TextEditor := TfpgTextEdit.Create(tseditor); + with TextEditor do + begin + Name := 'TextEditor'; + SetPosition(0, 0, 130, 200); + Align := alClient; + end; + + mnuFile := TfpgPopupMenu.Create(self); + with mnuFile do + begin + Name := 'mnuFile'; + SetPosition(476, 61, 172, 20); + AddMenuItem('New...', '', nil).Enabled := False; + AddMenuItem('Open...', '', nil).Enabled := False; + AddMenuItem('Open Recent', '', nil).Enabled := False; + AddMenuItem('Save', '', @miFileSave); + AddMenuItem('Save As...', '', @miFileSaveAs); + AddMenuItem('-', '', nil); + AddMenuItem('Quit', '', @btnQuitClicked); + end; + + mnuEdit := TfpgPopupMenu.Create(self); + with mnuEdit do + begin + Name := 'mnuEdit'; + SetPosition(476, 80, 172, 20); + AddMenuItem('Cut', '', nil).Enabled := False; + AddMenuItem('Copy', '', nil).Enabled := False; + AddMenuItem('Paste', '', nil).Enabled := False; + end; + + mnuSearch := TfpgPopupMenu.Create(self); + with mnuSearch do + begin + Name := 'mnuSearch'; + SetPosition(476, 98, 172, 20); + AddMenuItem('Find...', '', nil).Enabled := False; + AddMenuItem('Find in Files...', '', nil).Enabled := False; + AddMenuItem('Procedure List...', '', @miSearchProcedureList); + end; + + mnuView := TfpgPopupMenu.Create(self); + with mnuView do + begin + Name := 'mnuView'; + SetPosition(476, 119, 172, 20); + AddMenuItem('Todo List...', '', nil).Enabled := False; + AddMenuItem('Debug Windows', '', @miViewDebug); + end; + + mnuProject := TfpgPopupMenu.Create(self); + with mnuProject do + begin + Name := 'mnuProject'; + SetPosition(476, 140, 172, 20); + AddMenuItem('Options...', '', @miProjectOptions); + AddMenuItem('-', '', nil); + AddMenuItem('New (empty)...', '', @miProjectNew); + AddMenuItem('New from Template...', '', @miProjectNewFromTemplate); + AddMenuItem('Open...', '', @miProjectOpen); + miRecentProjects := AddMenuItem('Open Recent', '', nil); + AddMenuItem('Save', '', @miProjectSave); + AddMenuItem('Save As...', '', @miProjectSaveAs); + AddMenuItem('-', '', nil); + AddMenuItem('View Source', '', nil); + AddMenuItem('Add editor file to Project', '', @miProjectAddUnitToProject); + end; + + mnuRun := TfpgPopupMenu.Create(self); + with mnuRun do + begin + Name := 'mnuRun'; + SetPosition(476, 161, 172, 20); + AddMenuItem('Make', 'Ctrl+F9', @miRunMake); + AddMenuItem('Build All', 'Ctrl+Shift+F9', @miRunBuild); + AddMenuItem('Make 1', 'Ctrl+Alt+1', @miRunMake1); + AddMenuItem('Make 2', 'Ctrl+Alt+2', @miRunMake2); + AddMenuItem('Make 3', 'Ctrl+Alt+3', @miRunMake3); + AddMenuItem('Make 4', 'Ctrl+Alt+4', @miRunMake4); + AddMenuItem('-', '', nil); + AddMenuItem('Run', 'F9', nil); + AddMenuItem('Run Parameters...', '', nil); + end; + + mnuTools := TfpgPopupMenu.Create(self); + with mnuTools do + begin + Name := 'mnuTools'; + SetPosition(476, 182, 172, 20); + AddMenuItem('fpGUI UI Designer...', '', nil); + AddMenuItem('fpGUI DocView...', '', nil); + end; + + mnuSettings := TfpgPopupMenu.Create(self); + with mnuSettings do + begin + Name := 'mnuSettings'; + SetPosition(476, 203, 172, 20); + AddMenuItem('Configure IDE...', '', @miConfigureIDE); + end; + + mnuHelp := TfpgPopupMenu.Create(self); + with mnuHelp do + begin + Name := 'mnuHelp'; + SetPosition(476, 224, 172, 20); + AddMenuItem('Contents...', '', nil); + AddMenuItem('-', '', nil); + AddMenuItem('About fpGUI Toolkit...', '', @miAboutFPGuiClicked); + AddMenuItem('About fpGUI IDE...', '', @miAboutIDE); + end; + + {@VFD_BODY_END: MainForm} + {%endregion} + +{ + pcEditor.AppendTabSheet('Five'); + pcEditor.AppendTabSheet('Six'); + pcEditor.AppendTabSheet('Seven'); + pcEditor.AppendTabSheet('Eight'); + pcEditor.AppendTabSheet('Nine'); + pcEditor.AppendTabSheet('Ten'); + pcEditor.AppendTabSheet('11'); + pcEditor.AppendTabSheet('12'); + pcEditor.AppendTabSheet('13'); + pcEditor.AppendTabSheet('14'); + pcEditor.AppendTabSheet('15'); + pcEditor.AppendTabSheet('16'); + pcEditor.AppendTabSheet('17'); + pcEditor.AppendTabSheet('18'); + pcEditor.AppendTabSheet('19'); + pcEditor.AppendTabSheet('20'); +} + + mainmenu.AddMenuItem('&File', nil).SubMenu := mnuFile; + mainmenu.AddMenuItem('&Edit', nil).SubMenu := mnuEdit; + mainmenu.AddMenuItem('&Search', nil).SubMenu := mnuSearch; + mainmenu.AddMenuItem('&View', nil).SubMenu := mnuView; + mainmenu.AddMenuItem('&Project', nil).SubMenu := mnuProject; + mainmenu.AddMenuItem('&Run', nil).SubMenu := mnuRun; + mainmenu.AddMenuItem('&Tools', nil).SubMenu := mnuTools; + mainmenu.AddMenuItem('&Settings', nil).SubMenu := mnuSettings; + mainmenu.AddMenuItem('&Help', nil).SubMenu := mnuHelp; + + pmOpenRecentMenu := TfpgPopupMenu.Create(self); + with pmOpenRecentMenu do + begin + Name := 'pmOpenRecentMenu'; + SetPosition(336, 68, 128, 20); + end; + + miRecentProjects.SubMenu := pmOpenRecentMenu; + + FRecentFiles := TfpgMRU.Create(self); + FRecentFiles.ParentMenuItem := pmOpenRecentMenu; + FRecentFiles.OnClick :=@miRecentProjectsClick; + FRecentFiles.MaxItems := gINI.ReadInteger('Options', 'MRUProjectCount', 10); + FRecentFiles.ShowFullPath := gINI.ReadBool('Options', 'ShowFullPath', True); + FRecentFiles.LoadMRU; + + + SendMethodExit('TMainForm.AfterCreate'); +end; + + +end. |