- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
在 FireMonkey 中,将位图绘制到源矩形非常简单:
Canvas.DrawBitmap(FBitmap, ImageSrcRect, ImageDstRect, 1);
我正在 TPaintBox
的 Canvas 上执行此操作。相反,我想绘制旋转的位图(并缩放,因为目标尺寸可能与源尺寸不同。)
具体:
如下图所示:
左边是我目前能做的;右边是我想做的。
最好的方法是什么?
为了保持现有代码简单(例如,绘制到目标矩形,从而缩放结果),我一直在尝试在调用现有的 DrawBitmap 代码之前将旋转矩阵添加到 Canvas 的矩阵中。例如,
OldMatrix := Canvas.Matrix; // Original, to restore
W := PointB.X - PointA.X;
H := PointA.Y - PointB.Y;
RotationMatrix := TMatrix.CreateRotation(-ArcTan2(H, W));
Canvas.SetMatrix(OldMatrix * RotationMatrix);
Canvas.DrawBitmap(FImage, ImageSrcRect, ImageDstRect, 1);
Canvas.SetMatrix(OldMatrix);
还有一些与现有矩阵相乘的变体,创建一个具有平移和旋转功能的全新矩阵,等等。所有这些部分工作:旋转角度是正确的,但我有让位置保持一致有很多麻烦 - 例如,围绕中心点旋转(这甚至没有围绕该点旋转位图的顶部,而不是围绕中心旋转。)我发现旋转图像在右下象限中偏移得很好,但在其他三个象限中偏移/平移不正确,例如太左,或者剪切到两个点的最左边或最上面的 X 或 Y 位置。我不知道为什么会这样,此时我正在向 SO 寻求帮助。
TPaintBox
Canvas 。绘画框本身可能位于 TScaledLayout
上。最佳答案
据我所知,主要问题是在新的旋转坐标系中找到图片角点的坐标。可以通过以下方式解决:
procedure DrawRotatedBitmap(const Canvas : TCanvas; const Bitmap : TBitmap;
const PointA, PointB : TPointF; const Offset : TPointF; const Scale : Single);
var
OldMatrix, TranslationAlongLineMatrix, RotationMatrix, TranslationMatrix,
ScaleMatrix, FinalMatrix: TMatrix;
W, H : Single;
SrcRect, DestRect: TRectF;
Corner: TPointF;
LineLength : Single;
LineAngleDeg : Integer;
begin
OldMatrix := Canvas.Matrix; // Original, to restore
try
{$ifdef DRAW_HELPERS}
Canvas.Fill.Color := TAlphaColorRec.Black;
Canvas.DrawLine(PointA, PointB, 0.5);
{$endif}
W := PointB.X - PointA.X;
H := PointA.Y - PointB.Y;
LineLength := abs(PointA.Distance(PointB));
// Looking for the middle of the task line
// and the coordinates of the image left upper angle
// solving the proportion width/linelength=xo/0.5requireddimensions
Corner := TPointF.Create((PointB.X + PointA.X) / 2, (PointA.Y + PointB.Y) / 2);// Middle
{$ifdef DRAW_HELPERS}
Canvas.Stroke.Color := TAlphaColorRec.Red;
Canvas.DrawEllipse(TRectF.Create(Corner,2,2),1);
{$endif}
Corner.X := Corner.X - Bitmap.Width / 2 * W / LineLength;
Corner.Y := Corner.Y + Bitmap.Width / 2 * H / LineLength;
{$ifdef DRAW_HELPERS}
Canvas.Stroke.Color := TAlphaColorRec.Green;
Canvas.DrawEllipse(TRectF.Create(Corner,2,2),1);
{$endif}
// Account for scale (if the FMX control is scaled / zoomed); translation
// (the control may not be located at (0, 0) in its parent form, so its canvas
// is offset) and rotation
ScaleMatrix := TMatrix.CreateScaling(Scale, Scale);
TranslationMatrix := TMatrix.CreateTranslation(Offset.X, Offset.Y);
RotationMatrix := TMatrix.CreateRotation(-ArcTan2(H, W));
TranslationAlongLineMatrix := TMatrix.CreateTranslation(Corner.X, Corner.Y);
FinalMatrix := ((RotationMatrix * ScaleMatrix) * TranslationMatrix) * TranslationAlongLineMatrix;
// If in the top left or top right quadrants, the image will appear
// upside down. So, rotate the image 180 degrees
// This is useful when the image contains text, ie is an annotation or similar,
// or needs to always appear "under" the line
LineAngleDeg := Round(RadToDeg(-Arctan2(H, W)));
case LineAngleDeg of
-180..-90,
90..180 : FinalMatrix := TMatrix.CreateRotation(DegToRad(180)) * TMatrix.CreateTranslation(Bitmap.Width, 0) * FinalMatrix;
end;
Canvas.SetMatrix(FinalMatrix);
// And finally draw the bitmap
DestRect := TRectF.Create(PointF(0, 0), Bitmap.Width, Bitmap.Height);
SrcRect := TRectF.Create(0, 0, Bitmap.Width, Bitmap.Height);
{$ifdef DRAW_HELPERS}
Canvas.DrawBitmap(Bitmap, SrcRect, DestRect, 0.5);
{$else}
Canvas.DrawBitmap(Bitmap, SrcRect, DestRect, 1);
{$endif}
finally
// Restore the original matrix
Canvas.SetMatrix(OldMatrix);
end;
end;
有ifdef
-ed的线和点画也可能对你有帮助 - 这些画线和一些有用的点(线中心和图像左上角),这对于调试。
由DavidM编辑:此外,还有平移和缩放矩阵。油漆盒(最终)在父窗体的 Canvas 上绘制,但可能不位于 (0, 0),因此需要考虑目标 Canvas 的偏移位置。此外,控件可以具有缩放功能,因此也需要将其内置到最终的旋转矩阵中。
此代码经过大量编辑,无论方向如何都可以工作/quadrant the line angle is in 。也就是说,当线条完全水平或垂直时,以及在右下角以外的象限中时,它应该起作用。
一个有趣的调整是识别示例中的位图包含文本。当线位于左上或右上象限时(即从原点向上然后向左或向右),位图在人眼看来是上下颠倒的。该调整可以识别这一点并旋转位图,以便位图的“顶部”始终面向线条,而位图的“底部”通常指向下方,使图像显示为正确的向上方向。如果您不需要代表可识别内容的图像(例如符号、文本、标签等),则可以删除此调整
具有不同的角度和缩放比例。
关于delphi - 如何在 FireMonkey 中将图像绘制到旋转的矩形上?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34580357/
这个问题在这里已经有了答案: How to initialize var? (11 个答案) 关闭 8 年前。 我想给一个变量赋初值 null,并在下一个 if-else block 中赋值,但是编
我正在使用 TypeScript 3.8 编写 JS 和 TS 混合的代码。我写了以下行: export * as Easing from './easing'; 应该是 fair game在 Typ
我需要将 R 代码中的“/”更改为“\”。我有这样的事情: tmp <- paste(getwd(),"tmp.xls",sep="/") 所以我的 tmp是 c:/Study/tmp.xls 我希望
我有个问题。例如我有这个: id truth count 1 1 1 2 1 2 3 0 0 4 1 1 5 1 2 6 1
我正在尝试使用“IN”和“=”来查找一些 bean。我目前正在使用此代码: $ids = array(1,2,3,4); $user = 1; $things = R::find( 'thing'
是否可以在 Xcode 中部署到其他人的手机上?我没有 iPhone,但我想测试我在 friend 手机上制作的应用程序。在我支付 99 美元之前,我想确保这不会造成麻烦。 谢谢。 最佳答案 不会有任
我试图得到一个非常大的数字(超过 unsigned long long int )。所以我把它作为一个字符串,然后一个数字一个数字地转换成整数并使用它。 #include #include int
我在 Rust 中有 C 语言库的绑定(bind),但它们并不完整。 在 C 代码中,我定义了一个简化的宏,如下所示: #define MY_MACROS1(PTR) (((my_struct1
我正在努力解决这个问题。 http://jsfiddle.net/yhcqfy44/ 动画应该自动相对于 滚动到顶部每次出现滚动条时的高度。 我已经写了这个,但没有运气: var hheight =
我正在处理一个将数字作为字符串返回的 JSON API。例如 "12" ,但是,该字段值也可以是非数字的,例如:"-" . 我已将 JSON 数据解析为映射,我想将此字段提取为 elixir 中的整数
我正在尝试编写一个类,将.wav文件转换为.aiff文件作为项目的一部分。 我遇到了几个库Alvas.Audio(http://alvas.net/alvas.audio,overview.aspx)
我想在 Lucene 中将像“New York”这样的“复合词”索引为单个术语,而不是像“new”、“york”那样。这样,如果有人搜索“new place”,则包含“new york”的文档将不会匹
我希望这个解释能让我更好地了解使用宏的优点。 最佳答案 在函数中,所有参数在调用之前都会被评估。 这意味着 or 作为函数不能是惰性的,而宏可以将 or 重写为 if 语句,该语句仅在以下情况下计算分
我有一些看起来像这样的 XML foo ]]> (注意 > 登录 "> foo")和 XSLT 样式表 当我运行xsltproc stylesheet.xs
当我尝试将 Any 转换为 List 时,如下面的示例所示,我得到“Unchecked cast: Any!”到列表'警告。有没有解决此类问题的方法? val x: List = objectOfTy
我正在使用 Python 开发一个简单的爬虫。目的是创建一个 sitemap.xml。(你可以在这里找到真正的 alpha 版本:http://code.google.com/p/sitemappy/
我想知道在 VBScript 中是否可以在多行中中断 If 语句。喜欢: If (UCase(Trim(objSheet.Cells(i, a).Value)) = "YES") Or _ (UCas
for (String item : someList) { System.out.println(item); } 使用“do while”是否等效? 谢谢。 最佳答案 如果列表为空,f
这个问题已经有答案了: 已关闭10 年前。 Possible Duplicate: Split string with delimiters in C 在 C 中将“,”分隔的列表拆分为数组的最佳方法
我有一个如下所示的字符数组: [0, 10, 20, 30, 670] 如何将此字符串转换为整数数组? 这是我的数组 int i=0; size_t dim = 1; char* array = (c
我是一名优秀的程序员,十分优秀!