learnMil/PointsCollection.clw at master · mpalade/learnMil · 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


    MEMBER('learnMil')

OMIT('***')
 * Created with Clarion 10.0
 * User: mihai.palade
 * Date: 09.05.2019
 * Time: 20:19
 *
 * To change this template use Tools | Options | Coding | Edit Standard Headers.
 ***

    MAP
    END

    INCLUDE('Equates.CLW'),ONCE
    INCLUDE('pmC2IPLibrary.INC'),ONCE

PointsCollection.Construct   PROCEDURE()
    CODE
        SELF.pl     &= NEW(PosList)

PointsCollection.Destruct   PROCEDURE()
    CODE

PointsCollection.Init       PROCEDURE(LONG nXpos, LONG nYPos)
    CODE
        IF RECORDS(SELF.pl) = 0 THEN
            SELF.pl.xPos    = nXPos
            SELF.pl.yPos    = nYPos
            ADD(SELF.pl)
            RETURN TRUE
        ELSE
            RETURN FALSE
        END

PointsCollection.Init       PROCEDURE(*PosRecord pPRec)
    CODE
        IF RECORDS(SELF.pl) = 0 THEN
            SELF.pl.xPos    = pPRec.xPos
            SELF.pl.yPos    = pPRec.yPos
            ADD(SELF.pl)
            RETURN TRUE
        ELSE
            RETURN FALSE
        END


PointsCollection.InsertPoint        PROCEDURE(LONG nXPos, LONG nYPos)
    CODE
        SELF.pl.xPos    = nXPos
        SELF.pl.yPos    = nYPos
        ADD(SELF.pl)
        IF ERRORCODE() THEN
            RETURN FALSE
        ELSE
            RETURN TRUE
        END


PointsCollection.InsertPoint        PROCEDURE(*PosRecord pPRec)
    CODE
        SELF.pl.xPos    = pPRec.xPos
        SELF.pl.yPos    = pPRec.yPos
        ADD(SELF.pl)
        IF ERRORCODE() THEN
            RETURN FALSE
        ELSE
            RETURN TRUE
        END