【delphi源码】实现图片翻转的源码

实现图片翻转的源码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ExtDlgs, StdCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
btnOpen: TButton;
btnApply: TButton;
OpenPictureDialog1: TOpenPictureDialog;
procedure btnOpenClick(Sender: TObject);
procedure btnApplyClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnOpenClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
procedure TForm1.btnApplyClick(Sender: TObject);
var
Bitmap:TBitmap;
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(Image1.Picture.Bitmap);
StretchBlt(Bitmap.Canvas.Handle,0,0,Image1.Width,Image1.Height,
Image1.Canvas.Handle,Image1.Width,0,-1*Image1.Width,
Image1.Height,SRCCOPY);
Image1.Canvas.Draw(0,0,Bitmap);
Bitmap.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.AutoSize:=true;
Image1.Stretch:=false;
OpenPictureDialog1.Filter:='BMP files(*.bmp)|*.bmp';
end;
end.

---

上一篇：【delphi源码】设置桌面图标的前景色和背景色

下一篇:第4周说课安排