unit UnitfrmMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, SpTBXItem, TB2Item, TBX, TB2Dock, TB2Toolbar, Menus, ImgList, TBXSwitcher, { Themes -> } TBXAluminumTheme, TBXDreamTheme, TBXEosTheme, TBXMonaiTheme, TBXNexos2Theme, TBXNexos3Theme, TBXNexos4Theme, TBXNexos5Theme, TBXOffice11AdaptiveTheme, TBXOfficeCTheme, TBXOfficeKTheme, TBXOfficeXPTheme, TBXReliferTheme, TBXSentimoXTheme, TBXTristanTheme, TBXTristan2Theme, TBXXitoTheme, TBXMonaiXPTheme, TBXZezioTheme, TBXWhidbeyTheme, TBXRomaTheme, TBXMirandaTheme, { <- Themes } SpTBXTabs, ExtCtrls, SpTBXDkPanels, TFlatSplitterUnit, SciLexer, SciLexerMemo, SciLexerMod, SciCallTips, ComCtrls, mbTBXTreeView, StdCtrls, mbTBXRichEdit, TBXDkPanels, TBXToolPals, SciPropertyMgr, mbTBXHint, mbTBXHotKeyEdit, SciAutoComplete, sciKeyBindings, sciPrint, mxFlatControls, ClipBrd, ActnList, SciSearchReplace, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IdFTPCommon, IdAntiFreezeBase, IdAntiFreeze, JvComponent, JvInspector, JvExControls, JvPluginManager, JvgLanguageLoader, JvWndProcHook, CommCtrl, JvPageList, JvPageListTreeView; type TfrmMain = class(TForm) TBXSwitcher: TTBXSwitcher; ilImages: TImageList; ppmOutput: TSpTBXPopupMenu; tbxTopDock: TSpTBXDock; tbxMenu: TSpTBXToolbar; mnuFile: TSpTBXSubmenuItem; mnuNew: TSpTBXSubmenuItem; mnuEmptyPlugin: TSpTBXItem; mnuNewPlugin: TSpTBXItem; mnuHeaderPawn: TSpTBXItem; mnuNewModule: TSpTBXItem; mnuNewUnit: TSpTBXItem; mnuNewHeaderCPP: TSpTBXItem; sepFile1: TSpTBXSeparatorItem; mnuOpen: TSpTBXItem; sepFile2: TSpTBXSeparatorItem; mnuSave: TSpTBXItem; mnuSaveAs: TSpTBXItem; mnuSaveAllFiles: TSpTBXItem; sepFile3: TSpTBXSeparatorItem; mnuClose: TSpTBXItem; mnuCloseAllFiles: TSpTBXItem; sepFile4: TSpTBXSeparatorItem; mnuPrint: TSpTBXItem; sepFile5: TSpTBXSeparatorItem; mnuExit: TSpTBXItem; mnuEdit: TSpTBXSubmenuItem; mnuUndo: TSpTBXItem; mnuRedo: TSpTBXItem; sepEdit1: TSpTBXSeparatorItem; mnuCut: TSpTBXItem; mnuCopy: TSpTBXItem; mnuPaste: TSpTBXItem; sepEdit2: TSpTBXSeparatorItem; mnuSelectAll: TSpTBXItem; mnuSearch: TSpTBXSubmenuItem; mnuSearchDialog: TSpTBXItem; mnuSearchAgain: TSpTBXItem; sepSearch1: TSpTBXSeparatorItem; mnuReplace: TSpTBXItem; sepSearch2: TSpTBXSeparatorItem; mnuGoToLine: TSpTBXItem; mnuView: TSpTBXSubmenuItem; mnuChangeTheme: TSpTBXSubmenuItem; mnuThemes: TSpTBXThemeGroupItem; mnuSelectHighlighter: TSpTBXSubmenuItem; mnuHPawn: TSpTBXItem; mnuHCPP: TSpTBXItem; mnuHHTML: TSpTBXItem; mnuHSQL: TSpTBXItem; mnuHXML: TSpTBXItem; sepHighlighter: TSpTBXSeparatorItem; mnuHNone: TSpTBXItem; sepView2: TSpTBXSeparatorItem; mnuShowFileTB: TSpTBXItem; mnuShowEditTB: TSpTBXItem; mnuShowCodeSnippets: TSpTBXItem; mnuShowCodeToolsWindow: TSpTBXItem; mnuCompile: TSpTBXSubmenuItem; mnuDoCompile: TSpTBXItem; sepCompile1: TSpTBXSeparatorItem; mnuCompileAndStartHL: TSpTBXItem; mnuCompileAndUpload: TSpTBXItem; sepCompile2: TSpTBXSeparatorItem; mnuRegisterPluginsIniLocal: TSpTBXItem; mnuRegisterPluginsIniWeb: TSpTBXItem; mnuTools: TSpTBXSubmenuItem; mnuIndenter: TSpTBXItem; mnuUnindenter: TSpTBXItem; sepTools1: TSpTBXSeparatorItem; mnuSocketTerminal: TSpTBXItem; sepTools2: TSpTBXSeparatorItem; mnuPluginsIniEditor: TSpTBXItem; sepTools3: TSpTBXSeparatorItem; mnuSettings: TSpTBXItem; mnuGenerators: TSpTBXSubmenuItem; mnuHudmessage: TSpTBXItem; mnuMOTDGenerator: TSpTBXItem; mnuHelp: TSpTBXSubmenuItem; mnuOpenHelp: TSpTBXItem; sepHelp1: TSpTBXSeparatorItem; mnuSearchForums: TSpTBXItem; mnuOpenScriptingForum: TSpTBXItem; tbxToolbar: TTBXToolbar; mnuTNew: TSpTBXItem; mnuTOpen: TSpTBXItem; mnuTSave: TSpTBXItem; sepToolbar1: TSpTBXSeparatorItem; mnuTSearch: TSpTBXItem; sepToolbar2: TSpTBXSeparatorItem; mnuTCompile: TSpTBXItem; tbxCodeSnippets: TSpTBXToolbar; mnuCodeSnippets: TSpTBXRightAlignSpacerItem; mnuPawn: TSpTBXItem; mnuCPP: TSpTBXItem; sepCodeSnippets: TSpTBXSeparatorItem; tbxEdit: TSpTBXToolbar; mnuTUndo: TSpTBXItem; mnuTRedo: TSpTBXItem; sepTEdit1: TSpTBXSeparatorItem; mnuTCopy: TSpTBXItem; mnuTCut: TSpTBXItem; mnuTPaste: TSpTBXItem; sepTEdit2: TSpTBXSeparatorItem; mnuTSelectAll: TSpTBXItem; tsMain: TSpTBXTabSet; tiPawn: TSpTBXTabItem; tiCPP: TSpTBXTabItem; tsDocuments: TSpTBXTabSet; tiDocument1: TSpTBXTabItem; spcLeft1: TImage; spcRight1: TImage; sciCallTips: TSciCallTips; sbStatus: TSpTBXStatusBar; sepGenerators1: TSpTBXSeparatorItem; infoNewAMXX: TSpTBXRightAlignSpacerItem; infoNewCPP: TSpTBXRightAlignSpacerItem; sepNew1: TSpTBXSeparatorItem; mnuPaster: TSpTBXItem; tiOther: TSpTBXTabItem; sciPropertyLoader: TSciPropertyLoader; odOpen: TOpenDialog; sdSave: TSaveDialog; sepNew3: TSpTBXSeparatorItem; infoNewOther: TSpTBXRightAlignSpacerItem; mnuNewTextfile: TSpTBXItem; mnuNewHTML: TSpTBXItem; mnuNewSQL: TSpTBXItem; mnuNewXML: TSpTBXItem; sepHelp2: TSpTBXSeparatorItem; mnuInfo: TSpTBXItem; mnuFilename: TSpTBXRightAlignSpacerItem; sepStatus2: TSpTBXSeparatorItem; mnuCaret: TSpTBXRightAlignSpacerItem; sepStatus3: TSpTBXSeparatorItem; mnuModified: TSpTBXRightAlignSpacerItem; sepStatus1: TSpTBXSeparatorItem; mnuShowCodeTools: TSpTBXItem; mnuOther: TSpTBXItem; mnuFoldAll: TSpTBXItem; sepView1: TSpTBXSeparatorItem; sciPrinter: TSciPrinter; pnlParent: TPanel; sciEditor: TScintilla; splRight: TSplitter; tcTools: TSpTBXTabControl; tiTools: TSpTBXTabItem; tiNotes: TSpTBXTabItem; tsNotes: TSpTBXTabSheet; imgRight4: TImage; imgBottom4: TImage; imgTop4: TImage; imgLeft4: TImage; tbxNotes: TSpTBXToolbar; mnuBold: TSpTBXItem; mnuItalic: TSpTBXItem; mnuUnderline: TSpTBXItem; sepNotes: TSpTBXSeparatorItem; mnuSelectColor: TSpTBXSubmenuItem; cpNotes: TTBXColorPalette; rtfNotes: TRichEdit; tsExplorer: TSpTBXTabSheet; spcBottom2: TImage; spcLeft2: TImage; spcRight2: TImage; lstOutput: TListBox; splOutput: TSplitter; mnuCopyMessage: TSpTBXItem; mnuCopyAll: TSpTBXItem; mnuSaveToFile: TSpTBXItem; sepOutput: TSpTBXSeparatorItem; ppmEditor: TSpTBXPopupMenu; mnuEditorCopy: TSpTBXItem; mnuEditorPaste: TSpTBXItem; mnuEditorCut: TSpTBXItem; sepEditorMenu2: TSpTBXSeparatorItem; mnuEditorUndo: TSpTBXItem; mnuEditorRedo: TSpTBXItem; sepEditorMenu3: TSpTBXSeparatorItem; mnuToogleBookmark: TSpTBXItem; mnuGoToBookmark: TSpTBXItem; mnuEditorDelete: TSpTBXItem; sepEditorMenu1: TSpTBXSeparatorItem; mnuEditorSelectAll: TSpTBXItem; sciSearchReplace: TSciSearchReplace; IdFTP: TIdFTP; pnlLoading: TSpTBXPanel; pbLoading: TSpTBXProgressBar; cmdCancel: TSpTBXButton; sciAutoComplete: TSciAutoComplete; mnuHTML: TSpTBXItem; ppmDocuments: TSpTBXPopupMenu; mnuPClose: TSpTBXItem; mnuPSave: TSpTBXItem; sepDocuments: TSpTBXSeparatorItem; mnuPCloseAllFiles: TSpTBXItem; mnuMenuGenerator: TSpTBXItem; pnlDock: TSpTBXMultiDock; pnlCodeExplorer: TSpTBXDockablePanel; trvExplorer: TTreeView; pnlCodeInspector: TSpTBXDockablePanel; JvInspectorDotNETPainter: TJvInspectorDotNETPainter; jviCode: TJvInspector; mnuConnectionGen: TSpTBXItem; sepView3: TSpTBXSeparatorItem; mnuShowCodeExplorer: TSpTBXItem; mnuShowCodeInspector: TSpTBXItem; mnuRestoreBackup: TSpTBXItem; procedure FormConstrainedResize(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer); procedure mnuExitClick(Sender: TObject); procedure OnCodeSnippetSelect(Sender: TObject); procedure cpNotesChange(Sender: TObject); procedure mnuBoldClick(Sender: TObject); procedure mnuItalicClick(Sender: TObject); procedure mnuUnderlineClick(Sender: TObject); procedure rtfNotesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure rtfNotesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure trvExplorerCollapsed(Sender: TObject; Node: TTreeNode); procedure trvExplorerExpanded(Sender: TObject; Node: TTreeNode); procedure mnuSettingsClick(Sender: TObject); procedure tsMainActiveTabChange(Sender: TObject; ItemIndex: Integer); procedure tsDocumentsActiveTabChange(Sender: TObject; ItemIndex: Integer); procedure FormShow(Sender: TObject); procedure mnuTOpenClick(Sender: TObject); procedure mnuTSaveClick(Sender: TObject); procedure mnuTSearchClick(Sender: TObject); procedure mnuTCompileClick(Sender: TObject); procedure mnuTUndoClick(Sender: TObject); procedure mnuTRedoClick(Sender: TObject); procedure mnuTCopyClick(Sender: TObject); procedure mnuTCutClick(Sender: TObject); procedure mnuTPasteClick(Sender: TObject); procedure mnuTSelectAllClick(Sender: TObject); procedure mnuEmptyPluginClick(Sender: TObject); procedure mnuNewPluginClick(Sender: TObject); procedure mnuHXMLClick(Sender: TObject); procedure mnuHNoneClick(Sender: TObject); procedure mnuOpenClick(Sender: TObject); procedure mnuNewTextfileClick(Sender: TObject); procedure mnuNewHTMLClick(Sender: TObject); procedure mnuNewSQLClick(Sender: TObject); procedure mnuNewXMLClick(Sender: TObject); procedure mnuUndoClick(Sender: TObject); procedure mnuSaveClick(Sender: TObject); procedure mnuSaveAsClick(Sender: TObject); procedure mnuThemesClick(Sender: TObject); procedure mnuInfoClick(Sender: TObject); procedure mnuRedoClick(Sender: TObject); procedure mnuCutClick(Sender: TObject); procedure mnuCopyClick(Sender: TObject); procedure mnuPasteClick(Sender: TObject); procedure mnuSelectAllClick(Sender: TObject); procedure mnuCloseClick(Sender: TObject); procedure mnuShowCodeToolsClick(Sender: TObject); procedure sciEditorClick(Sender: TObject); procedure sciEditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure sciEditorKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure mnuFoldAllClick(Sender: TObject); procedure tbxToolbarVisibleChanged(Sender: TObject); procedure mnuShowFileTBClick(Sender: TObject); procedure tbxEditVisibleChanged(Sender: TObject); procedure mnuShowEditTBClick(Sender: TObject); procedure tbxCodeSnippetsVisibleChanged(Sender: TObject); procedure mnuShowCodeSnippetsClick(Sender: TObject); procedure mnuCopyMessageClick(Sender: TObject); procedure mnuCopyAllClick(Sender: TObject); procedure mnuSaveToFileClick(Sender: TObject); procedure ppmOutputInitPopup(Sender: TObject; PopupView: TTBView); procedure mnuSearchForumsClick(Sender: TObject); procedure mnuOpenScriptingForumClick(Sender: TObject); procedure mnuEditorUndoClick(Sender: TObject); procedure mnuEditorRedoClick(Sender: TObject); procedure mnuEditorCopyClick(Sender: TObject); procedure mnuEditorCutClick(Sender: TObject); procedure mnuEditorPasteClick(Sender: TObject); procedure mnuToogleBookmarkClick(Sender: TObject); procedure mnuEditorDeleteClick(Sender: TObject); procedure mnuEditorSelectAllClick(Sender: TObject); procedure mnuGoToBookmarkClick(Sender: TObject); procedure mnuSearchDialogClick(Sender: TObject); procedure mnuReplaceClick(Sender: TObject); procedure mnuSearchAgainClick(Sender: TObject); procedure mnuGoToLineClick(Sender: TObject); procedure mnuPrintClick(Sender: TObject); procedure mnuSaveAllFilesClick(Sender: TObject); procedure sciEditorKeyPress(Sender: TObject; var Key: Char); procedure mnuCloseAllFilesClick(Sender: TObject); procedure mnuIndenterClick(Sender: TObject); procedure mnuUnindenterClick(Sender: TObject); procedure mnuPasterClick(Sender: TObject); procedure mnuPluginsIniEditorClick(Sender: TObject); procedure cmdCancelClick(Sender: TObject); procedure mnuSocketTerminalClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure trvExplorerDblClick(Sender: TObject); procedure tiPawnClick(Sender: TObject); procedure tiCPPClick(Sender: TObject); procedure tiOtherClick(Sender: TObject); procedure mnuOpenHelpClick(Sender: TObject); procedure mnuHudmessageClick(Sender: TObject); procedure mnuDoCompileClick(Sender: TObject); procedure lstOutputMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure lstOutputDblClick(Sender: TObject); procedure lstOutputMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure sciEditorMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure lstOutputEnter(Sender: TObject); procedure mnuCompileAndStartHLClick(Sender: TObject); procedure mnuCompileAndUploadClick(Sender: TObject); procedure mnuRegisterPluginsIniLocalClick(Sender: TObject); procedure mnuRegisterPluginsIniWebClick(Sender: TObject); procedure sciAutoCompleteBeforeShow(Sender: TObject; const Position: Integer; ListToDisplay: TStrings; var CancelDisplay: Boolean); procedure mnuMOTDGeneratorClick(Sender: TObject); procedure mnuHeaderPawnClick(Sender: TObject); procedure OnTabSelect(Sender: TTBCustomItem; Viewer: TTBItemViewer; Selecting: Boolean); procedure mnuPCloseClick(Sender: TObject); procedure mnuPCloseAllFilesClick(Sender: TObject); procedure mnuTNewClick(Sender: TObject); procedure mnuMenuGeneratorClick(Sender: TObject); procedure JvPluginManagerPlugInError(Sender: TObject; AError: Exception); procedure mnuNewModuleClick(Sender: TObject); procedure mnuNewUnitClick(Sender: TObject); procedure mnuNewHeaderCPPClick(Sender: TObject); procedure tcToolsActiveTabChange(Sender: TObject; ItemIndex: Integer); procedure sciEditorModified(Sender: TObject; const position, modificationType: Integer; text: PAnsiChar; const len, linesAdded, line, foldLevelNow, foldLevelPrev: Integer); procedure sciEditorDblClick(Sender: TObject); procedure sciCallTipsBeforeShow(Sender: TObject; const Position: Integer; ListToDisplay: TStrings; var CancelDisplay: Boolean); procedure sciEditorCallTipClick(Sender: TObject; const position: Integer); procedure sciEditorAutoCSelection(Sender: TObject; text: PAnsiChar); procedure pnlCodeInspectorVisibleChanged(Sender: TObject); procedure pnlCodeExplorerVisibleChanged(Sender: TObject); procedure mnuShowCodeExplorerClick(Sender: TObject); procedure mnuShowCodeInspectorClick(Sender: TObject); procedure mnuConnectionGenClick(Sender: TObject); procedure trvExplorerClick(Sender: TObject); procedure jviCodeItemValueChanged(Sender: TObject; Item: TJvCustomInspectorItem); procedure mnuRestoreBackupClick(Sender: TObject); private procedure UpdateNotes; public IRCPasterStop: Boolean; eErrorLine: Integer; SelectedTab: TSpTBXTabItem; procedure OnCodeSnippetClick(Sender: TObject); procedure OnCustomClick(Sender: TObject); procedure SetErrorLine(eLine: Integer); procedure OnCopyData(var Msg: TWMCopyData); message WM_COPYDATA; procedure OnMessage(var Msg: TMsg; var Handled: Boolean); procedure OnShortCut(var Msg: TWMKey; var Handled: Boolean); end; var frmMain: TfrmMain; eCPP: Boolean; implementation uses UnitfrmSettings, UnitMainTools, UnitLanguages, UnitfrmInfo, UnitCodeSnippets, UnitfrmSearch, UnitfrmReplace, UnitfrmGoToLine, UnitfrmAllFilesForm, UnitCodeUtils, UnitfrmPluginsIniEditor, UnitfrmSocketsTerminal, UnitCodeExplorerUpdater, UnitTextAnalyze, UnitfrmHudMsgGenerator, UnitCompile, UnitfrmAutoIndent, UnitfrmHTMLPreview, UnitCodeInspector, UnitfrmMOTDGen, UnitfrmMenuGenerator, UnitfrmClose, UnitPlugins, UnitfrmConnGen, UnitMenuGenerators, UnitfrmIRCPaster; {$R *.dfm} procedure TfrmMain.FormConstrainedResize(Sender: TObject; var MinWidth, MinHeight, MaxWidth, MaxHeight: Integer); begin pnlLoading.Left := sciEditor.Left + 3 + (sciEditor.Width div 2) - (pnlLoading.Width div 2); pnlLoading.Top := tsDocuments.Top + sciEditor.Top + ((sciEditor.Height * 5) div 6) - (pnlLoading.Height div 2); if (Canvas.TextWidth(ActiveDoc.FileName) + 10 > mnuFilename.CustomWidth) then mnuFilename.Caption := ExtractFileName(ActiveDoc.FileName) else mnuFilename.Caption := ActiveDoc.FileName; end; procedure TfrmMain.mnuExitClick(Sender: TObject); begin Close; end; { Notes -> } procedure TfrmMain.OnCodeSnippetSelect(Sender: TObject); begin mnuPawn.Checked := Sender = mnuPawn; mnuCPP.Checked := Sender = mnuCPP; mnuHTML.Checked := Sender = mnuHTML; mnuOther.Checked := Sender = mnuOther; LoadCodeSnippets((Sender as TSpTBXItem).Caption); end; procedure TfrmMain.cpNotesChange(Sender: TObject); begin rtfNotes.SelAttributes.Color := cpNotes.Color; end; procedure TfrmMain.UpdateNotes; begin cpNotes.Color := rtfNotes.SelAttributes.Color; mnuBold.Checked := fsBold in rtfNotes.SelAttributes.Style; mnuItalic.Checked := fsItalic in rtfNotes.SelAttributes.Style; mnuUnderline.Checked := fsUnderline in rtfNotes.SelAttributes.Style; end; procedure TfrmMain.mnuBoldClick(Sender: TObject); begin if fsBold in rtfNotes.SelAttributes.Style then rtfNotes.SelAttributes.Style := rtfNotes.SelAttributes.Style - [fsBold] else rtfNotes.SelAttributes.Style := rtfNotes.SelAttributes.Style + [fsBold]; end; procedure TfrmMain.mnuItalicClick(Sender: TObject); begin if fsItalic in rtfNotes.SelAttributes.Style then rtfNotes.SelAttributes.Style := rtfNotes.SelAttributes.Style - [fsItalic] else rtfNotes.SelAttributes.Style := rtfNotes.SelAttributes.Style + [fsItalic]; end; procedure TfrmMain.mnuUnderlineClick(Sender: TObject); begin if fsUnderline in rtfNotes.SelAttributes.Style then rtfNotes.SelAttributes.Style := rtfNotes.SelAttributes.Style - [fsUnderline] else rtfNotes.SelAttributes.Style := rtfNotes.SelAttributes.Style + [fsUnderline]; end; procedure TfrmMain.rtfNotesMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin UpdateNotes; end; procedure TfrmMain.rtfNotesKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin UpdateNotes; end; { <- Notes - Code-Explorer -> } procedure TfrmMain.trvExplorerCollapsed(Sender: TObject; Node: TTreeNode); begin Node.ImageIndex := 42; Node.SelectedIndex := 42; end; procedure TfrmMain.trvExplorerExpanded(Sender: TObject; Node: TTreeNode); begin Node.ImageIndex := 43; Node.SelectedIndex := 43; end; { <- Code Explorer } procedure TfrmMain.mnuSettingsClick(Sender: TObject); var i: integer; eModified: Boolean; begin CopyFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\Pawn.csl'), PChar(ExtractFilePath(ParamStr(0)) + 'config\Pawn.bak'), False); CopyFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\C++.csl'), PChar(ExtractFilePath(ParamStr(0)) + 'config\C++.bak'), False); CopyFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\Other.csl'), PChar(ExtractFilePath(ParamStr(0)) + 'config\Other.bak'), False); eModified := ActiveDoc.Modified; if frmSettings.ShowModal = mrOk then begin { Shortcuts } for i := 0 to frmSettings.lvShortcuts.Items.Count - 1 do TSciKeyCommand(frmSettings.lvShortcuts.Items[i].Data).ShortCut := (TextToShortCut(frmSettings.lvShortcuts.Items[i].SubItems[0])); { Tools } if frmSettings.chkIndentGuides.Checked then sciEditor.Indentation := sciEditor.Indentation + [IndentationGuides] else sciEditor.Indentation := sciEditor.Indentation - [IndentationGuides]; sciEditor.BraceHilite := frmSettings.chkHighlightBraces.Checked; sciEditor.ClearUndoAfterSave := frmSettings.chkClearUndoAfterSave.Checked; sciEditor.AutoCloseBraces := frmSettings.chkAutoCloseBraces.Checked; sciEditor.AutoCloseQuotes := frmSettings.chkAutoCloseQuotes.Checked; if frmSettings.chkWordWrap.Checked then sciEditor.WordWrap := sciWrap else sciEditor.WordWrap := sciNoWrap; case frmSettings.cboCodeFolding.ItemIndex of 0: sciEditor.FoldMarkerType := sciMarkArrows; 1: sciEditor.FoldMarkerType := sciMarkBox; 2: sciEditor.FoldMarkerType := sciMarkCircle; 3: sciEditor.FoldMarkerType := sciMarkPlusMinus; end; if frmSettings.cboCodeFolding.ItemIndex = 4 then sciEditor.Folding := sciEditor.Folding - [foldFold] else sciEditor.Folding := sciEditor.Folding + [foldFold]; sciEditor.Caret.ForeColor := frmSettings.CaretFore; sciEditor.Caret.LineBackColor := frmSettings.CaretBack; sciEditor.Caret.LineVisible := frmSettings.chkShowCaret.Checked; sciEditor.Caret.Period := StrToInt(frmSettings.txtPeriod.Text); eConfig.WriteBool('Editor', 'MakeBaks', frmSettings.chkMakeBaks.Checked); eConfig.WriteBool('Editor', 'DontLoadFilesTwice', frmSettings.chkDontLoadFilesTwice.Checked); eConfig.WriteBool('Editor', 'Auto-Indent', frmSettings.chkAutoIndent.Checked); eConfig.WriteBool('Editor', 'IndentOpeningBrace', frmAutoIndent.chkIndentOpeningBrace.Checked); eConfig.WriteBool('Editor', 'UnindentClosingBrace', frmAutoIndent.chkUnindentPressingClosingBrace.Checked); eConfig.WriteBool('Editor', 'UnindentEmptyLine', frmAutoIndent.chkUnindentLine.Checked); eConfig.WriteBool('Editor', 'Disable_AC', frmSettings.chkDisableAC.Checked); eConfig.WriteBool('Editor', 'Disable_CT', frmSettings.chkDisableCT.Checked); { Editor } if FileExists(sciPropertyLoader.FileName) then sciPropertyLoader.Save; { Compiler } eConfig.WriteString('Pawn-Compiler', 'Path', frmSettings.txtPawnCompilerPath.Text); eConfig.WriteString('Pawn-Compiler', 'Args', frmSettings.txtPawnArgs.Text); eConfig.WriteString('Pawn-Compiler', 'DefaultOutput', frmSettings.txtPawnOutput.Text); eConfig.WriteString('CPP-Compiler', 'Path', frmSettings.txtCPPCompilerPath.Text); eConfig.WriteString('CPP-Compiler', 'Args', frmSettings.txtCPPCompilerArguments.Text); eConfig.WriteString('CPP-Compiler', 'DefaultOutput', frmSettings.txtCPPOutput.Text); { HL } eConfig.WriteString('Half-Life', 'Filename', frmSettings.txtHLExec.Text); eConfig.WriteString('Half-Life', 'Params', frmSettings.txtCustomParameters.Text); eConfig.WriteString('Half-Life', 'AMXXListen', frmSettings.txtAMXXDir.Text); { FTP Settings } eConfig.WriteString('FTP', 'Host', frmSettings.txtHost.Text); eConfig.WriteString('FTP', 'Port', frmSettings.txtPort.Text); eConfig.WriteString('FTP', 'Username', frmSettings.txtUsername.Text); eConfig.WriteString('FTP', 'Password', frmSettings.txtPassword.Text); eConfig.WriteString('FTP', 'DefaultDir', frmSettings.txtDefaultDir.Text); eConfig.WriteBool('FTP', 'Passive', frmSettings.chkPassive.Checked); { FTP Proxy } eConfig.WriteInteger('Proxy', 'ProxyType', frmSettings.cboProxy.ItemIndex); eConfig.WriteString('Proxy', 'Host', frmSettings.txtProxyHost.Text); eConfig.WriteString('Proxy', 'Port', frmSettings.txtProxyPort.Text); eConfig.WriteString('Proxy', 'Username', frmSettings.txtUsername.Text); eConfig.WriteString('Proxy', 'Password', frmSettings.txtProxyPassword.Text); { Misc } eConfig.WriteString('Misc', 'DefaultPluginName', frmSettings.txtDefaultName.Text); eConfig.WriteString('Misc', 'DefaultPluginVersion', frmSettings.txtDefaultVersion.Text); eConfig.WriteString('Misc', 'DefaultPluginAuthor', frmSettings.txtDefaultAuthor.Text); if frmSettings.optFileComment.Checked then eConfig.WriteInteger('Misc', 'SaveNotesTo', 0) else if frmSettings.optConfig.Checked then eConfig.WriteInteger('Misc', 'SaveNotesTo', 1) else eConfig.WriteInteger('Misc', 'SaveNotesTo', 3); eConfig.WriteInteger('Misc', 'CPUSpeed', frmSettings.sldSpeed.Value); eConfig.WriteString('Misc', 'LangDir', frmSettings.txtLangDir.Text); eConfig.WriteBool('Misc', 'ShowStatusbar', frmSettings.chkShowStatusbar.Checked); end else begin { Restore Code-Snippets } DeleteFile(ExtractFilePath(ParamStr(0)) + 'config\Pawn.csl'); DeleteFile(ExtractFilePath(ParamStr(0)) + 'config\C++.csl'); DeleteFile(ExtractFilePath(ParamStr(0)) + 'config\Other.csl'); CopyFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\Pawn.bak'), PChar(ExtractFilePath(ParamStr(0)) + 'config\Pawn.csl'), False); CopyFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\C++.bak'), PChar(ExtractFilePath(ParamStr(0)) + 'config\C++.csl'), False); CopyFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\Other.bak'), PChar(ExtractFilePath(ParamStr(0)) + 'config\Other.csl'), False); end; if mnuPawn.Checked then LoadCodeSnippets('Pawn') else if mnuCPP.Checked then LoadCodeSnippets('C++') else if mnuHTML.Checked then LoadCodeSnippets('HTML') else LoadCodeSnippets('Other'); DeleteFile(ExtractFilePath(ParamStr(0)) + 'config\Pawn.bak'); DeleteFile(ExtractFilePath(ParamStr(0)) + 'config\C++.bak'); DeleteFile(ExtractFilePath(ParamStr(0)) + 'config\Other.bak'); if FileExists(sciPropertyLoader.FileName) then sciPropertyLoader.Load; ReloadIni; sciEditor.Modified := eModified; ActiveDoc.Modified := eModified; if eModified then mnuModified.Caption := lModified else mnuModified.Caption := ''; sciEditor.Gutter1.MarginType := gutLineNumber; sciEditor.Gutter1.Width := 40; end; { Change Tab -> } procedure TfrmMain.tsMainActiveTabChange(Sender: TObject; ItemIndex: Integer); begin if (not Started) or (frmMain.pnlLoading.Visible) then exit; if (lstOutput.Visible) then begin if Plugin_VisibleControlChange(CTRL_OUTPUT, False) then begin splOutput.Hide; lstOutput.Hide; Plugin_VisibleControlChange(CTRL_OUTPUT, False); end; end; case tsMain.ActiveTabIndex of 0: begin mnuTNew.Caption := 'New Plugin'; end; 1: begin mnuTNew.Caption := 'New Unit'; sciCallTips.ApiStrings.Clear; sciAutoComplete.AStrings.Clear; end; 2: begin mnuTNew.Caption := 'New Textfile'; sciCallTips.ApiStrings.Clear; sciAutoComplete.AStrings.Clear; end; end; ActivateProjects(ItemIndex, True); trvExplorer.Items.Clear; FillCodeExplorer(GetCurrLang.Name); end; procedure TfrmMain.tsDocumentsActiveTabChange(Sender: TObject; ItemIndex: Integer); var Collection: TDocCollection; begin if (not Started) or (pnlLoading.Visible) then exit; if (lstOutput.Visible) then begin if Plugin_VisibleControlChange(CTRL_OUTPUT, False) then begin splOutput.Hide; lstOutput.Hide; Plugin_VisibleControlChange(CTRL_OUTPUT, False); end; end; case tsMain.ActiveTabIndex of 0: Collection := PawnProjects; // Pawn 1: Collection := CPPProjects; // C++ else Collection := OtherProjects; // Other end; Collection.Activate(ItemIndex, True); end; { <- Change Tab | Settings -> } procedure TfrmMain.FormShow(Sender: TObject); begin if (Screen.Cursor = crDefault) and (not pnlLoading.Visible) then begin Started := True; TCodeExplorerUpdater.Create(False); ReloadIni; end; end; { <- Settings | Toolbars -> } procedure TfrmMain.mnuTOpenClick(Sender: TObject); begin mnuOpen.Click; end; procedure TfrmMain.mnuTSaveClick(Sender: TObject); begin mnuSave.Click; end; procedure TfrmMain.mnuTSearchClick(Sender: TObject); begin mnuSearch.Click; end; procedure TfrmMain.mnuTCompileClick(Sender: TObject); begin mnuDoCompile.Click; end; procedure TfrmMain.mnuTUndoClick(Sender: TObject); begin mnuUndo.Click; end; procedure TfrmMain.mnuTRedoClick(Sender: TObject); begin mnuRedo.Click; end; procedure TfrmMain.mnuTCopyClick(Sender: TObject); begin mnuCopy.Click; end; procedure TfrmMain.mnuTCutClick(Sender: TObject); begin mnuCut.Click; end; procedure TfrmMain.mnuTPasteClick(Sender: TObject); begin mnuPaste.Click; end; procedure TfrmMain.mnuTSelectAllClick(Sender: TObject); begin mnuSelectAll.Click; end; procedure TfrmMain.mnuEmptyPluginClick(Sender: TObject); begin if not Plugin_CreateNewFile(NEW_Pawn_EMPTYPLUGIN, True) then exit; if tsMain.ActiveTabIndex <> 0 then ActivateProjects(0, False); PawnProjects.Activate(PawnProjects.Add(''), True); Plugin_CreateNewFile(NEW_Pawn_EMPTYPLUGIN, False); end; procedure TfrmMain.mnuNewPluginClick(Sender: TObject); begin if not Plugin_CreateNewFile(NEW_Pawn_PLUGIN, True) then exit; if tsMain.ActiveTabIndex <> 0 then ActivateProjects(0, False); PawnProjects.Activate(PawnProjects.Add(''), False); sciEditor.Lines.Add('/* Plugin generated by AMXX-Studio */'); sciEditor.Lines.Add(''); sciEditor.Lines.Add('#include '); sciEditor.Lines.Add('#include '); sciEditor.Lines.Add(''); sciEditor.Lines.Add('#define PLUGIN "' + eConfig.ReadString('Misc', 'DefaultPluginName', 'New Plugin') + '"'); sciEditor.Lines.Add('#define VERSION "' + eConfig.ReadString('Misc', 'DefaultPluginVersion', '1.0') + '"'); sciEditor.Lines.Add('#define AUTHOR "' + eConfig.ReadString('Misc', 'DefaultPluginAuthor', 'Your name') + '"'); sciEditor.Lines.Add(''); sciEditor.Lines.Add(''); sciEditor.Lines.Add('public plugin_init() {'); sciEditor.Lines.Add(' register_plugin(PLUGIN, VERSION, AUTHOR)'); sciEditor.Lines.Add(' '); sciEditor.Lines.Add(' // Add your code here...'); sciEditor.Lines.Add('}'); Plugin_CreateNewFile(NEW_Pawn_PLUGIN, False); end; procedure TfrmMain.mnuHXMLClick(Sender: TObject); begin SelectLanguage((Sender as TSpTBXItem).Caption); end; procedure TfrmMain.mnuHNoneClick(Sender: TObject); begin SelectLanguage('null'); end; procedure TfrmMain.mnuOpenClick(Sender: TObject); var eExt: string; begin if Assigned(Sender) then begin if not odOpen.Execute then exit; end; eExt := ExtractFileExt(odOpen.FileName); eExt := LowerCase(eExt); if (eExt = '.sma') or (eExt = '.inc') or (eExt = '.inl') then begin // Pawn files if tsMain.ActiveTabIndex <> 0 then ActivateProjects(0, False); PawnProjects.Open(odOpen.FileName); end else if (eExt = '.cpp') or (eExt = '.h') then begin // C++ files if not eCPP then MessageBox(Handle, PChar(lNoCPP), PChar(Application.Title), MB_ICONWARNING) else begin if tsMain.ActiveTabIndex <> 1 then ActivateProjects(1, False); CPPProjects.Open(odOpen.FileName); end; end else if (eExt = '.htm') or (eExt = '.html') then begin // HTML files if tsMain.ActiveTabIndex <> 1 then ActivateProjects(2, False); OtherProjects.Open(odOpen.FileName, 'HTML'); end else if (eExt = '.sql') then begin // SQL databases if tsMain.ActiveTabIndex <> 1 then ActivateProjects(2, False); OtherProjects.Open(odOpen.FileName, 'SQL'); end else if (eExt = '.xml') then begin // XML files if tsMain.ActiveTabIndex <> 1 then ActivateProjects(2, False); OtherProjects.Open(odOpen.FileName, 'XML'); end else begin // Other files and/or Textfiles if tsMain.ActiveTabIndex <> 1 then ActivateProjects(2, False); OtherProjects.Open(odOpen.FileName, 'null'); end; end; procedure TfrmMain.mnuNewTextfileClick(Sender: TObject); begin if not Plugin_CreateNewFile(NEW_OTHER_TEXTFILE, True) then exit; if tsMain.ActiveTabIndex <> 2 then ActivateProjects(2, False); OtherProjects.Activate(OtherProjects.Add(''), True); Plugin_CreateNewFile(NEW_OTHER_TEXTFILE, False); end; procedure TfrmMain.mnuNewHTMLClick(Sender: TObject); begin if not Plugin_CreateNewFile(NEW_OTHER_HTML, True) then exit; if tsMain.ActiveTabIndex <> 2 then ActivateProjects(2, False); OtherProjects.Activate(OtherProjects.Add('', 'HTML'), True); sciEditor.Lines.Add(''); sciEditor.Lines.Add(#9''); sciEditor.Lines.Add(#9#9'Your Title'); sciEditor.Lines.Add(#9''); sciEditor.Lines.Add(#9''); sciEditor.Lines.Add(#9#9'<-- Your text here -->'); sciEditor.Lines.Add(#9''); sciEditor.Lines.Add(''); Plugin_CreateNewFile(NEW_OTHER_HTML, False); end; procedure TfrmMain.mnuNewSQLClick(Sender: TObject); begin if not Plugin_CreateNewFile(NEW_OTHER_SQL, True) then exit; if tsMain.ActiveTabIndex <> 2 then ActivateProjects(2, False); OtherProjects.Activate(OtherProjects.Add('', 'SQL'), True); Plugin_CreateNewFile(NEW_OTHER_SQL, False); end; procedure TfrmMain.mnuNewXMLClick(Sender: TObject); begin if not Plugin_CreateNewFile(NEW_OTHER_XML, True) then exit; if tsMain.ActiveTabIndex <> 2 then ActivateProjects(2, False); OtherProjects.Activate(OtherProjects.Add('', 'XML'), True); Plugin_CreateNewFile(NEW_OTHER_XML, False); end; procedure TfrmMain.mnuUndoClick(Sender: TObject); begin sciEditor.Undo; end; procedure TfrmMain.mnuSaveClick(Sender: TObject); begin if ActiveDoc.Untitled then mnuSaveAs.Click else begin ActiveDoc.Save; mnuModified.Caption := ''; end; end; procedure TfrmMain.mnuSaveAsClick(Sender: TObject); begin if sdSave.Execute then begin ActiveDoc.FileName := AddExtension(sdSave.FileName, ActiveDoc.Highlighter); ActiveDoc.Save; // Don't know why tsDocuments.Items[0].Caption := '???'; not works, but this does: TSpTBXTabItem(tsDocuments.Items[ActiveDoc.Index]).Caption := ActiveDoc.Title; end; end; procedure TfrmMain.mnuThemesClick(Sender: TObject); begin if Started then eConfig.WriteString('Misc', 'Theme', TBXCurrentTheme); Plugin_ThemeChange(TBXCurrentTheme); end; procedure TfrmMain.mnuInfoClick(Sender: TObject); begin if Plugin_ShowHelp(HELP_ABOUT) then frmInfo.ShowModal; end; procedure TfrmMain.mnuRedoClick(Sender: TObject); begin sciEditor.Redo; end; procedure TfrmMain.mnuCutClick(Sender: TObject); begin sciEditor.Cut; end; procedure TfrmMain.mnuCopyClick(Sender: TObject); begin sciEditor.Copy; end; procedure TfrmMain.mnuPasteClick(Sender: TObject); begin sciEditor.Paste; end; procedure TfrmMain.mnuSelectAllClick(Sender: TObject); begin sciEditor.SelectAll; end; procedure TfrmMain.mnuCloseClick(Sender: TObject); begin CloseDocument(ActiveDoc); end; procedure TfrmMain.mnuShowCodeToolsClick(Sender: TObject); begin if not Plugin_VisibleControlChange(CTRL_CODETOOLS_MAIN, not tcTools.Visible) then exit; tcTools.Visible := (Sender as TSpTBXItem).Checked; splRight.Visible := (Sender as TSpTBXItem).Checked; mnuShowCodeTools.Checked := (Sender as TSpTBXItem).Checked; mnuShowCodeToolsWindow.Checked := (Sender as TSpTBXItem).Checked; Application.ProcessMessages; Plugin_VisibleControlChange(CTRL_CODETOOLS_MAIN, tcTools.Visible); end; procedure TfrmMain.sciEditorClick(Sender: TObject); begin mnuCaret.Caption := Format(lLnCh, [sciEditor.GetCurrentLineNumber + 1, sciEditor.GetCaretInLine + 1]); Plugin_EditorClick(False); Plugin_UpdateSel(sciEditor.SelStart, sciEditor.SelLength, sciEditor.GetFirstVisibleLine); end; procedure TfrmMain.sciEditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var i: integer; begin mnuCaret.Caption := Format(lLnCh, [sciEditor.GetCurrentLineNumber + 1, sciEditor.GetCaretInLine + 1]); Plugin_UpdateSel(sciEditor.SelStart, sciEditor.SelLength, sciEditor.GetFirstVisibleLine); if Key = 46 then begin mnuModified.Caption := lModified; ActiveDoc.Modified := True; end; if sciEditor.Caret.LineVisible <> frmSettings.chkShowCaret.Checked then sciEditor.Caret.LineVisible := frmSettings.chkShowCaret.Checked; if sciEditor.Caret.LineBackColor <> frmSettings.CaretBack then begin sciEditor.Caret.LineBackColor := frmSettings.CaretBack; sciEditor.Colors.SelBack := clHighlight; i := sciEditor.SelLength; sciEditor.SelLength := 0; sciEditor.SelStart := sciEditor.SelStart + i; end; end; procedure TfrmMain.sciEditorKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var eStr: string; begin if not Started then exit; mnuCaret.Caption := Format(lLnCh, [sciEditor.GetCurrentLineNumber + 1, sciEditor.GetCaretInLine + 1]); Plugin_UpdateSel(sciEditor.SelStart, sciEditor.SelLength, sciEditor.GetFirstVisibleLine); if (Key = 13) and (frmSettings.chkAutoIndent.Checked) and (Trim(sciEditor.Lines[sciEditor.GetCurrentLineNumber]) = '') then begin if (sciEditor.LanguageManager.SelectedLanguage = 'Pawn') or (sciEditor.LanguageManager.SelectedLanguage = 'C++') then begin eStr := Trim(RemoveStringsAndComments(sciEditor.Lines[sciEditor.GetCurrentLineNumber - 1], True, True)); if (Copy(eStr, Length(eStr), 1) = '{') and (frmAutoIndent.chkIndentOpeningBrace.Checked) then sciEditor.SelText := #9; if (eStr = '') and (frmAutoIndent.chkUnindentLine.Checked) then begin sciEditor.Lines[sciEditor.GetCurrentLineNumber] := Copy(sciEditor.Lines[sciEditor.GetCurrentLineNumber], 1, Length(sciEditor.Lines[sciEditor.GetCurrentLineNumber]) - 1); // remove last indent.. sciEditor.SelStart := sciEditor.SelStart + Length(sciEditor.Lines[sciEditor.GetCurrentLineNumber]); // and jump to last position end; end; end; Application.ProcessMessages; UpdateCI(frmMain.sciEditor.GetCurrentLineNumber); end; procedure TfrmMain.mnuFoldAllClick(Sender: TObject); begin Screen.Cursor := crHourGlass; sciEditor.FoldAll; Screen.Cursor := crDefault; end; procedure TfrmMain.tbxToolbarVisibleChanged(Sender: TObject); begin mnuShowFileTB.Checked := tbxToolbar.Visible; end; procedure TfrmMain.mnuShowFileTBClick(Sender: TObject); begin tbxToolbar.Visible := mnuShowFileTB.Checked; end; procedure TfrmMain.tbxEditVisibleChanged(Sender: TObject); begin mnuShowEditTB.Checked := tbxEdit.Visible; end; procedure TfrmMain.mnuShowEditTBClick(Sender: TObject); begin tbxEdit.Visible := mnuShowEditTB.Checked; end; procedure TfrmMain.tbxCodeSnippetsVisibleChanged(Sender: TObject); begin mnuShowCodeSnippets.Checked := tbxCodeSnippets.Visible; end; procedure TfrmMain.mnuShowCodeSnippetsClick(Sender: TObject); begin tbxCodeSnippets.Visible := mnuShowCodeSnippets.Checked; end; procedure TfrmMain.OnCodeSnippetClick(Sender: TObject); begin if Plugin_CodeSnippetClick(TSpTBXItem(Sender).Caption, GetCat, GetSnippet(GetCat, (Sender as TSpTBXItem).Caption)) then sciEditor.SelText := GetSnippet(GetCat, (Sender as TSpTBXItem).Caption); end; procedure TfrmMain.mnuCopyMessageClick(Sender: TObject); begin if lstOutput.ItemIndex <> -1 then Clipboard.SetTextBuf(PChar(lstOutput.Items[lstOutput.ItemIndex])); end; procedure TfrmMain.mnuCopyAllClick(Sender: TObject); begin Clipboard.SetTextBuf(PChar(lstOutput.Items.Text)); end; procedure TfrmMain.mnuSaveToFileClick(Sender: TObject); begin sdSave.FilterIndex := 7; if sdSave.Execute then lstOutput.Items.SaveToFile(sdSave.FileName); end; procedure TfrmMain.ppmOutputInitPopup(Sender: TObject; PopupView: TTBView); begin mnuCopyMessage.Enabled := lstOutput.ItemIndex <> -1; end; procedure TfrmMain.mnuSearchForumsClick(Sender: TObject); begin if Plugin_ShowHelp(HELP_SEARCH) then ShellExecute(Handle, 'open', 'http://www.amxmodx.org/forums/search.php', nil, nil, SW_SHOW); end; procedure TfrmMain.mnuOpenScriptingForumClick(Sender: TObject); begin if Plugin_ShowHelp(HELP_FORUMS) then ShellExecute(Handle, 'open', 'http://www.amxmodx.org/forums/viewforum.php?f=8', nil, nil, SW_SHOW); end; procedure TfrmMain.mnuEditorUndoClick(Sender: TObject); begin mnuUndo.Click; end; procedure TfrmMain.mnuEditorRedoClick(Sender: TObject); begin mnuRedo.Click; end; procedure TfrmMain.mnuEditorCopyClick(Sender: TObject); begin mnuCopy.Click; end; procedure TfrmMain.mnuEditorCutClick(Sender: TObject); begin mnuCut.Click; end; procedure TfrmMain.mnuEditorPasteClick(Sender: TObject); begin mnuPaste.Click; end; procedure TfrmMain.mnuToogleBookmarkClick(Sender: TObject); begin sciEditor.BookmarkToggle(sciEditor.GetCurrentLineNumber); end; procedure TfrmMain.mnuEditorDeleteClick(Sender: TObject); begin sciEditor.Clear; end; procedure TfrmMain.mnuEditorSelectAllClick(Sender: TObject); begin sciEditor.SelectAll; end; procedure TfrmMain.mnuGoToBookmarkClick(Sender: TObject); begin sciEditor.BookmarkNext; end; procedure TfrmMain.mnuSearchDialogClick(Sender: TObject); begin Plugin_Search(frmSearch.cboSearchFor.Items.Text, frmSearch.cboSearchFor.Text, True, False, frmSearch.chkCaseSensivity.Checked, frmSearch.chkWholeWordsOnly.Checked, frmSearch.chkSearchFromCaret.Checked, frmSearch.chkSelectedTextOnly.Checked, frmSearch.chkRegularExpression.Checked, frmSearch.chkForward.Checked); if frmSearch.ShowModal = mrOk then begin if not Plugin_Search(frmSearch.cboSearchFor.Items.Text, frmSearch.cboSearchFor.Text, False, False, frmSearch.chkCaseSensivity.Checked, frmSearch.chkWholeWordsOnly.Checked, frmSearch.chkSearchFromCaret.Checked, frmSearch.chkSelectedTextOnly.Checked, frmSearch.chkRegularExpression.Checked, frmSearch.chkForward.Checked) then exit; with sciSearchReplace do begin SearchBackwards := frmSearch.chkBackward.Checked; SearchCaseSensitive := frmSearch.chkCaseSensivity.Checked; SearchFromCaret := frmSearch.chkSearchFromCaret.Checked; SearchSelectionOnly := frmSearch.chkSelectedTextOnly.Checked; SearchWholeWords := frmSearch.chkWholeWordsOnly.Checked; SearchRegex := frmSearch.chkRegularExpression.Checked; SearchText := frmSearch.cboSearchFor.Text; Screen.Cursor := crHourGlass; DoSearchReplaceText(False, frmSearch.chkBackward.Checked); Screen.Cursor := crDefault; end; end; end; procedure TfrmMain.mnuReplaceClick(Sender: TObject); var Stop: Boolean; begin if frmReplace.ShowModal = mrOk then begin if not Plugin_SearchReplace(frmReplace.cboSearchFor.Text, frmReplace.cboReplaceWith.Text, frmReplace.cboSearchFor.Items.Text, frmReplace.cboReplaceWith.Items.Text, frmSearch.chkCaseSensivity.Checked, frmSearch.chkWholeWordsOnly.Checked, frmSearch.chkSearchFromCaret.Checked, frmSearch.chkSelectedTextOnly.Checked, frmSearch.chkRegularExpression.Checked, frmSearch.chkForward.Checked) then exit; with sciSearchReplace do begin SearchBackwards := frmReplace.chkBackward.Checked; SearchCaseSensitive := frmReplace.chkCaseSensivity.Checked; SearchFromCaret := frmReplace.chkSearchFromCaret.Checked; SearchSelectionOnly := frmReplace.chkSelectedTextOnly.Checked; SearchWholeWords := frmReplace.chkWholeWordsOnly.Checked; SearchRegex := frmReplace.chkRegularExpression.Checked; SearchText := frmReplace.cboSearchFor.Text; Stop := False; Screen.Cursor := crHourGlass; repeat DoSearchReplaceText(False, frmReplace.chkBackward.Checked); if sciEditor.SelLength = 0 then Stop := True else sciEditor.SelText := frmReplace.cboReplaceWith.Text; until (not frmReplace.chkReplaceAll.Checked) or (Stop); Screen.Cursor := crDefault; end; end; end; procedure TfrmMain.mnuSearchAgainClick(Sender: TObject); begin if not Plugin_Search(frmSearch.cboSearchFor.Items.Text, frmSearch.cboSearchFor.Text, False, True, frmSearch.chkCaseSensivity.Checked, frmSearch.chkWholeWordsOnly.Checked, frmSearch.chkSearchFromCaret.Checked, frmSearch.chkSelectedTextOnly.Checked, frmSearch.chkRegularExpression.Checked, frmSearch.chkForward.Checked) then exit; sciSearchReplace.SearchText := frmSearch.cboSearchFor.Text; sciSearchReplace.SearchFromCaret := True; Screen.Cursor := crHourGlass; sciSearchReplace.DoSearchReplaceText(False, frmSearch.chkBackward.Checked); Screen.Cursor := crDefault; end; procedure TfrmMain.mnuGoToLineClick(Sender: TObject); begin if frmGoToLine.ShowModal = mrOk then begin sciEditor.GotoLineEnsureVisible(StrToInt(frmGoToLine.txtGoToLine.Text) - 1); UpdateCI(frmMain.sciEditor.GetCurrentLineNumber); end; end; procedure TfrmMain.mnuPrintClick(Sender: TObject); begin sciPrinter.Title := ExtractFileName(ActiveDoc.FileName); sciPrinter.PrintRange := prAllPages; if sciEditor.SelLength <> 0 then begin case MessageBox(Handle, PChar(lPrintSelection), PChar(Application.Title), MB_ICONQUESTION + MB_YESNOCANCEL) of mrYes: sciPrinter.PrintRange := prSelection; mrCancel: exit; end; end; sciPrinter.Print; end; procedure TfrmMain.mnuSaveAllFilesClick(Sender: TObject); var a, b: integer; Collection: TDocCollection; begin case tsMain.ActiveTabIndex of 0: Collection := PawnProjects; 1: Collection := CPPProjects; else Collection := OtherProjects; end; frmAllFilesForm.Caption := lSaveAllCaption1; frmAllFilesForm.lblCaption.Caption := lSaveAllCaption2; frmAllFilesForm.lstFiles.Clear; for a := 0 to Collection.Count - 1 do begin if TDocument(Collection.Items[a]).Modified then frmAllFilesForm.lstFiles.Checked[frmAllFilesForm.lstFiles.Items.AddObject(IntToStr(a + 1) + ') ' + ExtractFileName(TDocument(Collection.Items[a]).FileName), TObject(a))] := True; end; if frmAllFilesForm.lstFiles.Items.Count = 0 then begin MessageBox(Handle, PChar(lNoFilesToSave), PChar(Application.Title), MB_ICONINFORMATION); exit; end; if frmAllFilesForm.ShowModal = mrOk then begin for a := 0 to frmAllFilesForm.lstFiles.Items.Count - 1 do begin if frmAllFilesForm.lstFiles.Checked[a] then begin b := Integer(frmAllFilesForm.lstFiles.Items.Objects[a]); if TDocument(Collection.Items[b]).Untitled then begin if sdSave.Execute then begin TDocument(Collection.Items[b]).FileName := AddExtension(sdSave.FileName, TDocument(Collection.Items[b]).Highlighter); TDocument(Collection.Items[b]).Save; TSpTBXTabItem(tsDocuments.Items[b]).Caption := TDocument(Collection.Items[b]).Title; end else exit; end else TDocument(Collection.Items[b]).Save; if ActiveDoc = Collection.Items[b] then mnuModified.Caption := ''; end; end; end; end; procedure TfrmMain.sciEditorKeyPress(Sender: TObject; var Key: Char); begin if Started then begin if not Plugin_KeyPress(Key) then begin Key := #0; exit; end; mnuModified.Caption := lModified; ActiveDoc.Modified := True; if (Key = '}') and (frmSettings.chkAutoIndent.Checked) then begin if (Trim(sciEditor.Lines[sciEditor.GetCurrentLineNumber]) = '') and (frmAutoIndent.chkUnindentPressingClosingBrace.Checked) then begin if (sciEditor.LanguageManager.SelectedLanguage = 'Pawn') or (sciEditor.LanguageManager.SelectedLanguage = 'C++') then begin sciEditor.Lines[sciEditor.GetCurrentLineNumber] := Copy(sciEditor.Lines[sciEditor.GetCurrentLineNumber], 1, Length(sciEditor.Lines[sciEditor.GetCurrentLineNumber]) - 1); // remove last indent.. sciEditor.SelStart := sciEditor.SelStart + Length(sciEditor.Lines[sciEditor.GetCurrentLineNumber]); // and jump to last position end; end; end; end; end; procedure TfrmMain.mnuCloseAllFilesClick(Sender: TObject); var i: integer; Collection: TDocCollection; begin case tsMain.ActiveTabIndex of 0: Collection := PawnProjects; 1: Collection := CPPProjects; else Collection := OtherProjects; end; frmAllFilesForm.Caption := lCloseAllCaption1; frmAllFilesForm.lblCaption.Caption := lCloseAllCaption2; frmAllFilesForm.lstFiles.Clear; for i := 0 to Collection.Count - 1 do frmAllFilesForm.lstFiles.Checked[frmAllFilesForm.lstFiles.Items.Add(IntToStr(i + 1) + ') ' + ExtractFileName(TDocument(Collection.Items[i]).FileName))] := True; if frmAllFilesForm.ShowModal = mrOk then begin for i := Collection.Count - 1 downto 0 do begin if not CloseDocument(TDocument(Collection.Items[i])) then exit; end; end; end; procedure TfrmMain.mnuIndenterClick(Sender: TObject); begin IndentCode; end; procedure TfrmMain.mnuUnindenterClick(Sender: TObject); begin UnindentCode; end; procedure TfrmMain.mnuPasterClick(Sender: TObject); var i: integer; eTo, eFrom: Integer; eLine: string; begin if FindWindow('mirc', nil) = 0 then begin MessageBox(Handle, PChar(lNoMIRCWindowOpen), PChar(Application.Title), MB_ICONERROR); exit; end; frmIRCPaster.chkDelay.Checked := Pos('gamesurge', LowerCase(mIRCGet('mIRC', 'SERVER', 'SERVER'))) = 0; if frmIRCPaster.ShowModal = mrOk then begin { All } if frmIRCPaster.optAll.Checked then begin eFrom := 0; eTo := sciEditor.Lines.Count - 1; end { Special Lines } else if frmIRCPaster.optLines.Checked then begin eFrom := StrToInt(frmIRCPaster.txtFrom.Text) - 1; eTo := StrToInt(frmIRCPaster.txtTo.Text) - 1; end { Selected } else begin eFrom := LineFromPos(sciEditor.SelStart); eTo := LineFromPos(sciEditor.SelStart + sciEditor.SelLength); end; pbLoading.Max := eTo - eFrom; pbLoading.Position := 0; ShowProgress(True); for i := eFrom to eTo do begin if (FindWindow('mirc', nil) = 0) or (Application.Terminated) or (IRCPasterStop) then break; pbLoading.Position := i; SetProgressStatus('Pasting code...'); eLine := sciEditor.Lines[i]; eLine := Trim(eLine); eLine := StringReplace(eLine, #9, #32, [rfReplaceAll]); if frmIRCPaster.chkColors.Checked then mIRCDDE('mIRC', 'COMMAND', '/msg ' + frmIRCPaster.txtChannel.Text + #32 + GetColoredLine(i)) else mIRCDDE('mIRC', 'COMMAND', '/msg ' + frmIRCPaster.txtChannel.Text + #32 + eLine); if frmIRCPaster.chkDelay.Checked then Delay(eConfig.ReadInteger('Misc', 'IRCPasteDelay', 2500)); end; HideProgress; end; end; procedure TfrmMain.mnuPluginsIniEditorClick(Sender: TObject); begin frmPluginsIniEditor.txtFile.Clear; if FileExists(GetAMXXDir(True) + 'configs\plugins.ini') then frmPluginsIniEditor.chkEditLocal.Click else if (frmSettings.txtHost.Text <> '') and (frmPluginsIniEditor.chkEditFTP.Checked) then frmPluginsIniEditor.chkEditFTP.Click else frmPluginsIniEditor.chkEditLocal.Click; if frmPluginsIniEditor.txtFile.Text = '' then exit; if frmPluginsIniEditor.ShowModal = mrOk then begin Screen.Cursor := crHourGlass; if frmPluginsIniEditor.chkEditFTP.Checked then begin if not IdFTP.Connected then begin if TryConnect <> 0 then exit; end; try IdFTP.ChangeDir(frmSettings.txtDefaultDir.Text + 'configs/'); except IdFTP.Disconnect; MessageBox(Handle, PChar(lInvalidDirectory), PChar(Application.Title), MB_ICONERROR); Screen.Cursor := crDefault; exit; end; frmPluginsIniEditor.txtFile.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + 'plugins.ini'); IdFTP.TransferType := ftASCII; IdFTP.Put(ExtractFilePath(ParamStr(0)) + 'plugins.ini', 'plugins.ini'); DeleteFile(ExtractFilePath(ParamStr(0)) + 'plugins.ini'); end else frmPluginsIniEditor.txtFile.Lines.SaveToFile(frmPluginsIniEditor.odOpen.FileName); Screen.Cursor := crDefault; end; end; procedure TfrmMain.cmdCancelClick(Sender: TObject); begin Cancel := True; HideProgress; Screen.Cursor := crDefault; end; procedure TfrmMain.mnuSocketTerminalClick(Sender: TObject); begin frmSocketsTerminal.ShowModal; end; procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction); var i, k: integer; eRoot: TTreeNode; eItem: TDocument; eSavedFiles: TStringList; begin ActiveDoc.Code := sciEditor.Lines.Text; frmClose.trvFiles.Items.Clear; { Pawn Projects } eRoot := frmClose.trvFiles.Items.Add(nil, tsMain.Items[0].Caption); for i := 0 to PawnProjects.Count - 1 do begin if TDocument(PawnProjects.Items[i]).Modified then frmClose.trvFiles.Items.AddChild(eRoot, IntToStr(i + 1) + '. ' + ExtractFileName(TDocument(PawnProjects.Items[i]).FileName)); end; if eRoot.Count = 0 then eRoot.Destroy else eRoot.Expand(False); { C++ Projects } eRoot := frmClose.trvFiles.Items.Add(nil, tsMain.Items[1].Caption); for i := 0 to CPPProjects.Count - 1 do begin if TDocument(CPPProjects.Items[i]).Modified then frmClose.trvFiles.Items.AddChild(eRoot, IntToStr(i + 1) + '. ' + ExtractFileName(TDocument(CPPProjects.Items[i]).FileName)); end; if eRoot.Count = 0 then eRoot.Destroy else eRoot.Expand(False); { Other Projects } eRoot := frmClose.trvFiles.Items.Add(nil, tsMain.Items[1].Caption); for i := 0 to OtherProjects.Count - 1 do begin if TDocument(OtherProjects.Items[i]).Modified then frmClose.trvFiles.Items.AddChild(eRoot, IntToStr(i + 1) + '. ' + ExtractFileName(TDocument(OtherProjects.Items[i]).FileName)); end; if eRoot.Count = 0 then eRoot.Destroy else eRoot.Expand(False); eSavedFiles := TStringList.Create; eSavedFiles.Clear; for i := 0 to frmSettings.lvPlugins.Items.Count - 1 do begin if frmSettings.lvPlugins.Items[i].Data <> nil then eSavedFiles.Add('LOADED ' + frmSettings.lvPlugins.Items[i].SubItems[0]) else eSavedFiles.Add('UNLOADED ' + frmSettings.lvPlugins.Items[i].SubItems[0]); end; eSavedFiles.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\Plugins.cfg'); eSavedFiles.Clear; if frmClose.trvFiles.Items.Count <> 0 then begin frmClose.cmdSave.Caption := lCloseCaption; if (frmClose.ShowModal = mrOk) then begin if frmClose.cmdSave.Caption = lSaveCaption then begin for i := 0 to frmClose.trvFiles.Items.Count - 1 do begin { Pawn Projects } if frmClose.trvFiles.Items[i].Text = tsMain.Items[0].Caption then begin with frmClose.trvFiles.Items[i] do begin for k := 0 to Count - 1 do begin if frmClose.trvFiles.Checked[Item[k]] then begin eItem := TDocument(PawnProjects.Items[StrToInt(Copy(Item[k].Text, 1, Pos('.', Item[k].Text) - 1)) - 1]); // Process item here if not eItem.Untitled then eItem.Save else begin frmMain.sdSave.FilterIndex := 1; if frmMain.sdSave.Execute then begin eItem.FileName := AddExtension(frmMain.sdSave.FileName, eItem.Highlighter); eItem.Save; end else begin Action := caNone; exit; end; end; eSavedFiles.Add(eItem.FileName); end; end; end; end; { C++ Projects } if frmClose.trvFiles.Items[i].Text = tsMain.Items[1].Caption then begin with frmClose.trvFiles.Items[i] do begin for k := 0 to Count - 1 do begin if frmClose.trvFiles.Checked[Item[k]] then begin eItem := TDocument(CPPProjects.Items[StrToInt(Copy(Item[k].Text, 1, Pos('.', Item[k].Text) - 1)) - 1]); // Process item here if not eItem.Untitled then eItem.Save else begin frmMain.sdSave.FilterIndex := 2; if frmMain.sdSave.Execute then begin eItem.FileName := AddExtension(frmMain.sdSave.FileName, eItem.Highlighter); eItem.Save; end else begin Action := caNone; exit; end; end; eSavedFiles.Add(eItem.FileName); end; end; end; end; { Other Projects } if frmClose.trvFiles.Items[i].Text = tsMain.Items[2].Caption then begin with frmClose.trvFiles.Items[i] do begin for k := 0 to Count - 1 do begin if frmClose.trvFiles.Checked[Item[k]] then begin eItem := TDocument(OtherProjects.Items[StrToInt(Copy(Item[k].Text, 1, Pos('.', Item[k].Text) - 1)) - 1]); // Process item here if not eItem.Untitled then eItem.Save else begin frmMain.sdSave.FilterIndex := 0; if frmMain.sdSave.Execute then begin eItem.FileName := AddExtension(frmMain.sdSave.FileName, eItem.Highlighter); eItem.Save; end else begin Action := caNone; exit; end; end; eSavedFiles.Add(eItem.FileName); end; end; end; end; end; end; Application.Terminate; end else begin Action := caNone; exit; end; end else Application.Terminate; if eSavedFiles.Count = 0 then begin for i := 0 to PawnProjects.Count - 1 do begin if (not TDocument(PawnProjects.Items[i]).Untitled) then eSavedFiles.Add(TDocument(PawnProjects.Items[i]).FileName); end; for i := 0 to CPPProjects.Count - 1 do begin if (not TDocument(CPPProjects.Items[i]).Untitled) then eSavedFiles.Add(TDocument(CPPProjects.Items[i]).FileName); end; for i := 0 to OtherProjects.Count - 1 do begin if (not TDocument(OtherProjects.Items[i]).Untitled) then eSavedFiles.Add(TDocument(OtherProjects.Items[i]).FileName); end; end; eSavedFiles.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\Cache.cfg'); eSavedFiles.Free; Started := False; end; procedure TfrmMain.trvExplorerDblClick(Sender: TObject); begin if Assigned(trvExplorer.Selected) then begin if (trvExplorer.Selected.ImageIndex <> 42) and (trvExplorer.Selected.ImageIndex <> 43) then begin sciEditor.GotoLineEnsureVisible(Integer(trvExplorer.Selected.Data)); sciEditor.SetFocus; UpdateCI(frmMain.sciEditor.GetCurrentLineNumber); end; end; end; procedure TfrmMain.tiPawnClick(Sender: TObject); begin trvExplorer.Enabled := True; jviCode.Enabled := True; mnuGenerators.Visible := True; mnuIndenter.Enabled := True; mnuCompile.Visible := True; mnuRegisterPluginsIniLocal.Enabled := True; mnuRegisterPluginsIniWeb.Enabled := True; UpdateCI(frmMain.sciEditor.GetCurrentLineNumber); end; procedure TfrmMain.tiCPPClick(Sender: TObject); begin trvExplorer.Enabled := False; jviCode.Clear; AddField('', 'This language is not supported.', ''); jviCode.Enabled := False; mnuGenerators.Visible := False; mnuIndenter.Enabled := True; mnuCompile.Visible := True; mnuRegisterPluginsIniLocal.Enabled := False; mnuRegisterPluginsIniWeb.Enabled := False; end; procedure TfrmMain.tiOtherClick(Sender: TObject); begin trvExplorer.Enabled := False; jviCode.Clear; AddField('', 'This language is not supported.', ''); jviCode.Enabled := False; mnuGenerators.Visible := False; mnuIndenter.Enabled := False; mnuCompile.Visible := False; mnuRegisterPluginsIniLocal.Enabled := False; mnuRegisterPluginsIniWeb.Enabled := False; end; procedure TfrmMain.mnuOpenHelpClick(Sender: TObject); begin if Plugin_ShowHelp(HELP_DEFAULT) then ShellExecute(Handle, 'open', 'http://www.amxmodx.org/doc/', nil, nil, SW_SHOW); end; procedure TfrmMain.mnuHudmessageClick(Sender: TObject); function Dot(eIn: string): string; begin Result := StringReplace(eIn, ',', '.', [rfReplaceAll]); end; var eStr: string; begin frmHudMsgGenerator.chkXCenter.Checked := False; frmHudMsgGenerator.chkYCenter.Checked := False; frmHudMsgGenerator.txtXPos.Text := '0,00'; frmHudMsgGenerator.txtYPos.Text := '0,00'; frmHudMsgGenerator.lblHudMsg.Left := 0; frmHudMsgGenerator.lblHudMsg.Top := 0; frmHudMsgGenerator.lblHudMsg.Font.Color := clRed; frmHudMsgGenerator.txtText.Text := ''; frmHudMsgGenerator.CurrColor := clRed; if frmHudMsgGenerator.ShowModal = mrOk then begin eStr := Format(GetIndents + 'set_hudmessage(%u, %u, %u, %s, %s, 0, 6.0, %s)', [GetRValue(frmHudMsgGenerator.CurrColor), GetGValue(frmHudMsgGenerator.CurrColor), GetBValue(frmHudMsgGenerator.CurrColor), Dot(frmHudMsgGenerator.txtXPos.Text), Dot(frmHudMsgGenerator.txtYPos.Text), Dot(frmHudMsgGenerator.txtTimeToShow.Text)]); eStr := eStr + #13#10 + GetIndents + 'show_hudmessage(id, "' + frmHudMsgGenerator.txtText.Text + '")'; sciEditor.Lines.Insert(sciEditor.GetCurrentLineNumber, eStr); end; end; procedure TfrmMain.mnuDoCompileClick(Sender: TObject); begin if not Plugin_Compile(COMP_DEFAULT, GetCurrLang.Name, ActiveDoc.FileName, True) then exit; if (LowerCase(ExtractFileExt(ActiveDoc.FileName)) = '.inl') or (LowerCase(ExtractFileExt(ActiveDoc.FileName)) = '.inc') or (LowerCase(ExtractFileExt(ActiveDoc.FileName)) = '.h') then exit; if tsMain.ActiveTabIndex = 0 then DoCompilePawn(COMP_DEFAULT) else if (LowerCase(ExtractFileExt(ActiveDoc.FileName)) = '.htm') or (LowerCase(ExtractFileExt(ActiveDoc.FileName)) = '.html') then begin if IEInstalled then frmHTMLPreview.Show else MessageBox(Handle, PChar(lInternetExplorerRequired), PChar(Application.Title), MB_ICONINFORMATION); end; end; procedure TfrmMain.lstOutputMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var eItem: Integer; begin eItem := lstOutput.ItemAtPos(Point(X, Y), True); if eItem = -1 then lstOutput.Hint := '' else begin if (lstOutput.Hint <> lstOutput.Items[eItem]) and (Canvas.TextWidth(lstOutput.Items[eItem]) > lstOutput.Width) then lstOutput.Hint := lstOutput.Items[eItem]; end; end; procedure TfrmMain.lstOutputDblClick(Sender: TObject); var eLine: Integer; eStr: string; begin if not Plugin_OutputDblClick(lstOutput.ItemIndex) then exit; if (lstOutput.ItemIndex <> -1) then begin eStr := lstOutput.Items[lstOutput.ItemIndex]; while Pos(#32, eStr) <> 0 do Delete(eStr, 1, 1); if IsNumeric(eStr) then begin eLine := StrToInt(eStr); SetErrorLine(eLine); end; end; end; procedure TfrmMain.lstOutputMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (Button = mbRight) and (Plugin_OutputPopup(lstOutput.ItemIndex)) then begin lstOutput.ItemIndex := lstOutput.ItemAtPos(Point(X, Y), True); mnuCopyMessage.Enabled := lstOutput.ItemAtPos(Point(X, Y), True) <> -1; ppmOutput.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); end; end; procedure TfrmMain.SetErrorLine(eLine: Integer); begin eLine := eLine - 1; sciEditor.SetFocus; sciEditor.SelLength := 0; sciEditor.GotoLineEnsureVisible(eLine); sciEditor.SelLength := Length(sciEditor.Lines[eLine]); sciEditor.Caret.LineVisible := True; sciEditor.Caret.LineBackColor := clMaroon; sciEditor.Colors.SelBack := clMaroon; eErrorLine := eLine; end; procedure TfrmMain.sciEditorMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var i: integer; begin if not Started then exit; if sciEditor.Caret.LineVisible <> frmSettings.chkShowCaret.Checked then sciEditor.Caret.LineVisible := frmSettings.chkShowCaret.Checked; if sciEditor.Caret.LineBackColor <> frmSettings.CaretBack then begin sciEditor.Caret.LineBackColor := frmSettings.CaretBack; sciEditor.Colors.SelBack := clHighlight; i := sciEditor.SelLength; sciEditor.SelLength := 0; sciEditor.SelStart := sciEditor.SelStart + i; end; UpdateCI(frmMain.sciEditor.GetCurrentLineNumber); end; procedure TfrmMain.lstOutputEnter(Sender: TObject); var i: integer; begin if sciEditor.Caret.LineVisible <> frmSettings.chkShowCaret.Checked then sciEditor.Caret.LineVisible := frmSettings.chkShowCaret.Checked; if sciEditor.Caret.LineBackColor <> frmSettings.CaretBack then begin sciEditor.Caret.LineBackColor := frmSettings.CaretBack; sciEditor.Colors.SelBack := clHighlight; i := sciEditor.SelLength; sciEditor.SelLength := 0; sciEditor.SelStart := sciEditor.SelStart + i; end; end; procedure TfrmMain.mnuCompileAndStartHLClick(Sender: TObject); begin if not Plugin_Compile(COMP_STARTHL, GetCurrLang.Name, ActiveDoc.FileName, True) then exit; if tsMain.ActiveTabIndex = 0 then DoCompilePawn(COMP_STARTHL); end; procedure TfrmMain.mnuCompileAndUploadClick(Sender: TObject); begin if not Plugin_Compile(COMP_UPLOAD, GetCurrLang.Name, ActiveDoc.FileName, True) then exit; if tsMain.ActiveTabIndex = 0 then DoCompilePawn(COMP_UPLOAD); end; procedure TfrmMain.mnuRegisterPluginsIniLocalClick(Sender: TObject); function RemComments(eLine: string): string; var a, b: integer; begin if Length(eLine) > 0 then begin b := 0; for a := 1 to Length(eLine) - 1 do begin if (eLine[a] = ';') or (eLine[a] = '/') then begin b := a; break; end; end; if (b = 0) and (Pos(' debug', LowerCase(eLine)) <> 0) then b := Pos(' debug', LowerCase(eLine)); if b <> 0 then eLine := Trim(Copy(eLine, 1, b - 1)); end; Result := Trim(eLine); end; var eStr: TStringList; i: integer; eFound: Boolean; begin if ActiveDoc.Untitled then begin MessageBox(Handle, PChar(lNoUntitledRegister), PChar(Application.Title), MB_ICONINFORMATION); exit; end; if FileExists(GetAMXXDir(True) + 'configs\plugins.ini') then begin eFound := False; eStr := TStringList.Create; eStr.LoadFromFile(GetAMXXDir(True) + 'configs\plugins.ini'); for i := 0 to eStr.Count - 1 do begin if (Copy(eStr[i], 1, 1) <> ';') and (Copy(eStr[i], 1, 2) <> '//') then begin if LowerCase(RemComments(eStr[i])) = LowerCase(ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')) then begin eFound := True; break; end; end; end; if eFound then MessageBox(Handle, PChar(lAlreadyRegistered), PChar(Application.Title), MB_ICONINFORMATION) else begin eStr.Add(ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')); eStr.SaveToFile(GetAMXXDir(True) + 'configs\plugins.ini'); MessageBox(Handle, PChar(lSuccessfulRegistered), PChar(Application.Title), MB_ICONINFORMATION); end; eStr.Destroy; end; end; procedure TfrmMain.mnuRegisterPluginsIniWebClick(Sender: TObject); function RemComments(eLine: string): string; var a, b: integer; begin if Length(eLine) > 0 then begin b := 0; for a := 1 to Length(eLine) - 1 do begin if (eLine[a] = ';') or (eLine[a] = '/') then begin b := a; break; end; end; eLine := Trim(Copy(eLine, 1, b - 1)); end; Result := eLine; end; var eStr: TStringList; i: integer; eFound: Boolean; begin if ActiveDoc.Untitled then begin MessageBox(Handle, PChar(lNoUntitledRegister), PChar(Application.Title), MB_ICONINFORMATION); exit; end; Screen.Cursor := crHourGlass; if not IdFTP.Connected then begin if TryConnect <> 0 then exit; end; try IdFTP.ChangeDir(frmSettings.txtDefaultDir.Text + 'configs/'); IdFTP.Get('plugins.ini', ExtractFilePath(ParamStr(0)) + 'plugins.ini'); except Screen.Cursor := crDefault; MessageBox(Handle, PChar(lFailedUpdatePluginsIni), PChar(Application.Title), MB_ICONERROR); end; eFound := False; eStr := TStringList.Create; eStr.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'plugins.ini'); for i := 0 to eStr.Count - 1 do begin if (Copy(eStr[i], 1, 1) <> ';') and (Copy(eStr[i], 1, 2) <> '//') then begin if LowerCase(RemComments(eStr[i])) = LowerCase(ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')) then begin eFound := True; break; end; end; end; if eFound then begin Screen.Cursor := crDefault; MessageBox(Handle, PChar(lAlreadyRegistered), PChar(Application.Title), MB_ICONINFORMATION); exit; end else begin eStr.Add(ChangeFileExt(ExtractFileName(ActiveDoc.FileName), '.amxx')); eStr.SaveToFile(ExtractFilePath(ParamStr(0)) + 'plugins.ini'); end; eStr.Free; try IdFTP.TransferType := ftASCII; IdFTP.Put(ExtractFilePath(ParamStr(0)) + 'plugins.ini', 'plugins.ini'); IdFTP.Disconnect; MessageBox(Handle, PChar(lSuccessfulRegistered), PChar(Application.Title), MB_ICONINFORMATION); except Screen.Cursor := crDefault; MessageBox(Handle, PChar(lFailedUpdatePluginsIni), PChar(Application.Title), MB_ICONERROR); end; Screen.Cursor := crDefault; end; procedure TfrmMain.sciAutoCompleteBeforeShow(Sender: TObject; const Position: Integer; ListToDisplay: TStrings; var CancelDisplay: Boolean); var eCurrStyle: Integer; begin if not Plugin_AutoCompleteShow(ListToDisplay.GetText) then begin CancelDisplay := True; exit; end; if (Started) and (Assigned(GetStyleAt(sciEditor.SelStart))) then begin eCurrStyle := GetStyleAt(sciEditor.SelStart).StyleNumber; if (ActiveDoc.Highlighter = 'Pawn') or (ActiveDoc.Highlighter = 'C++') then begin CancelDisplay := (eCurrStyle = 12) or (eCurrStyle = 1) or (eCurrStyle = 2) or (eCurrStyle = 3) or (eCurrStyle = 15); CancelDisplay := (CancelDisplay) or (Pos('#', Trim(sciEditor.Lines[sciEditor.GetCurrentLineNumber])) = 1); CancelDisplay := (CancelDisplay) or (IsAtStart('new', sciEditor.Lines[sciEditor.GetCurrentLineNumber], False)); end; end; end; procedure TfrmMain.mnuMOTDGeneratorClick(Sender: TObject); var eStr: TStringList; i: integer; begin if (GetCurrLang.Name = 'HTML') then begin eStr := TStringList.Create; eStr.Text := StringReplace(sciEditor.Lines.Text, #9, '', [rfReplaceAll]); for i := 0 to eStr.Count - 1 do eStr[i] := '"' + eStr[i] + '\n" +'; frmMOTDGen.txtMOTD.Lines.Assign(eStr); eStr.Destroy; frmMOTDGen.ShowModal; end else begin mnuNewHTML.Click; if IEInstalled then frmHTMLPreview.Show; MessageBox(Handle, PChar(lUseMOTDAgain), PChar(Application.Title), MB_ICONINFORMATION); end; end; procedure TfrmMain.mnuHeaderPawnClick(Sender: TObject); begin if not Plugin_CreateNewFile(NEW_Pawn_HEADER, True) then exit; if tsMain.ActiveTabIndex <> 0 then ActivateProjects(0, False); PawnProjects.Activate(PawnProjects.Add('Untitled.inc'), False); sciEditor.Lines.Add('/* Header generated by AMXX-Studio*/'); sciEditor.Lines.Add(''); Plugin_CreateNewFile(NEW_Pawn_HEADER, False); end; procedure TfrmMain.OnTabSelect(Sender: TTBCustomItem; Viewer: TTBItemViewer; Selecting: Boolean); begin if (GetAsyncKeyState(VK_RBUTTON) <> 0) and (not pnlLoading.Visible) and (not Selecting) then begin SelectedTab := TSpTBXTabItem(Sender); ppmDocuments.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y); end; end; procedure TfrmMain.mnuPCloseClick(Sender: TObject); var Collection: TDocCollection; begin try case tsMain.ActiveTabIndex of 0: Collection := PawnProjects; // Pawn 1: Collection := CPPProjects; // C++ else Collection := OtherProjects; // Other end; if tsDocuments.Items.IndexOf(SelectedTab) <> -1 then CloseDocument(TDocument(Collection.Items[tsDocuments.Items.IndexOf(SelectedTab)])); except Application.ProcessMessages; // :o end; end; procedure TfrmMain.mnuPCloseAllFilesClick(Sender: TObject); begin mnuCloseAllFiles.Click; end; procedure TfrmMain.mnuTNewClick(Sender: TObject); begin case tsMain.ActiveTabIndex of 0: mnuNewPlugin.Click; 1: mnuNewUnit.Click; 2: mnuNewTextfile.Click; end; end; procedure TfrmMain.mnuMenuGeneratorClick(Sender: TObject); begin frmMenuGenerator.ShowModal; end; procedure TfrmMain.JvPluginManagerPlugInError(Sender: TObject; AError: Exception); begin MessageBox(Handle, PChar(lPluginError + #13 + AError.Message), PChar(Application.Title), MB_ICONERROR); end; procedure TfrmMain.mnuNewModuleClick(Sender: TObject); begin Plugin_CreateNewFile(NEW_CPP_MODULE, True); end; procedure TfrmMain.mnuNewUnitClick(Sender: TObject); begin Plugin_CreateNewFile(NEW_CPP_UNIT, True); end; procedure TfrmMain.mnuNewHeaderCPPClick(Sender: TObject); begin Plugin_CreateNewFile(NEW_CPP_HEADER, True); end; procedure TfrmMain.tcToolsActiveTabChange(Sender: TObject; ItemIndex: Integer); begin Plugin_VisibleControlChange(CTRL_CODETOOLS_ITEM, ItemIndex = 0); Plugin_VisibleControlChange(CTRL_NOTES, ItemIndex = 1); end; procedure TfrmMain.sciEditorModified(Sender: TObject; const position, modificationType: Integer; text: PAnsiChar; const len, linesAdded, line, foldLevelNow, foldLevelPrev: Integer); begin if Started then Plugin_Modified(text); end; procedure TfrmMain.sciEditorDblClick(Sender: TObject); begin Plugin_EditorClick(True); end; procedure TfrmMain.sciCallTipsBeforeShow(Sender: TObject; const Position: Integer; ListToDisplay: TStrings; var CancelDisplay: Boolean); begin CancelDisplay := not Plugin_CallTipShow(ListToDisplay.GetText); end; procedure TfrmMain.sciEditorCallTipClick(Sender: TObject; const position: Integer); begin if not Plugin_CallTipClick(position) then sciEditor.CallTipCancel; end; procedure TfrmMain.sciEditorAutoCSelection(Sender: TObject; text: PAnsiChar); begin Plugin_AutoCompleteSelect(text); end; procedure TfrmMain.OnCustomClick(Sender: TObject); begin Plugin_CustomItemClick((Sender as TTBXCustomItem).Caption); end; procedure TfrmMain.pnlCodeInspectorVisibleChanged(Sender: TObject); begin mnuShowCodeInspector.Checked := pnlCodeInspector.Visible; end; procedure TfrmMain.pnlCodeExplorerVisibleChanged(Sender: TObject); begin mnuShowCodeExplorer.Checked := pnlCodeExplorer.Visible; end; procedure TfrmMain.mnuShowCodeExplorerClick(Sender: TObject); begin pnlCodeExplorer.Visible := mnuShowCodeExplorer.Checked; end; procedure TfrmMain.mnuShowCodeInspectorClick(Sender: TObject); begin pnlCodeInspector.Visible := mnuShowCodeInspector.Checked; end; procedure TfrmMain.mnuConnectionGenClick(Sender: TObject); var eIncluded: Integer; eRegLine: Integer; eIndents: string; begin eRegLine := PluginInitLine; if (frmConnGen.ShowModal = mrOk) and (eRegLine <> -1) then begin // Add include and add var eIncluded := GetLast('#include', True); if eIncluded = -1 then eIncluded := 0; sciEditor.Lines.Insert(eIncluded + 1, 'new sck' + frmConnGen.txtName.Text); eRegLine := eRegLine + 1; AddIfDoesntExist('sockets'); // CVar stuff eIndents := GetIndents(eRegLine + 1); sciEditor.Lines.Insert(eRegLine + 2, eIndents + '/* Init CVars for the socket "' + frmConnGen.txtName.Text + '" */'); sciEditor.Lines.Insert(eRegLine + 3, eIndents + 'if (cvar_exists("amx_' + frmConnGen.txtName.Text + '_socket")) {'); sciEditor.Lines.Insert(eRegLine + 4, eIndents + #9 + 'sck' + frmConnGen.txtName.Text + ' = get_cvar_num("amx_' + frmConnGen.txtName.Text + '_socket")'); sciEditor.Lines.Insert(eRegLine + 5, eIndents + #9 + 'read_' + frmConnGen.txtName.Text + '()'); sciEditor.Lines.Insert(eRegLine + 6, eIndents + '}'); sciEditor.Lines.Insert(eRegLine + 7, eIndents + 'else'); sciEditor.Lines.Insert(eRegLine + 8, eIndents + #9 + 'register_cvar("amx_' + frmConnGen.txtName.Text + '_socket", "0", FCVAR_PROTECTED&FCVAR_UNLOGGED)'); sciEditor.Lines.Insert(eRegLine + 9, eIndents + '/* End */'); // Functions sciEditor.Lines.Add(''); sciEditor.Lines.Add('/* Socket ' + frmConnGen.txtName.Text + ' */'); sciEditor.Lines.Add(''); sciEditor.Lines.Add('public connect_' + frmConnGen.txtName.Text + '() {'); sciEditor.Lines.Add(#9 + 'new error = 0'); sciEditor.Lines.Add(#9 + 'sck' + frmConnGen.txtName.Text + ' = socket_open("' + frmConnGen.txtHost.Text + '", ' + frmConnGen.txtPort.Text + ', ' + frmConnGen.cboProtocol.Text + ', error)'); sciEditor.Lines.Add(#9 + 'if (sck' + frmConnGen.txtName.Text + ' > 0) {'); sciEditor.Lines.Add(#9 + #9 + '/* Connect successful */'); sciEditor.Lines.Add(#9 + #9 + 'read_' + frmConnGen.txtName.Text + '()'); sciEditor.Lines.Add(#9 + '}'); sciEditor.Lines.Add(#9 + 'else {'); sciEditor.Lines.Add(#9 + #9 + 'switch (error) {'); sciEditor.Lines.Add(#9 + #9 + #9 + 'case 1: { /* Error creating socket */ }'); sciEditor.Lines.Add(#9 + #9 + #9 + 'case 2: { /* Could not resolve hostname */ }'); sciEditor.Lines.Add(#9 + #9 + #9 + 'case 3: { /* Could not connect to given host:port */ }'); sciEditor.Lines.Add(#9 + #9 + '}'); sciEditor.Lines.Add(#9 + '}'); sciEditor.Lines.Add('}'); sciEditor.Lines.Add(''); sciEditor.Lines.Add('public read_' + frmConnGen.txtName.Text + '() {'); sciEditor.Lines.Add(#9 + 'if (socket_change(sck' + frmConnGen.txtName.Text + ', 100)) {'); sciEditor.Lines.Add(#9 + #9 + 'new buf[512], lines[30][100], count = 0'); sciEditor.Lines.Add(#9 + #9 + 'socket_recv(sck' + frmConnGen.txtName.Text + ', buf, 511)'); sciEditor.Lines.Add(#9 + #9 + 'count = ExplodeString(lines, 50, 119, buf, 13)'); sciEditor.Lines.Add(#9 + #9 + 'for(new i=0;i 0 then RemoveItemFromTreeView(eCaption, eParent.Item[i]); end; end else begin for i := 0 to frmSettings.trvSettings.Items.Count -1 do begin if frmSettings.trvSettings.Items[i].Text = eCaption then begin frmSettings.trvSettings.Items[i].Free; break; end else if frmSettings.trvSettings.Items[i].Count > 0 then RemoveItemFromTreeView(eCaption, frmSettings.trvSettings.Items[i]); end; end; end; var eData: string; eIntData: Integer; eMessage: Integer; eBMP: TBitmap; eTemp: string; eItem: TSpTBXItem; ePage: TJvStandardPage; ePanel: TPanel; eStr: TStringList; eValues: array of string; i: integer; begin eData := string(PChar(Msg.CopyDataStruct.lpData)); eIntData := Msg.CopyDataStruct.dwData; eMessage := Msg.From; try Msg.Result := 1; case eMessage of SCM_SHOWPROGRESS: ShowProgress(eIntData = 1); SCM_HIDEPROGRESS: HideProgress; SCM_UPDATEPROGRESS: begin pbLoading.Position := eIntData; SetProgressStatus(eData); end; SCM_LOADCODESNIPPETS: LoadCodeSnippets(eData); SCM_CODESNIPPETCLICK: begin if Plugin_CodeSnippetClick(eData, GetCat, GetSnippet(GetCat, eData)) then sciEditor.SelText := GetSnippet(GetCat, eData); end; SCM_MIRC_CMD: mIRCDDE('mIRC', 'COMMAND', eData); SCM_RELOADINI: ReloadIni; SCM_SELECTLANGUAGE: SelectLanguage(eData); SCM_LOADFILE: begin odOpen.FileName := eData; mnuOpenClick(nil); end; SCM_CURRPROJECTS: Msg.Result := tsMain.ActiveTabIndex; SCM_COMPILE: mnuDoCompile.Click; SCM_COMPILE_UPLOAD: mnuCompileAndUpload.Click; SCM_COMPILE_STARTHL: mnuCompileAndStartHL.Click; SCM_MENU_LOADIMAGE: begin eBMP := TBitmap.Create; eBMP.LoadFromFile(eData); if eIntData = -1 then Msg.Result := ilImages.Add(eBMP, nil) else Msg.Result := ilImages.AddMasked(eBMP, eIntData); eBMP.Destroy; end; SCM_MENU_ADDITEM: begin if Pos('->', eData) <> 0 then begin eTemp := Copy(eData, 1, Pos('->', eData) - 1); eData := Copy(eData, Pos('->', eData) + 2, Length(eData)); end else eTemp := ''; eItem := TSpTBXItem.Create(tbxMenu.Items); with eItem do begin Caption := eData; Images := ilImages; ImageIndex := eIntData; OnClick := OnCustomClick; end; if Assigned(GetMenuItem(eTemp)) then GetMenuItem(eTemp).Add(eItem) else tbxMenu.Items.Add(eItem); end; SCM_MENU_ADDSUBITEM: begin if Pos('->', eData) <> 0 then begin eTemp := Copy(eData, 1, Pos('->', eData) - 1); eData := Copy(eData, Pos('->', eData) + 2, Length(eData)); end else eTemp := ''; eItem := TSpTBXSubMenuItem.Create(tbxMenu.Items); with eItem do begin Caption := eData; Images := ilImages; ImageIndex := eIntData; OnClick := OnCustomClick; end; if Assigned(GetMenuItem(eTemp)) then GetMenuItem(eTemp).Add(eItem) else tbxMenu.Items.Add(eItem); end; SCM_MENU_FAKECLICK: begin if Assigned(GetMenuItem(eData)) then GetMenuItem(eData).Click else Msg.Result := 0; end; SCM_MENU_SHOWITEM: begin if Assigned(GetMenuItem(eData)) then GetMenuItem(eData).Visible := True else Msg.Result := 0; end; SCM_MENU_HIDEITEM: begin if Assigned(GetMenuItem(eData)) then GetMenuItem(eData).Visible := False else Msg.Result := 0; end; SCM_PLUGIN_LOAD: begin if eData <> '' then begin Msg.Result := 0; for i := 0 to frmSettings.lvPlugins.Items.Count - 1 do begin if LowerCase(frmSettings.lvPlugins.Items[i].SubItems[0]) = LowerCase(eData) then begin LoadPlugin(frmSettings.lvPlugins.Items[i]); Msg.Result := 1; break; end; end; end else LoadPlugin(frmSettings.lvPlugins.Items[eIntData]); end; SCM_PLUGIN_UNLOAD: begin if eData <> '' then begin Msg.Result := 0; for i := 0 to frmSettings.lvPlugins.Items.Count - 1 do begin if LowerCase(frmSettings.lvPlugins.Items[i].SubItems[0]) = LowerCase(eData) then begin UnloadPlugin(frmSettings.lvPlugins.Items[i]); Msg.Result := 1; break; end; end; end else UnloadPlugin(frmSettings.lvPlugins.Items[eIntData]); end; SCM_SETTINGS_CREATEPAGE: begin if Pos('->', eData) <> 0 then begin eTemp := Copy(eData, 1, Pos('->', eData) - 1); eData := Copy(eData, Pos('->', eData) + 2, Length(eData)); end else eTemp := ''; ePage := TJvStandardPage.Create(frmSettings.jplSettings); ePage.Caption := eData; TJvPageIndexNode(frmSettings.trvSettings.Items.AddChild(FindSettingsNode(eTemp), eData)).PageIndex := ePage.PageIndex; ePanel := TPanel.Create(ePage); ePanel.BevelInner := bvNone; ePanel.BevelOuter := bvNone; ePanel.Align := alClient; Msg.Result := ePanel.Handle; end; SCM_SETTINGS_REMOVEPAGE: begin Msg.Result := 0; for i := 0 to frmSettings.jplSettings.PageCount -1 do begin if TJvStandardPage(frmSettings.jplSettings.Pages[i]).Caption = eData then begin TJvStandardPage(frmSettings.jplSettings.Pages[i]).Free; Msg.Result := 1; break; end; end; if Msg.Result = 1 then RemoveItemFromTreeView(eData); end; SCM_CODEINSPECTOR_CLEAR: jviCode.Root.Clear; SCM_CODEINSPECTOR_ADD: begin eStr := TStringList.Create; eStr.Text := eData; if eStr.Count = 3 then AddField(eStr[0], eStr[1], eStr[2]) else Msg.Result := 0; eStr.Destroy; end; SCM_CODEINSPECTOR_ADDCOMBO: begin eStr := TStringList.Create; eStr.Text := eData; if eStr.Count > 3 then begin SetLength(eValues, eStr.Count - 2); for i := 0 to eStr.Count - 4 do eValues[i] := eStr[i + 3]; AddCombo(eStr[0], eStr[1], eStr[2], eValues); end else Msg.Result := 0; eStr.Destroy; end; SCM_CODEINSPECTOR_SETVALUE: begin eStr := TStringList.Create; eStr.Text := eData; if eStr.Count = 2 then begin if Assigned(GetCIItem(eStr[0])) then GetCIItem(eStr[0]).DisplayValue := eStr[1] else Msg.Result := 0; end else Msg.Result := 0; end; SCM_CODEINSPECTOR_SETNAME: begin eStr := TStringList.Create; eStr.Text := eData; if eStr.Count = 2 then begin if Assigned(GetCIItem(eStr[0])) then GetCIItem(eStr[0]).DisplayName := eStr[1] else Msg.Result := 0; end else Msg.Result := 0; end; SCM_CODEINSPECTOR_GETVALUE: begin if Assigned(GetCIItem(eData)) then Msg.Result := Integer(PChar(GetCIItem(eData).DisplayValue)) else Msg.Result := Integer(PChar('')); end; SCM_CODEINSPECTOR_GETNAME: begin if Assigned(GetCIItemByValue(eData)) then Msg.Result := Integer(PChar(GetCIItemByValue(eData).DisplayName)) else Msg.Result := Integer(PChar('')); end; SCM_CODEINSPECTOR_COUNT: Msg.Result := jviCode.Root.Count; SCM_CODEINSPECTOR_BEGINUPDATE: jviCode.BeginUpdate; SCM_CODEINSPECTOR_ENDUPDATE: jviCode.EndUpdate; SCM_CODEINSPECTOR_DELETE: begin if Assigned(GETCIItem(eData)) then jviCode.Root.Delete(GETCIItem(eData)) else Msg.Result := 0; end; SCM_Pawn_NEWFILE: PawnProjects.Add(eData, ''); SCM_Pawn_SAVEFILE: begin if (eData = '') and (TDocument(PawnProjects.Items[eIntData]).Untitled) then Msg.Result := 0 else PawnProjects.Save(eIntData, eData); end; SCM_Pawn_CLOSEFILE: PawnProjects.Close(eIntData); SCM_Pawn_ISUNTITLED: begin try if TDocument(PawnProjects.Items[eIntData]).Untitled then Msg.Result := 1 else Msg.Result := 0; except Msg.Result := -1; end; end; SCM_Pawn_ACTIVATE: begin if tsMain.ActiveTabIndex <> 0 then ActivateProjects(0, eIntData = 1) else Msg.Result := 0; end; SCM_Pawn_ACTIVATEDOC: PawnProjects.Activate(eIntData, Pos('r', eData) <> 0, Pos('s', eData) <> 0); SCM_Pawn_GETNOTES: begin if (tsMain.ActiveTabIndex = 0) and (tsDocuments.ActiveTabIndex = eIntData) then Msg.Result := Integer(PChar(GetRTFText(rtfNotes))) else Msg.Result := Integer(PChar(TDocument(PawnProjects.Items[eIntData]).NotesText)); end; SCM_Pawn_SETNOTES: begin if (tsMain.ActiveTabIndex = 0) and (tsDocuments.ActiveTabIndex = eIntData) then SetRTFText(rtfNotes, eData) else TDocument(PawnProjects.Items[eIntData]).NotesText := eData; end; SCM_Pawn_GETFILENAME: Msg.Result := Integer(PChar(TDocument(PawnProjects.Items[eIntData]).FileName)); SCM_Pawn_GETTEXT: begin if (tsMain.ActiveTabIndex = 0) and (tsDocuments.ActiveTabIndex = eIntData) then Msg.Result := Integer(sciEditor.Lines.GetText) else Msg.Result := Integer(PChar(TDocument(PawnProjects.Items[eIntData]).Code)); end; SCM_CPP_NEWFILE: begin if eCPP then CPPProjects.Add(eData) else Msg.Result := 0; end; SCM_CPP_SAVEFILE: begin if eCPP then begin if (eData = '') and (TDocument(CPPProjects.Items[eIntData]).Untitled) then Msg.Result := 0 else CPPProjects.Save(eIntData, eData); end; end; SCM_CPP_CLOSEFILE: begin if eCPP then CPPProjects.Close(eIntData) else Msg.Result := 0; end; SCM_CPP_ISUNTITLED: begin try if TDocument(CPPProjects.Items[eIntData]).Untitled then Msg.Result := 1 else Msg.Result := 0; except Msg.Result := -1; end; end; SCM_CPP_ACTIVATE: begin if (eCPP) and (tsMain.ActiveTabIndex <> 1) then ActivateProjects(1, eIntData = 1) else Msg.Result := 0; end; SCM_CPP_ACTIVATEDOC: begin if eCPP then CPPProjects.Activate(eIntData, Pos('r', eData) <> 0, Pos('s', eData) <> 0) else Msg.Result := 0; end; SCM_CPP_ACTIVATEIDE: begin eCPP := eIntData = 1; if eCPP then begin tiCPP.Enabled := True; mnuNewHeaderCPP.Enabled := True; mnuNewModule.Enabled := True; mnuNewUnit.Enabled := True; end else begin tiCPP.Enabled := False; mnuNewHeaderCPP.Enabled := False; mnuNewModule.Enabled := False; mnuNewUnit.Enabled := False; end; end; SCM_CPP_GETNOTES: begin if (tsMain.ActiveTabIndex = 1) and (tsDocuments.ActiveTabIndex = eIntData) then Msg.Result := Integer(PChar(GetRTFText(rtfNotes))) else Msg.Result := Integer(PChar(TDocument(CPPProjects.Items[eIntData]).NotesText)); end; SCM_CPP_SETNOTES: begin if (tsMain.ActiveTabIndex = 1) and (tsDocuments.ActiveTabIndex = eIntData) then SetRTFText(rtfNotes, eData) else TDocument(CPPProjects.Items[eIntData]).NotesText := eData; end; SCM_CPP_GETFILENAME: Msg.Result := Integer(PChar(TDocument(CPPProjects.Items[eIntData]).FileName)); SCM_CPP_GETTEXT: begin if (tsMain.ActiveTabIndex = 1) and (tsDocuments.ActiveTabIndex = eIntData) then Msg.Result := Integer(sciEditor.Lines.GetText) else Msg.Result := Integer(PChar(TDocument(CPPProjects.Items[eIntData]).Code)); end; SCM_OTHER_NEWFILE: OtherProjects.Add(eData); SCM_OTHER_SAVEFILE: begin if (eData = '') and (TDocument(CPPProjects.Items[eIntData]).Untitled) then Msg.Result := 0 else OtherProjects.Save(eIntData, eData); end; SCM_OTHER_CLOSEFILE: OtherProjects.Delete(eIntData); SCM_OTHER_ISUNTITLED: begin try if TDocument(OtherProjects.Items[eIntData]).Untitled then Msg.Result := 1 else Msg.Result := 0; except Msg.Result := -1; end; end; SCM_OTHER_ACTIVATE: begin if tsMain.ActiveTabIndex <> 2 then ActivateProjects(2, eIntData = 1) else Msg.Result := 0; end; SCM_OTHER_ACTIVATEDOC: OtherProjects.Activate(eIntData, Pos('r', eData) <> 0, Pos('s', eData) <> 0); SCM_OTHER_GETNOTES: begin if (tsMain.ActiveTabIndex = 2) and (tsDocuments.ActiveTabIndex = eIntData) then Msg.Result := Integer(PChar(GetRTFText(rtfNotes))) else Msg.Result := Integer(PChar(TDocument(OtherProjects.Items[eIntData]).NotesText)); end; SCM_OTHER_SETNOTES: begin if (tsMain.ActiveTabIndex = 2) and (tsDocuments.ActiveTabIndex = eIntData) then SetRTFText(rtfNotes, eData) else TDocument(OtherProjects.Items[eIntData]).NotesText := eData; end; SCM_OUTPUT_SHOW: begin splOutput.Show; lstOutput.Show; end; SCM_OUTPUT_HIDE: begin splOutput.Hide; lstOutput.Hide; end; SCM_OUTPUT_ADD: Msg.Result := lstOutput.Items.Add(eData); SCM_OUTPUT_CLEAR: lstOutput.Items.Clear; SCM_OUTPUT_DELETE: lstOutput.Items.Delete(eIntData); SCM_OUTPUT_GETTEXT: Msg.Result := Integer(lstOutput.Items.GetText); SCM_OUTPUT_GETITEM: begin try Msg.Result := Integer(PChar(lstOutput.Items[eIntData])); except Msg.Result := Integer(PChar('')); end; end; SCM_OUTPUT_INDEXOF: Msg.Result := lstOutput.Items.IndexOf(eData); SCM_ACTIVE_DOCUMENT: Msg.Result := tsDocuments.ActiveTabIndex; SCM_ACTIVE_PROJECTS: Msg.Result := tsMain.ActiveTabIndex; SCM_EDITOR_SETTEXT: sciEditor.Lines.SetText(Msg.CopyDataStruct.lpData); SCM_EDITOR_GETTEXT: Msg.Result := Integer(sciEditor.Lines.GetText); SCM_EDTIOR_SETCALLTIPS: sciCallTips.ApiStrings.Text := eData; SCM_EDITOR_SHOWCALLTIP: sciEditor.CallTipShow(eIntData, Msg.CopyDataStruct.lpData); SCM_EDITOR_SETAUTOCOMPLETE: sciAutoComplete.AStrings.Text := eData; SCM_EDITOR_SHOWAUTOCOMPLETE: sciEditor.AutoCShow(eIntData, Msg.CopyDataStruct.lpData); SCM_EDITOR_GETSELSTART: Msg.Result := sciEditor.SelStart; SCM_EDTIOR_GETSELLENGTH: Msg.Result := sciEditor.SelLength; SCM_EDITOR_SETSELSTART: sciEditor.SelStart := eIntData; SCM_EDITOR_SETSELLENGH: sciEditor.SelLength := eIntData; SCM_REMOVE_MENUITEM: begin if Assigned(GetMenuItem(eData)) then begin if Assigned(GetMenuItem(eData).Parent) then GetMenuItem(eData).Parent.Remove(GetMenuItem(eData)) else tbxMenu.Items.Remove(GetMenuItem(eData)); Msg.Result := 1; end else Msg.Result := 0; end; SCM_REMOVE_IMAGE: ilImages.Delete(eIntData); SCM_SETTHEME: TBXSetTheme(eData); SCM_GETTHEME: Msg.Result := Integer(PChar(TBXCurrentTheme)); end; except Msg.Result := 0; end; end; procedure TfrmMain.OnMessage(var Msg: TMsg; var Handled: Boolean); begin Handled := not Plugin_AppMsg(Msg.hwnd, Msg.message, Msg.wParam, Msg.lParam, Msg.time, Msg.pt); end; procedure TfrmMain.OnShortCut(var Msg: TWMKey; var Handled: Boolean); function TriggerMenuShortcut(eShortcut: TShortcut; Item: TTBCustomItem): Boolean; var i: integer; begin Result := False; for i := 0 to Item.Count - 1 do begin if Item.Items[i].ShortCut = eShortcut then begin Item.Items[i].OnClick(Self); Result := True; exit; end else TriggerMenuShortcut(eShortcut, Item.Items[i]); end; end; var i: integer; eShortcut: TShortcut; begin if not Started then exit; if not Plugin_Shortcut(Msg.CharCode, Msg.KeyData) then begin Handled := True; exit; end; // Check frmSettings shortcut if (frmSettings.Visible) and (frmSettings.txtShortcut.Focused) then begin if (Msg.CharCode = VK_CONTROL) or (Msg.CharCode = VK_MENU) or (Msg.CharCode = VK_SHIFT) then begin frmSettings.txtShortcut.Clear; if ssShift in KeyDataToShiftState(Msg.KeyData) then frmSettings.txtShortcut.Text := frmSettings.txtShortcut.Text + 'Shift+'; if ssCtrl in KeyDataToShiftState(Msg.KeyData) then frmSettings.txtShortcut.Text := frmSettings.txtShortcut.Text + 'Ctrl+'; if ssAlt in KeyDataToShiftState(Msg.KeyData) then frmSettings.txtShortcut.Text := frmSettings.txtShortcut.Text + 'Alt+'; end else frmSettings.txtShortcut.Text := ShortcutToText(Shortcut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData))); Handled := True; end; if GetActiveWindow <> frmMain.Handle then exit; // stop IRC Paster if escape is pressed if (Msg.CharCode = VK_ESCAPE) then begin frmMain.IRCPasterStop := True; if frmMain.sciEditor.CallTipActive then frmMain.sciEditor.CallTipCancel; if frmMain.sciEditor.AutoCActive then frmMain.sciEditor.AutoCCancel; exit; end; eShortcut := Shortcut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData)); // Some menu commands are suppressed by the controlchars thingy, so they will be triggered manually for i := 0 to tbxMenu.Items.Count - 1 do begin if TriggerMenuShortcut(eShortcut, tbxMenu.Items[i]) then Handled := True; end; for i := 0 to tbxToolbar.Items.Count - 1 do begin if tbxToolbar.Items[i].ShortCut = eShortcut then begin Handled := True; tbxToolbar.Items[i].OnClick(Self); end; end; for i := 0 to tbxEdit.Items.Count - 1 do begin if tbxEdit.Items[i].ShortCut = eShortcut then begin Handled := True; tbxEdit.Items[i].OnClick(Self); end; end; for i := 0 to ppmEditor.Items.Count - 1 do begin if ppmEditor.Items[i].ShortCut = eShortcut then begin Handled := True; ppmEditor.Items[i].OnClick(Self); end; end; Application.ProcessMessages; if Handled then exit; // Control chars if (eShortcut = Shortcut(Ord('E'), [ssCtrl])) then Handled := True; if (eShortcut = Shortcut(Ord('H'), [ssCtrl])) then Handled := True; if (eShortcut = Shortcut(Ord('K'), [ssCtrl])) then Handled := True; if (eShortcut = Shortcut(Ord('S'), [ssCtrl])) then Handled := True; if (eShortcut = Shortcut(Ord('B'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('C'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('D'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('E'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('F'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('G'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('H'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('K'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('N'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('O'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('P'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('Q'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('R'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('V'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('W'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('X'), [ssCtrl, ssShift])) then Handled := True; if (eShortcut = Shortcut(Ord('Y'), [ssCtrl, ssShift])) then Handled := True; if Handled then begin for i := 0 to frmMain.sciEditor.KeyCommands.Count - 1 do begin if TSciKeyCommand(frmMain.sciEditor.KeyCommands.Items[i]).ShortCut = eShortcut then Handled := False; end; end; end; procedure TfrmMain.trvExplorerClick(Sender: TObject); begin if Assigned(trvExplorer.Selected) then UpdateCI(Integer(trvExplorer.Selected.Data)); end; procedure TfrmMain.jviCodeItemValueChanged(Sender: TObject; Item: TJvCustomInspectorItem); begin if GetCurrLang.Name = 'Pawn' then RebuildLine; end; procedure TfrmMain.mnuRestoreBackupClick(Sender: TObject); begin if MessageBox(Handle, PChar(lAskRestore), PChar(Application.Title), MB_ICONQUESTION + MB_YESNO) = mrYes then sciEditor.LoadFromFile(ActiveDoc.FileName + '.bak'); end; end.