Свой цвет при создании окна

[Alex Cones]

  With FRMMain.WinClass Do
   Begin
    Style := $80;
    hIcon := UNTFRMExp.LoadIcon(FRMMain.hInst, PAnsiChar('MAINICON'));
    lpfnWndProc := @UNTFRMProc.WindowProc;
    hInstance := FRMMain.hInst;
    hbrBackground := ??????
    lpszClassName := 'TShrew';
    hCursor := UNTFRMExp.LoadCursor(0, PAnsiChar(32512));
   End;

Как указать не один из системных цветов, а, скажем, $120492?

[raxp]

в alius-е делал так:

 Handle:= CreateWindowEx(0, 'TAliusForm', 'Alius',
          WS_POPUP ,//or           WS_VISIBLE,
          400, 200, 400, 400,
          0, 0,
          hInst, Nil);
 SetClassLong(handle, GCL_HBRBACKGROUND, CreateSolidBrush(RGB(0,255,0))); // подменяем в классе на расширенный

 AnimateWindow(Handle, 700, AW_BLEND);
 sendmessage(handle,WM_SYSCOMMAND,SC_RESTORE,0);

[Alex Cones]

Блин, точно, надо пойти раскопать хард и отыскать его. Давно уже порывался Спасибо.

[Alex Cones]

Что-то не работает, поди.

UNTFRMExp.SetClassLong(FRMBack.Handle, -10 {BACKGROUND}, UNTFRMExp.CreateSolidBrush($FF00FF));
 UNTFRMExp.SetWindowLong(FRMBack.Handle, -20 {GWL_EXSTYLE},
    UNTFRMExp.GetWindowLong(FRMBack.Handle, -20 {GWL_EXSTYLE})
  Or $00080000 {WS_EX_LAYERED});
 UNTFRMExp.SetLayeredWindowAttributes(FRMBack.Handle, $FF00FF, 50, $00000001 {LWA_COLORKEY});

Должно быть розовое полупрозрачное, а остается стандартным и безрадостным. Уже вторые сутки бьюсь.

[Alex Cones]

Еще актуально, очень актуально...

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

То же самое, когда не создаю вторую форму. Дело, по видимому, не в этом.

[raxp]

вот, поизвращался на все случаи жизни все дело в стиле создаваемого окна...

  hInst := GetModuleHandle(Nil);
  With WinClass Do
    Begin
     Style :=  CS_HREDRAW or CS_VREDRAW; //CS_PARENTDC;  // тут собака порылась                              
     hIcon := LoadIcon(hInst, MAKEINTRESOURCE('MAINICON'));
     lpfnWndProc := @WindowProc;                           
     hInstance := hInst;
     hbrBackground := 12;                 
     lpszClassName := 'TAliusForm';                       
     hCursor := LoadCursor(0, IDC_ARROW);            
    End;
  InitCommonControls;
  windows.RegisterClass(WinClass);                                

  { **************************** }

 Handle:= CreateWindowEx(0, 'TAliusForm', 'Alius',
          WS_POPUP,
          400, 200, 400, 400,
          0, 0,
          hInst, Nil);
 SetClassLong(handle, GCL_HBRBACKGROUND, CreateSolidBrush($FF00FF)); // задаем розовый цвет для формы

 AnimateWindow(Handle, 700, AW_BLEND);
 //sendmessage(handle,WM_SYSCOMMAND,SC_RESTORE,0);

 SetWindowLong(handle,
               GWL_EXSTYLE,
               GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);

 SetLayeredWindowAttributes(handle,
                            rgb(255,255,255), // задаем полную прозрачность для белого (дырка)
                            220,          // задаем полупрозрачность для всей формы
                            LWA_ALPHA or LWA_COLORKEY); // разрешаем флаги

итак, имеем:
1- розовый цвет формы на winapi
2- полупрозрачность для всей формы (220*100/255 %)
3- элементы с белым цветом имеют дырку насквозь (верхний edit)

[Alex Cones]

Оооооо!!!! Благодарю!

P.S. Гламурненько так
P.P.S. Все равно не на все случаи Нет случая, когда два разных цвета имеют разную прозрачность. Но это я уже ручками наделаю.

[raxp]

уп-с... про это и забыл ...ладно, как нить разрулим/
зы: если помнишь, Вован13 что-такое делал, могу ошибаться, вроде виджеты... а лучше спроси его в личке насчет двух цветов

[Alex Cones]

Блин, ну как всегда! Цвет задается нормально, а когда задаю прозрачность:

UNTFRMExp.SetWindowLong(FRMBack.Handle, -20 {GWL_EXSTYLE},
    UNTFRMExp.GetWindowLong(FRMBack.Handle, -20 {GWL_EXSTYLE})
  Or $00080000 {WS_EX_LAYERED});
UNTFRMExp.SetLayeredWindowAttributes(FRMBack.Handle, $FF00FF, 50, $00000001 {LWA_COLORKEY});

То форма просто исчезает. Кликаю на панели управления на строку приложения - фокус уходит на другое приложение.

[mutabor]

Да, да, Вован в этом шарит, в "слоеных окнах" )) Спроси у него.