bjszfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 117 行

unit bjszfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, jpeg, Mask, Buttons;

type
  Tbjsz = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    OpenDialog1: TOpenDialog;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Image2: TImage;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SpeedButton4: TSpeedButton;
    Edit1: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bjsz: Tbjsz;

implementation

uses mainfrm,datafrm, yfglszhfrm;
{$R *.dfm}

procedure Tbjsz.SpeedButton1Click(Sender: TObject);
begin
if not fileexists(bjsz.Edit1.Text) then
  messagebox(bjsz.Handle,'没有选择背景图片。','营房工作管理系统',16)
else
  begin
  main.Image1.Picture.LoadFromFile(bjsz.Edit1.Text);
  yfglszh.szh.Edit;
  yfglszh.szh.Fields[1].AsString:=bjsz.Edit1.Text;
  yfglszh.szh.Post;
  close;
  end;
end;

procedure Tbjsz.SpeedButton2Click(Sender: TObject);
begin
main.Image1.Picture:=bjsz.Image2.Picture;
yfglszh.szh.Edit;
yfglszh.szh.Fields[1].AsString:='';
yfglszh.szh.Post;
end;

procedure Tbjsz.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure Tbjsz.RadioButton1Click(Sender: TObject);
begin
bjsz.Image1.Stretch:=false;
bjsz.Image1.Repaint;
bjsz.ScrollBox1.HorzScrollBar.Range:=bjsz.Image1.Width;
bjsz.ScrollBox1.VertScrollBar.Range:=bjsz.Image1.Height;
end;

procedure Tbjsz.RadioButton2Click(Sender: TObject);
begin
bjsz.Image1.Stretch:=true;
bjsz.Image1.Width:=bjsz.ScrollBox1.Width-4;
bjsz.Image1.Height:=bjsz.ScrollBox1.Height-4;
bjsz.Image1.Repaint;
bjsz.ScrollBox1.HorzScrollBar.Range:=0;
bjsz.ScrollBox1.VertScrollBar.Range:=0;
end;

procedure Tbjsz.SpeedButton4Click(Sender: TObject);
begin
bjsz.OpenDialog1.Execute;
if bjsz.OpenDialog1.FileName<>'' then
  begin
  bjsz.Edit1.Text:=bjsz.OpenDialog1.FileName;
  bjsz.Image1.Picture.LoadFromFile(bjsz.Edit1.Text);
  if bjsz.RadioButton1.Checked then
    begin
    bjsz.Image1.Stretch:=false;
    bjsz.Image1.Repaint;
    bjsz.ScrollBox1.HorzScrollBar.Range:=bjsz.Image1.Width;
    bjsz.ScrollBox1.VertScrollBar.Range:=bjsz.Image1.Height;
    end;
  if bjsz.RadioButton2.Checked then
    begin
    bjsz.Image1.Stretch:=true;
    bjsz.Image1.Repaint;
    bjsz.Image1.Width:=bjsz.ScrollBox1.Width-4;
    bjsz.Image1.Height:=bjsz.ScrollBox1.Height-4;
    bjsz.ScrollBox1.HorzScrollBar.Range:=0;
    bjsz.ScrollBox1.VertScrollBar.Range:=0;
    end;
  end;
end;

end.