Использование AlphaBlend

[askarchic]

Всем доброго времени суток!
Я отрисовываю текст в окне и пытаюсь, используя AlphaBlen, покрыть форму синим оттенком.

Вот отрывок кода:

WM_PAINT :
        Begin
          DC := GetDC(hWnd);
          DCS := CreateCompatibleDC(GetDC(0));  //CreateCompatibleDC(DC);
          Brush := CreateSolidBrush(GetWindowLong(hWnd, GWL_USERDATA));
          //GetWindowLong(hWnd, GWL_USERDATA) = $FF0000
          Font := CreateFont(-17,
                             0,
                             0,
                             0,
                             0,
                             0,
                             0,
                             0,
                             RUSSIAN_CHARSET,//ANSI_CHARSET,
                             OUT_DEFAULT_PRECIS,
                             CLIP_DEFAULT_PRECIS,
                             ANTIALIASED_QUALITY,
                             DEFAULT_PITCH Or FF_DONTCARE,
                             'Arial');
          SelectObject(DC, Font);
          GetWindowText(hWnd, @Text[0], GetWindowTextLength(hWnd) + 1);
          GetClientRect(hWnd, CRect);
          GetWindowRect(hWnd, WRect);
          Inc(CRect.Left);
          Inc(CRect.Top);
          SetTextColor(DC, $007F7F7F);
          SetBkMode(DC, TRANSPARENT);
          DrawText(DC, @Text[0], GetWindowTextLength(hWnd), CRect, DT_CENTER Or DT_VCENTER Or DT_SINGLELINE);
          Dec(CRect.Left, 3);
          Dec(CRect.Top, 3);
          SetTextColor(DC, $00EFEFEF);
          DrawText(DC, @Text[0], GetWindowTextLength(hWnd), CRect, DT_CENTER Or DT_VCENTER Or DT_SINGLELINE);
          DeleteObject(Font);
          Inc(CRect.Left);
          Inc(CRect.Top);
          SetTextColor(DC, $00DFDFDF);
          DrawText(DC, @Text[0], GetWindowTextLength(hWnd), CRect, DT_CENTER Or DT_VCENTER Or DT_SINGLELINE);
          FillRect(DCS, CRect, Brush);
          With BF Do
            Begin
              BlendOp             := AC_SRC_OVER;
              BlendFlags          := 0;
              SourceConstantAlpha := $7F;
              AlphaFormat         := 0
            End;
          //BitBlt(DC, 0, 0, CRect.Right, CRect.Bottom, DC, 10, 10, SRCCOPY);
          AlphaBlend(DC, 0, 0, CRect.Right, CRect.Bottom, DCS, 0, 0, CRect.Right, CRect.Bottom, BF);
          DeleteObject(Brush);
          DeleteDC(DCS);
          ReleaseDC(hWnd, DC);
        End;

К сожалению эффект нулевой (текст на белом фоне), ошибки сам не нахожу, подскажите пожалуйста в чем ошибка?

[Johnson]

Простите, а причем тут альфаБленд? Этот метод отвечает за прозрачность формы...

Хотете сами отрисовывать форму? Эвент .OnPaint формы Вам в помощь. А для перерисовки вызовите

 Form1.Invalidate;

[Freezer]

вариант конечно не очень хороший но можно самому реализовать смешивание цветов, вот функция:

//=============================================================================================
function MixBytes(FG, BG, TRANS: byte): byte;//змішує 1 канал двох кольорів з даданою прозорістю
//---------------------------------------------------------------------------------------------
begin
  Result := round(bg + (fg - bg)/255*TRANS);
end{function MixBytes(FG, BG, TRANS: byte): byte;};

//=============================================================================================
function MixColors(FG, BG: TColor; T: byte): TColor;
//---------------------------------------------------------------------------------------------
var r,g,b:byte;
begin
  R := MixBytes(FG and 255,BG and 255,T); // extracting and mixing Red
  G := MixBytes((FG shr 8) and 255,(BG shr 8) and 255,T); // the same with green
  B := MixBytes((FG shr 16) and 255,(BG shr 16) and 255,T); // and blue, of course
  Result := r+g*256+b*65536; // finishing with combining all channels together
end {function MixColors(FG, BG: TColor; T: byte): TColor;};

Передаешь туда цвет фона, цвет который налаживаешь, прозрачность, получаешь нужный цвет, а дальше шуруешь напрямую на Canvas.

[asmodey1]

Сообщение от Johnson

Простите, а причем тут альфаБленд?[/CODE]

А я уж было решил, что это я с ума сошел...
Смотрел-смотрел код, ничего не понял и... тихо-тихо удалился...

[askarchic]

Сообщение от Johnson

Простите, а причем тут альфаБленд? Этот метод отвечает за прозрачность формы...

AlphaBlend(DC, 0, 0, CRect.Right, CRect.Bottom, DCS, 0, 0, CRect.Right, CRect.Bottom, BF);

Уважаемый, вы видимо дальше VCL не уходили.
Я говорю не про метод формы, а про функцию GDI.

Вручную смешивать цвета не выгодно по времени, мне бы помочь найти ошибку

[Hacker19_90]

Уважаемый, вы видимо дальше VCL не уходили.
Я говорю не про метод формы, а про функцию GDI.

o_O!!! нда...
Вы сами, то читали про эту функцию???
Вот что пишут здесь
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

The AlphaBlend function displays bitmaps that have transparent or semitransparent pixels.

Ну или кривым переводом Сократа

Функция AlphaBlend отображает побитовые отображения, которые имеют прозрачные или полупрозрачные пиксели.

ПРОЗРАЧНОСТЬ ОНА ДАЁТ!!! А не оттенки!
Нужен цвет формы метод Color вам в помощь!

[askarchic]

Сообщение от Hacker19_90

ПРОЗРАЧНОСТЬ ОНА ДАЁТ!!! А не оттенки!
Нужен цвет формы метод Color вам в помощь!

Эта прозрачность и даст мне оттенок окна! Да я читал про эту функцию, у меня все работало когда контекст был привязан к окну, а когда я пытаюсь HDC (созданный посредством CreateCompatibleDC) прозрачно отрисовать на другом контексте у меня ничего не получается, хотя все должно работать.

[Don Karleone]

Сообщение от askarchic

 AlphaFormat         := 0

если я не ошибаюсь, то это абсолютная прозрачность и значит вы ничего не увидите.

[askarchic]

Ошибаетесь... Формат отвечает немного за другое.
SourceConstantAlpha := $7F; {Вот это отвечает за прозрачность}

[Don Karleone]

Сообщение от askarchic

Ошибаетесь... Формат отвечает немного за другое.
SourceConstantAlpha := $7F; {Вот это отвечает за прозрачность}

сори, перепутал