fetch.pas

Oracle Data Access Components Source Code ODAC v.6.70.0.45

unit Fetch;

interface

uses
{$IFDEF LINUX}
  Types, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QDBCtrls, QComCtrls,
  QExtCtrls, QGrids, QDBGrids, OdacClx,
{$ELSE}
  Windows, Messages, Graphics, Controls, Forms, Dialogs, DBCtrls, ExtCtrls,
  Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, OdacVcl,
{$ENDIF}
{$IFDEF FPC}
  LResources,
{$ENDIF}
  SysUtils, Classes;

type
  TFetchForm = class(TForm)
    Label1: TLabel;
    btCancel: TButton;
    procedure btCancelClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FetchForm: TFetchForm;

implementation

{$IFNDEF FPC}
{$IFDEF CLR}
{$R *.nfm}
{$ENDIF}
{$IFDEF WIN32}
{$R *.dfm}
{$ENDIF}
{$IFDEF LINUX}
{$R *.xfm}
{$ENDIF}
{$ENDIF}

procedure TFetchForm.btCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFetchForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
{$IFNDEF LINUX}
  if Key = VK_ESCAPE then
    Close;
{$ENDIF}
end;

initialization
{$IFDEF FPC}
{$I Fetch.lrs}
{$ENDIF}

end.