source: cprs/branches/tmg-cprs/TMG_Extra/tntUniCode/Source/TntBandActn.pas

Last change on this file was 672, checked in by Kevin Toppenberg, 9 years ago

Adding source to tntControls for compilation

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.