tntextactns.pas

TNT Components Source

    TTabAction(Action).Wrap            := TTabAction(Source).Wrap;
    TTabAction(Action).BeforeTabChange := TTabAction(Source).BeforeTabChange;
    TTabAction(Action).AfterTabChange  := TTabAction(Source).AfterTabChange;
    TTabAction(Action).OnValidateTab   := TTabAction(Source).OnValidateTab;
  end;
  // TNextTab
  if (Action is TNextTab) and (Source is TNextTab) then begin
    TNextTab(Action).LastTabCaption := TNextTab(Source).LastTabCaption;
    TNextTab(Action).OnFinish       := TNextTab(Source).OnFinish;
  end;
  // TURLAction
  if (Action is TURLAction) and (Source is TURLAction) then begin
    TURLAction(Action).URL := TURLAction(Source).URL;
  end;
  // TBrowseURL
  if (Action is TBrowseURL) and (Source is TBrowseURL) then begin
    {$IFDEF COMPILER_7_UP}
    TBrowseURL(Action).BeforeBrowse := TBrowseURL(Source).BeforeBrowse;
    TBrowseURL(Action).AfterBrowse  := TBrowseURL(Source).AfterBrowse;
    {$ENDIF}
  end;
  // TDownloadURL
  if (Action is TDownloadURL) and (Source is TDownloadURL) then begin
    TDownloadURL(Action).FileName           := TDownloadURL(Source).FileName;
    {$IFDEF COMPILER_7_UP}
    TDownloadURL(Action).BeforeDownload     := TDownloadURL(Source).BeforeDownload;
    TDownloadURL(Action).AfterDownload      := TDownloadURL(Source).AfterDownload;
    {$ENDIF}
    TDownloadURL(Action).OnDownloadProgress := TDownloadURL(Source).OnDownloadProgress;
  end;
  // TSendMail
  if (Action is TSendMail) and (Source is TSendMail) then begin
    TSendMail(Action).Text := TSendMail(Source).Text;
  end;
  // TListControlAction
  if (Action is TListControlAction) and (Source is TListControlAction) then begin
    TListControlAction(Action).ListControl := TListControlAction(Source).ListControl;
  end;
  // TListControlCopySelection
  if (Action is TListControlCopySelection) and (Source is TListControlCopySelection) then begin
    TListControlCopySelection(Action).Destination := TListControlCopySelection(Source).Destination;
  end;
end;

//-------------------------
//    TNT EXT ACTNS
//-------------------------

{ TTntCustomFileRun }

procedure TTntCustomFileRun.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntFileRun }

procedure TTntFileRun.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditAction }

procedure TTntRichEditAction.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditBold }

procedure TTntRichEditBold.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditItalic }

procedure TTntRichEditItalic.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditUnderline }

procedure TTntRichEditUnderline.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditStrikeOut }

procedure TTntRichEditStrikeOut.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditBullets }

procedure TTntRichEditBullets.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditAlignLeft }

procedure TTntRichEditAlignLeft.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditAlignRight }

procedure TTntRichEditAlignRight.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntRichEditAlignCenter }

procedure TTntRichEditAlignCenter.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntTabAction }

procedure TTntTabAction.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntPreviousTab }

procedure TTntPreviousTab.Assign(Source: TPersistent);
begin
  inherited;
  TntExtActn_AfterInherited_Assign(Self, Source);
end;

procedure TTntPreviousTab.DefineProperties(Filer: TFiler);
begin
  inherited;