diff options
| author | Alexander Lantsev <aunsane@gmail.com> | 2015-04-24 08:21:28 +0000 |
|---|---|---|
| committer | Alexander Lantsev <aunsane@gmail.com> | 2015-04-24 08:21:28 +0000 |
| commit | 690f5e6d29d1c85c4be72638eb22843964c2f512 (patch) | |
| tree | 47c50956fef107bb1004f9389b817cbe3626d919 /plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas | |
| parent | e7112d3e58f97fa0630e0afa04e27796cdf3ce38 (diff) | |
All non-working stuff moved from trunk
git-svn-id: http://svn.miranda-ng.org/main/trunk@13071 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas')
| -rw-r--r-- | plugins/!NotAdopted/Chess4Net/lib/TntUnicodeControls/Source/TntBandActn.pas | 92 |
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.
|