-
Notifications
You must be signed in to change notification settings - Fork 21
/
Copy pathuPHPCatButtons.pas
101 lines (85 loc) · 3.56 KB
/
uPHPCatButtons.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
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
93
94
95
96
97
98
99
100
101
unit uPHPCatButtons;
interface
uses
SysUtils, Classes, Variants, Dialogs,
PHPCommon, PHPCustomLibrary, phpLibrary, phpFunctions, CategoryButtons,
ImgList, Controls;
type
TPHPCatButtons = class(TDataModule)
_ButtonCatigories: TPHPLibrary;
procedure _ButtonCatigoriesFunctions0Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
procedure _ButtonCatigoriesFunctions1Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
procedure _ButtonCatigoriesFunctions2Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
procedure _ButtonCatigoriesFunctions3Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
procedure _ButtonCatigoriesFunctions4Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
procedure _ButtonCatigoriesFunctions5Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
procedure _ButtonCatigoriesFunctions6Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant;
ZendVar: TZendVariable; TSRMLS_DC: Pointer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PHPCatButtons: TPHPCatButtons;
implementation
uses uPHPMod;
{$R *.dfm}
procedure TPHPCatButtons._ButtonCatigoriesFunctions0Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant; ZendVar: TZendVariable;
TSRMLS_DC: Pointer);
begin
ReturnValue := integer(TButtonCategories(ToObj(Parameters, 0)).Add);
end;
procedure TPHPCatButtons._ButtonCatigoriesFunctions1Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant; ZendVar: TZendVariable;
TSRMLS_DC: Pointer);
begin
ReturnValue := integer(TButtonCategories(ToObj(Parameters, 0)).Insert(
Parameters[1].Value));
end;
procedure TPHPCatButtons._ButtonCatigoriesFunctions2Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant; ZendVar: TZendVariable;
TSRMLS_DC: Pointer);
begin
ReturnValue := integer(TCategoryButtons(ToObj(Parameters, 0)).Categories);
end;
procedure TPHPCatButtons._ButtonCatigoriesFunctions3Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant; ZendVar: TZendVariable;
TSRMLS_DC: Pointer);
begin
TCategoryButtons(ToObj(Parameters, 0)).Images := TImageList(ToObj(Parameters, 1));
end;
procedure TPHPCatButtons._ButtonCatigoriesFunctions4Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant; ZendVar: TZendVariable;
TSRMLS_DC: Pointer);
begin
ReturnValue := integer(TCategoryButtons(ToObj(Parameters, 0)).SelectedItem);
end;
procedure TPHPCatButtons._ButtonCatigoriesFunctions5Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant; ZendVar: TZendVariable;
TSRMLS_DC: Pointer);
begin
TCategoryButtons(ToObj(Parameters, 0)).SelectedItem := nil;
//TCategoryButtons(ToObj(Parameters,0)).Categories.Items[0].Items[0];
end;
procedure TPHPCatButtons._ButtonCatigoriesFunctions6Execute(Sender: TObject;
Parameters: TFunctionParams; var ReturnValue: variant; ZendVar: TZendVariable;
TSRMLS_DC: Pointer);
begin
ReturnValue := integer(TButtonCategory(ToObj(Parameters, 0)).Items.Add);
end;
end.