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 MajorVer=1
MinorVer=3 MinorVer=3
Release=0 Release=0
Build=32 Build=35
Debug=0 Debug=0
PreRelease=0 PreRelease=0
Special=0 Special=0
@ -126,7 +126,7 @@ CodePage=1252
[Version Info Keys] [Version Info Keys]
CompanyName=AMX Mod X Dev Team CompanyName=AMX Mod X Dev Team
FileDescription= FileDescription=
FileVersion=1.3.0.32 FileVersion=1.3.0.35
InternalName= InternalName=
LegalCopyright= LegalCopyright=
LegalTrademarks= 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 if Pos('(', eStr) = 0 then
Result := '' Result := ''
else else
Result := Trim(Copy(eStr, 1, Pos('(', eStr))); Result := Trim(Copy(eStr, 1, Pos('(', eStr) -1));
end; end;
end. end.

21
editor/studio/UnitfrmMain.pas
View File

@ -517,6 +517,7 @@ begin
frmSettings.lstFunctions.Items.Add(TACFunction(eACList.Items[i]).Name); frmSettings.lstFunctions.Items.Add(TACFunction(eACList.Items[i]).Name);
if frmSettings.ShowModal = mrOk then begin if frmSettings.ShowModal = mrOk then begin
Screen.Cursor := crHourGlass;
{ Shortcuts } { Shortcuts }
for i := 0 to frmSettings.lvShortcuts.Items.Count - 1 do for i := 0 to frmSettings.lvShortcuts.Items.Count - 1 do
TSciKeyCommand(frmSettings.lvShortcuts.Items[i].Data).ShortCut := (TextToShortCut(frmSettings.lvShortcuts.Items[i].SubItems[0])); 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.WriteString('Misc', 'LangDir', frmSettings.txtLangDir.Text);
eConfig.WriteBool('Misc', 'ShowStatusbar', frmSettings.chkShowStatusbar.Checked); eConfig.WriteBool('Misc', 'ShowStatusbar', frmSettings.chkShowStatusbar.Checked);
eACList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\ACList.cfg'); eACList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'config\ACList.cfg');
Screen.Cursor := crDefault;
end end
else begin else begin
{ Restore Code-Snippets } { Restore Code-Snippets }
@ -2138,16 +2140,15 @@ var i: integer;
eFunction: String; eFunction: String;
begin begin
CancelDisplay := not Plugin_CallTipShow(ListToDisplay.GetText); CancelDisplay := not Plugin_CallTipShow(ListToDisplay.GetText);
if (frmSettings.chkAutoHideCT.Checked) and (jviCode.Root.Items[0].DisplayName = 'Function Call') then begin eFunction := GetCurrFunc;
eFunction := GetCurrFunc; if (frmSettings.chkAutoHideCT.Checked) and (eFunction <> '') then begin
if eFunction <> '' then begin eFunction := LowerCase(eFunction);
eFunction := LowerCase(eFunction);
for i := 0 to eACList.Count -1 do begin for i := 0 to eACList.Count -1 do begin
if eFunction = LowerCase(Trim(TACFunction(eACList.Items[i]).Name)) then begin if eFunction = LowerCase(Trim(TACFunction(eACList.Items[i]).Name)) then begin
if TACFunction(eACList.Items[i]).Items.Count > GetFunctionPos then begin if TACFunction(eACList.Items[i]).Items.Count > GetFunctionPos then begin
CancelDisplay := True; CancelDisplay := True;
break; break;
end;
end; end;
end; end;
end; end;

4
editor/studio/UnitfrmSettings.dfm
View File

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

6
editor/studio/UnitfrmSettings.pas
View File

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