我想写一个简单的应用程序,需要显示乐谱(乐谱上的音符)的音符。它不是用来写乐谱软件的,它只是用来在只读模式下显示一些音符。当然,我可以有一张图片作为背景,上面有一根空的手杖,然后画上笔记……当然,这需要时间。
是否有合适的VCL组件?
当然,越丰富越好,不管怎样,即使是一个可以一个接一个地显示注释的基本组件也足够了。如果TMusicStaff的一个实例名为MyMusicStaff,我可以用这种方式向它添加注释:
MyMusicStaff.Add([G4,F4,D4])
(当然,在Add方法中,我不是在指定持续时间,或者如果它们是和弦或旋律方式,它只是给出一个想法)。
我想我已经表达了我自己。
发布于 2010-05-18 22:14:42
一种可能是在画布上使用像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
https://stackoverflow.com/questions/2857755
复制相似问题