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;

  • 相关阅读:
    [HDOJ1800]Flying to the Mars
    [HDOJ5058]So easy
    HDU 2819 — Swap 二分匹配
    POJ1236
    Codeforces Round #267 (Div. 2) C. George and Job DP
    codeforces Round #263(div2) D. Appleman and Tree 树形dp
    HDU 4345 Permutation dp
    HDU 4349 Xiao Ming's Hope lucas定理
    HDU 4342History repeat itself 数学
    HDU 4341 分组背包
  • 原文地址:https://www.cnblogs.com/h2zZhou/p/10069113.html
Copyright © 2011-2022 走看看