- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
问题是:我在桌面上绘制一些矩形,当鼠标移动时(矩形大小增加)我没有滞后、伪影等,一切都很好:
但是当我将矩形大小调整为低于原来的大小时,我得到了以下结果:
红色矩形是真正的矩形,所有其他都是错误。
完美的解决方案是重新绘制 Canvas ,但我不能在鼠标移动时一直这样做。
鼠标移动后绝对停止时是否有解决方案?
更新
代码:
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm2 = class(TForm)
Timer1: TTimer;
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure FormCreate(Sender: TObject);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
isDown: Boolean;
downX, downY: Integer;
public
{ Public declarations }
Bild: TBitMap;
end;
implementation
{表单 Prop :边框style= bsNoneAlphaBlend 真实,150透明颜色 = true, clBlack}
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
Bild := TBitMap.Create;
end;
procedure TForm2.FormDestroy(Sender: TObject);
begin
Bild.Free;
end;
procedure TForm2.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
isDown := true;
downX := X;
downY := Y;
end;
procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
const
cVal = 4;
begin
if isDown then
begin
Self.Canvas.Lock;
Self.Repaint;
Self.Canvas.Pen.Color := clNone;
Self.Canvas.Pen.Width := 1;
Self.Canvas.Pen.Style := psDot;
//Self.Canvas.Pen.Mode := pmNotCopy;
Self.Canvas.Brush.Color := clGreen;
Self.Canvas.Rectangle(downX, downY, X, Y);
Self.Canvas.Pen.Style := psSolid;
Self.Canvas.Brush.Color := clNone;
Self.Canvas.Unlock;
{ Self.Canvas.Rectangle(downX - cVal, downY - cVal, downX + cVal, downY + cVal);
Self.Canvas.Rectangle(X - cVal, Y - cVal, X + cVal, Y + cVal);
Self.Canvas.Rectangle(X - cVal, downY - cVal, X + cVal, downY + cVal);
Self.Canvas.Rectangle(downX - cVal, Y - cVal, downX + cVal, Y + cVal);
Self.Canvas.Rectangle(downX - cVal, (downY + Y) div 2 - cVal, downX + cVal,
(downY + Y) div 2 + cVal);
Self.Canvas.Rectangle(X - cVal, (downY + Y) div 2 - cVal, X + cVal,
(downY + Y) div 2 + cVal);
Self.Canvas.Rectangle((downX + X) div 2 - cVal, downY - cVal,
(downX + X) div 2 + cVal, downY + cVal);
Self.Canvas.Rectangle((downX + X) div 2 - cVal, Y - cVal, (downX + X) div 2 + cVal,
Y + cVal); }
end;
end;
function CaptureRect(aRect: TRect; out aBmp: TBitmap): Boolean;
var
ScreenDC: HDC;
begin
Result := False;
try
with aBmp, aRect do
begin
Width := Right - Left;
Height := Bottom - Top;
ScreenDC := GetDC(0);
try
BitBlt(Canvas.Handle, 0, 0, Width, Height, ScreenDC, Left, Top, SRCCOPY);
finally
ReleaseDC(0, ScreenDC);
end;
end;
except
end;
end;
procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
r: TRect;
begin
isDown := false;
r.Left := downX;
r.Top := downY;
r.Right := X;
r.Bottom := Y;
CaptureRect(r, Bild);
Self.Close;
end;
end.
最佳答案
你的问题是你画错了地方。在 OnMouseMove 事件处理程序中停止绘画。将绘画代码移至绘画处理程序。例如表单的 OnPaint
处理程序。
然后,在 OnMouseMove
事件处理程序以及 OnMouseDown
和 OnMouseUp
中,调用表单上的 Invalidate
,或 Win32 InvalidateRect
函数,强制执行绘制周期。
关于delphi - 如何及时重新绘制 Canvas ?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24931706/
我可以使用两种方法添加一个 child ,一种是 Canvas.AddVisualChild(Visual); Canvas.AddLogicalChild(Visual); 我在视觉对象的 Draw
在过去的几周里,我一直在尝试各种方法,试图找到将 BDD 用于依赖于 HTML5 Canvas 元素以及用户与之交互的 Web 应用程序的最佳方法。 我一直在使用 Jasmine 和 Cucumber
我正在尝试完成撤消/重做。我正在使用loadFromJSON(...)从我存储在数组中的 Canvas 状态重新构建 Canvas 。基本上,我的想法是破坏现有的 Canvas 并重新构建 Canva
我正在尝试在 Canvas 上设置简单的放大/缩小功能。我正在使用 KineticJS 处理触摸事件并在 Canvas 中绘图,但无法实现缩放。 KinteicJS 有一个类似的例子,但它们总是在中心
我正在使用 processing.js 在 javascript 中开发一个画笔应用程序 它正在使用 Canvas 对象。我想在 Canvas 的背景中保留一个图像。在前景中画一些东西。在保存时,我只
您好,我想为 discord.js Bot 安装 Canvas 。 当我尝试使用以下命令安装 Canvas 时npm install canvas我收到以下错误: pi@server:~/Bots/D
我正在尝试使用 Canvas 和动力学的组合来构建填充图案,但在尝试获得连续线时遇到了问题。 此 jsfiddle显示了到目前为止我所拥有的,但是因为我的重复模式是正方形,角会影响线条,我尝试使用 l
我正在开发一个 webassembly 程序。 我可以使用 emscripten_set_canvas_size 设置 Canvas 大小(我一直读到我需要切换到新的 API,因为这个 API 会贬值
您好,我已经为第一个 Canvas 中的第一个图像创建了一个圆形表单,但我没有成功使用第一个 Canvas 的 dataURL 并将其添加到第二个 Canvas 中。 这是我的 fiddle :htt
问题在于不同浏览器之间的不一致。 使用Dart Chrome,JS Chrome,JS Opera运行 双击可以进入和退出全屏 m_oCanvas.width =(window.screen.widt
我正在使用Flutter框架和Dart开发图像编辑器,因此无法将矩阵滤镜应用于 Canvas 。 我正在尝试使用“Paint”类和“canvas.drawPaint(paint)”函数将矩阵过滤器应用
如果在已经具有非整数比例因子的 Canvas 上绘制图像,我会遇到 Canvas 上下文drawImage()方法的问题。似乎这样的图像以一种奇怪的方式被剪切(有时图像的最右边的部分被剪切,有时是最底
Canvas 的“宽度”属性值有限制吗? 在下面的示例中,我在 ScrolledWindow 中创建一个 Canvas。 # Packages package require BWidget # Ma
我正在尝试制作类似于 this article 底部的效果的文本效果 我建议的方法是: 制作两个 Canvas ,一个是可见的,另一个是不可见的我用它作为缓冲区。 在缓冲区 Canvas 上绘制一些文
例如var new = canvas.toDataURL("image/png"); 我希望这个新变量中存在的 base64 显示到存在的第二个 Canvas 元素中。但是它不使用 drawimage
有人有使用这两个 Node.js 库中的一个或两个的经验吗?很想知道每个人的成功或困难。 最佳答案 LearnBoost是社区中最多产的 Node 模块开发人员之一,因此我选择使用 node-canv
如何知道 Canvas 运行的是“WebGL”还是普通 Canvas ? 通过检查源代码,我发现这两种情况都是 Canvas 。 最佳答案 这真的取决于你想如何去发现。 例如你可以这样调用 `getC
在 Canvas 上绘图非常好。甚至橡皮擦也能正常工作。问题是,当 Canvas 保存为图像时,它绘制的是黑线而不是橡皮擦。 为了更好地理解,我添加了屏幕截图和代码。 1。在删除绘图时 - 一个。源代
我正在尝试为 Canvas 附加鼠标悬停和鼠标移出事件: 默认 Canvas 是函数drawcircle的 Canvas 。 如果用户越过 Canvas ,应将其更改为drawEllipse的 Can
我正在使用 Three.js 构建一个简单的 2D 游戏。我只使用世界的 X 和 Y 位置来移动对象,将它们的 z 位置保留为零。我使用禁用旋转的 TrackballControls,以允许使用右键单
我是一名优秀的程序员,十分优秀!