⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 iextratransitions.pas

📁 ·ImageEn 2.3.0 ImageEn一组用于图像处理、查看和分析的Delphi控件。能够保存几种图像格式
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
{------------------------------------------------------------------------------}
{                                                                              }
{  Based on code from TCustomPicShow v3.07 (PSEffect.pas)                      }
{  by Kambiz R. Khojasteh                                                      }
{                                                                              }
{  kambiz@delphiarea.com                                                       }
{  http://www.delphiarea.com                                                   }
{                                                                              }
{  Thank you to Kambiz for allowing the use of his code in ImageEn             }
{                                                                              }
{  Code was modified for use in ImageEn 9 Nov. 2004                            }
{  by Nigel Cross                                                              }
{                                                                              }
{  nigel@xequte.com                                                            }
{  http://www.xequte.com                                                       }
{                                                                              }
{  XEQUTE CHANGES:                                                             }
{  - Change procedures to write to canvas rather than screen                   }
{  - Removed transitions that are duplicated in ImageEn or incompatible        }
{  - Renamed transitions to be more consistent with standards naming           }
{  - Changed order of transitions to match those in ImageEn                    }
{  - Added names for ImageEn transitions so all names can be retrieved via     }
{      the IETransitionList array                                              }
{  - Other changes required to integrate with ImageEn                          }
{                                                                              }
{                                                                              }  
{                                                                              }
{  Kambiz would also like to thank:                                            }
{  :: <k3nx@hotmail.com> for help on D5 support.                               }
{  :: Douglass Titjan <support@delphipages.com> for help on D5 support.        }
{  :: Jerry McLain <jkmclain@srcaccess.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).        }
{  :: Ken Otto <ken.otto@enviros.com> for adding native JPG support to         }
{     TDBPicShow and fixing a memory leak bug.                                 }
{  :: Gary Bond <gary.bond@tesco.net> for name of the transitions.             }
{  :: Viatcheslav V. Vassiliev <vvv@spacenet.ru> for optimizing the            }
{     thread's termination.                                                    }
{  :: Miguel Gastelumendi Dargent <mgd@satelier.com.br> for fixing the         }
{     possible off-screen problem on the first time transition.                }
{  :: Terry Bogard <voyage_technologies@yahoo.com> for fixing the bug in       }
{     choosing transition style by name.                                       }
{                                                                              }
{------------------------------------------------------------------------------}

{$IFDEF VER150}
  {$DEFINE DELPHI7}
  {$DEFINE DELPHI7_UP}
  {$DEFINE DELPHI6_UP}
  {$DEFINE DELPHI5_UP}
  {$DEFINE DELPHI4_UP}
  {$DEFINE DELPHI3_UP}
  {$DEFINE DELPHI2_UP}
  {$DEFINE DELPHI1_UP}
{$ENDIF}

{$IFDEF VER140}
  {$DEFINE DELPHI6}
  {$DEFINE DELPHI6_UP}
  {$DEFINE DELPHI5_UP}
  {$DEFINE DELPHI4_UP}
  {$DEFINE DELPHI3_UP}
  {$DEFINE DELPHI2_UP}
  {$DEFINE DELPHI1_UP}
{$ENDIF}

{$IFDEF VER130}
  {$DEFINE DELPHI5}
  {$DEFINE DELPHI5_UP}
  {$DEFINE DELPHI4_UP}
  {$DEFINE DELPHI3_UP}
  {$DEFINE DELPHI2_UP}
  {$DEFINE DELPHI1_UP}
{$ENDIF}

{$IFDEF VER120}
  {$DEFINE DELPHI4}
  {$DEFINE DELPHI4_UP}
  {$DEFINE DELPHI3_UP}
  {$DEFINE DELPHI2_UP}
  {$DEFINE DELPHI1_UP}
{$ENDIF}

{$IFDEF VER100}
  {$DEFINE DELPHI3}
  {$DEFINE DELPHI3_UP}
  {$DEFINE DELPHI2_UP}
  {$DEFINE DELPHI1_UP}
{$ENDIF}

{$IFDEF VER90}
  {$DEFINE DELPHI2}
  {$DEFINE DELPHI2_UP}
  {$DEFINE DELPHI1_UP}
{$ENDIF}

{$IFDEF VER80}
  {$DEFINE DELPHI1}
  {$DEFINE DELPHI1_UP}
{$ENDIF}

{$I ie.inc}

{$R-}

unit ieXtraTransitions;

interface

{$ifdef IEINCLUDEEXTRATRANSITIONS}

uses
  Windows, Messages, SysUtils, Classes, Graphics;

type
  TEffectProc = procedure(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
    Step: Integer; Progress: Integer);

procedure Effect001(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect002(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);  
procedure Effect003(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect004(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect007(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect008(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect009(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect010(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect011(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect012(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect013(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect014(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect015(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect016(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect017(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect018(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect019(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);    
procedure Effect020(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect021(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect024(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect025(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect026(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect027(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect028(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect029(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect030(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect031(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect032(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect033(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect034(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect035(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect036(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect037(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect038(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect043(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect044(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect045(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect046(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect047(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect048(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect049(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect050(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect051(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect055(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect056(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect057(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect058(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect059(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect060(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect061(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect062(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect063(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect064(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect065(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect066(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect067(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect068(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect069(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect070(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect071(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect072(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect073(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect074(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect075(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect076(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect077(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect078(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect079(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect080(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect081(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect082(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect083(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect084(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect085(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect086(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect087(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect088(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect089(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect090(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect091(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect092(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect093(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect094(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect095(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect096(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect097(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect098(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect099(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect100(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect101(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect102(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect103(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect104(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect105(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect106(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect107(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect108(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect109(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect110(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect111(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect112(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect113(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect114(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect115(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect116(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect117(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect123(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
procedure Effect124(DestCanvas:TCanvas; Screen, Image: TBitmap; const Rect: TRect;
  Step: Integer; Progress: Integer);
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -