Ищется контрол для вывода текста в виде графики

[coolers]

Ищется контрол для вывода текста в виде графики, что бы при наложении на график была прозрачность, текст должен быть полый внутри.
График вывожу при помощи acChart.ocx

Вообще нужно что то типа этого, пример прилагаю.
Или посоветуйте как сделать.


P.S. Если вопрос сформулировал не так, просьба ногами не пинать, я у вас новенький.

[Cav]

у самого шрифта должна быть альфа прозрачность? Если нужна дырека изнутри - просто наёди соответсвующий шрифт, а вывод на экран его уже так делается:

http://planetsourcecode.com/vb/scripts/ ... 5&lngWId=1

(там есть пример с CreateFont)

[GSerg]

Пойдёт?

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

Option Explicit

Private Declare Function BeginPath Lib "gdi32.dll" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32.dll" (ByVal hdc As Long) As Long
Private Declare Function StrokePath Lib "gdi32.dll" (ByVal hdc As Long) As Long

Private Sub Form_Load()
  Me.Font.Size = 36
  Me.Font.Name = "Arial"
  Me.Font.Bold = True
  Me.Font.Italic = True
 
  Me.AutoRedraw = True
  Me.BackColor = vbBlue
  Me.ForeColor = vbYellow
 
  BeginPath Me.hdc
  Me.Print "1,54 B"
  EndPath Me.hdc
 
  StrokePath Me.hdc
End Sub

[coolers]

Не, это не совсем что нужно, прога критична ко времени, вывожу 4 графика, да еще и 300мс задержка на работу с com.

У меня встречный вопрос, как сделать прозрачным Label если его установить на acChart.ocx, пока не получается, может с руками проблема.

Кому попадался "дырявый" шрифт?

[coolers]

Пойдёт?

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

Option Explicit

Private Declare Function BeginPath Lib "gdi32.dll" (ByVal hdc As Long) As Long
Private Declare Function EndPath Lib "gdi32.dll" (ByVal hdc As Long) As Long
Private Declare Function StrokePath Lib "gdi32.dll" (ByVal hdc As Long) As Long

Private Sub Form_Load()
  Me.Font.Size = 36
  Me.Font.Name = "Arial"
  Me.Font.Bold = True
  Me.Font.Italic = True
 
  Me.AutoRedraw = True
  Me.BackColor = vbBlue
  Me.ForeColor = vbYellow
 
  BeginPath Me.hdc
  Me.Print "1,54 B"
  EndPath Me.hdc
 
  StrokePath Me.hdc
End Sub

Это почти то что нужно, только установить ее надо на элемент графика через label, или еще как.
пример в архиве, отдельно компонент.
Помогите разобраться!

[GSerg]

Позорный контрол.
Хостить другие контролы не может.
События paint не имеет.

Есть только hdc, на нём и рисуй. Правда, как ты будешь отлавливать момент для рисования, я не знаю.

[coolers]

Позорный контрол.
Хостить другие контролы не может.
События paint не имеет.

Есть только hdc, на нём и рисуй. Правда, как ты будешь отлавливать момент для рисования, я не знаю.

А что есть более приемлимое для вывода графиков на подобие осцила?

[coolers]

Может кто нибуть окажет посильную помощь?