tntstdactns.pas

来自「TNT Components Source」· PAS 代码 · 共 1,923 行 · 第 1/4 页

  Result := TntAction_GetHint(Self);
end;

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

{ TTntWindowClose }

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

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

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

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

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

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

{ TTntWindowCascade }

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

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

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

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

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

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

{ TTntWindowTileHorizontal }

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

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

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

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

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

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

{ TTntWindowTileVertical }

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

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

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

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

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

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

{ TTntWindowMinimizeAll }

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

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

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

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

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

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

{ TTntWindowArrange }

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

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

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

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

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

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

{ TTntHelpAction }

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

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

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

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

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

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

{ TTntHelpContents }

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

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

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

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

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

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

{ TTntHelpTopicSearch }

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

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

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

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

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

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

{ TTntHelpOnHelp }

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

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

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

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

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

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

{ TTntHelpContextAction }

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

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

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

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

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

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

{ TTntCommonDialogAction }

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

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

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

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

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

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

{ TTntFileAction }

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

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

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

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

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

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

{ TTntFileOpen }

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

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

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

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

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

procedure TTntFileOpen.SetHint(const Value: WideString);
begin