blob: ec80d4d1b99ed52c28c1fa28f1066f60df227be2 (
plain)
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
|
unit HelpNote;
{$mode objfpc}
interface
uses
Classes, fpg_base, HelpTopic;
type
{ Simple data object store information about help note and position of note }
THelpNote = class(TObject)
public
Text: TfpgString;
Topic: TTopic;
InsertPoint: longint;
// calculated
InsertText: TfpgString;
constructor Create;
destructor Destroy; override;
end;
implementation
{ THelpNote }
constructor THelpNote.Create;
begin
inherited Create;
Text := '';
InsertText := '';
Topic := nil;
InsertPoint := -1;
end;
destructor THelpNote.Destroy;
begin
inherited Destroy;
end;
end.
|
