VPF::Прозрачная иконка в Glyph - Форум программистов

HackMan

Дата 27.1.2007, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

Есть кнопка. У неё есть свойство Glyph (TBitmap). Нужно извлечь из какого-то файла его иконку, и нарисовать её на кнопке.
С извлечением иконки никаких проблем нет. Проблема в том, что когда извлекаю иконку в "стиле ХР" (с альфаканалом), то они криво прорисовываются. Вместо теней какие-то чёрные пятна, вместо прозрачности - белые, и так далее...

Вопрос: как мне корректно отрисовать 32-битную иконку на Glyph?

хочу пример smile

--------------------

Завтра - это самый загруженный день недели smile

Snowy

Дата 28.1.2007, 00:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484

http://forum.vingrad.ru/topic-87129/hl/ext...icon/index.html

HackMan

Дата 28.1.2007, 18:21 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

всё бы было бы хорошо, но...

я использую сторонние компоненты (XiButton), и у них нету свойства Image (то есть нельзя привязать к ImageList), и фон у них не сплошного цвета, а градиентная заливка

передалал код

Код


procedure TForm1.DrawIcon;
const IcoSz = 32; // размер иконок
var
  i: integer;
  il: TImageList;
  h: hIcon;
  bmp: TBitMap;
begin
  il := TImageList.Create(Self);
  il.Width := IcoSz; // задаем размер иконок
  il.Height := IcoSz;

  for i := 1 to 30 do // берем кнопки и лепим им иконки
  begin
    h := ExtractIcon(hInstance, 'C:\Windows\System32\shell32.dll', i);
    if h <> 0 then begin
      bmp := TBitMap.Create; // создаем битмап и задаем ему размер под иконку
      bmp.Width := IcoSz;
      bmp.Height := IcoSz;
      DrawIconEx(bmp.Canvas.Handle, 0, 0, h, IcoSz, IcoSz, 0,
                 bmp.Canvas.Brush.Handle, DI_NORMAL); // рисуем на него икону
      il.Add(bmp, nil); // собавляем икону в лист
      (FindComponent('XiButton' + IntToStr(i)) as TXiButton).Glyph.PixelFormat := pf32bit;
      (FindComponent('XiButton' + IntToStr(i)) as TXiButton).Glyph.Width := 32;
      (FindComponent('XiButton' + IntToStr(i)) as TXiButton).Glyph.Height := 32;
      il.Draw((FindComponent('XiButton' + IntToStr(i)) as TXiButton).Glyph.Canvas, 0, 0, i-1);
      bmp.Free;
    end;
  end;
end;

то что получается - смотрите на картинке

Добавлено
Если у кнопки убираю свойство TransparentGlyph (ставлю значение в False), то всё прекрасно отрисовывается, с тенями, но на белом фоне... smile

А мне нужно чтобы в качестве фона оставалась цветовая схема кнопки (градиентная заливка)

Это сообщение отредактировал(а) HackMan - 28.1.2007, 19:05

--------------------

Завтра - это самый загруженный день недели smile

CatATonik

Дата 29.1.2007, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: нет
Всего: 8

Вот, медленно конечно, но за-то работает хоть в Win95:

Код


// Src.PixelFormat = pf32Bit
procedure Blend(Canvas: TCanvas; Src: TBitmap; DstX, DstY: Integer);

type
  TRGB32 = packed record
    R: Byte;
    G: Byte;
    B: Byte;
    A: Byte;
  end;

  PRGB32Array = ^TRGB32Array;
  TRGB32Array = array[0..MaxInt div 4 - 1] of TRGB32;

  TRGB24 = packed record
    R: Byte;
    G: Byte;
    B: Byte;
  end;

  PRGB24Array = ^TRGB24Array;
  TRGB24Array = array[0..MaxInt div 3 - 1] of TRGB24;

var
  X, Y: Integer;
  S: PRGB32Array;
  D: TRGB;
begin
  for Y := 0 to Src.Height - 1 do
  begin
    S := Src.ScanLine[Y];

    for X := 0 to Src.Width - 1 do
    begin
      D := TRGB(Canvas.Pixels[DstX + X, DstY + Y]);
      if S[X].A = 255 then
      begin
        D.R := S[X].R;
        D.G := S[X].G;
        D.B := S[X].B;
      end
      else if S[X].A > 0 then
      begin
        D.R := Trunc(S[X].R * S[X].A / 255 + D.R * (255 - S[X].A) / 255);
        D.G := Trunc(S[X].G * S[X].A / 255 + D.G * (255 - S[X].A) / 255);
        D.B := Trunc(S[X].B * S[X].A / 255 + D.B * (255 - S[X].A) / 255);
      end;
      D.Reserved := 0;
      Canvas.Pixels[DstX + X, DstY + Y] := TColor(D);
    end;
  end;
end;

HackMan

Дата 29.1.2007, 12:29 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

А где описан тип TRGB?

Добавлено
Насколько я понял его структура такая:

Код


  TRGB = packed record
    R: Byte;
    G: Byte;
    B: Byte;
    Reserved: Byte;
  end;

но, вот что получается на этот раз smile

Это сообщение отредактировал(а) HackMan - 29.1.2007, 12:45

--------------------

Завтра - это самый загруженный день недели smile

CatATonik

Дата 29.1.2007, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: нет
Всего: 8

Сорри, ошибочка была (из контекста выдирал):

Код


procedure Blend(Canvas: TCanvas; Src: TBitmap; DstX, DstY: Integer);
type
  TRGB32 = packed record
    R: Byte;
    G: Byte;
    B: Byte;
    A: Byte;
  end;
  PRGB32Array = ^TRGB32Array;
  TRGB32Array = array[0..MaxInt div 4 - 1] of TRGB32;

  TRGB = packed record
    B: Byte;
    G: Byte;
    R: Byte;
    Reserved: Byte;
  end;
var
  X, Y: Integer;
  S: PRGB32Array;
  D: TRGB;

  ...

HackMan

Дата 29.1.2007, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Юзверь-программист

Профиль
Группа: Участник
Сообщений: 391
Регистрация: 18.6.2005
Где: .ua

Репутация: нет
Всего: 9

получается тоже, что и на первом скрине, но только теперь иконки, которые менее 32 бит, не отображаются smile

--------------------

Завтра - это самый загруженный день недели smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »