1回答
我将图像绘制到画盒中的函数从两个位置调用，如果从TPagecontrol页面调用它可以很好，但是如果从一个form.formresize(…)调用。)这幅画是画出来的，但在画完之后，漆盒就被重新画成了完全白色。我不知道这是从什么顺序来的--begin
// frist image shown and thenPaintImage2PaintBox(
浏览 3提问于2012-12-19得票数 1
Delphi10.3.3用于Android的Fire猴子应用程序。我在TPaintBox 画布中在OnPaint事件中绘制了许多对象。现在，我需要将PaintBox.Canvas的全部内容保存在位图中，最后保存在文件中。这是怎么做到的？阅读RAD文档，谷歌互联网-找不到解决方案。我创造了在PaintBox OnPaint事件中，我将其命名为drawint：
procedure TF
浏览 2提问于2020-02-28得票数 0
回答已采纳
我有带有TButton和TPaintBox的简单的TButton代码。我有关于这些因素的活动：begin PaintBox1.Color := clYellow; PaintBox<
浏览 4提问于2013-08-28得票数 2
回答已采纳
1回答
好的，首先，我在德尔菲里到处乱跑，对它还很陌生，但我注意到，每当我尝试制作某种游戏，其中W、A、S和D是移动物体(TImage)的按钮时，它就开始随机闪烁，我注意到如果速度快，或者当它移动时，它后面有另一个图像我的大部分“移动”代码如下所示：for I := 1 to 5 do x:=x-2;
Image1.Top如果你能帮忙，我会很高兴的。
浏览 3提问于2015-03-26得票数 0
回答已采纳
我有一个颜料盒，我画了一个这样的TBitmap：begin MyBitMap.Canvas.Lock; PaintBox.Canvas.UnLock;end;
我想从PaintBo
浏览 1提问于2012-06-19得票数 3
回答已采纳
我想要动画一个蓝色的方块在一个面板，使用一个wxTimer。但什么都没发生这里我的代码： self.SetBackgroundColour(wx.Colour(*WHITE_COLOR)) timer.Start(100)
浏览 1提问于2011-10-07得票数 0
回答已采纳
我有一张照片的缩略图。我已经编写了代码，只要用户单击此按钮，就可以在Delphi中重绘此图像。但是，要求用户可以单击缩略图，并可以在表单中的任何位置单击以创建图像。例如，假设我有一个圆圈图像的缩略图，现在用户应该单击这个缩略图，然后单击表单中的某个位置，圆圈就会出现。Shift: TShiftState;X, Y: Integer); Canvas.Ellipse(x-20,y-20,x+20,y+20) ;在单击缩略图之后，在窗体中的某处单击左键时我真的很感谢你的</
浏览 0提问于2011-12-09得票数 2
通常在Delphi中使用GDI+，您可以使用TPaintBox，并在OnPaint事件期间进行绘制： g: TGPGraphics; g := TGPGraphics.Create(PaintBox1.Canvas.Handle); g.DrawImage(FSomeImage, 0, 0); g.Free;end;
这个范例的
浏览 6提问于2009-10-23得票数 4
在我的应用程序(Delphi2007)中，我希望将项目从ListView拖到PaintBox，并突出显示油漆盒的OnPaint处理程序中相应的区域。然而，我总是得到丑陋的工艺品。测试项目：只是创建一个新的VCL应用程序，并用下面的代码替换Unit1.pas中的代码。然后启动应用程序并将列表项拖到PaintBox中的矩形上。;
PaintBox1.OnPaint := P
浏览 3提问于2010-02-09得票数 2
回答已采纳
当用户通过单击选择给定的TImage实例时，我想在该实例周围绘制一个红色矩形。不确定如何继续...
使用Remy Lebeau建议的被接受的解决方案如下所示：
浏览 13提问于2016-08-20得票数 1
回答已采纳
在Delphi中的一个Android应用程序中，我遇到了性能速度问题，使用JSON、XE7和从web检索数据的Fire猴子。我的场景是一个系统排名表，它在运行时与每次迭代一起创建29个控件，有时玩家的数量应该超过90，所以对于每次迭代(90 * 27)，它在运行时创建2610~控件。在Windows平台上测试它花了3秒，但是在一个带有Android的移动平台上，它需要17秒。我知道这会影响应用程序的性能，但我不知道Windows和Android的加载时间有多大差异。那么
浏览 0提问于2015-04-08得票数 0
回答已采纳
2回答
我使用的是Delphi 7，我正在编写的程序需要在屏幕上不断地绘制。虽然它目前没有画出任何重要的东西，但这在以后的程序中是必要的。但是，当我将绘制屏幕的过程放在一个which循环中时，这个循环只能通过按下任何按钮来停止，程序就会完全停止响应。我不明白为什么会这样。当然，由于while循环可以退出，程序应该继续运行良好。
浏览 0提问于2017-11-09得票数 0
回答已采纳
如果我用一个画框和一个滚动条创建一个简单的应用程序，在画框中画一些矩形，并使滚动条改变刷新画框，当我拖动滚动条(在窗体上设置了DoubleBuffer )时，我会得到一个无闪烁的显示：beginend;
var
浏览 10提问于2017-01-01得票数 3
回答已采纳
实际上，我正在尝试编写类似太空入侵者的游戏，而不是使用任何OpenGL或DirectX。所以在背景中，我看到了移动的天空，喷气式飞机在它上面移动。但喷气式飞机令人眼花缭乱，天空的运动也不均匀。这是我的代码 sky.LoadFromFile('sky.bmp'); jet.LoadFromFile
浏览 1提问于2012-03-20得票数 1
回答已采纳
我的意图是在一个侧面有一个PaintBox和几个小图像。然后，我希望能够拖动paintBox中的每个图像并将它们排列在那里，这样以后我就可以保存带有图像排列结果的PaintBox。有可能吗？又是如何做到的？有没有更好的方法？我试着看看我是否可以做一个简
浏览 2提问于2014-10-07得票数 0
)); end;这是编译的，但是如果我这样做并再次调用procedure TForm1.
浏览 5提问于2012-01-19得票数 4
回答已采纳
2回答
我看到我的delphi版本没有TPaintBox的关键事件(OnKeyDown，OnKeyUp，OnKeyPress)事件。我想要处理这样的事情。有没有人为这些事件准备了颜料盒？
浏览 2提问于2011-12-02得票数 0
回答已采纳
我试图画一条1像素的线，但没有成功。我尝试将表单中的Quality参数设置为所有三个可用选项，但这并没有改变结果:始终得到一条带有抗锯齿的行。相反，tRectangle类以某种方式绘制了一个清晰的1像素宽度的边框，这意味着可以禁用抗锯齿模式。问题是如何实现。下面是我使用的代码示例：begin Stroke.Cap := Flat;BeginScen
浏览 26提问于2018-02-22得票数 2
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号