moref.pas

Delphi编程实效百例的随书程序 这是其中的界面操作部分

unit MoreF;

interface

uses
  Windows, Classes, Graphics, Forms,
  Controls, ConfDial, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ConfigureButton: TButton;
    Image1: TImage;
    Image2: TImage;
    procedure ConfigureButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ConfigureButtonClick(Sender: TObject);
begin
  ConfigureDialog.CheckBox1.Checked := image1.Visible;
  ConfigureDialog.CheckBox2.Checked := image2.Visible;
  if (image2.height=75) and (image2.width=75) then
    ConfigureDialog.RadioGroup1.itemindex:=0
  else
    ConfigureDialog.RadioGroup1.ItemIndex:=1;
  if (ConfigureDialog.ShowModal = mrOk) then
    begin
      Image1.Visible := ConfigureDialog.CheckBox1.Checked;
      Image2.Visible := ConfigureDialog.CheckBox2.Checked;
      if ConfigureDialog.RadioGroup1.ItemIndex=0 then
        begin
        image2.Left:=110;
        image2.Top:=60;
        image2.Height:=75;
        image2.Width:=75;
        end
      else if ConfigureDialog.RadioGroup1.ItemIndex=1 then
        begin
        image2.Top:=15;
        image2.Left:=70;
        image2.Height:=150;
        image2.Width:=150;
        end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.LoadFromFile('1.bmp');
image2.Picture.loadfromfile('2.bmp');
end;

end.