Richedit Canvas

[Laz61]

Arkadaslar merhaba

Ben Richedit veya Memonun canvasina yazildiginda silinmeyen yatay 1-10 kadar cizgiler cizmek istiyorum. Cizgiler arka planda (canvas) silinmeden kalacak. Yardimci olursaniz sevinirim.

Hosca kalin

[Laz61]

Arkadaslar merhaba

Siteye soruyu sorduktan sonra, sorunumu cözdüm. ilgilenenler icin kod asagida.

Ben aslinda bir müzik programi yapiyorum. Bunun icin richediti kullandim. Dizegi arka plana cizmek istedim. Oldu ama, halletmem gereken bir sürü sorun cikti. Pek saglikli bir yöntem de degil. Bildiginiz bir yöntem veya müzik notasi icin bir vcl veya notalar icin hangi vcl'yi kullanmam gerek.

Hosca kalin

procedure TForm1.Button1Click(Sender: TObject);
var
c: Tcontrolcanvas;
begin
c:= Tcontrolcanvas.create;
c.control:=Richedit1;
c.MoveTo(1000,90);
c.lineto(0,90);

[aslangeri]

s.a.
paylaşımınız için teşekkürler.