source: cprs/branches/tmg-cprs/TntWare/Delphi Unicode Controls/Source/TntBandActn.pas@ 833

Last change on this file since 833 was 453, checked in by Kevin Toppenberg, 16 years ago

Initial upload of TMG-CPRS 1.0.26.69

File size: 2.7 KB
Line 
1
2{*****************************************************************************}
3{ }
4{ Tnt Delphi Unicode Controls }
5{ http://www.tntware.com/delphicontrols/unicode/ }
6{ Version: 2.3.0 }
7{ }
8{ Copyright (c) 2002-2007, Troy Wolbrink (troy.wolbrink@tntware.com) }
9{ }
10{*****************************************************************************}
11
12unit TntBandActn;
13
14{$INCLUDE TntCompilers.inc}
15
16interface
17
18uses
19 Classes, BandActn, TntActnList;
20
21type
22{TNT-WARN TCustomizeActionBars}
23 TTntCustomizeActionBars = class(TCustomizeActionBars{TNT-ALLOW TCustomizeActionBars}, ITntAction)
24 private
25 function GetCaption: WideString;
26 procedure SetCaption(const Value: WideString);
27 function GetHint: WideString;
28 procedure SetHint(const Value: WideString);
29 protected
30 procedure DefineProperties(Filer: TFiler); override;
31 public
32 procedure Assign(Source: TPersistent); override;
33 published
34 property Caption: WideString read GetCaption write SetCaption;
35 property Hint: WideString read GetHint write SetHint;
36 end;
37
38implementation
39
40uses
41 ActnList, TntClasses;
42
43{TNT-IGNORE-UNIT}
44
45procedure TntBandActn_AfterInherited_Assign(Action: TCustomAction{TNT-ALLOW TCustomAction}; Source: TPersistent);
46begin
47 TntAction_AfterInherited_Assign(Action, Source);
48 // TCustomizeActionBars
49 if (Action is TCustomizeActionBars) and (Source is TCustomizeActionBars) then begin
50 TCustomizeActionBars(Action).ActionManager := TCustomizeActionBars(Source).ActionManager;
51 end;
52end;
53
54//-------------------------
55// TNT BAND ACTN
56//-------------------------
57
58{ TTntCustomizeActionBars }
59
60procedure TTntCustomizeActionBars.Assign(Source: TPersistent);
61begin
62 inherited;
63 TntBandActn_AfterInherited_Assign(Self, Source);
64end;
65
66procedure TTntCustomizeActionBars.DefineProperties(Filer: TFiler);
67begin
68 inherited;
69 TntPersistent_AfterInherited_DefineProperties(Filer, Self);
70end;
71
72function TTntCustomizeActionBars.GetCaption: WideString;
73begin
74 Result := TntAction_GetCaption(Self);
75end;
76
77procedure TTntCustomizeActionBars.SetCaption(const Value: WideString);
78begin
79 TntAction_SetCaption(Self, Value);
80end;
81
82function TTntCustomizeActionBars.GetHint: WideString;
83begin
84 Result := TntAction_GetHint(Self);
85end;
86
87procedure TTntCustomizeActionBars.SetHint(const Value: WideString);
88begin
89 TntAction_SetHint(Self, Value);
90end;
91
92end.
Note: See TracBrowser for help on using the repository browser.