-
Notifications
You must be signed in to change notification settings - Fork 1
/
unit3.pas
58 lines (45 loc) · 1.1 KB
/
unit3.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
unit Unit3;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
var
{ private declarations }
objects : TStringList;
properties: TList;
{ public declarations }
procedure MObjCreate();
function MObjAdd(objType:string):integer;//retun object index
function MObjGetList():TStringList;
const
P_LEFT =0;
P_TOP =1;
P_RIGHT =2;
P_BOTTOM =3;
P_COLOR =4;
P_CAPTION=5;
P_TEXT =6;
P_IMAGE =7;
implementation
procedure MObjCreate();
begin
objects := TStringList.Create;
properties:= TList.Create;
end;
function MObjAdd(objType:string):integer;//retun object index
var propList:TStringList;
begin
propList:=TStringList.Create;
objects.Add(objType);
propList.Add('0'); // Letf
propList.Add('0'); // Top
propList.Add('30'); // Right
propList.Add('30'); // Bottom
properties.Add(propList);
MObjAdd:=objects.Count-1;
end;
function MObjGetList():TStringList;
begin
MObjGetList:=objects;
end;
end.