delphi 7 TImage 和 TImageList
让我成为整数私有 代码 procedure TForm1.Image1Click(Sender: TObject) begin inc(i) ImageList1.GetIcon(i mod 4,Image1.Picture.Icon) end procedu…
如何加载系统小图标？
我需要显示 16x16 像素的错误/警告/信息图标。不幸的是，LoadIcon(0, IDI_*) 和 LoadImage(0, OIC_*, IMAGE_ICON, 16, 16, LR_SHARED) 总是给我 32x32…
Delphi 6：字母混合在子图像和主画布之间起作用，但在子图像之间不起作用
我有一个 Delphi 6 应用程序，其中有一个 TBitmap 数组，每个 TBitmap 都包含一个图像（子图像），该图像是通过使用 clWhite 调用 FillRect() 创建的…
Delphi 6：如何通过 TextOut() 方法显示大尺寸高质量文本？
我有一个 TImage 组件，我使用 TCanvas.TextOut() 打印文本字符串。我将 TImage 的高度和宽度设置为较大的尺寸，如 50 像素 X (TextWidth) 像素，并将…
Delphi 6：如何使用具有 Alpha 通道的 TextOut 创建位图？
我将描述我的总体目标，以防我提出的问题不是获得我正在寻找的答案的最佳形式。我有一个围绕 X 轴旋转的单词球体或“单词球”。当单词旋转到后面时（Z…
如何在 TcustomContol 中使用 Picture.LoadFromFile()
我创建了一个从 TcustomControl 派生的 TSkinPanel， 它有一个 FGraphic：TPicture。 FGraphic 绘制在 TSkinPanel 的画布上，如果从 TObject Inspecto…
Delphi 7 笔记本电脑上的 Timage 透明胶片
我正在尝试做什么 我正在尝试将多个图形绘制到 Timage，我绘制的这些图形由带有 Foodfills 和线条的有序图层组成。 我使用多个缓冲区来确保排序和双缓…
使用 ImageMap 提取图像 (PNG) 并在 TImage 上显示
我试图实现以下目标： 假设一个大 png（透明背景 16000 x 70px），其中包含 50 个不同的其他 png 文件... 我需要加载该png并从中提取单个png（最好是…
TImage 和 TScrollBox 的问题
我正在与德尔福合作。 我有一个滚动框，在其中放置 TImage 控件。现在我想缩放渲染到 TImage 控件中的图像。所以，我使用TCanvas的stretchDraw方法。…
使用delphi缩放图像
我正在与德尔福合作。我有 TImage，我为其分配了一个位图。 imgmain.Picture.Bitmap := bmpMain imgmain.Picture.Bitmap.PixelFormat := pf24bit imgm…
TImage 丢失加载的图片
运行 Turbo Delphi Pro。 我正在使用 TImage 来显示 png 图像。 当我重新启动Delphi并加载dpr文件时，TImage仍然存在，但图片丢失了， 需要在编译之前…
如何测试 TImage 是否分配有图形？
我的程序中的表单上有一个 TImage 组件。 在某些情况下，程序必须测试： 如果“有一个图像分配给 TImage 组件的图片属性”，那么... 我该怎么做？…
Delphi 中可以很好地缩放图像吗？
我正在使用 Delphi 2009，我想缩放图像以适应可用空间。显示的图像始终小于原始图像。问题是 TImage Stretch 属性效果不佳，并且损害了图片的可读性。…
我可以直接检索 TPicture 的文件名吗？
我有一个 Delphi 应用程序，它使用 TImage 显示图像。 图像的位置存储在数据库中，在加载时检索并直接使用类似于下面的代码进行设置： Image1.Picture…
