求控件 Delphi的 TScrollText 控件和TBitmap

modyaj 2010-12-14 08:17:49

如题
邮箱：modyaj@163.com
QQ:502439251

急用啊大哥们给力啊！！！！

...全文

113 6 打赏收藏转发到动态举报

写回复

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

modyaj 2010-12-16

打赏
举报

回复

我之前就去过的啦可是没有找到控件谁能将他们发给我啊邮箱号在上面

yuanmeibin 2010-12-16

打赏
举报

回复

很多网站上都可以看到的，我发到你邮箱去了，你看看吧。

haitao 2010-12-16

打赏
举报

回复

TBitmap是标准控件
TScrollText有什么效果？看名称好像很容易自己实现一个？

sg_knight 2010-12-15

打赏
举报

回复

http://www.delphifans.com/这个网站可以下载。

modyaj 2010-12-15

打赏
举报

回复

盒子里面的不是下载不了就是用不了

亮剑_ 2010-12-14

打赏
举报

回复

TBitmap是VCL中的类，在Graphics单元中
TScrollText是第三方控件，盒子上有

delphi 7 gif控件 unit GIFImage; //////////////////////////////////////////////////////////////////////////////// // // // Project: GIF Graphics Object // // Module: gifimage // // Description: TGraphic implementation of the GIF89a graphics format // // Version: 2.2 // // Release: 5 // // Date: 23-MAY-1999 // // Target: Win32, Delphi 2, 3, 4 & 5, C++ Builder 3 & 4 // // Author(s): anme: Anders Melander, anders@melander.dk // // fila: Filip Larsen // // rps: Reinier Sterkenburg // // Copyright: (c) 1997-99 Anders Melander. // // All rights reserved. // // Formatting: 2 space indent, 8 space tabs, 80 columns. // // // //////////////////////////////////////////////////////////////////////////////// // Changed 2001.07.23 by Finn Tolderlund: // // Changed according to e-mail from "Rolf Frei" // // on 2001.07.23 so that it works in Delphi 6. // // // // Changed 2002.07.07 by Finn Tolderlund: // // Incorporated additional modifications by Alexey Barkovoy (clootie@reactor.ru) // found in his Delphi 6 GifImage.pas (from 22-Dec-2001). // // Alexey Barkovoy's Delphi 6 gifimage.pas can be downloaded from // // http://clootie.narod.ru/delphi/download_vcl.html // // These changes made showing of animated gif files more stable. The code // // from 2001.07.23 could crash sometimes with an Execption EAccessViolation. // // // // Changed 2002.10.06 by Finn Tolderlund: // // Delphi 7 compatible. // // // // Changed 2003-03-06 by Finn Tolderlund: // // Changes made as a result of postings in borland.public.delphi.graphics // // from 2003-02-28 to 2003-03-05 where white (255,255,255) in a bitmap // // was converted to (254,254,254) in the gif. // // The doCreateOptimizedPaletteFromSingleBitmap function and // // the CreateOptimizedPaletteFromManyBitmaps function is changed so that // // the correct offset 246 is used instead of 245. // // The ReduceColors function is changed according to Anders Melander's post // // so that a colour get converted to the precise colour if that colour is // // present in the palette when using ColorReduction rmQuantize. // // // // Changed 2003-03-09 by Finn Tolderlund: // // Delphi 7 version is now assumed if unknown compiler version is unknown // // for better compatibility with future Delphi versions. // // Hopefully this code is now compatible with future Delphi versions, // // unless Borland makes some changes that breaks existing code. // // // // Changed 2003-08-04 by Finn Tolderlund: // // Changed procedure AddMaskOnly so that it doesn't leak a GDI HBitmap-object // // and it doesn't release the handle of the source bitmap which // // is used to assign to the GIF object as in gif.assign(bm); // // These changes were made as a result of a news post made by Renate Schaaf // // with the subject "TGifImage HBitmap leak on assign?" // // in borland.public.delphi.graphics on Mon 28 Jul 2003 and Sun 03 Aug 2003. // // // // Changed 2004.03.09 by Finn Tolderlund: // // Added a ForceFrame property to the TGIFImage class. // // The ForceFrame property can be used to make TGIFImage display a apecific // // sub frame from an animated gif. // // How to use: Set the Animate property to False and set the ForceFrame // // property to a desired frame number (0-N) // // Normal display: Set the ForceFrame property to -1 and set Animate to True. // // If ForceFrame is negative TGIFImage behaves just as before this change. // // Note that if the sub frame in the gif only contains part of the image // // (i.e. only the changes from previous frames) the result is unpredictable. // // The result is best if each sub frame contains a whole image. // // If the sub frame is transparent the background is not automatically // // restored, you must do so yourself if you want that. // // If you are using a TImage to display the gif you can use // // Image.Parent.Invalidate or Image.Parent.Refresh to restore the background. // // This change was made as a result of a email correspondance with // // Tineke Kosmis (http://www.classe.nl/) which requested such a property. // // // //////////////////////////////////////////////////////////////////////////////// // // // Please read the "Conditions of use" in the release notes. // // // //////////////////////////////////////////////////////////////////////////////// // Known problems: // // * The combination of buffered, tiled and transparent draw will display the // background incorrectly (scaled). // If this is a problem for you, use non-buffered (goDirectDraw) drawing // instead. // // * The combination of non-buffered, transparent and stretched draw is // sometimes distorted with a pattern effect when the image is displayed // smaller than the real size (shrinked). // // * Buffered display flickers when TGIFImage is used by a transparent TImage // component. // This is a problem with TImage caused by the fact that TImage was designed // with static images in mind. Not much I can do about it. // //////////////////////////////////////////////////////////////////////////////// // To do (in rough order of priority): // { TODO -oanme -cFeature : TImage hook for destroy notification. } // { TODO -oanme -cFeature : TBitmap pool to limit resource consumption on Win95/98. } // { TODO -oanme -cImprovement : Make BitsPerPixel property writable. } // { TODO -oanme -cFeature : Visual GIF component. } // { TODO -oanme -cImprovement : Easier method to determine DrawPainter status. } // { TODO -oanme -cFeature : Import to 256+ color GIF. } // { TODO -oanme -cFeature : Make some of TGIFImage's properties persistent (DrawOptions etc). } // { TODO -oanme -cFeature : Add TGIFImage.Persistent property. Should save published properties in application extension when this options is set. } // { TODO -oanme -cBugFix : Solution for background buffering in scrollbox. }

