delphi - 音乐符号 UI VCL 组件。它存在吗？

Question

已结束。此问题正在寻求书籍、工具、软件库等的推荐。它不满足 Stack Overflow guidelines 。目前不接受答案。

---

我们不允许提出寻求书籍、工具、软件库等推荐的问题。您可以编辑问题，以便用事实和引文来回答。

已关闭 4 年前。

Improve this question

我想编写一个简单的应用程序，需要显示乐谱上的音符(乐谱上的音符)。它不是用于编写乐谱软件，它只是用于以只读模式显示五线谱上的一些音符。我当然可以用一个空的工作人员的图像作为背景并绘制笔记...但这当然需要时间。

有合适的VCL组件吗？

当然是越丰富越好，反正一个能依次显示注释的基本组件就够了。如果 TMusicStaff 的实例名为 MyMusicStaff，我可以通过以下方式向其添加注释:

MyMusicStaff.Add([G4,F4,D4])

(当然，在 Add 方法中，我没有指定持续时间，或者它们是否处于和弦或旋律方式，这只是为了给出一个想法)。

我想我表达了自己。

Answer 1

一种可能性是使用音符字体在 Canvas 上绘制音符，例如 this one .

例如:

procedure TFormMain.PaintBoxNotesPaint(Sender: TObject);
var
  Canvas: TCanvas;
begin
  Canvas := TPaintBox(Sender).Canvas;

  Canvas.Font.Name := 'MusiQwik';
  Canvas.Font.Size := 30;

  Canvas.TextOut(10, 30, '&=B=C=D=E=F=G=H=I=!=R=S=T=U=!');
end;

给出:

notes http://img534.imageshack.us/img534/3290/clipboard01fl.png