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
Download Patch File Download Diff File Expand all files Collapse all files

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];