added builtin variation counter
This commit is contained in:
parent
d30495c0d9
commit
c21d6ecbb1
@ -39,6 +39,8 @@ type
|
||||
type
|
||||
TVariationLoader = class
|
||||
public
|
||||
firstVariableIndex: integer;
|
||||
|
||||
function GetName: string; virtual; abstract;
|
||||
function GetInstance: TBaseVariation; virtual; abstract;
|
||||
function GetNrVariables: integer; virtual; abstract;
|
||||
@ -95,7 +97,7 @@ var
|
||||
value: double;
|
||||
begin
|
||||
if GetVariable(Name, value) then
|
||||
Result := Format('%.6g', [value])
|
||||
Result := FloatToStr(value) //Format('%.6g', [value])
|
||||
else
|
||||
Result := '';
|
||||
end;
|
||||
|
@ -230,7 +230,8 @@ var
|
||||
name, msg: string;
|
||||
PluginData : TPluginData;
|
||||
begin
|
||||
NumBuiltinVars := NRLOCVAR + GetNrRegisteredVariations;
|
||||
NumBuiltinVariations := NRLOCVAR + GetNrRegisteredVariations;
|
||||
NumBuiltinVariables := GetNrVariableNames;
|
||||
// Try to find regular files matching *.dll in the plugins dir
|
||||
if FindFirst('.\Plugins\*.dll', faAnyFile, searchResult) = 0 then
|
||||
begin
|
||||
|
Loading…
Reference in New Issue
Block a user