forked from MahdiSafsafi/zControls
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathzObjInspDialogs.pas
50 lines (41 loc) · 1.58 KB
/
zObjInspDialogs.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
// **************************************************************************************************
// The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License");
// you may not use this file except in compliance with the License. You may obtain a copy of the
// License at http://www.mozilla.org/MPL/
//
// Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF
// ANY KIND, either express or implied. See the License for the specific language governing rights
// and limitations under the License.
//
// The Original Code is zObjInspDialogs.pas.
//
// The Initial Developer of the Original Code is Mahdi Safsafi [SMP3].
// Portions created by Mahdi Safsafi. are Copyright (C) 2013-2019 Mahdi Safsafi.
// All Rights Reserved.
//
// **************************************************************************************************
// **************************************************************************************************
//
// https://github.com/MahdiSafsafi/zcontrols
//
// **************************************************************************************************
unit zObjInspDialogs;
interface
uses Vcl.Forms, zObjInspector, zObjInspTypes;
type
TzInspDialog = class(TForm)
private
FPropItem: PPropItem;
protected
procedure DoCreate; override;
public
property PropItem: PPropItem read FPropItem write FPropItem;
end;
implementation
{ TzInspDialog }
procedure TzInspDialog.DoCreate;
begin
inherited;
FPropItem := nil;
end;
end.