Delphi OTA интерфейс - функция AddPluginBitmap не отображает заголовок - PullRequest
Новая
       4

Delphi OTA интерфейс - функция AddPluginBitmap не отображает заголовок

2 голосов
/ 28 сентября 2011

Когда я использую следующий код в моем пакете (плагин Delphi OTA / IDE): 

unit uSplashRegister;

interface

implementation

{$R SPLASHREGISTER.RES}

uses
  Classes, Windows, Graphics, ToolsAPI,DesignIntf;

ResourceString
  strSplashScreenName = 'MyTestCaption';

procedure AddSplashText;
var
  bmp: HBITMAP;
begin
  bmp := LoadBitmap(FindResourceHInstance(HInstance), 'LOGO');
  if assigned(SplashScreenServices) then
  begin
    SplashScreenServices.AddPluginBitmap(strSplashScreenName,bmp,false,'Registered');
  end;
end;


initialization
   AddSplashText;
end.

Я вижу текст «MyTestCaption» в Delphi XE и в Delphi 2009. Однако в Delphi 2007 заголовок не отображается. Слово "Зарегистрировано" видно, логотип тоже.

У кого-нибудь есть идея, почему я не вижу заголовок?

...