Steema Central

Code: Select all

  Procedure DoMove;
  var tmpZ : Double;
  begin
    if not FPanel.Canvas.SupportsFullRotation then // SupportsZoom2D
       Set3D;

    With FPanel.View3DOptions do
    begin
      tmpZ:=1;

      HorizOffsetFloat:=HorizOffsetFloat+((X-FOldX)*tmpZ);
      VertOffsetFloat:=VertOffsetFloat+((Y-FOldY)*tmpZ);
    end;

    {$IFDEF FMX}
    InvalidatePanel;
    {$ENDIF}

    FOldX:=X;
    FOldY:=Y;
  end;

Code: Select all

{$IFDEF FMX}
// When BufferedDisplay=True this is necessary because View3DOptions does not call
// FPanel.Invalidate
Procedure TTeeCommander.InvalidatePanel;
begin
  FPanel.Invalidate;
end;
{$ENDIF}

Code: Select all

 TeeCommander1.CreateControls( [ tcbRotate, tcbSeparator, tcb3D ] );

Code: Select all

  Procedure DoMove;
  var tmpZ : Double;
  begin
    if not FPanel.Canvas.SupportsFullRotation then // SupportsZoom2D
       Set3D;

    With FPanel.View3DOptions do
    begin
      tmpZ:=1;

      HorizOffsetFloat:=HorizOffsetFloat+((X-FOldX)*tmpZ);
      VertOffsetFloat:=VertOffsetFloat+((Y-FOldY)*tmpZ);
    end;

    {$IFDEF FMX}
    InvalidatePanel;
    {$ENDIF}

    FOldX:=X;
    FOldY:=Y;
  end;

Code: Select all

  Procedure DoRotate;
  begin
    // 2D with circled series (Pie, Gauge, Polar, Smith, etc):
    if (not FPanel.View3D) and Assigned(ICircledSeries) then
       ICircledSeries.RotationAngle:=Round(HalfDivPi*ICircledSeries.PointToAngle(X,Y))+ICircledSeries.RotationAngle
    else
    begin
      Set3D;

      with FPanel,View3DOptions do
      begin
        Orthogonal:=False;

        if FAllowRotationX then
           IDifX:=90.0*(X-FOldX)/Width
        else
           IDifX:=0;

        if FAllowRotationY then
           IDifY:=90.0*(FOldY-Y)/Height
        else
           IDifY:=0;
      end;

      IShift:=Shift;

      DoRotation(IDifX,IDifY);
    end;

    FOldX:=X;
    FOldY:=Y;

    IRotating:=True;
  end;

Procedure TTeeCommander.DoRotation(const IDifX,IDifY:Double);

  function AllowFullRotation:Boolean;
  begin
    result:=FAllowFull or FPanel.Canvas.SupportsFullRotation;
  end;

  Function CorrectAngle(Const AAngle:Double):Double;
  begin
    result:=AAngle;

    if result>360 then result:=result-360
    else
    if result<0 then result:=360+result;
  end;

begin
  with FPanel.View3DOptions do
  if AllowFullRotation then
  begin
    if ssShift in IShift then
       Tilt:=Round(CorrectAngle(Tilt+IDifY))
    else
    begin
      RotationFloat:=CorrectAngle(RotationFloat+IDifX);
      ElevationFloat:=CorrectAngle(ElevationFloat+IDifY);
    end;
  end
  else
  begin
    if Assigned(ICircledSeries) then
    begin
      Rotation:=360;

      if not AllowFullRotation then
         Perspective:=0;

      if IDifX<>0 then
         with ICircledSeries do
              RotationAngle:=Round(CorrectAngle(RotationAngle+IDifX));
    end
    else
      RotationFloat:=TRotateTool.RotationChange(AllowFullRotation,RotationFloat,IDifX);

    ElevationFloat:=TRotateTool.ElevationChange(AllowFullRotation,ElevationFloat,IDifY);
  end;

  {$IFDEF FMX}
  InvalidatePanel;
  {$ENDIF}
end;