2gisoffline/UGrymUtils.pas at master · rodnover55/2gisoffline · 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
unit UGrymUtils;

interface

uses
  UMapPoint;

procedure ShowCallout(Point: TMapPoint; Text: string; Tag: string = '');
procedure CloseCallout(Tag: string);

implementation

uses
  UGrymPlugin, UCallout, GrymCore_TLB, SysUtils, UGrymGraphic, UCalloutTab;

procedure CloseCallout(Tag: string);
var
  Graphic: IGraphicBase;
begin
  Graphic := TGrymPlugin.GetInstance.BaseViewThread.GetFrame
    .GetMap.GraphicByTag(Tag);

  if Assigned(Graphic) then
  begin
    TGrymPlugin.GetInstance.BaseViewThread.GetFrame
      .GetMap.RemoveGraphic(Graphic);
  end;
end;

procedure ShowCallout(Point: TMapPoint; Text: string; Tag: string = '');
var
  Callout: TCallout;
  Tab: TCalloutTab;
begin

  if Tag <> EmptyStr then
  begin
    CloseCallout(Tag);
  end;

  Callout := TGrymPlugin.GetInstance.BaseViewThread.GetFrame
    .GetMap.CreateCallout(Point);

  Callout.AddCloseButton;

  if Tag <> EmptyStr then
  begin
    Callout.SetTag(Tag);
  end;

  Tab := Callout.AddTab(' ');

  Tab.Body := Text;
  Tab.SetHTML;

  TGrymPlugin.GetInstance.BaseViewThread.GetFrame.GetMap
    .AddGraphic(Callout.GetInterface);
end;

end.