23 lines
377 B
ObjectPascal
23 lines
377 B
ObjectPascal
|
unit SelectStorageUnit;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, StdCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TSelectStorage = class(TForm)
|
||
|
|
GroupBox1: TGroupBox;
|
||
|
|
rbDBStorage: TRadioButton;
|
||
|
|
rbUnboundStorage: TRadioButton;
|
||
|
|
Button1: TButton;
|
||
|
|
Button2: TButton;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|