в 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

> 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.
А скриншот не открывается, поэтому ничего сказать не могу. =(

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

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

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