david
e4d0fcb01d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@46 b6239004-a887-0f4b-9937-50029ccdca16
55 lines
1.5 KiB
ObjectPascal
55 lines
1.5 KiB
ObjectPascal
unit uDAIDEData;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ Data Abstract Library - IDE Library }
|
|
{ }
|
|
{ compiler: Delphi 6 and up, }
|
|
{ platform: Win32, Linux }
|
|
{ }
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
|
{ }
|
|
{ Using this code requires a valid license of the Data Abstract }
|
|
{ which can be obtained at http://www.remobjects.com. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$IFDEF MSWINDOWS}
|
|
{$I ..\DataAbstract.inc}
|
|
{$ELSE}
|
|
{$I ../DataAbstract.inc}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF DELPHI5}Forms,{$ENDIF}
|
|
{$IFDEF FPC}LResources,{$ENDIF}
|
|
SysUtils, Classes, ImgList, Controls, Dialogs;
|
|
|
|
|
|
type
|
|
TDAIdeData = class(TDataModule)
|
|
iml_Actions: TImageList;
|
|
dlg_OpenBriefcase: TOpenDialog;
|
|
dlg_SaveBriefcase: TSaveDialog;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
const
|
|
ICON_REGENERATE = 1;
|
|
ICON_IMPORT = 2;
|
|
ICON_MAKESERVER = 3;
|
|
|
|
implementation
|
|
{$IFNDEF FPC}
|
|
{$R *.dfm}
|
|
{$ENDIF FPC}
|
|
|
|
{$IFDEF FPC}
|
|
initialization
|
|
{$I uDAIDEData.lrs}
|
|
{$ENDIF}
|
|
end.
|