-
Notifications
You must be signed in to change notification settings - Fork 1
/
WispPrivilege.pas
42 lines (36 loc) · 1.06 KB
/
WispPrivilege.pas
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
unit WispPrivilege;
interface
uses cxTL,
Dialogs,
WispEntityManager,
WispTreeListNode,
Classes;
type
TWispPrivilege = Class(TComponent)
Private
FName: String;
FLabel: String;
FValue: Boolean;
FNode: TCxTreeListNode;
FParentName: String;
Public
Property Name: String Read FName;
Property DisplayName: String Read FLabel;
Property Value: Boolean Read FValue Write FValue;
Property Node: TCxTreeListNode Read FNode Write FNode;
Property ParentName: String Read FParentName;
Constructor Create(ParamName, ParamLabel: String; ParamValue: Boolean;
ParamNode: TCxTreeListNode; ParamParent: String);
End;
implementation
// =============================================================================
Constructor TWispPrivilege.Create(ParamName, ParamLabel: String;
ParamValue: Boolean; ParamNode: TCxTreeListNode; ParamParent: String);
begin
FName := ParamName;
FLabel := ParamLabel;
FValue := ParamValue;
FNode := ParamNode;
FParentName := ParamParent;
end;
end.