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

grig27 · August 2011

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

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 · August 2011

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

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

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

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

Комментарии

Оставить комментарий