double-clicking on variables now resets them to some default value instead of just '0'

This commit is contained in:
zueuk
2006-03-25 17:36:12 +00:00
parent e568e64bd6
commit 9d535966a2
5 changed files with 66 additions and 5 deletions

View File

@ -37,6 +37,7 @@ type
function SetVariable(const Name: string; var value: double): boolean; override;
function GetVariable(const Name: string; var value: double): boolean; override;
function ResetVariable(const Name: string): boolean; override;
procedure Prepare; override;
procedure CalcFunction; override;
@ -390,6 +391,19 @@ begin
end;
end;
function TVariationJuliaScope.ResetVariable(const Name: string): boolean;
begin
Result := False;
if Name = var_n_name then begin
N := 2;
Result := True;
end
else if Name = var_c_name then begin
c := 1;
Result := True;
end;
end;
///////////////////////////////////////////////////////////////////////////////
class function TVariationJuliaScope.GetNrVariables: integer;
begin