summaryrefslogtreecommitdiff
path: root/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas')
-rw-r--r--plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas92
1 files changed, 0 insertions, 92 deletions
diff --git a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas b/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas
deleted file mode 100644
index 2528c42ffb..0000000000
--- a/plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas
+++ /dev/null
@@ -1,92 +0,0 @@
-
-{*****************************************************************************}
-{ }
-{ Tnt Delphi Unicode Controls }
-{ http://www.tntware.com/delphicontrols/unicode/ }
-{ Version: 2.3.0 }
-{ }
-{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
-{ }
-{*****************************************************************************}
-
-unit TntBandActn;
-
-{$INCLUDE TntCompilers.inc}
-
-interface
-
-uses
- Classes, BandActn, TntActnList;
-
-type
-{TNT-WARN TCustomizeActionBars}
- TTntCustomizeActionBars = class(TCustomizeActionBars{TNT-ALLOW TCustomizeActionBars}, ITntAction)
- private
- function GetCaption: WideString;
- procedure SetCaption(const Value: WideString);
- function GetHint: WideString;
- procedure SetHint(const Value: WideString);
- protected
- procedure DefineProperties(Filer: TFiler); override;
- public
- procedure Assign(Source: TPersistent); override;
- published
- property Caption: WideString read GetCaption write SetCaption;
- property Hint: WideString read GetHint write SetHint;
- end;
-
-implementation
-
-uses
- ActnList, TntClasses;
-
-{TNT-IGNORE-UNIT}
-
-procedure TntBandActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
-begin
- TntAction_AfterInherited_Assign(Action, Source);
- // TCustomizeActionBars
- if (Action is TCustomizeActionBars) and (Source is TCustomizeActionBars) then begin
- TCustomizeActionBars(Action).ActionManager := TCustomizeActionBars(Source).ActionManager;
- end;
-end;
-
-//-------------------------
-// TNT BAND ACTN
-//-------------------------
-
-{ TTntCustomizeActionBars }
-
-procedure TTntCustomizeActionBars.Assign(Source: TPersistent);
-begin
- inherited;
- TntBandActn_AfterInherited_Assign(Self, Source);
-end;
-
-procedure TTntCustomizeActionBars.DefineProperties(Filer: TFiler);
-begin
- inherited;
- TntPersistent_AfterInherited_DefineProperties(Filer, Self);
-end;
-
-function TTntCustomizeActionBars.GetCaption: WideString;
-begin
- Result := TntAction_GetCaption(Self);
-end;
-
-procedure TTntCustomizeActionBars.SetCaption(const Value: WideString);
-begin
- TntAction_SetCaption(Self, Value);
-end;
-
-function TTntCustomizeActionBars.GetHint: WideString;
-begin
- Result := TntAction_GetHint(Self);
-end;
-
-procedure TTntCustomizeActionBars.SetHint(const Value: WideString);
-begin
- TntAction_SetHint(Self, Value);
-end;
-
-end.