Last change
on this file was 28, checked in by chronos, 8 years ago |
- Added: Remember forms dimensions.
- Added: Remember recent opened files.
|
File size:
344 bytes
|
Rev | Line | |
---|
[28] | 1 | {$IFDEF INTERFACE}
|
---|
| 2 |
|
---|
| 3 | // TGPoint<TPointType> = class
|
---|
| 4 | TGPoint = class
|
---|
| 5 | X: TGPointType;
|
---|
| 6 | Y: TGPointType;
|
---|
| 7 | procedure Add(Point: TGPoint);
|
---|
| 8 | end;
|
---|
| 9 |
|
---|
| 10 | {$UNDEF INTERFACE}
|
---|
| 11 | {$ENDIF}
|
---|
| 12 |
|
---|
| 13 | {$IFDEF IMPLEMENTATION}
|
---|
| 14 |
|
---|
| 15 | procedure TGPoint.Add(Point: TGPoint);
|
---|
| 16 | begin
|
---|
| 17 | X := X + Point.X;
|
---|
| 18 | Y := Y + Point.Y;
|
---|
| 19 | end;
|
---|
| 20 |
|
---|
| 21 | {$UNDEF IMPLEMENTATION}
|
---|
| 22 | {$ENDIF}
|
---|
| 23 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.