fork-rest-dataware/uComboPoolers.pas at master · elidorio/fork-rest-dataware · GitHub

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
unit uComboPoolers;

interface

uses
 System.Classes,
 DesignEditors,
 DesignIntf,
 uRestPoolerDB;

Type
 TPoolersList = Class(TStringProperty)
 Public
  Function  GetAttributes  : TPropertyAttributes; Override;
  Procedure GetValues(Proc : TGetStrProc);        Override;
  Procedure Edit;                                 Override;
End;

Procedure Register;

implementation

{$IFDEF MSWINDOWS}
Procedure Register;
Begin
 RegisterComponents('REST Dataware',     [TRESTPoolerDB, TRESTDataBase, TRESTClientSQL, TRESTStoredProc, TRESTPoolerList]);
 RegisterPropertyEditor(TypeInfo(String), TRESTDataBase, 'PoolerName', TPoolersList);
End;
{$ENDIF}
{$IFNDEF MSWINDOWS}
Procedure Register;
Begin
 RegisterComponents('REST Dataware',      [TRESTDataBase, TRESTClientSQL, TRESTStoredProc, TRESTPoolerList]);
 RegisterPropertyEditor(TypeInfo(String), TRESTDataBase, 'PoolerName', TPoolersList);
End;
{$ENDIF}

procedure TPoolersList.Edit;
Var
 vTempData : String;
Begin
 Inherited Edit;
 Try
  vTempData := GetValue;
  SetValue(vTempData);
 Finally
 End;
end;

Procedure TPoolersList.GetValues(Proc : TGetStrProc);
Var
 vLista : TStringList;
 I      : Integer;
Begin
 //Provide a list of Poolers
 vLista := Nil;
 With GetComponent(0) as TRESTDataBase Do
  Begin
   Try
    vLista := TRESTDataBase(GetComponent(0)).GetRestPoolers;
    For I := 0 To vLista.Count -1 Do
     Proc (vLista[I]);
   Except
   End;
   If vLista <> Nil Then
    vLista.DisposeOf;
  End;
End;

Function TPoolersList.GetAttributes : TPropertyAttributes;
Begin
  // editor, sorted list, multiple selection
 Result := [paValueList, paSortList];
End;

Initialization
 UnlistPublishedProperty(TRESTClientSQL, 'LocalSQL');
 UnlistPublishedProperty(TRESTClientSQL, 'DataSetField');
 UnlistPublishedProperty(TRESTClientSQL, 'DetailFields');
 UnlistPublishedProperty(TRESTClientSQL, 'Adapter');
 UnlistPublishedProperty(TRESTClientSQL, 'ChangeAlerter');
 UnlistPublishedProperty(TRESTClientSQL, 'ChangeAlertName');
 UnlistPublishedProperty(TRESTClientSQL, 'DataCache');
 UnlistPublishedProperty(TRESTClientSQL, 'ObjectView');
 UnlistPublishedProperty(TRESTClientSQL, 'StoreDefs');
 UnlistPublishedProperty(TRESTClientSQL, 'CachedUpdates');
 UnlistPublishedProperty(TRESTClientSQL, 'MasterSource');
end.