Как делать попапы с форматированной контекстной справкой?

[tyomitch]

WinHelp-попапы могут быть форматированные, но не поддерживаются в Висте и выше.
HtmlHelp-попапы могут быть только плейнтекстовыми.
Что народ использует для создания форматированных попапов в новых прогах?

[keks-n]

Что мешает сделать свой попап?

[tyomitch]

Неумение отрисовывать форматированный текст.
Зависть полупрозрачной тени под стандартным попапом.

[nekeda]

свою тень отрисовать можно) и ричтекстбокс на форму)

[tyomitch]

Ричтекстбокс будет выделяться и давать контекстное меню. Дизаблить его что ли?

[keks-n]

tyomitch
Цеплять не ричтекстбокс, а WebBrowser, в котором все менюшки дисейблятся через IDocUIHandler. Заодно можно гиперссылки в попап поставить.

[tyomitch]

ВебБраузер, кошмар-то какой
И как это в WinHelp-попапах гиперссылки без него работали?

[tyomitch]

А вот ещё пишут, что в Висте есть какая-то новая система XML-based справки под названием MAML. В ней можно попапы делать?

[tyomitch]

Нашёл способ отображать RTF-попап при помощи 16-битного winhelp.exe, который в Висте остался. Он, правда, показывает текст на белом фоне вместо жёлтого, но перекрасить -- это пустяк


Концептуальная схема:

Код: Выделить всё

Private Type HLP
   cbData As Integer
   usCommand As Integer
   ulTopic As Long
   ulReserved As Long
   offszHelpFile As Integer
   offabData As Integer
   szFilename As String * 256
End Type


Sub Main()
Shell "winhelp -x"
' WaitForInputIdle
Const Filename = "путь к файлу справки"
Dim h As HLP
h.cbData = 17 + Len(Filename)
h.usCommand = HELP_CONTEXTPOPUP
h.ulTopic = dwContextId
h.offszHelpFile = 16
h.szFilename = Filename & vbNullChar

SendMessage FindWindow("MS_WINHELP", vbNullString), &H38, 0, h 'недокументированное сообщение WM_WINHELP
End Sub


[tyomitch]

Он, правда, показывает текст на белом фоне вместо жёлтого, но перекрасить -- это пустяк

Блин, а как его перекрасить-то?
\cb не поддерживается, хотя в справочнике есть
Настройки из [WINDOWS] в HPJ-файле к попапам не применяются.

[jangle]

Можно еще UserControl использовать и выводить текст на его форме.

[Хакер]

tyomitch
А что для этих целей применяется в хелпах к стандартным Вистовским прогам?

[tyomitch]

Можно еще UserControl использовать и выводить текст на его форме.

Он умеет рисовать форматированный текст? Не верю.


Хакер, в стандартных прогах WinXP и выше используется HTML-справка и неформатированные попапы. Но если вспомнишь, ещё в Win98 (и вроде даже Win2000) обычная справка был HTML-ной, а контекстная -- в отдельных HLP-файлах, как раз ради форматированных попапов.

[tyomitch]

Нашёл в одном из FAQ:

[3.1.10] Why can't I set the background color with the \cb help RTF statement?

Simple: It doesn't work. The \cb statement was never implemented by Microsoft. Ooops.

Ну и к слову, цвет фона для WinHelp-овских попапов берётся не из COLOR_INFOBK, а жёстко прошит как (255, 255, 238). Зла на них не хватает.

[NashRus]

а не быстрее будет что то свое родить ?

[tyomitch]

NashRus, что конкретно предложишь?

Чего-то у меня с винхелпом проблема на проблеме. Оказалось, что WinHelp 3.1 не поддерживает явное указание чарсета для шрифта, а для MS Shell Dlg подставляется европейский чарсет. Придётся MS Sans Serif руками вписать.

[nekeda]

tyomitch
РичТекстБокс. Локед=тру, Апиаренс=Флэт, Бордер=0.
тень - SetLayeredWindowAttributes

[Хакер]

tyomitch
РичТекстБокс. Локед=тру, Апиаренс=Флэт, Бордер=0.

