component update, fixed small bug

This commit is contained in:
Christian Hammacher 2006-09-17 10:57:30 +00:00
parent 947cb5f79d
commit 4cc460cfbe
6 changed files with 236 additions and 232 deletions

View File

@ -134,9 +134,3 @@ OriginalFilename=
ProductName=AMXX-Studio ProductName=AMXX-Studio
ProductVersion=1.4.3.0 ProductVersion=1.4.3.0
Comments= Comments=
[HistoryLists\hlConditionals]
Count=1
Item0=madExcept
[HistoryLists\hlUnitAliases]
Count=1
Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

Binary file not shown.

View File

@ -325,7 +325,7 @@ begin
end; end;
frmMain.trvExplorer.Items.EndUpdate; frmMain.trvExplorer.Items.EndUpdate;
if (not frmMain.pnlLoading.Visible) and (not frmMain.sciEditor.AutoCActive) and (not frmMain.sciEditor.CallTipActive) then begin if (not frmMain.sciEditor.Lines.Count > StrToIntDef(frmSettings.txtAUDisable.Text, 1500)) or ((not frmMain.pnlLoading.Visible) and (not frmMain.sciEditor.AutoCActive) and (not frmMain.sciEditor.CallTipActive)) then begin
frmMain.sciAutoComplete.AStrings.Text := eAutoComplete; frmMain.sciAutoComplete.AStrings.Text := eAutoComplete;
for i := frmMain.sciAutoComplete.AStrings.Count - 1 downto 0 do begin for i := frmMain.sciAutoComplete.AStrings.Count - 1 downto 0 do begin
if Length(Trim(frmMain.sciAutoComplete.AStrings[i])) <= 1 then if Length(Trim(frmMain.sciAutoComplete.AStrings[i])) <= 1 then

View File

