tntstdactns.pas

TNT Components Source

  TntAction_SetHint(Self, Value);
end;

function TTntFileOpen.GetDialog: TTntOpenDialog;
begin
  Result := inherited Dialog as TTntOpenDialog;
end;

function TTntFileOpen.GetDialogClass: TCommonDialogClass;
begin
  Result := TTntOpenDialog;
end;

{ TTntFileOpenWith }

procedure TTntFileOpenWith.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

function TTntFileOpenWith.GetDialog: TTntOpenDialog;
begin
  Result := inherited Dialog as TTntOpenDialog;
end;

function TTntFileOpenWith.GetDialogClass: TCommonDialogClass;
begin
  Result := TTntOpenDialog;
end;

{ TTntFileSaveAs }

procedure TTntFileSaveAs.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

function TTntFileSaveAs.GetDialog: TTntSaveDialog;
begin
  Result := TOpenDialog(inherited Dialog) as TTntSaveDialog;
end;

function TTntFileSaveAs.GetDialogClass: TCommonDialogClass;
begin
  Result := TTntSaveDialog;
end;

{ TTntFilePrintSetup }

procedure TTntFilePrintSetup.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

 {$IFDEF COMPILER_7_UP}

{ TTntFilePageSetup }

procedure TTntFilePageSetup.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

procedure TTntFilePageSetup.SetHint(const Value: WideString);
begin
  TntAction_SetHint(Self, Value);
end;
 {$ENDIF}

{ TTntFileExit }

procedure TTntFileExit.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntSearchAction }

procedure TTntSearchAction.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntSearchFind }

procedure TTntSearchFind.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntSearchReplace }

procedure TTntSearchReplace.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntSearchFindFirst }

procedure TTntSearchFindFirst.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntSearchFindNext }

procedure TTntSearchFindNext.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntFontEdit }

procedure TTntFontEdit.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntColorSelect }

procedure TTntColorSelect.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

{ TTntPrintDlg }

procedure TTntPrintDlg.Assign(Source: TPersistent);
begin
  inherited;
  TntStdActn_AfterInherited_Assign(Self, Source);
end;

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

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

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

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

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

end.