KML Reference в Delphi по-русски #5: Изменяем стиль подсказок к меткам

TBaloonDisplayMode = (bmDefault, bmHide);
 
TKmlBaloonStyle = class(TKmlSubStyle)
  private
    FBgColor: string;
    FTextColor: string;
    FText: string;
    FDisplayMode: TBaloonDisplayMode;
  protected
    function GetName:string;override;
  public
    function Save(AParentNode: IXMLNode): IXMLNode; override;
    property BgColor: string read FBgColor write FBgColor;
    property TextColor: string read FTextColor write FTextColor;
    property Text: string read FText write FText;
    property DisplayMode: TBaloonDisplayMode read FDisplayMode write FDisplayMode;
  end;

var Style: TKmlStyle;
begin
  //добавляем новую метку на карту
  ADocument.Placemark.Add(TKmlPlacemark.Create(TKmlPoint));
  with ADocument.Placemark.Last do
  begin
    ID:='MyPlacemark';
    Name := edPlaceName.Text;
    Snippet := edPlaceSnippet.Text;
    Description := memPlaceDescr.Text;
    Visibility := chkPlaceVisible.Checked;
    StyleUrl:='#MySharedStyle';
    TKmlPoint(Geometry).Extrude := chkPlaceExtrude.Checked;
    TKmlPoint(Geometry).AltitudeMode := TAltitudeModeEnum(cbAltitudeModeEnum.ItemIndex);
    TKmlPoint(Geometry).Coordinates.Latitude := StrToFloat(edLatitude.Text);
    TKmlPoint(Geometry).Coordinates.Longtitude := StrToFloat(edLongtitude.Text);
    TKmlPoint(Geometry).Coordinates.Altitude := StrToFloat(edAltitude.Text);
  end;
  lbPlacemark.Items.Add(Format('(%s, %s, %s)', [edLatitude.Text, edLongtitude.Text, edAltitude.Text]));
 
  //добавляем стиль отображения подсказки для новой метки
  Style:=TKmlStyle.Create;
  Style.Id:='MySharedStyle';
  Style.AddStyle(TKmlBaloonStyle);
  TKmlBaloonStyle(Style.SubStyle.Last).BgColor:='ff00ff00';
  TKmlBaloonStyle(Style.SubStyle.Last).TextColor:='7fff00ff';
  TKmlBaloonStyle(Style.SubStyle.Last).DisplayMode:=bmDefault;
  TKmlBaloonStyle(Style.SubStyle.Last).Text:='Эта метка с идентификатором $[id] и названием $[name] имеет описание $[description]';
  ADocument.Styles.Add(Style);
end;