unit3.~pas

这是一个简单Delphi应用开发实例

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls, BusinessSkinForm,
  jpeg, QuickRpt, QRCtrls,Printers, XPMan;

type
  Tpicfrm = class(TForm)
    GroupBox1: TGroupBox;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ImageList1: TImageList;
    Panel1: TPanel;
    Image1: TImage;
    PrintDialog1: TPrintDialog;
    XPManifest1: TXPManifest;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }

  public

    { Public declarations }
  end;

var
  Picfrm:TPicfrm;
  w,h,l,t:integer;

implementation

uses Unit1, Unit2, Unit4;

{$R *.dfm}

procedure Tpicfrm.ToolButton1Click(Sender: TObject);
begin
  if (image1.Top <> Panel1.Top) and (image1.Left <> panel1.Left) then
  begin
    Image1.width := Image1.width + 50;
    Image1.Height := Image1.Height + 50;
    Image1.Top := (panel1.Height - Image1.Height) div 2;
    Image1.Left := (Panel1.Width - Image1.Width) div 2;
  end;
end;

procedure Tpicfrm.FormShow(Sender: TObject);
begin
  Image1.Picture := Main.Image1.Picture;
  w := image1.Width;
  h := image1.Height;
  t := image1.Top;
  l := image1.Left;
end;

procedure Tpicfrm.ToolButton2Click(Sender: TObject);
begin
  Image1.AutoSize := False;
  Image1.Stretch := True;
  Image1.width := Image1.width - 50;
  Image1.Height := Image1.Height - 50;
  Image1.Top := (panel1.Height - Image1.Height) div 2;
  Image1.Left := (Panel1.Width - Image1.Width) div 2;
end;

procedure Tpicfrm.ToolButton3Click(Sender: TObject);
begin
  image1.Width := w;
  image1.Height := h;
  image1.Top := t;
  image1.Left := l;
end;

procedure Tpicfrm.ToolButton5Click(Sender: TObject);
begin
  Close;
end;

procedure Tpicfrm.ToolButton4Click(Sender: TObject);
begin
  if (Main.TreeView1.Selected.Text = '通讯目录') then
  begin
    Showmessage('请选择联系人！');
    exit;
  end else
  ylfrm.QRImage1.Picture := Picfrm.Image1.Picture;
  ylfrm.QRLabel1.Caption := Main.TreeView1.Selected.Text;
  ylfrm.QRImage1.Height := ylfrm.QRImage1.Height - 50;
  ylfrm.QRImage1.Width := ylfrm.QRImage1.Width - 50;
  ylfrm.QRImage1.Top := (ylfrm.QRBand2.Height - ylfrm.QRImage1.Height) div 2;
  ylfrm.QRImage1.Left := (ylfrm.QRBand2.Width - ylfrm.QRImage1.Width) div 2;
  ylfrm.QuickRep1.Preview;
end;

end.