@ -1,6 +1,6 @@
object frmMain: TfrmMain object frmMain: TfrmMain
Left = 240 Left = 189
Top = 291 Top = 114
Width = 888 Width = 888
Height = 648 Height = 648
Caption = 'AMXX-Studio' Caption = 'AMXX-Studio'
@ -79,470 +79,470 @@ object frmMain: TfrmMain
Images = ilImages Images = ilImages
TabOrder = 0 TabOrder = 0
object mnuFile: TSpTBXSubmenuItem object mnuFile: TSpTBXSubmenuItem
CaptionW = 'File' Caption = 'File'
object mnuNew: TSpTBXSubmenuItem object mnuNew: TSpTBXSubmenuItem
Caption = 'New'
ImageIndex = 32 ImageIndex = 32
Images = ilImages Images = ilImages
CaptionW = 'New'
object infoNewAMXX: TSpTBXRightAlignSpacerItem object infoNewAMXX: TSpTBXRightAlignSpacerItem
Caption = 'AMXX Scripts / Pawn'
FontSettings.Bold = tsTrue FontSettings.Bold = tsTrue
FontSettings.Color = clWindowText FontSettings.Color = clWindowText
CaptionW = 'AMXX Scripts / Pawn'
end end
object mnuEmptyPlugin: TSpTBXItem object mnuEmptyPlugin: TSpTBXItem
Caption = 'Empty Plugin'
ImageIndex = 0 ImageIndex = 0
Images = ilImages Images = ilImages
OnClick = mnuEmptyPluginClick OnClick = mnuEmptyPluginClick
CaptionW = 'Empty Plugin'
end end
object mnuNewPlugin: TSpTBXItem object mnuNewPlugin: TSpTBXItem
Caption = 'Plugin'
ImageIndex = 18 ImageIndex = 18
Images = ilImages Images = ilImages
OnClick = mnuNewPluginClick OnClick = mnuNewPluginClick
CaptionW = 'Plugin'
end end
object mnuHeaderPAWN: TSpTBXItem object mnuHeaderPAWN: TSpTBXItem
Caption = 'Header'
ImageIndex = 33 ImageIndex = 33
Images = ilImages Images = ilImages
OnClick = mnuHeaderPAWNClick OnClick = mnuHeaderPAWNClick
CaptionW = 'Header'
end end
object sepNew1: TSpTBXSeparatorItem object sepNew1: TSpTBXSeparatorItem
Blank = True Blank = True
end end
object infoNewCPP: TSpTBXRightAlignSpacerItem object infoNewCPP: TSpTBXRightAlignSpacerItem
Caption = 'C++'
FontSettings.Bold = tsTrue FontSettings.Bold = tsTrue
FontSettings.Color = clWindowText FontSettings.Color = clWindowText
CaptionW = 'C++'
end end
object mnuNewModule: TSpTBXItem object mnuNewModule: TSpTBXItem
Caption = 'Module'
Enabled = False Enabled = False
ImageIndex = 35 ImageIndex = 35
Images = ilImages Images = ilImages
OnClick = mnuNewModuleClick OnClick = mnuNewModuleClick
CaptionW = 'Module'
end end
object mnuNewUnit: TSpTBXItem object mnuNewUnit: TSpTBXItem
Caption = 'Unit'
Enabled = False Enabled = False
ImageIndex = 34 ImageIndex = 34
Images = ilImages Images = ilImages
OnClick = mnuNewUnitClick OnClick = mnuNewUnitClick
CaptionW = 'Unit'
end end
object mnuNewHeaderCPP: TSpTBXItem object mnuNewHeaderCPP: TSpTBXItem
Caption = 'Header'
Enabled = False Enabled = False
ImageIndex = 48 ImageIndex = 48
Images = ilImages Images = ilImages
OnClick = mnuNewHeaderCPPClick OnClick = mnuNewHeaderCPPClick
CaptionW = 'Header'
end end
object sepNew3: TSpTBXSeparatorItem object sepNew3: TSpTBXSeparatorItem
Blank = True Blank = True
end end
object infoNewOther: TSpTBXRightAlignSpacerItem object infoNewOther: TSpTBXRightAlignSpacerItem
Caption = 'Other'
FontSettings.Bold = tsTrue FontSettings.Bold = tsTrue
FontSettings.Color = clWindowText FontSettings.Color = clWindowText
CaptionW = 'Other'
end end
object mnuNewTextfile: TSpTBXItem object mnuNewTextfile: TSpTBXItem
Caption = 'Textfile'
ImageIndex = 34 ImageIndex = 34
Images = ilImages Images = ilImages
OnClick = mnuNewTextfileClick OnClick = mnuNewTextfileClick
CaptionW = 'Textfile'
end end
object mnuNewHTML: TSpTBXItem object mnuNewHTML: TSpTBXItem
Caption = 'HTML Page'
ImageIndex = 25 ImageIndex = 25
Images = ilImages Images = ilImages
OnClick = mnuNewHTMLClick OnClick = mnuNewHTMLClick
CaptionW = 'HTML Page'
end end
object mnuNewSQL: TSpTBXItem object mnuNewSQL: TSpTBXItem
Caption = 'SQL Database'
ImageIndex = 44 ImageIndex = 44
Images = ilImages Images = ilImages
OnClick = mnuNewSQLClick OnClick = mnuNewSQLClick
CaptionW = 'SQL Database'
end end
object mnuNewXML: TSpTBXItem object mnuNewXML: TSpTBXItem
Caption = 'XML File'
ImageIndex = 34 ImageIndex = 34
OnClick = mnuNewXMLClick OnClick = mnuNewXMLClick
CaptionW = 'XML File'
end end
end end
object sepFile1: TSpTBXSeparatorItem object sepFile1: TSpTBXSeparatorItem
end end
object mnuOpen: TSpTBXItem object mnuOpen: TSpTBXItem
Caption = 'Open...'
ImageIndex = 3 ImageIndex = 3
Images = ilImages Images = ilImages
ShortCut = 16463 ShortCut = 16463
OnClick = mnuOpenClick OnClick = mnuOpenClick
CaptionW = 'Open...'
end end
object sepFile2: TSpTBXSeparatorItem object sepFile2: TSpTBXSeparatorItem
end end
object mnuSave: TSpTBXItem object mnuSave: TSpTBXItem
Caption = 'Save'
ImageIndex = 1 ImageIndex = 1
Images = ilImages Images = ilImages
ShortCut = 16467 ShortCut = 16467
OnClick = mnuSaveClick OnClick = mnuSaveClick
CaptionW = 'Save'
end end
object mnuSaveAs: TSpTBXItem object mnuSaveAs: TSpTBXItem
Caption = 'Save as...'
OnClick = mnuSaveAsClick OnClick = mnuSaveAsClick
CaptionW = 'Save as...'
end end
object mnuSaveAllFiles: TSpTBXItem object mnuSaveAllFiles: TSpTBXItem
Caption = 'Save all files'
ImageIndex = 2 ImageIndex = 2
Images = ilImages Images = ilImages
ShortCut = 24659 ShortCut = 24659
OnClick = mnuSaveAllFilesClick OnClick = mnuSaveAllFilesClick
CaptionW = 'Save all files'
end end
object sepFile3: TSpTBXSeparatorItem object sepFile3: TSpTBXSeparatorItem
end end
object mnuClose: TSpTBXItem object mnuClose: TSpTBXItem
Caption = 'Close'
ImageIndex = 46 ImageIndex = 46
ShortCut = 16430 ShortCut = 16430
OnClick = mnuCloseClick OnClick = mnuCloseClick
CaptionW = 'Close'
end end
object mnuCloseAllFiles: TSpTBXItem object mnuCloseAllFiles: TSpTBXItem
Caption = 'Close all files'
OnClick = mnuCloseAllFilesClick OnClick = mnuCloseAllFilesClick
CaptionW = 'Close all files'
end end
object sepFile4: TSpTBXSeparatorItem object sepFile4: TSpTBXSeparatorItem
end end
object mnuPrint: TSpTBXItem object mnuPrint: TSpTBXItem
Caption = 'Print'
ImageIndex = 4 ImageIndex = 4
Images = ilImages Images = ilImages
ShortCut = 16464 ShortCut = 16464
OnClick = mnuPrintClick OnClick = mnuPrintClick
CaptionW = 'Print'
end end
object sepFile5: TSpTBXSeparatorItem object sepFile5: TSpTBXSeparatorItem
end end
object mnuExit: TSpTBXItem object mnuExit: TSpTBXItem
Caption = 'Exit'
ImageIndex = 45 ImageIndex = 45
Images = ilImages Images = ilImages
ShortCut = 32883 ShortCut = 32883
OnClick = mnuExitClick OnClick = mnuExitClick
CaptionW = 'Exit'
end end
end end
object mnuEdit: TSpTBXSubmenuItem object mnuEdit: TSpTBXSubmenuItem
CaptionW = 'Edit' Caption = 'Edit'
object mnuUndo: TSpTBXItem object mnuUndo: TSpTBXItem
Caption = 'Undo'
ImageIndex = 6 ImageIndex = 6
Images = ilImages Images = ilImages
ShortCut = 16474 ShortCut = 16474
OnClick = mnuUndoClick OnClick = mnuUndoClick
CaptionW = 'Undo'
end end
object mnuRedo: TSpTBXItem object mnuRedo: TSpTBXItem
Caption = 'Redo'
ImageIndex = 7 ImageIndex = 7
Images = ilImages Images = ilImages
ShortCut = 24666 ShortCut = 24666
OnClick = mnuRedoClick OnClick = mnuRedoClick
CaptionW = 'Redo'
end end
object sepEdit1: TSpTBXSeparatorItem object sepEdit1: TSpTBXSeparatorItem
end end
object mnuCut: TSpTBXItem object mnuCut: TSpTBXItem
Caption = 'Cut'
ImageIndex = 8 ImageIndex = 8
Images = ilImages Images = ilImages
ShortCut = 16472 ShortCut = 16472
OnClick = mnuCutClick OnClick = mnuCutClick
CaptionW = 'Cut'
end end
object mnuCopy: TSpTBXItem object mnuCopy: TSpTBXItem
Caption = 'Copy'
ImageIndex = 9 ImageIndex = 9
Images = ilImages Images = ilImages
ShortCut = 16451 ShortCut = 16451
OnClick = mnuCopyClick OnClick = mnuCopyClick
CaptionW = 'Copy'
end end
object mnuPaste: TSpTBXItem object mnuPaste: TSpTBXItem
Caption = 'Paste'
ImageIndex = 10 ImageIndex = 10
Images = ilImages Images = ilImages
ShortCut = 16470 ShortCut = 16470
OnClick = mnuPasteClick OnClick = mnuPasteClick
CaptionW = 'Paste'
end end
object sepEdit2: TSpTBXSeparatorItem object sepEdit2: TSpTBXSeparatorItem
end end
object mnuSelectAll: TSpTBXItem object mnuSelectAll: TSpTBXItem
Caption = 'Select all'
ImageIndex = 11 ImageIndex = 11
Images = ilImages Images = ilImages
ShortCut = 16449 ShortCut = 16449
OnClick = mnuSelectAllClick OnClick = mnuSelectAllClick
CaptionW = 'Select all'
end end
end end
object mnuSearch: TSpTBXSubmenuItem object mnuSearch: TSpTBXSubmenuItem
CaptionW = 'Search' Caption = 'Search'
object mnuSearchDialog: TSpTBXItem object mnuSearchDialog: TSpTBXItem
Caption = 'Search'
ImageIndex = 13 ImageIndex = 13
Images = ilImages Images = ilImages
ShortCut = 16454 ShortCut = 16454
OnClick = mnuSearchDialogClick OnClick = mnuSearchDialogClick
CaptionW = 'Search'
end end
object mnuSearchAgain: TSpTBXItem object mnuSearchAgain: TSpTBXItem
Caption = 'Search again'
ShortCut = 114 ShortCut = 114
OnClick = mnuSearchAgainClick OnClick = mnuSearchAgainClick
CaptionW = 'Search again'
end end
object sepSearch1: TSpTBXSeparatorItem object sepSearch1: TSpTBXSeparatorItem
end end
object mnuReplace: TSpTBXItem object mnuReplace: TSpTBXItem
Caption = 'Replace'
ImageIndex = 39 ImageIndex = 39
Images = ilImages Images = ilImages
ShortCut = 16466 ShortCut = 16466
OnClick = mnuReplaceClick OnClick = mnuReplaceClick
CaptionW = 'Replace'
end end
object sepSearch2: TSpTBXSeparatorItem object sepSearch2: TSpTBXSeparatorItem
end end
object mnuGoToLine: TSpTBXItem object mnuGoToLine: TSpTBXItem
Caption = 'Go to line...'
ImageIndex = 14 ImageIndex = 14
Images = ilImages Images = ilImages
ShortCut = 16455 ShortCut = 16455
OnClick = mnuGoToLineClick OnClick = mnuGoToLineClick
CaptionW = 'Go to line...'
end end
end end
object mnuView: TSpTBXSubmenuItem object mnuView: TSpTBXSubmenuItem
CaptionW = 'View' Caption = 'View'
object mnuChangeTheme: TSpTBXSubmenuItem object mnuChangeTheme: TSpTBXSubmenuItem
CaptionW = 'Change Theme' Caption = 'Change Theme'
object mnuThemes: TSpTBXThemeGroupItem object mnuThemes: TSpTBXThemeGroupItem
OnClick = mnuThemesClick OnClick = mnuThemesClick
end end
end end
object mnuSelectHighlighter: TSpTBXSubmenuItem object mnuSelectHighlighter: TSpTBXSubmenuItem
Caption = 'Set Highlighter'
ImageIndex = 15 ImageIndex = 15
Images = ilImages Images = ilImages
CaptionW = 'Set Highlighter'
object mnuHPAWN: TSpTBXItem object mnuHPAWN: TSpTBXItem
Caption = 'Pawn'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuHXMLClick OnClick = mnuHXMLClick
CaptionW = 'Pawn'
end end
object mnuHCPP: TSpTBXItem object mnuHCPP: TSpTBXItem
Caption = 'C++'
AutoCheck = True AutoCheck = True
OnClick = mnuHXMLClick OnClick = mnuHXMLClick
CaptionW = 'C++'
end end
object mnuHHTML: TSpTBXItem object mnuHHTML: TSpTBXItem
Caption = 'HTML'
AutoCheck = True AutoCheck = True
OnClick = mnuHXMLClick OnClick = mnuHXMLClick
CaptionW = 'HTML'
end end
object mnuHSQL: TSpTBXItem object mnuHSQL: TSpTBXItem
Caption = 'SQL'
AutoCheck = True AutoCheck = True
OnClick = mnuHXMLClick OnClick = mnuHXMLClick
CaptionW = 'SQL'
end end
object mnuHXML: TSpTBXItem object mnuHXML: TSpTBXItem
Caption = 'XML'
AutoCheck = True AutoCheck = True
OnClick = mnuHXMLClick OnClick = mnuHXMLClick
CaptionW = 'XML'
end end
object sepHighlighter: TSpTBXSeparatorItem object sepHighlighter: TSpTBXSeparatorItem
end end
object mnuHNone: TSpTBXItem object mnuHNone: TSpTBXItem
Caption = 'None'
AutoCheck = True AutoCheck = True
OnClick = mnuHNoneClick OnClick = mnuHNoneClick
CaptionW = 'None'
end end
end end
object sepView1: TSpTBXSeparatorItem object sepView1: TSpTBXSeparatorItem
end end
object mnuFoldAll: TSpTBXItem object mnuFoldAll: TSpTBXItem
Caption = 'Fold all'
OnClick = mnuFoldAllClick OnClick = mnuFoldAllClick
CaptionW = 'Fold all'
end end
object sepView2: TSpTBXSeparatorItem object sepView2: TSpTBXSeparatorItem
end end
object mnuShowFileTB: TSpTBXItem object mnuShowFileTB: TSpTBXItem
Caption = 'Show File-Toolbar'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuShowFileTBClick OnClick = mnuShowFileTBClick
CaptionW = 'Show File-Toolbar'
end end
object mnuShowEditTB: TSpTBXItem object mnuShowEditTB: TSpTBXItem
Caption = 'Show Edit-Toolbar'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuShowEditTBClick OnClick = mnuShowEditTBClick
CaptionW = 'Show Edit-Toolbar'
end end
object mnuShowCodeSnippets: TSpTBXItem object mnuShowCodeSnippets: TSpTBXItem
Caption = 'Show Code-Snippets'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuShowCodeSnippetsClick OnClick = mnuShowCodeSnippetsClick
CaptionW = 'Show Code-Snippets'
end end
object mnuShowCodeToolsWindow: TSpTBXItem object mnuShowCodeToolsWindow: TSpTBXItem
Caption = 'Show Code-Explorer and Notes'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuShowCodeToolsClick OnClick = mnuShowCodeToolsClick
CaptionW = 'Show Code-Explorer and Notes'
end end
object sepView3: TSpTBXSeparatorItem object sepView3: TSpTBXSeparatorItem
end end
object mnuShowCodeExplorer: TSpTBXItem object mnuShowCodeExplorer: TSpTBXItem
Caption = 'Show Code-Explorer'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuShowCodeExplorerClick OnClick = mnuShowCodeExplorerClick
CaptionW = 'Show Code-Explorer'
end end
object mnuShowCodeInspector: TSpTBXItem object mnuShowCodeInspector: TSpTBXItem
Caption = 'Show Code-Inspector'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuShowCodeInspectorClick OnClick = mnuShowCodeInspectorClick
CaptionW = 'Show Code-Inspector'
end end
end end
object mnuCompile: TSpTBXSubmenuItem object mnuCompile: TSpTBXSubmenuItem
CaptionW = 'Compile' Caption = 'Compile'
object mnuDoCompile: TSpTBXItem object mnuDoCompile: TSpTBXItem
Caption = 'Compile'
ImageIndex = 22 ImageIndex = 22
Images = ilImages Images = ilImages
ShortCut = 120 ShortCut = 120
OnClick = mnuDoCompileClick OnClick = mnuDoCompileClick
CaptionW = 'Compile'
end end
object sepCompile1: TSpTBXSeparatorItem object sepCompile1: TSpTBXSeparatorItem
end end
object mnuCompileAndStartHL: TSpTBXItem object mnuCompileAndStartHL: TSpTBXItem
Caption = 'Compile and start Half-Life'
ImageIndex = 22 ImageIndex = 22
Images = ilImages Images = ilImages
OnClick = mnuCompileAndStartHLClick OnClick = mnuCompileAndStartHLClick
CaptionW = 'Compile and start Half-Life'
end end
object mnuCompileAndUpload: TSpTBXItem object mnuCompileAndUpload: TSpTBXItem
Caption = 'Compile and upload'
ImageIndex = 37 ImageIndex = 37
Images = ilImages Images = ilImages
OnClick = mnuCompileAndUploadClick OnClick = mnuCompileAndUploadClick
CaptionW = 'Compile and upload'
end end
object sepCompile2: TSpTBXSeparatorItem object sepCompile2: TSpTBXSeparatorItem
end end
object mnuRegisterPluginsIniLocal: TSpTBXItem object mnuRegisterPluginsIniLocal: TSpTBXItem
Caption = 'Register in plugins.ini (local)'
OnClick = mnuRegisterPluginsIniLocalClick OnClick = mnuRegisterPluginsIniLocalClick
CaptionW = 'Register in plugins.ini (local)'
end end
object mnuRegisterPluginsIniWeb: TSpTBXItem object mnuRegisterPluginsIniWeb: TSpTBXItem
Caption = 'Register in plugins.ini (FTP)'
OnClick = mnuRegisterPluginsIniWebClick OnClick = mnuRegisterPluginsIniWebClick
CaptionW = 'Register in plugins.ini (FTP)'
end end
end end
object mnuTools: TSpTBXSubmenuItem object mnuTools: TSpTBXSubmenuItem
CaptionW = 'Tools' Caption = 'Tools'
object mnuIndenter: TSpTBXItem object mnuIndenter: TSpTBXItem
Caption = 'Indenter'
ImageIndex = 16 ImageIndex = 16
Images = ilImages Images = ilImages
ShortCut = 16457 ShortCut = 16457
OnClick = mnuIndenterClick OnClick = mnuIndenterClick
CaptionW = 'Indenter'
end end
object mnuUnindenter: TSpTBXItem object mnuUnindenter: TSpTBXItem
Caption = 'Unindenter'
ImageIndex = 17 ImageIndex = 17
Images = ilImages Images = ilImages
ShortCut = 24649 ShortCut = 24649
OnClick = mnuUnindenterClick OnClick = mnuUnindenterClick
CaptionW = 'Unindenter'
end end
object sepTools1: TSpTBXSeparatorItem object sepTools1: TSpTBXSeparatorItem
end end
object mnuSocketTerminal: TSpTBXItem object mnuSocketTerminal: TSpTBXItem
Caption = 'Socket Terminal'
ImageIndex = 40 ImageIndex = 40
Images = ilImages Images = ilImages
OnClick = mnuSocketTerminalClick OnClick = mnuSocketTerminalClick
CaptionW = 'Socket Terminal'
end end
object sepTools2: TSpTBXSeparatorItem object sepTools2: TSpTBXSeparatorItem
end end
object mnuPluginsIniEditor: TSpTBXItem object mnuPluginsIniEditor: TSpTBXItem
Caption = 'Plugins.ini Editor'
ImageIndex = 19 ImageIndex = 19
Images = ilImages Images = ilImages
OnClick = mnuPluginsIniEditorClick OnClick = mnuPluginsIniEditorClick
CaptionW = 'Plugins.ini Editor'
end end
object mnuPaster: TSpTBXItem object mnuPaster: TSpTBXItem
Caption = 'IRC Paster'
ImageIndex = 10 ImageIndex = 10
Images = ilImages Images = ilImages
OnClick = mnuPasterClick OnClick = mnuPasterClick
CaptionW = 'IRC Paster'
end end
object mnuRestoreBackup: TSpTBXItem object mnuRestoreBackup: TSpTBXItem
Caption = 'Restore from backup'
Enabled = False Enabled = False
ImageIndex = 46 ImageIndex = 46
Images = ilImages Images = ilImages
OnClick = mnuRestoreBackupClick OnClick = mnuRestoreBackupClick
CaptionW = 'Restore from backup'
end end
object sepTools3: TSpTBXSeparatorItem object sepTools3: TSpTBXSeparatorItem
end end
object mnuSettings: TSpTBXItem object mnuSettings: TSpTBXItem
Caption = 'Settings'
ImageIndex = 41 ImageIndex = 41
Images = ilImages Images = ilImages
ShortCut = 123 ShortCut = 123
OnClick = mnuSettingsClick OnClick = mnuSettingsClick
CaptionW = 'Settings'
end end
end end
object mnuGenerators: TSpTBXSubmenuItem object mnuGenerators: TSpTBXSubmenuItem
CaptionW = 'Generators' Caption = 'Generators'
object mnuMenuGenerator: TSpTBXItem object mnuMenuGenerator: TSpTBXItem
Caption = 'Menu Generator'
ImageIndex = 20 ImageIndex = 20
Images = ilImages Images = ilImages
OnClick = mnuMenuGeneratorClick OnClick = mnuMenuGeneratorClick
CaptionW = 'Menu Generator'
end end
object sepGenerators1: TSpTBXSeparatorItem object sepGenerators1: TSpTBXSeparatorItem
end end
object mnuHudmessage: TSpTBXItem object mnuHudmessage: TSpTBXItem
Caption = 'Hudmessage Generator'
OnClick = mnuHudmessageClick OnClick = mnuHudmessageClick
CaptionW = 'Hudmessage Generator'
end end
object mnuMOTDGenerator: TSpTBXItem object mnuMOTDGenerator: TSpTBXItem
Caption = 'MOTD Generator'
ImageIndex = 36 ImageIndex = 36
Images = ilImages Images = ilImages
OnClick = mnuMOTDGeneratorClick OnClick = mnuMOTDGeneratorClick
CaptionW = 'MOTD Generator'
end end
object mnuConnectionGen: TSpTBXItem object mnuConnectionGen: TSpTBXItem
Caption = 'Create connection'
ImageIndex = 18 ImageIndex = 18
Images = ilImages Images = ilImages
OnClick = mnuConnectionGenClick OnClick = mnuConnectionGenClick
CaptionW = 'Create connection'
end end
end end
object mnuHelp: TSpTBXSubmenuItem object mnuHelp: TSpTBXSubmenuItem
CaptionW = 'Help' Caption = 'Help'
object mnuOpenHelp: TSpTBXItem object mnuOpenHelp: TSpTBXItem
Caption = 'Open help'
ImageIndex = 21 ImageIndex = 21
Images = ilImages Images = ilImages
ShortCut = 112 ShortCut = 112
OnClick = mnuOpenHelpClick OnClick = mnuOpenHelpClick
CaptionW = 'Open help'
end end
object sepHelp1: TSpTBXSeparatorItem object sepHelp1: TSpTBXSeparatorItem
end end
object mnuSearchForums: TSpTBXItem object mnuSearchForums: TSpTBXItem
Caption = 'Search on AMX Mod X forums'
OnClick = mnuSearchForumsClick OnClick = mnuSearchForumsClick
CaptionW = 'Search on AMX Mod X forums'
end end
object mnuOpenScriptingForum: TSpTBXItem object mnuOpenScriptingForum: TSpTBXItem
Caption = 'Open AMXX Scripting Forum'
OnClick = mnuOpenScriptingForumClick OnClick = mnuOpenScriptingForumClick
CaptionW = 'Open AMXX Scripting Forum'
end end
object sepHelp2: TSpTBXSeparatorItem object sepHelp2: TSpTBXSeparatorItem
end end
object mnuInfo: TSpTBXItem object mnuInfo: TSpTBXItem
Caption = 'About AMXX-Studio...'
OnClick = mnuInfoClick OnClick = mnuInfoClick
CaptionW = 'About AMXX-Studio...'
end end
end end
end end
@ -556,39 +556,39 @@ object frmMain: TfrmMain
TabOrder = 1 TabOrder = 1
OnVisibleChanged = tbxToolbarVisibleChanged OnVisibleChanged = tbxToolbarVisibleChanged
object mnuTNew: TSpTBXItem object mnuTNew: TSpTBXItem
Caption = 'New'
ImageIndex = 0 ImageIndex = 0
Images = ilImages Images = ilImages
ShortCut = 16462 ShortCut = 16462
OnClick = mnuTNewClick OnClick = mnuTNewClick
CaptionW = 'New'
end end
object mnuTOpen: TSpTBXItem object mnuTOpen: TSpTBXItem
Caption = 'Open'
ImageIndex = 3 ImageIndex = 3
Images = ilImages Images = ilImages
OnClick = mnuTOpenClick OnClick = mnuTOpenClick
CaptionW = 'Open'
end end
object mnuTSave: TSpTBXItem object mnuTSave: TSpTBXItem
Caption = 'Save'
ImageIndex = 1 ImageIndex = 1
Images = ilImages Images = ilImages
OnClick = mnuTSaveClick OnClick = mnuTSaveClick
CaptionW = 'Save'
end end
object sepToolbar1: TSpTBXSeparatorItem object sepToolbar1: TSpTBXSeparatorItem
end end
object mnuTSearch: TSpTBXItem object mnuTSearch: TSpTBXItem
Caption = 'Search'
ImageIndex = 13 ImageIndex = 13
Images = ilImages Images = ilImages
OnClick = mnuTSearchClick OnClick = mnuTSearchClick
CaptionW = 'Search'
end end
object sepToolbar2: TSpTBXSeparatorItem object sepToolbar2: TSpTBXSeparatorItem
end end
object mnuTCompile: TSpTBXItem object mnuTCompile: TSpTBXItem
Caption = 'Compile'
ImageIndex = 22 ImageIndex = 22
Images = ilImages Images = ilImages
OnClick = mnuTCompileClick OnClick = mnuTCompileClick
CaptionW = 'Compile'
end end
end end
object tbxCodeSnippets: TSpTBXToolbar object tbxCodeSnippets: TSpTBXToolbar
@ -601,27 +601,27 @@ object frmMain: TfrmMain
TabOrder = 3 TabOrder = 3
OnVisibleChanged = tbxCodeSnippetsVisibleChanged OnVisibleChanged = tbxCodeSnippetsVisibleChanged
object mnuCodeSnippets: TSpTBXRightAlignSpacerItem object mnuCodeSnippets: TSpTBXRightAlignSpacerItem
CaptionW = 'Code-Snippets:' Caption = 'Code-Snippets:'
end end
object mnuPawn: TSpTBXItem object mnuPawn: TSpTBXItem
Caption = 'Pawn'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = OnCodeSnippetSelect OnClick = OnCodeSnippetSelect
CaptionW = 'Pawn'
end end
object mnuCPP: TSpTBXItem object mnuCPP: TSpTBXItem
Caption = 'C++'
AutoCheck = True AutoCheck = True
OnClick = OnCodeSnippetSelect OnClick = OnCodeSnippetSelect
CaptionW = 'C++'
end end
object mnuHTML: TSpTBXItem object mnuHTML: TSpTBXItem
Caption = 'HTML'
OnClick = OnCodeSnippetSelect OnClick = OnCodeSnippetSelect
CaptionW = 'HTML'
end end
object mnuOther: TSpTBXItem object mnuOther: TSpTBXItem
Caption = 'Other'
AutoCheck = True AutoCheck = True
OnClick = OnCodeSnippetSelect OnClick = OnCodeSnippetSelect
CaptionW = 'Other'
end end
object sepCodeSnippets: TSpTBXSeparatorItem object sepCodeSnippets: TSpTBXSeparatorItem
end end
@ -636,44 +636,44 @@ object frmMain: TfrmMain
TabOrder = 2 TabOrder = 2
OnVisibleChanged = tbxEditVisibleChanged OnVisibleChanged = tbxEditVisibleChanged
object mnuTUndo: TSpTBXItem object mnuTUndo: TSpTBXItem
Caption = 'Undo'
ImageIndex = 23 ImageIndex = 23
Images = ilImages Images = ilImages
OnClick = mnuTUndoClick OnClick = mnuTUndoClick
CaptionW = 'Undo'
end end
object mnuTRedo: TSpTBXItem object mnuTRedo: TSpTBXItem
Caption = 'Redo'
ImageIndex = 24 ImageIndex = 24
Images = ilImages Images = ilImages
OnClick = mnuTRedoClick OnClick = mnuTRedoClick
CaptionW = 'Redo'
end end
object sepTEdit1: TSpTBXSeparatorItem object sepTEdit1: TSpTBXSeparatorItem
end end
object mnuTCopy: TSpTBXItem object mnuTCopy: TSpTBXItem
Caption = 'Copy'
ImageIndex = 9 ImageIndex = 9
Images = ilImages Images = ilImages
OnClick = mnuTCopyClick OnClick = mnuTCopyClick
CaptionW = 'Copy'
end end
object mnuTCut: TSpTBXItem object mnuTCut: TSpTBXItem
Caption = 'Cut'
ImageIndex = 8 ImageIndex = 8
Images = ilImages Images = ilImages
OnClick = mnuTCutClick OnClick = mnuTCutClick
CaptionW = 'Cut'
end end
object mnuTPaste: TSpTBXItem object mnuTPaste: TSpTBXItem
Caption = 'Paste'
ImageIndex = 10 ImageIndex = 10
Images = ilImages Images = ilImages
OnClick = mnuTPasteClick OnClick = mnuTPasteClick
CaptionW = 'Paste'
end end
object sepTEdit2: TSpTBXSeparatorItem object sepTEdit2: TSpTBXSeparatorItem
end end
object mnuTSelectAll: TSpTBXItem object mnuTSelectAll: TSpTBXItem
Caption = 'Select all'
ImageIndex = 11 ImageIndex = 11
Images = ilImages Images = ilImages
OnClick = mnuTSelectAllClick OnClick = mnuTSelectAllClick
CaptionW = 'Select all'
end end
end end
end end
@ -683,8 +683,8 @@ object frmMain: TfrmMain
Width = 880 Width = 880
Height = 25 Height = 25
object mnuFilename: TSpTBXRightAlignSpacerItem object mnuFilename: TSpTBXRightAlignSpacerItem
Caption = 'Untitled.sma'
CustomWidth = 542 CustomWidth = 542
CaptionW = 'Untitled.sma'
end end
object sepStatus0: TSpTBXSeparatorItem object sepStatus0: TSpTBXSeparatorItem
end end
@ -707,10 +707,10 @@ object frmMain: TfrmMain
object sepStatus1: TSpTBXSeparatorItem object sepStatus1: TSpTBXSeparatorItem
end end
object mnuShowCodeTools: TSpTBXItem object mnuShowCodeTools: TSpTBXItem
Caption = 'Show Code-Tools'
AutoCheck = True AutoCheck = True
Checked = True Checked = True
OnClick = mnuShowCodeToolsClick OnClick = mnuShowCodeToolsClick
CaptionW = 'Show Code-Tools'
end end
object sepStatus2: TSpTBXSeparatorItem object sepStatus2: TSpTBXSeparatorItem
end end
@ -720,9 +720,9 @@ object frmMain: TfrmMain
object sepStatus3: TSpTBXSeparatorItem object sepStatus3: TSpTBXSeparatorItem
end end
object mnuCaret: TSpTBXRightAlignSpacerItem object mnuCaret: TSpTBXRightAlignSpacerItem
Caption = 'Ln 0 Ch 0'
Alignment = taCenter Alignment = taCenter
CustomWidth = 80 CustomWidth = 80
CaptionW = 'Ln 0 Ch 0'
end end
end end
object tbDocs: TJvTabBar object tbDocs: TJvTabBar
@ -745,21 +745,22 @@ object frmMain: TfrmMain
Width = 205 Width = 205
Height = 501 Height = 501
Align = alRight Align = alRight
Color = clBtnFace
ActiveTabIndex = 0 ActiveTabIndex = 0
TabPosition = ttpBottom TabPosition = ttpBottom
ThemeType = tttTBX ThemeType = tttTBX
OnActiveTabChange = tcToolsActiveTabChange OnActiveTabChange = tcToolsActiveTabChange
HiddenItems = <> HiddenItems = <>
object tiTools: TSpTBXTabItem object tiTools: TSpTBXTabItem
Caption = 'Code-Tools'
Checked = True Checked = True
TabPosition = ttpBottom TabPosition = ttpBottom
ThemeType = tttTBX ThemeType = tttTBX
CaptionW = 'Code-Tools'
end end
object tiNotes: TSpTBXTabItem object tiNotes: TSpTBXTabItem
Caption = 'Notes'
TabPosition = ttpBottom TabPosition = ttpBottom
ThemeType = tttTBX ThemeType = tttTBX
CaptionW = 'Notes'
end end
object tsNotes: TSpTBXTabSheet object tsNotes: TSpTBXTabSheet
Left = 0 Left = 0
@ -807,28 +808,28 @@ object frmMain: TfrmMain
Images = ilImages Images = ilImages
TabOrder = 0 TabOrder = 0
object mnuBold: TSpTBXItem object mnuBold: TSpTBXItem
Caption = 'Bold'
AutoCheck = True AutoCheck = True
ImageIndex = 29 ImageIndex = 29
OnClick = mnuBoldClick OnClick = mnuBoldClick
CaptionW = 'Bold'
end end
object mnuItalic: TSpTBXItem object mnuItalic: TSpTBXItem
Caption = 'Italic'
AutoCheck = True AutoCheck = True
ImageIndex = 27 ImageIndex = 27
OnClick = mnuItalicClick OnClick = mnuItalicClick
CaptionW = 'Italic'
end end
object mnuUnderline: TSpTBXItem object mnuUnderline: TSpTBXItem
Caption = 'Underline'
AutoCheck = True AutoCheck = True
ImageIndex = 28 ImageIndex = 28
OnClick = mnuUnderlineClick OnClick = mnuUnderlineClick
CaptionW = 'Underline'
end end
object sepNotes: TSpTBXSeparatorItem object sepNotes: TSpTBXSeparatorItem
end end
object mnuSelectColor: TSpTBXSubmenuItem object mnuSelectColor: TSpTBXSubmenuItem
Caption = 'Select color'
ImageIndex = 26 ImageIndex = 26
CaptionW = 'Select color'
object cpNotes: TTBXColorPalette object cpNotes: TTBXColorPalette
Color = clBlack Color = clBlack
PaletteOptions = [tpoCustomImages] PaletteOptions = [tpoCustomImages]
@ -1010,6 +1011,7 @@ object frmMain: TfrmMain
Caret.LineVisible = True Caret.LineVisible = True
Caret.Width = 1 Caret.Width = 1
Caret.Period = 1024 Caret.Period = 1024
Caret.LineBackAlpha = 0
DivOptions.ViewWSpace = sciWsInvisible DivOptions.ViewWSpace = sciWsInvisible
DivOptions.UsePalette = False DivOptions.UsePalette = False
DivOptions.OverType = False DivOptions.OverType = False
@ -1041,6 +1043,12 @@ object frmMain: TfrmMain
Gutter2.Width = 14 Gutter2.Width = 14
Gutter2.MarginType = gutSymbol Gutter2.MarginType = gutSymbol
Gutter2.Sensitive = True Gutter2.Sensitive = True
Gutter3.Width = 0
Gutter3.MarginType = gutSymbol
Gutter3.Sensitive = False
Gutter4.Width = 0
Gutter4.MarginType = gutSymbol
Gutter4.Sensitive = False
WordWrapVisualFlags = [] WordWrapVisualFlags = []
WordWrapVisualFlagsLocation = [] WordWrapVisualFlagsLocation = []
LayoutCache = sciCacheCaret LayoutCache = sciCacheCaret
@ -4536,6 +4544,7 @@ object frmMain: TfrmMain
TabOrder = 1 TabOrder = 1
OnClick = cmdCancelClick OnClick = cmdCancelClick
CaptionGlowColor = clBtnFace CaptionGlowColor = clBtnFace
DropDownArrow = True
LinkFont.Charset = DEFAULT_CHARSET LinkFont.Charset = DEFAULT_CHARSET
LinkFont.Color = clBlue LinkFont.Color = clBlue
LinkFont.Height = -11 LinkFont.Height = -11
@ -4546,7 +4555,7 @@ object frmMain: TfrmMain
end end
end end
object TBXSwitcher: TTBXSwitcher object TBXSwitcher: TTBXSwitcher
Theme = 'OfficeXP' Theme = 'Default'
Left = 813 Left = 813
Top = 7 Top = 7
end end
@ -6414,18 +6423,18 @@ object frmMain: TfrmMain
Left = 783 Left = 783
Top = 7 Top = 7
object mnuCopyMessage: TSpTBXItem object mnuCopyMessage: TSpTBXItem
Caption = 'Copy message'
OnClick = mnuCopyMessageClick OnClick = mnuCopyMessageClick
CaptionW = 'Copy message'
end end
object mnuCopyAll: TSpTBXItem object mnuCopyAll: TSpTBXItem
Caption = 'Copy all'
OnClick = mnuCopyAllClick OnClick = mnuCopyAllClick
CaptionW = 'Copy all'
end end
object sepOutput: TSpTBXSeparatorItem object sepOutput: TSpTBXSeparatorItem
end end
object mnuSaveToFile: TSpTBXItem object mnuSaveToFile: TSpTBXItem
Caption = 'Save to file...'
OnClick = mnuSaveToFileClick OnClick = mnuSaveToFileClick
CaptionW = 'Save to file...'
end end
end end
object sciCallTips: TSciCallTips object sciCallTips: TSciCallTips
@ -6494,62 +6503,62 @@ object frmMain: TfrmMain
Left = 782 Left = 782
Top = 36 Top = 36
object mnuEditorCopy: TSpTBXItem object mnuEditorCopy: TSpTBXItem
Caption = 'Copy'
ImageIndex = 9 ImageIndex = 9
Images = ilImages Images = ilImages
OnClick = mnuEditorCopyClick OnClick = mnuEditorCopyClick
CaptionW = 'Copy'
end end
object mnuEditorCut: TSpTBXItem object mnuEditorCut: TSpTBXItem
Caption = 'Cut'
ImageIndex = 8 ImageIndex = 8
Images = ilImages Images = ilImages
OnClick = mnuEditorCutClick OnClick = mnuEditorCutClick
CaptionW = 'Cut'
end end
object mnuEditorPaste: TSpTBXItem object mnuEditorPaste: TSpTBXItem
Caption = 'Paste'
ImageIndex = 10 ImageIndex = 10
Images = ilImages Images = ilImages
OnClick = mnuEditorPasteClick OnClick = mnuEditorPasteClick
CaptionW = 'Paste'
end end
object mnuEditorDelete: TSpTBXItem object mnuEditorDelete: TSpTBXItem
Caption = 'Delete'
ImageIndex = 5 ImageIndex = 5
Images = ilImages Images = ilImages
OnClick = mnuEditorDeleteClick OnClick = mnuEditorDeleteClick
CaptionW = 'Delete'
end end
object sepEditorMenu1: TSpTBXSeparatorItem object sepEditorMenu1: TSpTBXSeparatorItem
end end
object mnuEditorSelectAll: TSpTBXItem object mnuEditorSelectAll: TSpTBXItem
Caption = 'Select all'
ImageIndex = 11 ImageIndex = 11
Images = ilImages Images = ilImages
OnClick = mnuEditorSelectAllClick OnClick = mnuEditorSelectAllClick
CaptionW = 'Select all'
end end
object sepEditorMenu2: TSpTBXSeparatorItem object sepEditorMenu2: TSpTBXSeparatorItem
end end
object mnuEditorUndo: TSpTBXItem object mnuEditorUndo: TSpTBXItem
Caption = 'Undo'
ImageIndex = 6 ImageIndex = 6
Images = ilImages Images = ilImages
OnClick = mnuEditorUndoClick OnClick = mnuEditorUndoClick
CaptionW = 'Undo'
end end
object mnuEditorRedo: TSpTBXItem object mnuEditorRedo: TSpTBXItem
Caption = 'Redo'
ImageIndex = 7 ImageIndex = 7
Images = ilImages Images = ilImages
OnClick = mnuEditorRedoClick OnClick = mnuEditorRedoClick
CaptionW = 'Redo'
end end
object sepEditorMenu3: TSpTBXSeparatorItem object sepEditorMenu3: TSpTBXSeparatorItem
end end
object mnuToogleBookmark: TSpTBXItem object mnuToogleBookmark: TSpTBXItem
Caption = 'Toogle Bookmark'
ShortCut = 49218 ShortCut = 49218
OnClick = mnuToogleBookmarkClick OnClick = mnuToogleBookmarkClick
CaptionW = 'Toogle Bookmark'
end end
object mnuGoToBookmark: TSpTBXItem object mnuGoToBookmark: TSpTBXItem
Caption = 'Go to next Bookmark'
ShortCut = 16450 ShortCut = 16450
OnClick = mnuGoToBookmarkClick OnClick = mnuGoToBookmarkClick
CaptionW = 'Go to next Bookmark'
end end
end end
object sciSearchReplace: TSciSearchReplace object sciSearchReplace: TSciSearchReplace
@ -7799,21 +7808,21 @@ object frmMain: TfrmMain
Left = 662 Left = 662
Top = 6 Top = 6
object mnuPClose: TSpTBXItem object mnuPClose: TSpTBXItem
Caption = 'Close file'
ImageIndex = 46 ImageIndex = 46
Images = ilImages Images = ilImages
OnClick = mnuPCloseClick OnClick = mnuPCloseClick
CaptionW = 'Close file'
end end
object mnuPCloseAllFiles: TSpTBXItem object mnuPCloseAllFiles: TSpTBXItem
Caption = 'Close all files'
OnClick = mnuPCloseAllFilesClick OnClick = mnuPCloseAllFilesClick
CaptionW = 'Close all files'
end end
object sepDocuments: TSpTBXSeparatorItem object sepDocuments: TSpTBXSeparatorItem
end end
object mnuPSave: TSpTBXItem object mnuPSave: TSpTBXItem
Caption = 'Save file'
ImageIndex = 1 ImageIndex = 1
Images = ilImages Images = ilImages
CaptionW = 'Save file'
end end
end end
object JvInspectorDotNETPainter: TJvInspectorDotNETPainter object JvInspectorDotNETPainter: TJvInspectorDotNETPainter

