Форум: "KOL";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Внизсменить цвет 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.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2004.05.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c