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

small bug fix

Browse Source
This commit is contained in:
Christian Hammacher 2005-11-19 20:37:44 +00:00
parent fc6a193765
commit 803852ee0c
7 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
editor/studio/AMXX_Studio.dof
View File

@ -115,7 +115,7 @@ AutoIncBuild=1
MajorVer=1
MinorVer=3
Release=0
Build=32
Build=35
Debug=0
PreRelease=0
Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys]
CompanyName=AMX Mod X Dev Team
FileDescription=
FileVersion=1.3.0.32
FileVersion=1.3.0.35
InternalName=
LegalCopyright=
LegalTrademarks=

BIN
editor/studio/AMXX_Studio.exe
View File

Binary file not shown.

BIN
editor/studio/AMXX_Studio.res
View File

Binary file not shown.

2
editor/studio/UnitCodeUtils.pas
View File

@ -473,7 +473,7 @@ begin
if Pos('(', eStr) = 0 then
Result := ''
else
Result := Trim(Copy(eStr, 1, Pos('(', eStr)));
Result := Trim(Copy(eStr, 1, Pos('(', eStr) -1));
end;
end.

7
editor/studio/UnitfrmMain.pas
View File

@ -517,6 +517,7 @@ begin
frmSettings.lstFunctions.Items.Add(TACFunction(eACList.Items[i]).Name);
if frmSettings.ShowModal = mrOk then begin
Screen.Cursor := crHourGlass;
{ 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]));
@ -603,6 +604,7 @@ begin
eConfig.WriteString('Misc', 'LangDir', frmSettings.txtLangDir.Text);
eConfig.WriteBool('Misc', 'ShowStatusbar', frmSettings.chkShowStatusbar.Checked);
eACList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\ACList.cfg');
Screen.Cursor := crDefault;
end
else begin
{ Restore Code-Snippets }
@ -2138,10 +2140,10 @@ var i: integer;
eFunction: String;
begin
CancelDisplay := not Plugin_CallTipShow(ListToDisplay.GetText);
if (frmSettings.chkAutoHideCT.Checked) and (jviCode.Root.Items[0].DisplayName = 'Function Call') then begin
eFunction := GetCurrFunc;
if eFunction <> '' then begin
if (frmSettings.chkAutoHideCT.Checked) and (eFunction <> '') then begin
eFunction := LowerCase(eFunction);
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
@ -2151,7 +2153,6 @@ begin
end;
end;
end;
end;
end;
procedure TfrmMain.sciEditorCallTipClick(Sender: TObject;

4
editor/studio/UnitfrmSettings.dfm
View File

@ -64,7 +64,7 @@ object frmSettings: TfrmSettings
Top = 0
Width = 351
Height = 260
ActivePage = jspCTSettings
ActivePage = jspAutocompleteCheck
PropagateEnable = False
Align = alClient
OnChange = jplSettingsChange
@ -110,7 +110,7 @@ object frmSettings: TfrmSettings
Height = 21
Style = csDropDownList
Color = clWindow
ItemHeight = 13
ItemHeight = 0
TabOrder = 0
ItemIndex = -1
OnChange = cboLanguageChange

6
editor/studio/UnitfrmSettings.pas
View File

@ -1088,11 +1088,13 @@ end;
procedure TfrmSettings.lvParamsDblClick(Sender: TObject);
begin
frmParamEdit.Caption := 'Edit parameter information';
if (lstFunctions.ItemIndex <> -1) and (Assigned(lvParams.Selected)) then begin
frmParamEdit.txtInformation.Text := lvParams.Selected.SubItems[0];
frmParamEdit.Caption := 'Edit parameter information';
frmParamEdit.txtFunction.Text := lstFunctions.Items[lstFunctions.ItemIndex];
frmParamEdit.txtInformation.Text := StringReplace(lvParams.Selected.SubItems[0], '; ', #13#10, [rfReplaceAll]);
if frmParamEdit.ShowModal = mrOk then begin
lvParams.Selected.SubItems[0] := StringReplace(frmParamEdit.txtInformation.Lines.Text, #13#10, '; ', [rfReplaceAll]);
lstFunctions.Items[lstFunctions.ItemIndex] := frmParamEdit.txtFunction.Text;
with TACFunction(eACList.Items[lstFunctions.ItemIndex]) do begin
Name := lstFunctions.Items[lstFunctions.ItemIndex];