| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Окно с прозрачной областью [D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

BFG9k ©   (2005-08-11 15:28:00) 

На изображении нужно нарисовать прямоугольную рамку, которую можно перемещать, а также изменять ее размеры мышью. Думаю, что это должно быть окно (например форма) с прозрачной областью. Не исключаю другие варианты, главное - результат (быстро и без мерцания).

---

BFG9k   (2005-08-11 16:10:00) [1]

Kolan:
Да мне нужно, чтобы работало и под Win98. Наборчик нормальный, я всегда так делаю, если речь не идет о чем-нибудь вроде ValueListEditor'а или компонентов Indy, которых нет в ранних версиях.

Проблему решил сам. BEW_SIZE,BEW_COLOR - толщина и цвет рамки.


procedure TForm4.FormResize(Sender: TObject);
var Rgn,HoleRgn:HRGN;
begin
  Rgn:=CreateRectRgn(0,0,Width,Height);
  HoleRgn:=CreateRectRgn(BEW_SIZE,BEW_SIZE,Width-BEW_SIZE,Height-BEW_SIZE);
  CombineRgn(Rgn,Rgn,HoleRgn,RGN_DIFF);
  SetWindowRgn(Handle,Rgn,True);
end;

procedure TForm4.WMNCPaint(var Msg:TWMNCPaint);
var DC:hDC;
 Pen,OldPen:hPen;
   OldBrush:hBrush;
   i:integer;
begin
inherited;
  DC:=GetWindowDC(Handle);
  msg.Result:=1;
  Pen:=CreatePen(PS_SOLID,1,BEW_COLOR);
  OldPen:=SelectObject(DC,Pen);
  OldBrush:=SelectObject(DC,GetStockObject(NULL_BRUSH));

  for i:=0 to BEW_SIZE-1 do
   Rectangle(DC,i,i,Width-i,Height-i);
  SelectObject(DC,OldBrush);
  SelectObject(DC,OldPen);
  DeleteObject(Pen);
  ReleaseDC(Handle,Canvas.Handle);
end;



---

Kolan   (2005-08-11 15:36:00) [2]

В посте не видно вопроса.

PS D2, D3, D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP
Солидный наборчик.

---

Наверх