1. Список говнокодов пользователя Durik

    Всего: 1

  2. Pascal / Говнокод #9315

    +91

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    if IsThemeActive then
begin
  ThemePartName := 'TAB';
  ThemeHandle := OpenThemeData(TabSheetQA.Handle, PWideChar(ThemePartName));
  if ThemeHandle <> 0 then
  begin
    ImageClipRect := ImageForBkColorRecalc.ClientRect;
    DrawThemeBackground(ThemeHandle, ImageForBkColorRecalc.Canvas.Handle,
      TABP_BODY, 0, ImageForBkColorRecalc.ClientRect, @ImageClipRect);
    BkColor := ImageForBkColorRecalc.Canvas.Pixels[0, 0];
  end;
  Exit;
end;

    Надыбано в компоненте Delphi. Код получает начальный цвет градиента панелей Таб-контрола при включенных стилях XP и Aero. Для этого рисует на скрытом TImage его небольшой фрагмент и выдирает угловой пиксель.

    Durik, 03 Февраля 2012

    Комментарии (6)