сменить цвет Border а...

← →
AOTD © (2003-10-05 18:58) [0]

Не подскажете: как у KOL-овской формы сменить цвет Border"а? (или сделать возможным изменение размеров формы без самого Border"a)

← →
Gandalf © (2003-10-05 20:59) [1]

Нарисуй свой через WM_PAINT

← →
Vladimir Kladov (2003-10-05 21:40) [2]

цвет формы определяется настройками десктопа.

вот этот обработчик позволяет менять размеры для формы без бордюра наиболее естественным образом. Обратите внимание, что происходит (в вин-2К), если навести и подержать мышь в верхнем правом углу формы.

function TForm2.KOLForm1Message(var Msg: tagMSG; var Rslt: Integer): Boolean; var R: TRect; P: TPoint; begin Result := FALSE; if Msg.message = WM_NCHITTEST then begin R := Form.ClientRect; P.X := SmallInt( LoWord( Msg.lParam ) ); P.Y := SmallInt( HiWord( Msg.lParam ) ); P := Form.Screen2Client( P ); if PointInRect( P, R ) then begin if (P.X > R.Right - 18) and (P.Y > R.Bottom - 18) then begin Rslt := HTBOTTOMRIGHT; Result := TRUE; Exit; end; if (P.X > R.Right - 12) and (P.Y < R.Top + 12) then begin Rslt := HTCLOSE; Result := TRUE; Exit; end; InflateRect( R, -3, -3 ); if P.X < R.Left then if P.Y < R.Top then Rslt := HTTOPLEFT else if P.Y > R.Bottom then Rslt := HTBOTTOMLEFT else Rslt := HTLEFT else if P.X > R.Right then if P.Y < R.Top then Rslt := HTTOPRIGHT else if P.Y > R.Bottom then Rslt := HTBOTTOMRIGHT else Rslt := HTRIGHT else if P.Y < R.Top then Rslt := HTTOP else if P.Y > R.Bottom then Rslt := HTBOTTOM else Exit; Result := TRUE; end; end; end;

← →
BelchonokH © (2003-10-19 20:52) [3]

2 Vladimir Kladov
Класссная процедурка, всё работало до того момента как края формы оказались закрыты панелями, и всё, лафа закончилась... :( попытался навесить эту процедурку на панельку, однако желаемого эффекта не получил, курсор растягивания появляется, и на этом всё, ничего не растягивается... нет ли какого-нибудь выхода из этой ситуации?

← →
Vladimir Kladov (2003-10-19 21:55) [4]

навесить на OnMessage панельки обработку WM_NCHITTEST и вернуть HTTRANSPARENT.

сменить цвет Border а... Найти похожие ветки