components/fpvectorial/odgvectorialreader.pas

150 …Node; AData: TvVectorialPage; ADest: TPath; ADeltaX, ADeltaY: Double; var AInfo: TCustomShapeInfo);
151 …: string; AData: TvVectorialPage; ADest: TPath; ADeltaX, ADeltaY: Double; AInfo: TCustomShapeInfo);
152     function  ResolveEnhancedGeometryFormula(AInput: TSVGToken; AInfo: TCustomShapeInfo): Double;  in ResolveEnhancedGeometryFormula()
178       const AData: TvVectorialPage; const AInfo: TCustomShapeInfo;
181       const AInfo: TCustomShapeInfo;
810   AData: TvVectorialPage; ADest: TPath; ADeltaX, ADeltaY: Double; var AInfo: TCustomShapeInfo);
818   if AInfo = nil then AInfo := TCustomShapeInfo.Create;
819   AInfo.ViewBox_Left := 0;
820   AInfo.ViewBox_Top := 0;
821   AInfo.ViewBox_Width := 10000;
822   AInfo.ViewBox_Height := 10000;
837       AInfo.ViewBox_Left := StringWithUnitToFloat(l10Strings[0]);
838       AInfo.ViewBox_Top := StringWithUnitToFloat(l10Strings[1]);
839       AInfo.ViewBox_Width := StringWithUnitToFloat(l10Strings[2]) - AInfo.ViewBox_Left;
840       AInfo.ViewBox_Height := StringWithUnitToFloat(l10Strings[3]) - AInfo.ViewBox_Top;
863           Len := Length(AInfo.Formulas);
864           SetLength(AInfo.Formulas, Len+1);
865           AInfo.Formulas[Len] := TvFormula.Create(nil);
866           AInfo.Formulas[Len].Name := lAttrValue;
870           Len := Length(AInfo.Formulas);
888 …lAttrValue := StringReplace(lAttrValue, 'right', FloatToStr(AInfo.ViewBox_Left + AInfo.ViewBox_Wid…
889 …lAttrValue := StringReplace(lAttrValue, 'bottom', FloatToStr(AInfo.ViewBox_Top + AInfo.ViewBox_Hei…
891           AInfo.Formulas[Len-1].AddItemsByConvertingInfixStringToRPN(lAttrValue);
914       ConvertPathStringToTPath(lNodeValue, AData, ADest, ADeltaX, ADeltaY, AInfo);
920   AData: TvVectorialPage; ADest: TPath; ADeltaX, ADeltaY: Double; AInfo: TCustomShapeInfo);
1001         x2 := ResolveEnhancedGeometryFormula(CurToken, AInfo) / 2;
1003         y2 := ResolveEnhancedGeometryFormula(CurToken, AInfo) / 2;
1011         ConvertViewBoxCoordinatesToFPVCoordinates(AData, AInfo, x1, y1, x1, y1);
1013         ConvertViewBoxDeltaToFPVDelta(AInfo, x2, y2, x2, y2);
1040   AInfo: TCustomShapeInfo): Double;
1051     for i := 0 to Length(AInfo.Formulas)-1 do
1053       lStr := '?' + AInfo.Formulas[i].Name;
1055         Result := AInfo.Formulas[i].CalculateRPNFormulaValue();
2125   const AData: TvVectorialPage; const AInfo: TCustomShapeInfo;
2128   ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width) + AInfo.Left;
2129   ADestY := (ASrcY - AInfo.ViewBox_Top) * (AInfo.Height / AInfo.ViewBox_Height) + AInfo.Top;
2134   const AInfo: TCustomShapeInfo; const ASrcX, ASrcY: Double; var ADestX,
2137   ADestX := (ASrcX - AInfo.ViewBox_Left) * (AInfo.Width / AInfo.ViewBox_Width);
2138   ADestY := (ASrcY - AInfo.ViewBox_Top) * (AInfo.Height / AInfo.ViewBox_Height);