fangd.txt

来自「delphi程序代码」· 文本 代码 · 共 60 行

procedure TFormPageEdit.Zoom_In(Img: TImage; const Times: Integer);       //图片放大函数
var
	Bmp :TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp.Width := Img.Picture.Bitmap.Width * Times;
  Bmp.Height := Img.Picture.Bitmap.Height * Times;
  StretchBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,
    Img.Picture.Bitmap.Canvas.Handle, 0, 0, Img.Picture.Bitmap.Width,
    Img.Picture.Bitmap.Height, SRCCOPY);
  Img.AutoSize := True;
  Img.Picture.Bitmap.Assign(Bmp);
  Bmp.Free;
end;

procedure TFormPageEdit.Button3Click(Sender: TObject);
begin
	Zoom_In(ImagePageEdit, 2);           //图片放大两倍
end;

procedure TFormPageEdit.BmpZoom_In(Bmp: TBitmap; const Times: Integer);
begin

end;


procedure TFormPageEdit.Zoom_Out(Img: TImage; const Times: Integer);       //图片缩小函数
var
	Bmp :TBitmap;
begin
  Bmp := TBitmap.Create;
  Bmp.Width := Img.Picture.Bitmap.Width div Times;
  Bmp.Height := Img.Picture.Bitmap.Height div Times;
  StretchBlt(Bmp.Canvas.Handle, 0, 0, Bmp.Width, Bmp.Height,
  	Img.Picture.Bitmap.Canvas.Handle, 0, 0, Img.Picture.Bitmap.Width,
    Img.Picture.Bitmap.Height, SRCCOPY);
  Img.AutoSize :=True;
  Img.Picture.Bitmap.Assign(Bmp);
  Bmp.Free;
end;


procedure TFormPageEdit.Button5Click(Sender: TObject);
begin
	Zoom_Out(ImagePageEdit, 2);           //图片缩小两倍
end;

procedure TFormPageEdit.FormCreate(Sender: TObject);
var DBini:Tinifile;
begin
       //不使用配置文件
     //  UnitBooks.FormBooks.ADOConnectionBook.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.Exename)+'DataBase\page.mdb;Persist Security Info=False';
       //使用配置文件
    {   DBini:=TInifile.create('DB.ini');
       PhotoADOConnection.ConnectionString:=DBini.readstring('DB','ConnectionString','');
       DBini.free();      }
       if not UnitBooks.FormBooks.ADOConnectionBook.Connected  then
            UnitBooks.FormBooks.ADOConnectionBook.Open;

end;