Серьезно...Много проблем с этим. Надо писать FLL.

Лучше нарисуй ActiveX на Васике или С++. Меньше будет геморроя...

На фоксе это все геморройно...Сам не пробовал. Привожу выдержку из ФИДО

Fri Oct 24 2003 09:07, German Zinov'evich wrote to Alexander Korolev:

GZe> Hу, что-ж, по-порядку...
GZe> за точную транскрипцию не отвечаю, главное смысл
GZe> 1). myDC=GetDC(myform.hwnd) && все понятно
GZe> 2). hfont=CreateFont( типа параметры для вертикального вывода текста,
GZe> четвертый параметр -0) && настройка фонта
GZe> 3). = DeleteObject (SelectObject (myDC, hFont)) && сцепляем фонт и DC
Вот здесь лучше
hOldFont = SelectObject (myDC, hFont)

GZe> 4). =SetTextColor( параметры)
GZe> 5). =SetBkMode( параметры) && .. ну нравятся мне красивые прозрачные
GZe> картинки.. :)
GZe> 6). =TextOut( параметры) && все выводится как надо, но текст залезает на
GZe> закладки управления страницами (pageframe)


Hе забыть
SelectObject (myDC, hOldFont)
DeleteObject (hFont)
ReleaseDC(...)

GZe> третий вариант:
GZe> ....
GZe> ....
GZe> =GetRgnBox() или createRectRgn() уже не помню и не так суть важно.
GZe> =DrawText( параметры, 18) && 18 - wrap + rigth alignment
GZe> если HFont горизонтальный - все нормально, вертикальный текст при
GZe> прорисовке находится непонятно в каких системах координат причем такое
GZe> ощущение, что математически обрабатывается только область где должна
GZe> находиться прорисовка горизонтального текста и при выводе текст
GZe> усекается со всех возможных и невозможных сторон :((
GZe> Должна же быть хоть какая-то логика, но я ее не нашел.

Попробуй вместо DrawText использовать TextOut или ExtTextOut. Для этих функций
задаешь начальную точку, из которой будет рисоваться первая буква

GZe> Hу приведите же кто-нибудь пример для GetDCEx() - помоему, это
GZe> единственно приемлимый вариант справиться с Pageframe!

Hу что ты к этой GetDCEx привязался? И без нее все не так уж плохо.

GZe> И еще... "субклассируй окно" - это открывать дочернее?

Hет, всю перерисовку выполнить в FLL и подменить оконную процедуру.

GZe> По поводу .PAINT() OR WM_PAINT .. Блин! ну ведь это еще водключать
GZe> обработчики. Я конечно заметил странность поведения .paint() особенно
GZe> при перекрытии окон, наверное придется и это еще учитывать. Просьбочка
GZe> примерчиком обработки WM_PAINT поделитесь?

Только в FLL
(MSDN в направлении
SetWindowLong(hWnd, GWL_WNDPROC, (LONG)myNewProc)
WindowProc
CallWindowProc
).
Фоксовый код можно тоже вызывать (по _Execute), однако для WM_PAINT не
рекомендуется, ибо тормоза.

С уважением, А. Королев

А что VB-шный не работает?
Вероятно вы что-то не так написали...