zoukankan      html  css  js  c++  java
  • FMX.Controls单元 中图形矩阵变换

    procedure TControl.DoMatrixChanged(Sender: TObject);
    var
    TranslateMatrix, ScaleMatrix, RotMatrix: TMatrix;
    M1, M2: TMatrix;
    begin
    if (not FInPaintTo) and not IsUpdating then
    Repaint;
    if SameValue(FScale.X, 1.0, TEpsilon.Scale) and SameValue(FScale.Y, 1.0, TEpsilon.Scale) and SameValue(FRotationAngle, 0.0, TEpsilon.Scale) then
    begin
    if (FParentControl <> nil) and not FParentControl.FSimpleTransform then
    FSimpleTransform := False
    else
    FSimpleTransform := True;
    end
    else
    FSimpleTransform := False;

    if not FSimpleTransform then
    begin
    if not SameValue(FRotationAngle, 0.0, TEpsilon.Scale) then
    begin
    // scale
    ScaleMatrix := TMatrix.Identity;
    ScaleMatrix.m11 := FScale.X;
    ScaleMatrix.m22 := FScale.Y;
    FLocalMatrix := ScaleMatrix;
    // rotation
    if FRotationAngle <> 0 then
    begin
    M1 := TMatrix.Identity;
    M1.m31 := -FRotationCenter.X * FSize.Width * FScale.X;
    M1.m32 := -FRotationCenter.Y * FSize.Height * FScale.Y;
    M2 := TMatrix.Identity;
    M2.m31 := FRotationCenter.X * FSize.Width * FScale.X;
    M2.m32 := FRotationCenter.Y * FSize.Height * FScale.Y;
    RotMatrix := M1 * (TMatrix.CreateRotation(DegToRad(FRotationAngle)) * M2);
    FLocalMatrix := FLocalMatrix * RotMatrix;
    end;
    // translate
    TranslateMatrix := TMatrix.Identity;
    TranslateMatrix.m31 := FPosition.X;
    TranslateMatrix.m32 := FPosition.Y;
    FLocalMatrix := FLocalMatrix * TranslateMatrix;
    end
    else
    begin
    FLocalMatrix := TMatrix.Identity;
    FLocalMatrix.m31 := FPosition.X;
    FLocalMatrix.m32 := FPosition.Y;
    FLocalMatrix.m11 := FScale.X;
    FLocalMatrix.m22 := FScale.Y;
    end;
    end
    else
    begin
    FLocalMatrix := TMatrix.Identity;
    FLocalMatrix.m31 := FPosition.X;
    FLocalMatrix.m32 := FPosition.Y;
    end;

    RecalcAbsolute;
    RecalcUpdateRect;
    if HasDisablePaintEffect then
    UpdateEffects;
    if Visible and (ParentContent <> nil) then
    ParentContent.Changed;
    if not FAnchorMove then
    begin
    UpdateExplicitBounds;
    UpdateAnchorRules(True);
    end;
    if (not FInPaintTo) and not IsUpdating then
    Repaint;
    end;

    procedure TControl.DoMatrixChanged(Sender: TObject);
    var
    TranslateMatrix, ScaleMatrix, RotMatrix: TMatrix;
    M1, M2: TMatrix;
    begin
    if (not FInPaintTo) and not IsUpdating then
    Repaint;
    if SameValue(FScale.X, 1.0, TEpsilon.Scale) and SameValue(FScale.Y, 1.0, TEpsilon.Scale) and SameValue(FRotationAngle, 0.0, TEpsilon.Scale) then
    begin
    if (FParentControl <> nil) and not FParentControl.FSimpleTransform then
    FSimpleTransform := False
    else
    FSimpleTransform := True;
    end
    else
    FSimpleTransform := False;

    if not FSimpleTransform then
    begin
    if not SameValue(FRotationAngle, 0.0, TEpsilon.Scale) then
    begin
    // scale
    ScaleMatrix := TMatrix.Identity;
    ScaleMatrix.m11 := FScale.X;
    ScaleMatrix.m22 := FScale.Y;
    FLocalMatrix := ScaleMatrix;
    // rotation
    if FRotationAngle <> 0 then
    begin
    M1 := TMatrix.Identity;
    M1.m31 := -FRotationCenter.X * FSize.Width * FScale.X;
    M1.m32 := -FRotationCenter.Y * FSize.Height * FScale.Y;
    M2 := TMatrix.Identity;
    M2.m31 := FRotationCenter.X * FSize.Width * FScale.X;
    M2.m32 := FRotationCenter.Y * FSize.Height * FScale.Y;
    RotMatrix := M1 * (TMatrix.CreateRotation(DegToRad(FRotationAngle)) * M2);
    FLocalMatrix := FLocalMatrix * RotMatrix;
    end;
    // translate
    TranslateMatrix := TMatrix.Identity;
    TranslateMatrix.m31 := FPosition.X;
    TranslateMatrix.m32 := FPosition.Y;
    FLocalMatrix := FLocalMatrix * TranslateMatrix;
    end
    else
    begin
    FLocalMatrix := TMatrix.Identity;
    FLocalMatrix.m31 := FPosition.X;
    FLocalMatrix.m32 := FPosition.Y;
    FLocalMatrix.m11 := FScale.X;
    FLocalMatrix.m22 := FScale.Y;
    end;
    end
    else
    begin
    FLocalMatrix := TMatrix.Identity;
    FLocalMatrix.m31 := FPosition.X;
    FLocalMatrix.m32 := FPosition.Y;
    end;

    RecalcAbsolute;
    RecalcUpdateRect;
    if HasDisablePaintEffect then
    UpdateEffects;
    if Visible and (ParentContent <> nil) then
    ParentContent.Changed;
    if not FAnchorMove then
    begin
    UpdateExplicitBounds;
    UpdateAnchorRules(True);
    end;
    if (not FInPaintTo) and not IsUpdating then
    Repaint;
    end;

  • 相关阅读:
    raid讲解 转
    更换EMC VNX系列存储故障硬盘的检查步骤
    dwarf是怎样处理的栈帧?
    栈帧啊栈帧
    perf record -c
    perf使用的问题,再看perf record,perf record 设置的采样频率,采样频率是如何体现在
    perf中branch-filter到底是干嘛的?
    perf打印调用栈的过程
    再看内核的frace架构, tracepoint宏扩展(二)
    再看内核的frace架构, tracepoint宏扩展
  • 原文地址:https://www.cnblogs.com/h2zZhou/p/10069113.html
Copyright © 2011-2022 走看看