Форум: "Прочее";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

в win7 теперь это возможно?   Найти похожие ветки 

← →
brother ©   (2012-04-12 13:33) [0]

Ставлю игру (репак) и вижу вот такое окно установки:
http://brotherirk.no-ip.info/1.png
Что смутило: высота нижнего бордюра (там, где прогресс) не стандартна...
Думаю, это стандартное окно, по крайней мере
Title: I?ia?ann:
Class name: TNewStaticText
Window handle: 722816 (0x000B0780)
Parent window: 722822 (0x000B0786)
Owner window: 0      (0x00000000)
Window ID: 722816 (0x000B0780)
Window proc: 0x00000000
Client coords: x:   0 y: 378  w:  63 h:  15
Window coords: x: 393 y: 624  w:  63 h:  15

Title:
Class name: TNewProgressBar
Window handle: 1967932 (0x001E073C)
Parent window: 722822 (0x000B0786)
Owner window: 0      (0x00000000)
Window ID: 1967932 (0x001E073C)
Window proc: 0x00000000
Client coords: x:  98 y: 373  w: 459 h:  25
Window coords: x: 491 y: 619  w: 459 h:  25

Вопрос: В 7 винде теперь можно клиниться в бордюр окна?

---

← →
CRLF   (2012-04-12 13:42) [1]

Да по идее не только в 7...

---

← →
brother ©   (2012-04-12 13:46) [2]

ссылку бы, интересно же... как?

---

← →
ДимкаНа   (2012-04-12 13:48) [3]

Form1.GlassFrame

---

← →
CRLF   (2012-04-12 13:55) [4]

> ссылку бы, интересно же... как?
Ищи на тему WM_NCPAINT и далее по ссылкам.

---

← →
Омлет ©   (2012-04-12 14:01) [5]

http://www.delphipraxis.net/74538-aero-glass-effekt-fuer-delphi-forms.html

---

← →
ProgRAMmer Dimonych ©   (2012-04-13 11:01) [6]

Долго смотрел на скриншот. Объясните, что там необычного? Разве этого же нельзя достичь, просто разместив контролы ниже картинки?

---

← →
brother ©   (2012-04-13 11:07) [7]

> просто разместив контролы ниже картинки?

нет, я так понимаю, нижняя часть - растянутый нижний бордюр...

---

← →
Омлет ©   (2012-04-13 11:12) [8]

> Разве этого же нельзя достичь, просто разместив контролы
> ниже картинки?

По умолчанию матовым стеклом рисуются только тонкая рамка окна и заголовок. Чтобы расширить рамку, применяется DwmExtendFrameIntoClientArea.

---

← →
ДимкаНа   (2012-04-13 11:37) [9]

Ребята, вы что?
http://argi.ru/bro.jpg

object Form6: TForm6
 Caption = "Form6"
 GlassFrame.Enabled = True
 GlassFrame.Bottom = 150
 object Label1: TLabel
   Left = 24
   Top = 24
   Width = 108
   Height = 25
   Caption = "Hi, brother!"
   Font.Height = -21
   ParentFont = False
 end
 object ProgressBar1: TProgressBar
   Left = 40
   Top = 144
   Width = 345
   Height = 17
   Position = 66
 end
end


---

← →
Омлет ©   (2012-04-13 11:50) [10]

> GlassFrame.Enabled = True

in Delphi 2007 and later.

---

← →
Edgar_Wine   (2012-04-14 05:59) [11]

> GlassFrame.Enabled = True
>  GlassFrame.Bottom = 150


Это VCL-обёртка над DwmExtendFrameIntoClientArea(). Можно вообще вертеть клиентской областью как угодно - нажмите в более-менее новом FireFox комбинацию Ctrl+Shift+E.
А скриншот не открывается, поэтому ничего сказать не могу. =(

---

← →
brother ©   (2012-04-14 06:34) [12]

> А скриншот не открывается,

это моя локальная тачка, пока я в сети - работает) пробуй)

---

Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.074 c