u_generate3.pas

sybase大全

unit u_generate3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,u_generate4,u_generate5;

type
  Tf_form3 = class(TForm)
    btn_help: TButton;
    btn_back: TButton;
    btn_next: TButton;
    btn_cancel: TButton;
    Image1: TImage;
    r_horizontal: TRadioButton;
    r_vertical: TRadioButton;
    r_grid: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label4: TLabel;
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_backClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure r_horizontalClick(Sender: TObject);
    procedure r_gridClick(Sender: TObject);
    procedure r_verticalClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure btn_helpClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    action :smallint;
  end;

var
  f_form3: Tf_form3;

implementation

{$R *.DFM}

procedure Tf_form3.btn_cancelClick(Sender: TObject);
begin
  action:=3;
  close;
end;

procedure Tf_form3.btn_backClick(Sender: TObject);
begin
  action:=1;
  close;
end;

procedure Tf_form3.FormActivate(Sender: TObject);
begin
  btn_next.setfocus;
end;

procedure Tf_form3.r_horizontalClick(Sender: TObject);
begin
  image1.picture:=image2.picture;
end;

procedure Tf_form3.r_gridClick(Sender: TObject);
begin
  image1.picture:=image3.picture;
end;

procedure Tf_form3.r_verticalClick(Sender: TObject);
begin
  image1.picture:=image4.picture;
end;

procedure Tf_form3.btn_nextClick(Sender: TObject);
begin
  action:=2;
  if r_vertical.checked then
  begin
    f_form4.showmodal;
    if f_form4.action=3 then
    begin
      action:=3;
      close;
    end
    else
    if f_form4.action=4 then
    begin
      action:=4;
      close;
    end;
  end
  else
  begin
    f_form5.showmodal;
    if f_form5.action=3 then
    begin
      action:=3;
      close;
    end
    else
    if f_form5.action=4 then
    begin
      action:=4;
      close;
    end;
  end;
end;

procedure Tf_form3.btn_helpClick(Sender: TObject);
begin
  action:=0;
end;

end.