Регистрация компонента, прозрачная кнопка.

grig27

Пытаю зарегистрировать свой компонент, никак не могу добиться прозрачности кнопки.

Bitmap беру из своего ImageList.

Перепробовал всякие варианты, но прозрачности никак добиться не могу.

function GetBitmapFromImageList(AImageList: TCustomImageList; AIndex: Integer): TBitmap;
begin
  Result := TBitmap.Create;
  AImageList.GetBitmap(AIndex, Result);
  Result.Transparent := True;
  Result.TransparentMode := tmFixed;
  Result.TransparentColor := clFuchsia;
end;

 frxObjects.RegisterObject1(TkoReportMetaObject,
    GetBitmapFromImageList(0),
  'Метаданные отчёта',
  '',
  0,
  -1,
  [ctData]
  );

grig27

Вопрос решён.

Нужно всего лишь -

function GetBitmapFromImageList(AImageList: TCustomImageList; AIndex: Integer): TBitmap;
begin
  Result := TBitmap.Create;
  Result.Transparent := True;
  Result.PixelFormat := pf24bit;
  AImageList.GetBitmap(AIndex, Result);
end;