timage

1热度

3回答

我正在使用delphi。我有一个滚动框，我正在把TImage控制。现在我想放大渲染成TImage控件的图像。所以，我正在使用TCanvas的stretchDraw方法。我的代码是 - if sbZoom.Down then begin rct := imgmain.Picture.Bitmap.Canvas.ClipRect; rct := Rect(rct.Left *

1热度

2回答

Delphi 6：如何创建一个带有Alpha通道的TextOut的位图？

我会描述我的总体目标，以防我提出的问题不是以最佳形式获得我正在寻找的答案。我有一个围绕X轴旋转的单词或“单词球”。当字旋转到后面（Z坐标从-1到1，从前到后）时，我打算改变每个单词的大小和不透明度，以便“前”中的单词是100％不透明，全尺寸和单词在后面是更小，有点透明。我宁愿用直接的Delphi代码来做这件事，并避免像Direct3D这样的事情，我已经有了旋转代码工作正常。我只需要实现基于Z坐标的

6热度

1回答

如何加载小型系统图标？

我需要显示错误/警告/信息的16x16像素图标。不幸的是，LoadIcon(0, IDI_*)和LoadImage(0, OIC_*, IMAGE_ICON, 16, 16, LR_SHARED)总是给我32x32版本的图标。我阅读了大约ShGetStockIconInfo，但这只能从Vista开始使用，我仍然需要支持XP。任何想法？如果有问题，我正在使用Delphi 2010和TImage

1热度

2回答

TImage丢失加载的图片

运行Turbo Delphi Pro。我正在使用TImage来显示png图像。当我重新启动Delphi并加载dpr文件时，TImage仍然存在，但图片丢失，需要在编译前重新载入图片。起初我认为这是一个路径问题，所以我加载了与dpr相同的目录下的图片，但没有帮助。我还能试试吗？

0热度

1回答

德尔福6：Alphablending作品之间的子图像和主要画布之间，但不是之间的子图像

我有一个Delphi 6应用程序，其中我有一个TBitmaps数组，每个都包含一个图像（子图像）用clWhite调用FillRect（）以用白色填充TBitmap的画布，然后调用TextOut（）将某些文本打印到位图的画布。我有一个计时器，它更新属于TImage组件的主Canvas，每个Interval数组的内容反映了每个子图像X，Y坐标的变化，因为它们在运动中。首先，我使用FillRect（）

3热度

1回答

德尔福7的TImage和的TImageList

i为整数私人代码 procedure TForm1.Image1Click(Sender: TObject); begin inc(i); ImageList1.GetIcon(i mod 4,Image1.Picture.Icon); end; procedure TForm1.FormCreate(Sender: TObject); begin i:=

3热度

1回答

在Timage组件中加载大图像

我在服务器上有很大的图像。当用户请求任何一个时，我将它们下载到客户机上，一旦完成，我将它加载到Timage控件中。现在客户端要求图像必须以区块（部分）形式出现，并且一旦下载块，它必须在Timage控制中显示，并且一旦其他块下载，它必须附加到先前加载的图像上。我没有得到如何继续相同。我使用Delphi 2006中

2热度

2回答

使用上的TImage

图像映射提取图像（PNG），并显示我试图实现以下目标：假设一个大PNG（背景透明16000 X 70像素），其中包含50个不同的其他PNG文件... 我需要加载该PNG，并从中提取个别PNG（最好是例如有一种函数，我可以说coords（左，顶部，高度，宽度），我想提取的PNG ...提取PNG应该显示在timage然后... 当然，我可以使用GIF图像，再次重新创建动画，但我需要PNG出于某种

5热度

1回答

德尔福2006年：PNG运行时分配到TImage失去了alpha透明度

德尔福2006年的TImage并不完全支持PNG。为了在我的表单上显示具有alpha透明度的图像，我必须在运行时加载它们。我可以在设计时加载它们，但它们不能存活，我认为是因为PNG不保存在DFM文件中。我确信这是最新的Delphi中的所有功能，但我目前无法升级。反正我是在运行时加载他们： Image1.Picture.Assign (PngImageCollection1.Items [0].P

4热度

3回答

在德尔福7

笔记本电脑什么，我试图做我试图绘制多个图形到TImage中，这些图形是我画由具有Foodfills和线有序层的TImage透明胶片。我使用多个缓冲区来确保排序和双缓冲。我在做什么 procedure DrawScene(); var ObjLength,LineLength,Filllength,Obj,lin,angle,i:integer; Npoints : ar