dfwpicshow.pas

dfw控件组V0.62

{******************************************************************************}
{          This unit is part of the Delphifreeware component package.          }                                                                              
{                                                                              }
{ Filename           : DFWPicShow.pas                                          }
{ Short description  :                                                         }
{ Author             : Kambiz R. Khojasteh                                     }
{ E-Mail             : [e-mail]                                 }
{ Internet           : http://www.crosswinds.net/~khojasteh/                   }
{ Version            : 2.3                                                     }
{ Date last modified : 27th Feb 2000                                           }
{ Delphi versions    : Delphi 3, 4, and 5                                      }
{                                                                              }
{                                                                              }
{ Add. Copyright     :                                                         }
{                                                                              }
{ Description        :                                                         }
{                                                                              }
{ Usage              :                                                         }
{                                                                              }
{ Revision history   : 2.2  -Memory leak bug fixed                             }
{                      2.2  -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.                                  }
{                      2.11 -A minor bug fixed                                 }
{                      2.1  -5 new effects added (now 122 effects)             }
{                           -Known bugs fixed                                  }
{                      2.0  -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           }
{                      1.5  -now is Delphi 3.0 compatible                      }
{                           -Icon support added                                }
{                      1.4  -Thanks to M. R. Zamani for his 8 new effects      }
{                            (now 117 effects)                                 }
{                           -reported bugs fixed                               }
{                      1.3  -new BgMode and BgPicture properties               }
{                           -32 new effects added (now 109 effects)            }
{                           -thread management improved                        }
{                      1.2  -new Empty property                                }
{                           -new OnChange event                                }
{                           -new Stop method                                   }
{                           -30 new effects (now 77 effects)                   }
{                           -all known bugs fixed                              }
{                      1.1  -new Busy property                                 }
{                           -some bugs fixed                                   }
{                      1.0  -Initial release with 47 effects                   }
{                                                                              }
{ This unit contains the following                                             }
{ Components       : TDFWPicShow                                               }
{ Classes          : TDFWPicShowComponentEditor                                }
{ Types            : HRgn, TShowStyle, TPercent, TBackgroundMode,              }
{                    TCustomDrawEvent, TAbout                                  }
{ Constants        : RegionStyles                                              }
{ Global variables :                                                           }
{ Global procedures:                                                           }
{ Global functions :                                                           }
{                                                                              }
{******************************************************************************}
{                                                                              }
{  DFW and Delphifreeware