图形效果（Graphic effect）.docVIP

图形效果（Graphic effect） 程序n25click（发件人：TObject）； 程序n26click（发件人：TObject）； 程序n18click（发件人：TObject）； 程序n3click（发件人：TObject）； 程序n49click（发件人：TObject）； 程序n42click（发件人：TObject）； 程序n40click（发件人：TObject）； 程序n41click（发件人：TObject）； 程序n38click（发件人：TObject）； 程序n44click（发件人：TObject）； 程序n45click（发件人：TObject）； 程序n46click（发件人：TObject）； 程序n47click（发件人：TObject）； 私有的 {私人声明} 公众的 {公共声明} 结束； VaR 1：发生一事件； hdc1，hdc2：HDC； k：整数； w，h，i，j：整数； //位图：TBitmap； rect1，rect2，rect3：道； 实施 使用； { $ R * DFM }。 程序发生一事件。n4click（发件人：TObject）； 开始 如果openpicturedialog1执行之后。 开始 N7。启用：=真； N12。启用：=真； N17。启用：=真； N20。启用：=真； N23启用：=真； N28。启用：=真； N31。启用：=真； N32。启用：=真； 33启用：=真； 34。启用：=真； N35。启用：=真； N36。启用：=真； 37启用：=真； 38启用：=真； 39。启用：=真； N42。启用：=真； 43。启用：=真； 48启用：=真； 照片1.图片。LoadFromFile（openpicturedialog1。文件名）； 照片1.可见：=真； 1。重画； 结束； 结束； 程序发生一事件。formshow（发件人：TObject）； 开始 N7。启用：= false； N12。启用：= false； N17。启用：= false； N20。启用：= false； N23。启用：= false； N28。启用：= false； N31。启用：= false； N32。启用：= false； 33。启用：= false； 34。启用：= false； N35。启用：= false； N36。启用：= false； 37。启用：= false； 38。启用：= false； 39。启用：= false； N42。启用：= false； 43。启用：= false； 48。启用：= false； 结束； 程序发生一事件。n6click（发件人：TObject）； 开始 如果messagedlg（程序即将结束，是否确认？”，mtconfirmation，[ mbyes，MbNO ]，0）= mryes 然后 应用程序终止； 结束； 程序发生一事件。n34click（发件人：TObject）； VaR newbmp1：Tbitmap； I1、J1、bmpheight1，bmpwidth1：整数； 开始 照片1.可见：=真； 1。重画； newbmp1：= tbitmap.create； newbmp1。宽度：= image1.width； newbmp1。高度：= image1.height； bmpheight1：= image1.height； bmpwidth1：= image1.width； I1：= bmpheight1降至1 J1：= 1，I1做 开始 newbmp1。帆布。copyrect（矩形（0，J1-1、bmpwidth1，J1），照片1.帆布、矩形（0，1-1， bmpwidth1，I1））； 帆布画（395109，newbmp1）； 结束； newbmp1。自由； 结束； 程序发生一事件。n33click（发件人：TObject）； VaR newbmp：Tbitmap； 我，J，bmpheight，bmpwidth：整数； 开始 照片1.可见：=真； 1。重画； newbmp：= tbitmap.create； newbmp。宽度：= image1.width； newbmp。高度：= image1.height； bmpheight：= image1.height； bmpwidth：= image1.width； 我：= bmpheight； 当我0岁时 开始 对于J = 10，我做 开始 newbmp。帆布。copyrect（矩形（0，I-20，bmpwidth，J）， 照片1.帆布， 矩形（0，I-20，bmpwidth，我））； 帆布画（395109，newbmp）； 结束； 我：= I-20； 结束； newbmp.f