Тогда уж слать ричэдиту WM_PAINT-ы, подсовывая левый DC.

[tyomitch]

nekeda, там не такая тень, там она "в сеточку".


WM_PAINT не принимает параметрами DC.

[nekeda]

..и если принципиально чтобы текст не выделялся:

Код: Выделить всё

Private Sub RichTextBox1_GotFocus()
Command1.SetFocus
End Sub

tyomitch
покажи, что за сеточка?

[Хакер]

tyomitch
Принимает. MSDN в топку, кстати говоря.

nekeda
Пиксельная сетка, где пикселы размещены в шахматном порядке.

[nekeda]

Почему не отрисовать эту сетку SetLayeredWindowAttributes, если нужна именно сетка? и собственно, используя прозрачность формы по альфа каналу тень можно сделать не псевдо-прозрачную (сеточка) - а действительно, плавно-полупрозрачную.

[Хакер]

Чтобы не быть голословным:

1)

WM_PAINT
An application sends the WM_PAINT message when the system or another application makes a request to paint a portion of an application's window. The message is sent when the UpdateWindow or RedrawWindow function is called, or by theDispatchMessage function when the application obtains a WM_PAINT message by using theGetMessage orPeekMessage function.

WM_PAINT
hdc = (HDC) wParam; // the device context to draw in

2)

Код: Выделить всё

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   975
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6555
   LinkTopic       =   "Form1"
   ScaleHeight     =   975
   ScaleWidth      =   6555
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   600
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   240
      Width           =   2415
   End
   Begin VB.PictureBox Picture1
      Height          =   375
      Left            =   3960
      ScaleHeight     =   315
      ScaleWidth      =   1995
      TabIndex        =   0
      Top             =   240
      Width           =   2055
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PAINT = &HF




Private Sub Text1_Change()
SendMessage Text1.hwnd, WM_PAINT, Picture1.hDC, 0&
End Sub


[tyomitch]

Чтобы не быть голословным:

WM_PAINT
hdc = (HDC) wParam; // the device context to draw in

Откуда это хоть??

Для спрятанного текстбокса твой код не работает, только для видимого.

[EUGY]

hdc = (HDC) wParam;

наверное это есть случайно из WM_PRINTCLIENT.

SetLayeredWindowAttributes

вопрос к nekeda: а как реализовать тень этой фху-ей?

[tyomitch]

Никак, но можно под настоящим окном создать серое полупрозрачное. Так реализована тень от меню, к слову.

[nekeda]

Зачем второе окно?

Сама форма:


Маска для формы:

[Хакер]

Чтобы не быть голословным:

WM_PAINT
hdc = (HDC) wParam; // the device context to draw in

Откуда это хоть??

Из MSDN. Не из того, который писали долбо-либилы, придумавшие VB.NET и прочую дрянь. А из того, что шёл со студией.

Для спрятанного текстбокса твой код не работает, только для видимого.

Для спрятанного через Visible=False контрола это не будет работать, потому что он умный и проверят своё свойство, и если вдруг там 0 то при получении этого (и других) сообщения он ничего не делает.

А вот если спрятать листбокс за формой - всё прекрасно работает.

[GSerg]

Видимо, есть секретный MSDN, доступный лишь избранным...

В нормальном MSDN (и в онлайновом, и в том, который шёл со студией) написано

WPARAM wParam, // not used
LPARAM lParam // not used

,

The WM_PAINT message is generated by the system and should not be sent by an application. To force a window to draw into a specific device context, use the WM_PRINT or WM_PRINTCLIENT message. Note that this requires the target window to support the WM_PRINTCLIENT message. Most common controls support the WM_PRINTCLIENT message.

и

For some common controls, the default WM_PAINT message processing checks the wParam parameter. If wParam is non-NULL, the control assumes that the value is an HDC and paints using that device context.

[tyomitch]

А вот если спрятать листбокс за формой - всё прекрасно работает.

Предлагаешь мне прятать мой текстбокс за формой??

Мне нет абсолютно никакого смысла отрисовывать ещё куда-то картику с видимого текстбокса.