如何在设计界面的时候加入更多格式的图片(如GIF(有动画效果的)JPG)等 (50分)

  • 主题发起人 问题大王
  • 开始时间

问题大王

Unregistered / Unconfirmed
GUEST, unregistred user!
有没有什么工具让我的DELPHI截面更漂亮
 
请使用Rxlib http://rx.demo.ru
 
关于JPEG,只要 uses中加入 JPEG就行
JPEG单元里是有一个TJPEGImage类,可定义一变量如Jpeg,用LoadFromFile调
入某个JPEG文件, 然后用Form的Canvas.Draw(x,y,Jpeg)即可显示.
 
1.D4中
USES JPEG
JPEG1 := tJPEGIMAGE.CREATE
PICTURE1.DRAW(X,Y,jpeg1)
2.有关这方面的控件,看ftp://www.cumt.edu.cn /pub/incomming/delphi/component
中的有关控件
或者大富翁站的FTP://WWW.GISLAB.ECNU.EDU.CN 用interface,label , Form ,button
检索到的有关构件
3.Tjpegimage部分源程序:
procedure TForm1.SetJPEGOptions(Sender: TObject);
var
Temp: Boolean;
begin
Temp := Image1.Picture.Graphic is TJPEGImage;
if Temp then
with TJPEGImage(Image1.Picture.Graphic)do
begin
PixelFormat := TJPEGPixelFormat(Self.PixelFormat.ItemIndex);
Scale := TJPEGScale(Self.Scale.ItemIndex);
Grayscale := Boolean(Colorspace.ItemIndex);
Performance := TJPEGPerformance(Self.Performance.ItemIndex);
ProgressiveDisplay := Self.ProgressiveDisplay.Checked;
end;
Scale.Enabled := Temp;
PixelFormat.Enabled := Temp;
Colorspace.Enabled := Temp;
Performance.Enabled := Temp;
ProgressiveDisplay.Enabled := Temp
and TJPEGImage(Image1.Picture.Graphic).ProgressiveEncoding;
Image1.IncrementalDisplay := IncrementalDisplay.Checked;
end;

 
Jpeg从 Delphi 3 就支持了,
GIF 涉及版权问题你得自己找控件(现在有很多了,效果也多多)
界面漂亮不只是有多少图片的问题,还涉及程序需求、整体布局
滥用图片浪费系统资源,不算好的程序员。
就象这个网页,没有用一张图片,也蛮好看,也很明快。
 
我有一个GIF控件,你要不要?
 
有许多这样的控件!
到相关站点找一下!
 
用gifimage,支持动画Gif(已经回答过的 问题))
地址:http://www.melander.dk/delphi/gifimage/
TGIFImage is a full TGraphic implementation of the GIF graphics format.
It reads, writes and displays animated GIFs and can
convert to and from the BMP format and any other
format supported by TGraphic (e.g TJPEGImage,
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部