Текст в зеркльном отображении...

[BAMBUR]

В телевизионных студиях для ведущих используются Телесуфлёры (перед объективом камеры устанавливается (горизонтально) видеомонитор и под углом 45гр. оптическое стекло, в котором отражается текст. Получается, что ведущий читает текст глядя в объектив). Технически, подобный девайс построить несложно, а вот программное обеспечение... В общем, монитор телесуфлёра отображает текст в зеркально-перевёрнутом виде. Пробовал настроить выход своей видеокарты (FX-5200), но там изображение только переворачивается, а зеркально не отражается.
Подскажите, можно ли програмно реализовать зеркально перевернутый текст в формате RTF, чтоб получить на выходе второго монитора нужное для телесуфлёра изображение.

[Sirik]

как вариант загнать текст в picture и по пиксельно перевернуть

[Хакер]

как вариант загнать текст в picture и по пиксельно перевернуть

Каким образом перевернуть. Нука раскажи. Случайно не циклом

[Sirik]

попиксельно перевернуть

[Viper]

Надо копать в сторону функции SetWorldTransform и структуры XFORM.
Можно повернуть на нужный угол, сжать, отразить и так далее. Но она работает только на платформе NT!!!

[GSerg]

Прикалываемся?

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

Option Explicit

Private Declare Function StretchBlt Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Sub Form_Load()
  Me.AutoRedraw = True
  Me.ScaleMode = vbPixels
 
  Me.Print "Гыгыгы."
 
  With Me.Controls.Add("VB.Picturebox", "Picture1")
    .AutoRedraw = True
    .ScaleMode = vbPixels
    .Move 150, 100, 100, 100
    StretchBlt .hdc, 0, 0, 100, 50, Me.hdc, 0, 50, 100, -50, vbSrcCopy
    .Refresh
    .Visible = True
  End With
End Sub

[Хакер]

Эх, опять опередили

Ну если всё таким надо - мой вариант (т.е. то, что сказал GSerg, но с rtf):

[BAMBUR]

Во как!

Как раз только что на одном из форумов С++ вычитал про функцию StretchBlt...
Огроменное спасибо!!!
Пойду поколдую, проблем ещё много будет...