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

15
2.10/Source/XForm.pas
View File

@ -127,6 +127,7 @@ type
procedure SetVariable(const name: string; var Value: double);
procedure GetVariable(const name: string; var Value: double);
procedure ResetVariable(const name: string);
function ToXMLString: string;
function FinalToXMLString(IsEnabled: boolean): string;
@ -1950,8 +1951,8 @@ begin
FFunctionList[28] := Focus;
//registered
for i := 0 to High(FRegVariations) do
FFunctionList[NRLOCVAR + i] := FRegVariations[i].CalcFunction;
// for i := 0 to High(FRegVariations) do
// FFunctionList[NRLOCVAR + i] := FRegVariations[i].CalcFunction;
end;
///////////////////////////////////////////////////////////////////////////////
@ -2061,7 +2062,6 @@ begin
break;
end;
///////////////////////////////////////////////////////////////////////////////
procedure TXForm.GetVariable(const name: string; var Value: double);
var
i: integer;
@ -2071,5 +2071,14 @@ begin
break;
end;
procedure TXForm.ResetVariable(const name: string);
var
i: integer;
begin
for i := 0 to High(FRegVariations) do
if FRegVariations[i].ResetVariable(name) then
break;
end;
///////////////////////////////////////////////////////////////////////////////
end.