Bdr_raisedouter, WinApi Опции

[Klose]

Не подскажите к чему относится параметр BDR_RAISEDOUTER. В VCL это вроде бы bvRaised и относится к свойству BevelOuter , а как прописать это в WinApi?

[volvo]

Ты знаешь, в чем дело? В том, что Raised и Sunken можно применить только к Border-у, размер которого меняется. Иначе будет можно делать только Sunken (утопленный) контрол...

...
begin
  with Wc do begin
    cbSize := SizeOf(Wc);
    style := CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc := @WindowProc;
    cbClsExtra := 0;
    cbWndExtra := 0;
    hInstance := hInstance;
    hIcon := LoadIcon(0, IDI_APPLICATION);
    hCursor := LoadCursor(0, IDC_ARROW);
    hbrBackground :=  COLOR_BTNFACE+1;
    lpszMenuName := nil;
    lpszClassName := WndClass;
  end;
  RegisterClassEx(Wc);

  Wnd := CreateWindowEx(0, WndClass, WndCaption,
    WS_MINIMIZEBOX, 10, 10, 345, 251, 0, 0, hInstance, nil);
  ShowWindow( Wnd, SW_NORMAL );

  with Pc do begin
    cbSize := SizeOf(Pc);
    style := CS_HREDRAW or CS_VREDRAW;
    lpfnWndProc := @WindowProc;
    cbClsExtra := 0;
    cbWndExtra := 0;

    hInstance := hInstance;
    hCursor := LoadCursor(0, IDC_ARROW);
    hbrBackground :=  COLOR_BTNFACE+1;
    lpszMenuName := nil;
    lpszClassName := PnlClass;
  end;
  RegisterClassEx(Pc);
  PanelS := CreateWindowEx(WS_EX_TOOLWINDOW, PnlClass, nil,
    WS_THICKFRAME or WS_CHILD or WS_VISIBLE, // Обрати внимание на ThickFrame
    0, 0, 145, 201,
    WND, 0, hInstance, nil);

  while GetMessage(Msg, 0, 0, 0) do begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
  Halt(Msg.wParam);
end.