PICSHOW25
所属分类:界面编程
开发工具:Delphi
文件大小:186KB
下载次数:79
上传日期:2005-07-12 14:20:32
上 传 者:
intermaster
说明: PicShow可以帮您将整个文件夹里头的图像,逐一显示在画面上,供大家兴赏。其主要的功能有:1.支持常见的文件格式,如JPEG、BMP、TIFF、GIF、PNG、PSD、TGA、PCX等;2.可直接播放声音或音乐格式,如WAV、MIDI、MP3、RA、RMI、AIFF、AU等;3.使用者可自行设定展示图片时的参数;4.提供线上操作手册及自动模式。
(PicShow can help you to a whole bunch of folders of images, each show on the picture for everyone- tours. Its main functions are : 1. Support for common file formats, such as JPEG, BMP, TIFF, GIF, PNG, PSD, TGA, PCX; 2. Direct broadcast sound or music formats, including WAV, MIDI, MP3, RA, RMI, AIFF, AU; 3. users can set their own display pictures of the parameters; 4. providing online operations manual and automatic mode.)
文件列表:
Demo\Main.dfm (3737, 2000-06-14)
Demo\Main.pas (8267, 2000-04-04)
Demo\PSDemo.dpr (313, 2000-09-04)
Demo\PSDemo.res (876, 2000-06-12)
Demo\Splash.dfm (352108, 2000-09-04)
Demo\Splash.pas (2517, 2000-09-04)
Demo\T-1.jpg (14958, 1998-04-07)
Demo\T-2.jpg (18837, 1998-04-07)
Demo\T-3.jpg (15999, 1998-04-07)
Demo\T-4.jpg (27594, 1998-04-07)
Demo\T-5.jpg (29589, 1998-04-07)
PicShow.pas (60921, 2000-09-07)
PSReg.dcr (1012, 2000-06-16)
PSReg.pas (4648, 2000-09-07)
TPicShow and TDBPicShow v2.5 for Delphi
---------------------------------------
Autor: Kambiz R. Khojasteh
E-mail: khojasteh@mail.com
Web: http://www.crosswinds.net/~khojasteh/
Special thanks to:
k3nx@hotmail.com for help on D5 support.
Douglass Titjan (support@delphipages.com) for help on D5 support.
Jerry McLain (jkmclain@cyberstation.net) for manual control idea.
M. R. Zamani (M_R_Zamani@yahoo.com) for adding 8 effects (110..117).
Elliott Shevin (ShevinE@aol.com) for adding 4 effects (123..126).
TPicShow is an image slider component for Delphi 3, 4, and 5. It can display images
with 127 transitional effects. TPicShow can use a separate thread for its process.
TDBPicShow is data-aware version of TPicShow. TDBPicShow has all properties and events
of TPicShow except OnChange property and has three new properties AutoDisplay,
DataFiled, and DataSource. Also, Picture property of TDBPicShow is not published.
Important note: TPicShow and TDBPicShow defined as non-windowed controls. If you see
flickering on transition of images, please define WINCONTROL compiler symbol in
PicShow.pas.
I N S T A L L A T I O N
-----------------------
To install TPicShow add following files into a new or existing package:
1. PSReg.pas
2. PicShow.pas
K E Y P R O P E R T I E S
--------------------------
* AutoDisplay: Boolean (TDBPicShow only)
Determines whether to automatically display the contents of a graphic BLOB in the
database control.
* AutoSize: Boolean
Automatically sizes the component to the size of the image if set.
* BgMode: TBackgroundMode (added on v1.3)
TBackgroundMode = (bmNone, bmTiled, bmStretched, bmCentered)
Determines how to display control its background image.
* BgPicture: TPicture (added on v1.3)
This is the background image.
* Busy: Boolean (Readonly) (added on v1.1)
Determines whether control is animating or not.
* Center: Boolean
When the component is larger than the image it will be centered within the control
boundaries if this property is set.
* Color: TColor
Determines the background color of the control.
* DataField: String; (TDBPicShow only)
Specifies the field from which the database image displays data.
* DataSource: TDataSource; (TDBPicShow only)
Links the control to a dataset.
* Delay: Word (added on v2.0)
Determines delay in miliseconds between two frames. The time of creating and drawing of
frame will be subtracted from this time.
* Empty : Boolean (ReadOnly) (added on v1.2)
This is True when no image is loaded.
* Manual : Boolean (added on v2.0)
When this property set to True, animation will be controled by Progress property.
For manual control, call Execute method, change the progress value and finally
call Stop method.
* Picture: TPicture (Published in TPicShow only)
This is the image itself. Execute method shows the image with the selected style.
* Progress: 0..100 (added on v2.0)
This property holds the current position of the animation. When Busy is False,
changing of this property has not effect.
* Reverse: Boolean (added on v2.2)
When this property is true, animation plays as reverse.
* Stretch: Boolean
When the component is larger than the image it will be stretched to fit within the
component boundaries if this property is set to True.
* StretchFine: Boolean (added on v2.0)
When the Stretch is true, setting this property to true cause the image stretch with
its acpect ratio.
* Step: Word
This property determines the amount of progress increment for next frame.
* Style: TShowStyle
This property determines effect of animation and can be any number between 0 to 127.
In special case if style set to zero, the control use OnCustomDraw event to display
the image.
* Threaded: Boolean
If this property set to true, the control use a separate thread for its process.
* ThreadPriority: Boolean (added on v2.0)
This property determines the priority of the thread.
K E Y E V E N T S
------------------
* OnAfterNewFrame: TCustomDrawEvent (added on v2.31)
TCustomDrawEvent = procedure(Sender: TObject; Picture, Screen: TBitmap) of object;
This event is triggered just after creating a new frame and before painting the
frame on the control.
* OnBeforeNewFrame: TCustomDrawEvent (added on v2.31)
TCustomDrawEvent = procedure(Sender: TObject; Picture, Screen: TBitmap) of object;
This event is triggered just before creating a new frame.
* OnChange: TNotifyEvent (added on v1.2) (TPicShow only)
This event is triggered when picture property has been changed.
* OnComplete: TNotifyEvent
This event is triggered just after image displayed completely.
If Stop method has been called and Progress is less than 100%, this event will not fire.
* OnProgress: TNotifyEvent (added on v2.0)
This event is triggered just after drawing a new frame.
* OnCustomDraw: TCustomDrawEvent (added on v2.0)
TCustomDrawEvent = procedure(Sender: TObject; Picture, Screen: TBitmap) of object;
If Style property set to 0, TpicShow will trigger this event when it needs a new frame.
The Picture parameter is the original image, the Screen parameter is a bitmap that you
should update it.
If OnCustomDraw remain unassigned, default handler ignores the progress value and draw
the image completely.
* OnMouseEnter: TNotifyEvent
This event is triggered just after mouse comes over the control
* OnMouseLeave: TNotifyEvent
This event is triggered just after mouse leaves the control
M E T H O D S
-------------
* procedure Execute;
Shows the image with the specified style.
To see the image at design time use commands on shortcut menu of the control.
* procedure Clear;
Clears the client area of the control with background. This method does not clear
image that assigned to picture property.
* procedure Stop; (added on v1.2)
Stops the running animation.
H I S T O R Y
-------------
* Version 2.5 - 7th Sep 2000
- 5 new effects added (now 127 effects) (Thanks to Elliott Shevin for 4 of these effects)
- Component editor improved
* Version 2.4 - 16th Jun 2000
- TDBPicShow is data-aware version of TPicShow that has been added to this version
of the component pack.
* Version 2.4 - 16th Jun 2000
- TDBPicShow is data-aware version of TPicShow that has been added to this version
of the component pack.
* Version 2.32 - 14th Jun 2000
- Before this version, TPicShow only was a windowed control. Now, TPicShow can be a
windowed or non-windowed control by defineing or undefining a compiler conditional
symbol (WINCONTROL). As default it is a non-windowed control.
* Version 2.31 - 12nd Jun 2000
- Two new events OnBeforeNewFrame and OnAfterNewFrame added.
* Version 2.3 - 27th Feb 2000
- Memory leak bug fixed
* Version 2.2 - 6th Feb 2000
- Now, all styles can be played as reverse. In previous versions, reducing the progress
for some styles had not effect.
- Reverse property added
- OnMouseEnter and OnMouseLeave events added
- Sorry, because of some major changes in this release, UpdateRgn parameter of
OnCustomDraw had not meaning and removed.
- I also have added some comments to the source of demo appication.
* Version 2.11 - 1st Feb 2000
- A minor bug fixed
* Version 2.1 - 31st Jan 2000
- 5 new effects added (now 122 effects)
- Property editors placed in a separate unit. (Delphi 5 consideration)
- Known bugs fixed
* Version 2.0 - 12 Dec 1999
- Manual animation control added (Thanks to Jerry McLain for this idea)
- Now all animation styles play the image with an equal speed
- Stretch can hold the image aspect ratio
- Delay, Manual, Progress, StretchFine, and ThreadPriority properties added
- OnCustomDraw and OProgress events added
* Version 1.5 - 17 Nov 1999
- now is Delphi 3.0 compatible
- Icon support added
* Version 1.4 - 16 Nov 1999
- 8 new effects added (now 117 effects) (Thanks to M. R. Zamani for these effects)
- reported bugs fixed
* Version 1.3 - 11 Nov 1999
- new BgMode and BgPicture properties
- 32 new effects added (now 109 effects)
- thread management improved
* Version 1.2 - 9 Nov 1999
- new Empty property
- new OnChange event
- new Stop method
- 30 new effects (now 77 effects)
- all known bugs fixed
* Version 1.1 - 6 Nov 1999
- new Busy property
- some bugs fixed
* Version 1.0 - 5 Nov 1999
- Initial release with 47 effects
This component is freeware and may be used in any software product (free or commercial)
under the condition that I'm given proper credit (title, name and email address in the
documentation or the About box of the product this control is used in).
If you have problems, suggestions, bug reports mail me.
Excuse me for my bad English.
Good luck!
Kambiz
近期下载者:
相关文件:
收藏者: