Как поместить прозрачную фоновую картинку на компонент CoolBar

Delphi , Графика и Игры , Компоненты и Графика

procedure TForm1.Button1Click(Sender: TObject);
var
 Bm1 : TBitmap;
 Bm2 : TBitmap;
begin
 Bm1 := TBitmap.Create;
 Bm2 := TBitmap.Create;
 Bm1.LoadFromFile('c:\download\test.bmp');
 Bm2.Width := Bm1.Width;
 Bm2.Height := Bm1.Height;
 bm2.Canvas.Brush.Color := CoolBar1.Color;
 bm2.Canvas.BrushCopy(Rect(0, 0, bm2.Width, bm2.Height), Bm1,
   Rect(0, 0, Bm1.width, Bm1.Height), ClWhite);
 bm1.Free;
 CoolBar1.Bitmap.Assign(bm2);
 bm2.Free;
end;

Программирование на Delphi: как установить прозрачный фон для компонента CoolBar

Чтобы установить прозрачный фон для компонента CoolBar, вам нужно загрузить изображение с помощью TImage32Bit и затем присвоить его свойству Bitmap компонента CoolBar.

Вот обновленный код, который должен достичь того, что вы хотите:

procedure TForm1.Button1Click(Sender: TObject);
var
  Bm1: TBitmap;
  Img: TImage32Bit;
begin
  Bm1 := TBitmap.Create;
  try
    Bm1.LoadFromFile('c:\download\test.bmp');
    Img := TImage32Bit.Create;
    try
      Img.Assign(Bm1);
      CoolBar1.Bitmap.Assign(Img);
    finally
      FreeAndNil(Img);
    end;
  finally
    FreeAndNil(Bm1);
  end;
end;

В этом коде мы создаем объект TBitmap, чтобы загрузить изображение, а затем создаем экземпляр класса TImage32Bit. Мы присваиваем загруженное изображение к объекту TImage32Bit и затем присваиваем его свойству Bitmap компонента CoolBar.

Обратите внимание, что вы можете также использовать свойство TransparentColor объекта Bitmap, чтобы установить прозрачный цвет. Если ваше фоновое изображение имеет области с тем же цветом, что и прозрачный цвет, эти области будут прозрачными в результате.

Также убедитесь, что файл изображения находится в правильном формате и пути перед загрузкой.

В статье описывается способ установки прозрачной фоновой картинки на компонент CoolBar в Delphi, используя битмапы и вызов метода BrushCopy.

Комментарии и вопросы

:: Главная :: Компоненты и Графика ::