mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

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

13
2.10/Source/BaseVariation.pas
View File

@ -7,7 +7,9 @@ type
type
TBaseVariation = class
protected
procedure CalcFunction; virtual; abstract;
public
vvar: double; // normalized interp coefs between variations
@ -22,10 +24,10 @@ type
function SetVariable(const Name: string; var value: double): boolean; virtual;
function GetVariable(const Name: string; var value: double): boolean; virtual;
function ResetVariable(const Name: string): boolean; virtual;
procedure Prepare; virtual;
procedure CalcFunction; virtual; abstract;
procedure GetCalcFunction(var Delphi_Suxx: TCalcFunction); virtual;
end;
@ -54,12 +56,19 @@ begin
Result := False;
end;
///////////////////////////////////////////////////////////////////////////////
class function TBaseVariation.GetVariableNameAt(const Index: integer): string;
begin
Result := ''
end;
function TBaseVariation.ResetVariable(const Name: string): boolean;
var
zero: double;
begin
zero := 0;
Result := SetVariable(Name, zero);
end;
///////////////////////////////////////////////////////////////////////////////
procedure TBaseVariation.Prepare;
begin