Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233717 Thu, 02 Apr 2009 07:50:52 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233717 Артур

Может действительно, из Forms 2.0 ? Ее можно добавить в Resource файл, и при необходимости изымать и регистрировать в системе... Конечно файл буде несколько больше, чем ожидалось, но разве сейчас у кого-нить стоит такой вопрос, чтоб файл микроскопичный был... ;)

PS Конечно же интересно самому разобраться с этим вопросом, чтоб потом знать.... но для ускорения написания проги можно и forms 2.0 использовать...]]> Bubaylo Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233435 Wed, 01 Apr 2009 19:28:37 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233435
    redll = LoadLibrary("RICHED20.DLL")
     
    hwTx = CreateWindowExA(WS_EX_TRANSPARENT, "RichEdit20a", "", WS_BORDER Or WS_CHILD Or WS_VISIBLE Or ES_MULTILINE, 0, 0, 350, 350, Me.hwnd, 0, App.hInstance, 0)


Только эта сволочь тоже мерцает :(]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233353 Wed, 01 Apr 2009 17:16:32 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233353 z72
Да, но не везде же стоит офис. Это ведь офисная библа?]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233145 Wed, 01 Apr 2009 12:45:14 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2233145 z72 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232720 Wed, 01 Apr 2009 06:22:54 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232720
       Case WM_COMMAND
            ISbCls_WinProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
            If lParam = hwTx Then
               InvalidateRect hwnd, aRect, 0& 'делаем недействительным рект в родителе (фон)
               SendMessage hwTx, WM_SETREDRAW, 1, 0' а перерисовываем эдит
            End If


Блин, всё равно чуть-чуть мерцает :)

Добавлено
Кстати, забавно: в win98 не мерцает абсолютно :)]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232639 Wed, 01 Apr 2009 04:47:04 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232639 nash
Ничего он там не прямее - чрезвычайно избыточная и абсолютно запутанная эмуляция. Код по ссылке Lumen лучше :) хотя тоже эмуляция.

А мой - он не кривой, он недоделанный. Но подход в нём - как раз правильный, без эмуляции.

Добавил в WM_PAINT эдита GetUpdateRect hwTx, aRect, 0
А в субклассинг родителя:

       Case WM_COMMAND
            If lParam = hwTx Then' сообщение предназначено именно эдиту
               LockWindowUpdate hwTx
               InvalidateRect lParam , aRect, 0&
               LockWindowUpdate 0
            End If
            ISbCls_WinProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)


В общем, стало почти нормально... Но эдит теперь мерцает :(

Не понятно, как здесь работает LockWindowUpdate - по идее, она же должна просто приостанавливать перерисовку, но между LockWindowUpdate hwTx и LockWindowUpdate 0 никакой перерисовки нет!]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232556 Tue, 31 Mar 2009 21:25:57 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232556 в vbaccelerator нормальный сампл лежит.
зачем такой кривой код, если есть код прямее.]]> nash Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232534 Tue, 31 Mar 2009 20:10:01 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232534
А вообще - я там так и недопонял принцип. Но факт тот, что там эмуляция (фон заливается вручную), а у меня работает без эмуляции. Осталось понять, как обновлять текст.

В принципе, он обновляется, если форме сделать рефреш, а эдиту InvalidateRect и UpdateWindow, но во-первых, не понятно, по какому сообщению это делать, а во-вторых - это как-то избыточно и наверняка можно того же добиться, если знать, какие сообщения и как обработать :)



Penumbra Специально скачал и открыл - нормально распаковалось, ни каких глюков не обнаружилось :)]]> Артур Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232524 Tue, 31 Mar 2009 19:31:07 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232524 Тут смотрел?]]> Lumen Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232522 Tue, 31 Mar 2009 19:29:59 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232522 Penumbra Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232270 Tue, 31 Mar 2009 14:11:57 +0000 Прозрачный текстбокс. Помогите пожалуйста доделать :) https://forum.sources.ru/index.php?showtopic=268899&view=findpost&p=2232270
Создаю текстбокс так:

    hwTx = CreateWindowExW(WS_EX_TRANSPARENT, StrPtr("Edit"), StrPtr("ëÿ-ëÿ-ëÿ"), WS_BORDER Or WS_CHILD Or WS_VISIBLE Or &H4&, 0, 0, 150, 150, Me.hwnd, 0, App.hInstance, 0)


В субклассинге окна-родителя делаю так:
        Select Case uMsg
        Case WM_CTLCOLOREDIT
             ISbCls_winProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
             SetBkMode wParam, 1

В субклассинге самого эдита по сообщению WM_ERASEBKGND
не вызываю CallWindowProc и возвращаю 0

Вроде, всё получилось :)

За исключением одного: текст в эдите не обновляется, а новое пишется поверх старого :(

Чего ещё и как нужно обработать?]]> Артур Visual Basic: Общие вопросы