Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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
3-1081152614
dimm22
2004-04-05 12:10
2004.05.02
Нужно ускорить выполнение запроса.


11-1066976000
jab~
2003-10-24 10:13
2004.05.02
KOLGraphic


8-1072283969
Alexis
2003-12-24 19:39
2004.05.02
проигрывать звуковой файл при старте


1-1081848346
Блондинка
2004-04-13 13:25
2004.05.02
Как отловить минимизирование формы ?


4-1078141590
tytus
2004-03-01 14:46
2004.05.02
Ярлык и значек





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский