78 lines
2.3 KiB
ObjectPascal
78 lines
2.3 KiB
ObjectPascal
unit uViewEpigrafe;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
|
DBCtrls, Grids, DBGrids, uBizEpigrafes, Mask, ComCtrls, uCustomView,
|
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
|
cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
|
|
cxImageComboBox, cxMaskEdit, cxCalendar, ActnList, ImgList, PngImageList;
|
|
|
|
type
|
|
IViewEpigrafe = interface(IViewBase)
|
|
['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
|
|
function GetEpigrafe: IBizEpigrafe;
|
|
procedure SetEpigrafe(const Value: IBizEpigrafe);
|
|
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
|
end;
|
|
|
|
TfrViewEpigrafe = class(TfrViewBase, IViewEpigrafe)
|
|
DADataSource: TDADataSource;
|
|
dxLayoutControlEpigrafeGroup_Root: TdxLayoutGroup;
|
|
dxLayoutControlEpigrafe: TdxLayoutControl;
|
|
dxLayoutControlEpigrafeGroup1: TdxLayoutGroup;
|
|
dxLayoutControlEpigrafeItem3: TdxLayoutItem;
|
|
eReferencia: TcxDBTextEdit;
|
|
dxLayoutControlEpigrafeItem1: TdxLayoutItem;
|
|
eDescripcion: TcxDBTextEdit;
|
|
dxLayoutControlEpigrafeItem2: TdxLayoutItem;
|
|
eEpigrafe: TcxDBTextEdit;
|
|
dxLayoutControlEpigrafeItem4: TdxLayoutItem;
|
|
BitBtn1: TBitBtn;
|
|
dxLayoutControlEpigrafeGroup2: TdxLayoutGroup;
|
|
LargeImages: TPngImageList;
|
|
png: TActionList;
|
|
actElegirEpigrafe: TAction;
|
|
procedure actElegirEpigrafeExecute(Sender: TObject);
|
|
protected
|
|
FEpigrafe: IBizEpigrafe;
|
|
function GetEpigrafe: IBizEpigrafe;
|
|
procedure SetEpigrafe(const Value: IBizEpigrafe);
|
|
public
|
|
property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewEpigrafes }
|
|
|
|
{
|
|
******************************* TfrViewEpigrafes ********************************
|
|
}
|
|
|
|
procedure TfrViewEpigrafe.actElegirEpigrafeExecute(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
//
|
|
end;
|
|
|
|
function TfrViewEpigrafe.GetEpigrafe: IBizEpigrafe;
|
|
begin
|
|
Result := FEpigrafe;
|
|
end;
|
|
|
|
procedure TfrViewEpigrafe.SetEpigrafe(const Value: IBizEpigrafe);
|
|
begin
|
|
FEpigrafe := Value;
|
|
if Assigned(FEpigrafe) then
|
|
DADataSource.DataTable := FEpigrafe.DataTable
|
|
else
|
|
DADataSource.DataTable := NIL;
|
|
end;
|
|
|
|
end.
|
|
|