blob: 2528c42ffbcdfd27f8ce16a8dd01ac5c743c892d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
{*****************************************************************************}
{ }
{ 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.
|
