Форум: "Прочее";
Текущий архив: 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.061 c