FoxClub Forums > Visual Foxpro, Foxpro for DOS > Полупрозрачная форма с непрозрачными контролами ::

• Войти

Полупрозрачная форма с непрозрачными контролами
shumik73 Сообщений: 515 Откуда: Алматы Дата регистрации: 10.05.2006	shumik73 18.01.23 10:42:50 Добрый день! Разрешите затронуть старую тему - прозрачность формы Данную тему несколько раз обсуждалась на форуме: forum.foxclub.ru forum.foxclub.ru Есть пример полупрозрачности в Solution добавить в Init IF VAL(OS(3))=>5 DECLARE SetWindowLong In Win32Api AS _Sol_SetWindowLong Integer, Integer, Integer DECLARE SetLayeredWindowAttributes In Win32Api AS _Sol_SetLayeredWindowAttributes Integer, String, Integer, Integer _Sol_SetWindowLong(Thisform.hWnd, -20, 0x00080000) _Sol_SetLayeredWindowAttributes(Thisform.hWnd, 0, 350, 2) ENDIF добавить в Destroy IF VAL(OS(3))=>5 CLEAR DLLS _Sol_SetWindowLong CLEAR DLLS _Sol_SetLayeredWindowAttributes ENDIF Но вот если форма исчезает - то Textbox, EditBox, Button как будто зависли Если становится полупрозрачной, то и сами Textbox, EditBox, Button тоже становятся полупрозрачными Если возможность форму сделать полупрозрачными, а Textbox, EditBox, Button оставить четкими как обычно?

Полупрозрачная форма с непрозрачными контролами

shumik73

Сообщений: 515
Откуда: Алматы
Дата регистрации: 10.05.2006

shumik73

18.01.23 10:42:50

Добрый день!
Разрешите затронуть старую тему - прозрачность формы
Данную тему несколько раз обсуждалась на форуме:
forum.foxclub.ru
forum.foxclub.ru

Есть пример полупрозрачности в Solution


добавить в Init 
IF VAL(OS(3))=>5
    DECLARE SetWindowLong In Win32Api AS _Sol_SetWindowLong Integer, Integer, Integer
    DECLARE SetLayeredWindowAttributes In Win32Api AS _Sol_SetLayeredWindowAttributes Integer, String, Integer, Integer
    _Sol_SetWindowLong(Thisform.hWnd, -20, 0x00080000)
    _Sol_SetLayeredWindowAttributes(Thisform.hWnd, 0, 350, 2)
ENDIF

добавить в Destroy
IF VAL(OS(3))=>5
    CLEAR DLLS _Sol_SetWindowLong
    CLEAR DLLS _Sol_SetLayeredWindowAttributes
ENDIF

Но вот если форма исчезает - то Textbox, EditBox, Button как будто зависли
Если становится полупрозрачной, то и сами Textbox, EditBox, Button тоже становятся полупрозрачными

Если возможность форму сделать полупрозрачными, а Textbox, EditBox, Button оставить четкими как обычно?

Re: Полупрозрачная форма с непрозрачными контролами
of63 Автор Сообщений: 25256 Откуда: Н.Новгород Дата регистрации: 13.02.2008	of63 26.01.23 19:08:47 () Наверное, в фоксе видеообьекты не виндусовые, самописные, и не управляемы из винды (назначение API-ф-ий не смотрел)

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 40 (Гостей: 40)