Graphics32图像控件最新版（V1.9.1加修正）是专门用于Windows Bitmap快速绘图构件及函式库，能够轻易制作半透明、多图层、缩放、Alpha混合、角度旋转等多种图像效果。带有六个控件：TPaintBox32, TImage32, TBitmap32List, TRangeBar, TGaugeBar, TImgView32 含源码和示例程序。安装时建议先Build你所需Delphi版本的BPL，然后再install，并注意将添加源码路径到Lib路径设置中。

Graphics32图像控件是专门用于Windows Bitmap快速绘图构件及函式库，能够轻易制作半透明视觉效果，可以作出图层效果，缩放，Alpha混合，角度旋转等多种图像效果。带有六个控件：TPaintBox32, TImage32, TBitmap32List, TRangeBar, TGaugeBar, TImgView32包含源码和例子。

DirectUI控件的基类，不直接使用，主要实现了为控件创建32位画布、渲染图像、提供一系列动画方法等等功能； ## TJDUIGraphicsControl 父类为TJDUIControl，继承此类并重写绘制方法可创建自己的DirectUI控件。 ~~~pascal type TJDUIImageView = class(TJDUIGraphicsControl) private FImageFile: String; protected procedure PaintSelf(ATargetBitmap: TBitmap32); override; public procedure LoadImage(AImageFile: String); end; implementation procedure TJDUIImageView.PaintSelf(ATargetBitmap: TBitmap32); begin //在 ATargetBitmap 上绘制即可，此处仅做示例 ATargetBitmap.LoadFrom

Graphics32图像控件是专门用于Windows Bitmap快速绘图构件及函式库，能够轻易制作半透明视觉效果，可以作出图层效果，缩放，Alpha混合，角度旋转等多种图像效果。带有六个控件： TPaintBox32, TImage32, TBitmap32List, TRangeBar, TGaugeBar, TImgView32 包含源码和例子。

5,386

社区成员

262,729

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章