View File

@ -340,9 +340,6 @@ type
procedure mnuCompileAndUploadClick(Sender: TObject); procedure mnuCompileAndUploadClick(Sender: TObject);
procedure mnuRegisterPluginsIniLocalClick(Sender: TObject); procedure mnuRegisterPluginsIniLocalClick(Sender: TObject);
procedure mnuRegisterPluginsIniWebClick(Sender: TObject); procedure mnuRegisterPluginsIniWebClick(Sender: TObject);
procedure sciAutoCompleteBeforeShow(Sender: TObject;
const Position: Integer; ListToDisplay: TStrings;
var CancelDisplay: Boolean);
procedure mnuMOTDGeneratorClick(Sender: TObject); procedure mnuMOTDGeneratorClick(Sender: TObject);
procedure mnuHeaderPawnClick(Sender: TObject); procedure mnuHeaderPawnClick(Sender: TObject);
procedure mnuPCloseClick(Sender: TObject); procedure mnuPCloseClick(Sender: TObject);
@ -381,6 +378,9 @@ type
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
procedure tbDocsTabClosing(Sender: TObject; Item: TJvTabBarItem; procedure tbDocsTabClosing(Sender: TObject; Item: TJvTabBarItem;
var AllowClose: Boolean); var AllowClose: Boolean);
procedure sciAutoCompleteBeforeShow(Sender: TObject; const Position,
TypedLen: Integer; ListToDisplay: TStrings;
var CancelDisplay: Boolean);
private private
procedure UpdateNotes; procedure UpdateNotes;
public public
@ -1966,105 +1966,6 @@ begin
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;
procedure TfrmMain.sciAutoCompleteBeforeShow(Sender: TObject;
const Position: Integer; ListToDisplay: TStrings;
var CancelDisplay: Boolean);
function Matchstrings(Source, pattern: string): Boolean;
var pSource: array [0..255] of Char;
pPattern: array [0..255] of Char;
function MatchPattern(element, pattern: PChar): Boolean;
function IsPatternWild(pattern: PChar): Boolean;
begin
Result := StrScan(pattern, '*') <> nil;
if not Result then Result := StrScan(pattern, '?') <> nil;
end;
begin
if 0 = StrComp(pattern, '*') then
Result := True
else if (element^ = Chr(0)) and (pattern^ <> Chr(0)) then
Result := False
else if element^ = Chr(0) then
Result := True
else
begin
case pattern^ of
'*': if MatchPattern(element, @pattern[1]) then
Result := True
else
Result := MatchPattern(@element[1], pattern);
'?': Result := MatchPattern(@element[1], @pattern[1]);
else
if element^ = pattern^ then
Result := MatchPattern(@element[1], @pattern[1])
else
Result := False;
end;
end;
end;
begin
StrPCopy(pSource, Source);
StrPCopy(pPattern, pattern);
Result := MatchPattern(pSource, pPattern);
end;
var eCurrStyle: Integer;
eFunction: String;
eCmpList: TStringList;
i, k, j: 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') then begin
eFunction := LowerCase(GetCurrFunc);
if eFunction <> '' then begin
for i := 0 to eACList.Count -1 do begin
if eFunction = LowerCase(Trim(TACFunction(eACList.Items[i]).Name)) then begin
if TACFunction(eACList.Items[i]).Items.Count > GetFunctionPos then begin
if (Trim(TACFunction(eACList.Items[i]).Items[GetFunctionPos]) <> '') then begin
if (Pos('*', TACFunction(eACList.Items[i]).Items[GetFunctionPos]) = 0) and (Pos('?', TACFunction(eACList.Items[i]).Items[GetFunctionPos]) = 0) then
ListToDisplay.Text := StringReplace(TACFunction(eACList.Items[i]).Items[GetFunctionPos], '; ', #13, [rfReplaceAll])
else begin
eCmpList := TStringList.Create;
eCmpList.Text := StringReplace(TACFunction(eACList.Items[i]).Items[GetFunctionPos], '; ', #13, [rfReplaceAll]);
for k := eCmpList.Count -1 downto 0 do begin
if (Pos('*', eCmpList[k]) <> 0) or (Pos('?', eCmpList[k]) <> 0) then begin
for j := 0 to ListToDisplay.Count -1 do begin
if Trim(ListToDisplay[j]) <> '' then begin
if (LowerCase(ListToDisplay[j][1]) = LowerCase(eCmpList[k][1])) then begin
if (MatchStrings(LowerCase(ListToDisplay[j]), LowerCase(eCmpList[k]))) then
eCmpList.Add(ListToDisplay[j]);
end;
end;
end;
eCmpList.Delete(k);
end;
end;
ListToDisplay.Assign(eCmpList);
eCmpList.Free;
end;
end;
break;
end;
end;
end;
end;
if (eCurrStyle = 11) or (eCurrStyle = 10) or (eCurrStyle = 9) or (eCurrStyle = 8) or (eCurrStyle = 5) or (eCurrStyle = 4) or (eCurrStyle = 0) or (eCurrStyle >= 34) then
CancelDisplay := False
else
CancelDisplay := True;
end;
end;
end;
procedure TfrmMain.mnuMOTDGeneratorClick(Sender: TObject); procedure TfrmMain.mnuMOTDGeneratorClick(Sender: TObject);
var eStr: TStringList; var eStr: TStringList;
i: integer; i: integer;
@ -3100,5 +3001,104 @@ begin
end; end;
end; end;
procedure TfrmMain.sciAutoCompleteBeforeShow(Sender: TObject;
const Position, TypedLen: Integer; ListToDisplay: TStrings;
var CancelDisplay: Boolean);
function Matchstrings(Source, pattern: string): Boolean;
var pSource: array [0..255] of Char;
pPattern: array [0..255] of Char;
function MatchPattern(element, pattern: PChar): Boolean;
function IsPatternWild(pattern: PChar): Boolean;
begin
Result := StrScan(pattern, '*') <> nil;
if not Result then Result := StrScan(pattern, '?') <> nil;
end;
begin
if 0 = StrComp(pattern, '*') then
Result := True
else if (element^ = Chr(0)) and (pattern^ <> Chr(0)) then
Result := False
else if element^ = Chr(0) then
Result := True
else
begin
case pattern^ of
'*': if MatchPattern(element, @pattern[1]) then
Result := True
else
Result := MatchPattern(@element[1], pattern);
'?': Result := MatchPattern(@element[1], @pattern[1]);
else
if element^ = pattern^ then
Result := MatchPattern(@element[1], @pattern[1])
else
Result := False;
end;
end;
end;
begin
StrPCopy(pSource, Source);
StrPCopy(pPattern, pattern);
Result := MatchPattern(pSource, pPattern);
end;
var eCurrStyle: Integer;
eFunction: String;
eCmpList: TStringList;
i, k, j: 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') then begin
eFunction := LowerCase(GetCurrFunc);
if eFunction <> '' then begin
for i := 0 to eACList.Count -1 do begin
if eFunction = LowerCase(Trim(TACFunction(eACList.Items[i]).Name)) then begin
if TACFunction(eACList.Items[i]).Items.Count > GetFunctionPos then begin
if (Trim(TACFunction(eACList.Items[i]).Items[GetFunctionPos]) <> '') then begin
if (Pos('*', TACFunction(eACList.Items[i]).Items[GetFunctionPos]) = 0) and (Pos('?', TACFunction(eACList.Items[i]).Items[GetFunctionPos]) = 0) then
ListToDisplay.Text := StringReplace(TACFunction(eACList.Items[i]).Items[GetFunctionPos], '; ', #13, [rfReplaceAll])
else begin
eCmpList := TStringList.Create;
eCmpList.Text := StringReplace(TACFunction(eACList.Items[i]).Items[GetFunctionPos], '; ', #13, [rfReplaceAll]);
for k := eCmpList.Count -1 downto 0 do begin
if (Pos('*', eCmpList[k]) <> 0) or (Pos('?', eCmpList[k]) <> 0) then begin
for j := 0 to ListToDisplay.Count -1 do begin
if Trim(ListToDisplay[j]) <> '' then begin
if (LowerCase(ListToDisplay[j][1]) = LowerCase(eCmpList[k][1])) then begin
if (MatchStrings(LowerCase(ListToDisplay[j]), LowerCase(eCmpList[k]))) then
eCmpList.Add(ListToDisplay[j]);
end;
end;
end;
eCmpList.Delete(k);
end;
end;
ListToDisplay.Assign(eCmpList);
eCmpList.Free;
end;
end;
break;
end;
end;
end;
end;
if (eCurrStyle = 11) or (eCurrStyle = 10) or (eCurrStyle = 9) or (eCurrStyle = 8) or (eCurrStyle = 5) or (eCurrStyle = 4) or (eCurrStyle = 0) or (eCurrStyle >= 34) then
CancelDisplay := False
else
CancelDisplay := True;
end;
end;
end;
end. end.

View File

@ -1,6 +1,6 @@
object frmSettings: TfrmSettings object frmSettings: TfrmSettings
Left = 413 Left = 379
Top = 547 Top = 206
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'AMXX-Studio - Settings' Caption = 'AMXX-Studio - Settings'
ClientHeight = 297 ClientHeight = 297
@ -64,7 +64,7 @@ object frmSettings: TfrmSettings
Top = 0 Top = 0
Width = 351 Width = 351
Height = 260 Height = 260
ActivePage = jspHighlighter ActivePage = jspCTSettings
PropagateEnable = False PropagateEnable = False
Align = alClient Align = alClient
OnChange = jplSettingsChange OnChange = jplSettingsChange
@ -725,6 +725,7 @@ object frmSettings: TfrmSettings
'C++' 'C++'
'HTML' 'HTML'
'Other') 'Other')
TabOrder = 0
OnTabChanged = ftcCodeSnippetsTabChanged OnTabChanged = ftcCodeSnippetsTabChanged
object shpCodeSnippets: TShape object shpCodeSnippets: TShape
Left = 6 Left = 6
@ -1873,8 +1874,8 @@ object frmSettings: TfrmSettings
ColorHighLight = 8623776 ColorHighLight = 8623776
ColorShadow = 8623776 ColorShadow = 8623776
Caption = '&OK' Caption = '&OK'
ModalResult = 1
TabOrder = 0 TabOrder = 0
ModalResult = 1
end end
object cmdCancel: TFlatButton object cmdCancel: TFlatButton
Left = 326 Left = 326
@ -1886,8 +1887,8 @@ object frmSettings: TfrmSettings
ColorHighLight = 8623776 ColorHighLight = 8623776
ColorShadow = 8623776 ColorShadow = 8623776
Caption = '&Cancel' Caption = '&Cancel'
ModalResult = 2
TabOrder = 1 TabOrder = 1
ModalResult = 2
end end
end end
object odBrowse: TOpenDialog object odBrowse: TOpenDialog