35 lines
948 B
ObjectPascal
35 lines
948 B
ObjectPascal
{ *************************************************************************** }
|
|
{ }
|
|
{ Jadro pluginu 2 Asseco Solutions }
|
|
{ }
|
|
{ *************************************************************************** }
|
|
|
|
unit plgQuery;
|
|
|
|
interface
|
|
|
|
uses
|
|
dxmdaset, DB;
|
|
|
|
type
|
|
TplgQuery = class(TdxMemData)
|
|
public
|
|
// zmena viditelnosti - abych mohl shodit DataSet.Modified
|
|
procedure SetModified(Value: Boolean);
|
|
end;
|
|
|
|
{ =========================================================================== }
|
|
|
|
implementation
|
|
|
|
{ ########################################################################### }
|
|
|
|
procedure TplgQuery.SetModified(Value: Boolean);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
{ ########################################################################### }
|
|
|
|
end.
|