Все мы знаем, что борты форм, кнопок, полей ввода и др. для создания их трехмерности прорисованны со всех сторон двумя полосками.
Вопрос как поменять цвет этих полосок, другими словами как добиться эфекта
Стиля бордюра формы bsNone но чтоб при этом форма имела свойство bsSizable?
Я нашёл один способ но для его реализации приходится прописывать процедуру на каждое движение и изменение в размера формы иначе вырисовываются стандартные бордюры.
Конечно можно поставить на процедуру таймер, но мне нехочется в своём приложении их использовать.
Может кто знает какойнить способ, а?
| Код |
private
procedure WMNCPaint;
|
| Код | procedure TForm1.WMNCPaint;//(var );
var
dc : hDc;
Pen : hPen;
OldPen : hPen;
OldBrush : hBrush;
Msg: TWMNCPaint;
begin
inherited;
dc := GetWindowDC(Handle);
msg.Result := 12;
Pen := CreatePen(PS_SOLID, 7, RGB(0, 0, 0));
OldPen := SelectObject(dc, Pen);
OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));
Rectangle(dc, 0,0, Form1.Width, Form1.Height);
SelectObject(dc, OldBrush);
SelectObject(dc, OldPen);
DeleteObject(Pen);
ReleaseDC(Handle, Canvas.Handle);
Form1.Refresh;
end; |
|