Replaced Count-Node by RTL-Function
This commit is contained in:
@@ -113,12 +113,6 @@ type
|
||||
function ReconstructAst(OwnerNode: TAstViewNode): IAstNode; override;
|
||||
end;
|
||||
|
||||
TSeriesLengthNodeHandler = class(TBaseNodeHandler<ISeriesLengthNode>)
|
||||
public
|
||||
procedure BuildUI(OwnerNode: TAstViewNode); override;
|
||||
function ReconstructAst(OwnerNode: TAstViewNode): IAstNode; override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TVariableDeclarationNodeHandler }
|
||||
@@ -420,21 +414,4 @@ begin
|
||||
);
|
||||
end;
|
||||
|
||||
{ TSeriesLengthNodeHandler }
|
||||
|
||||
procedure TSeriesLengthNodeHandler.BuildUI(OwnerNode: TAstViewNode);
|
||||
var
|
||||
titleLabel: TTextNode;
|
||||
begin
|
||||
OwnerNode.Frameless := True;
|
||||
OwnerNode.Orientation := loHorizontal;
|
||||
titleLabel := OwnerNode.AddLabel(OwnerNode, 'count ' + FNode.Series.Name);
|
||||
titleLabel.FontSettings.Font.Style := [TFontStyle.fsBold];
|
||||
end;
|
||||
|
||||
function TSeriesLengthNodeHandler.ReconstructAst(OwnerNode: TAstViewNode): IAstNode;
|
||||
begin
|
||||
Result := TAst.SeriesLength(FNode.Identity, FNode.Series, FNode.StaticType);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user