odacdemoframe.pas

来自「Oracle Data Access Components Source Cod」· PAS 代码 · 共 46 行

unit OdacDemoFrame;

interface

uses
{$IFDEF LINUX}
  QControls, QStdCtrls,
{$ELSE}
  Controls, StdCtrls,
{$ENDIF}
{$IFDEF FPC}
  LResources,
{$ENDIF}
  Classes, DemoFrame;

type
  TOdacDemoFrame = class(TDemoFrame)
  public
    procedure SetDirect(Value: boolean); virtual;
  end;

implementation

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

procedure TOdacDemoFrame.SetDirect(Value: boolean);
begin  
end;

{$IFDEF FPC}
initialization
  {$i OdacDemoFrame.lrs}
{$ENDIF}

end.