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

[Хакер]

Тогда видимый текст-бокс надо сабклассить и не пускать лишние сообщения. Т.е. недопускать, чтобы юзер не мог выделить, чтобы курсор у него не менялся на I-beam и тд. и тп.

GSerg
Ага, есть, MSDN Library Visual Studio 6.0 называется.

[GSerg]

Ага, именно из неё я тебе текст и скопировал.

[nekeda]

Т.е. недопускать, чтобы юзер не мог выделить,

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

Private Sub RichTextBox1_GotFocus()
Command1.SetFocus
End Sub

чтобы курсор у него не менялся на I-beam

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

MousePointer=1

[Хакер]

nekeda

Действительно,

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

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1
      Caption         =   "Command1"
      Height          =   255
      Left            =   480
      TabIndex        =   1
      Top             =   240
      Width           =   495
   End
   Begin RichTextLib.RichTextBox RichTextBox1
      Height          =   2055
      Left            =   840
      TabIndex        =   0
      Top             =   600
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   3625
      _Version        =   393217
      Enabled         =   -1  'True
      MousePointer    =   1
      TextRTF         =   $"Form1.frx":0000
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub RichTextBox1_GotFocus()
    Command1.SetFocus
End Sub

лучше чем

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

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin RichTextLib.RichTextBox RichTextBox1
      Height          =   1575
      Left            =   -3120
      TabIndex        =   0
      Top             =   -1560
      Width           =   3135
      _ExtentX        =   5530
      _ExtentY        =   2778
      _Version        =   393217
      Enabled         =   -1  'True
      MousePointer    =   1
      TextRTF         =   $"Form1.frx":0000
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Paint()
    SendMessage RichTextBox1.hwnd, WM_PAINT, Me.hDC, 0
End Sub


Даже если наплевать на это.


Возражение Тёмыча:

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

Да! Действительно! Спратять ричэдит за пределами формы - это стрёмно. А спрятать там лишний, нафиг никому не нужный Command1 - нормально. Никто не возражает. Никто!

И даже если наплевать на это, то, nekeda, при использовании твоего метода - курсор всё равно кратковременно появляется.

Ну и ладно. Пусть Тёмыч сам разбирается, я за него не переживаю - он ерунду не выберет.

[tyomitch]

Тут мне сбоку подсказывают, что на x64 не работают 16-битные проги, так что от winhelp-а всё равно придётся отказаться, и писать что-то своё :-/

[keks-n]

Хакер

Чтобы не быть голословным: Правильный MSDN писал(а):

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

ИМХО, это относится к Windows CE. Проверь, просто в описании для этой оси такое есть, а для настольной винды найти не получается.

[Хакер]

Меня, например, это мало интересует. Никогда не писал для неё и не буду. И уверен, что tyomitch требует решение тоже не для неё.

[keks-n]

Хакер
Поиск выдаёт результаты для всего подряд.

[tyomitch]

Вниманию публики предлагается экспериментальная RTF-рендерилка.
Когда не лень будет заполнять все нужные для этого формуляры, запощу это в кирпичи.

[keks-n]

tyomitch
Код очень хороший(как и всё остальное), но каждый раз грузить и выгружать библу, ИМХО, медленно

[tyomitch]

Дописал своё окно-попап, целиком с форматированием и с сетчатой тенью, без регионов и без альфы -- точь-в-точь как в оригинале.
Правда, на Delphi, но может и так кому-нибудь пригодится.