tntdbactns.pas

来自「TNT Components Source」· PAS 代码 · 共 595 行 · 第 1/2 页

  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetPrior.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetPrior.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetPrior.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetPrior.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetNext }

procedure TTntDataSetNext.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetNext.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetNext.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetNext.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetNext.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetNext.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetLast }

procedure TTntDataSetLast.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetLast.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetLast.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetLast.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetLast.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetLast.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetInsert }

procedure TTntDataSetInsert.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetInsert.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetInsert.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetInsert.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetInsert.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetInsert.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetDelete }

procedure TTntDataSetDelete.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetDelete.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetDelete.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetDelete.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetDelete.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetDelete.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetEdit }

procedure TTntDataSetEdit.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetEdit.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetEdit.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetEdit.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetEdit.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetEdit.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetPost }

procedure TTntDataSetPost.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetPost.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetPost.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetPost.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetPost.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetPost.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetCancel }

procedure TTntDataSetCancel.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetCancel.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetCancel.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetCancel.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetCancel.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetCancel.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

{ TTntDataSetRefresh }

procedure TTntDataSetRefresh.Assign(Source: TPersistent);
begin
  inherited;
  TntDBActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntDataSetRefresh.DefineProperties(Filer: TFiler);
begin
  inherited;
  TntPersistent_AfterInherited_DefineProperties(Filer, Self);
end;

function TTntDataSetRefresh.GetCaption: WideString;
begin
  Result := TntAction_GetCaption(Self);
end;

procedure TTntDataSetRefresh.SetCaption(const Value: WideString);
begin
  TntAction_SetCaption(Self, Value);
end;

function TTntDataSetRefresh.GetHint: WideString;
begin
  Result := TntAction_GetHint(Self);
end;

procedure TTntDataSetRefresh.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;

end.