unit XYSize;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, Menus, StdCtrls, Spin, RxGrdCpt, TB97Ctls;

type
  TXYSize1 = class(TForm)
    MainMenu1: TMainMenu;
    Size1: TMenuItem;
    N160by120: TMenuItem;
    N320by240: TMenuItem;
    N640by480: TMenuItem;
    N800by600: TMenuItem;
    N1024by768: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    SpinWidth: TSpinEdit;
    SpinHeight: TSpinEdit;
    N80by60: TMenuItem;
    RxGradientCaption1: TRxGradientCaption;
    ApplyButton: TToolbarButton97;
    procedure N160by120Click(Sender: TObject);
    procedure N320by240Click(Sender: TObject);
    procedure N640by480Click(Sender: TObject);
    procedure N800by600Click(Sender: TObject);
    procedure N1024by768Click(Sender: TObject);
    procedure N80by60Click(Sender: TObject);
    procedure ApplyButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XYSize1: TXYSize1;

implementation

uses ktaza;

{$R *.DFM}

procedure TXYSize1.N80by60Click(Sender: TObject);
begin
  SpinWidth.Value := 80;
  SpinHeight.Value := 60;
end;

procedure TXYSize1.N160by120Click(Sender: TObject);
begin
  SpinWidth.Value := 160;
  SpinHeight.Value := 120;
end;

procedure TXYSize1.N320by240Click(Sender: TObject);
begin
  SpinWidth.Value := 320;
  SpinHeight.Value := 240;
end;

procedure TXYSize1.N640by480Click(Sender: TObject);
begin
  SpinWidth.Value := 640;
  SpinHeight.Value := 480;
end;

procedure TXYSize1.N800by600Click(Sender: TObject);
begin
  SpinWidth.Value := 800;
  SpinHeight.Value := 600;
end;

procedure TXYSize1.N1024by768Click(Sender: TObject);
begin
  SpinWidth.Value := 1024;
  SpinHeight.Value := 768;
end;

procedure TXYSize1.ApplyButtonClick(Sender: TObject);
begin
  ktaza.TP01Click(Self);
end;

end.