Панель инструментов средствами Win API CreateWindowEx Опции

[IKh]

Здравстуйте.

Объясните пожалуйста, можно ли создать панель инструментов в окне прииложения созданного на Delphi средствами Win API - CreateWindowEx.

В описании говориться, что для создания панели инструментов без кнопок можно использовать функцию CreateWindowEx указывая имя класса окна TOOLBARCLASSNAME.

Подскажите как можно это сделать в приложении на Delphi.

[IUnknown]

           {Прорисовка окна}
           DevCon := BeginPaint(hwnd, PaintStruct);
           DrawText(DevCon,PChar('Заготовка'),-1,PaintStruct.rcPaint,
                    DT_SINGLELINE or DT_CENTER or DT_VCENTER);
           EndPaint(hwnd, PaintStruct);

Что это должно делать? PaintStruct.rcPaint, судя по MSDN, это:

A RECT structure that specifies the upper left and lower right corners of the rectangle in which the painting is requested, in device units relative to the upper-left corner of the client area.

Мало ли, что запросит перерисовать система... Сообщение должно быть в центре окна, а не в центре перерисовываемой области:

     WM_PAINT:
        begin
           {Прорисовка окна}
           DevCon := BeginPaint(hwnd, PaintStruct);
           GetClientRect(hwnd, Rc);
           DrawText(DevCon,PChar('Заготовка'),-1, Rc,
                    DT_SINGLELINE or DT_CENTER or DT_VCENTER);
           EndPaint(hwnd, PaintStruct);

           Exit;
        end;

Сообщение отредактировано: IUnknown - 25.10.2011 5:50

[IKh]

Спасибо! Ошибку понял.