![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ищу компонент - ресайзовый уголок (как в TScrollBar) [D7]
IGray © (2006-08-02 12:52:00)Не хочется велосипед изобретать...
Т.е. сам "уголок" в ресайзовых окнах я видеть хочу, но скролбару место уступать не охота ;-/
Посоветуйте, плииз!
Заранее спасибо!
Zeqfreed (2006-08-02 13:07:00) [1]А просто его отрисовать не сойдет?
procedure TForm1.WMEraseBkgnd(var Msg: TMessage);
begin
inherited;
DrawFrameControl(Canvas.Handle, Rect(ClientWidth - 18, ClientHeight - 18, ClientWidth, ClientHeight), DFC_SCROLL, DFCS_SCROLLSIZEGRIP);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Invalidate;
end;
Игорь Шевченко (2006-08-02 13:03:00) [2]В EhLib'е Дмитрия Большакова есть.
IGray (2006-08-02 12:53:00) [3]Сорри, речь про TStatusBar конечно...
(Не выспался :-( )