Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Upgraded plugin-system (other command call and now 93 commands)

Browse Source 
Customizable IRC Paster
Updated version number from 1.01 to 1.1
This commit is contained in:
Christian Hammacher
2005-09-03 20:00:46 +00:00
parent e239801671
commit fdbe0e2064
15 changed files with 805 additions and 443 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
editor/studio/UnitCodeUtils.pas
View File

@ -24,7 +24,7 @@ procedure SetRTFText(ARichEdit: TRichedit; ARTFText: String);
implementation
uses UnitfrmMain, UnitMainTools, UnitLanguages;
uses UnitfrmMain, UnitMainTools, UnitLanguages, UnitfrmIRCPaster;
function IsAtStart(eSubStr, eStr: String; AllowFunctions: Boolean = True): Boolean;
begin
@ -90,7 +90,7 @@ begin
eLength := 0;
for i := 0 to frmMain.sciEditor.Lines.Count -1 do begin
eLength := eLength + Length(frmMain.sciEditor.Lines[i]);
eLength := eLength + Length(frmMain.sciEditor.Lines[i]) + 2;
if eLength >= ePos then begin
Result := i;
break;
@ -335,9 +335,14 @@ begin
end;
eCurrStyle := '';
Result := IntToStr(eLine +1) + '] ';
if Length(frmMain.sciEditor.Lines[eLine]) = 0 then exit;
if frmIRCPaster.chkLineNumbers.Checked then
Result := IntToStr(eLine +1) + '] '
else
Result := '';
if Trim(frmMain.sciEditor.Lines[eLine]) = '' then
exit;
for i := 0 to Length(frmMain.sciEditor.Lines[eLine]) -1 do begin
if eCurrStyle <> GetStyleAt(eChars + i).Name then begin
eCurrStyle := GetStyleAt(eChars + i).Name;