Canvas.Texout ile yazılan birimi sağa yaslamak.

[Biltes]

Arkadaşlar öncelikle günaydın;

Sorunum şu,

Kod: Tümünü seç

      Canvas.TextOut(325,105+(20*i),FormatCurr(',0.00',dxCurrencyEdit1.Value));

gibi bir para birimini fişin sağ tarafına yazdırıyorum ama istediğim tarzda deil bu tarz fişin sağ tarafından çıkması gereken para birimlerini sağa yaslayarak nasıl yazdırabilirim.

Yardımlarınız için şimdiden çok tşk ederim.

[cihan]

Arkadaşlar öncelikle günaydın;

Sorunum şu,

Kod: Tümünü seç

      Canvas.TextOut(325,105+(20*i),FormatCurr(',0.00',dxCurrencyEdit1.Value));

gibi bir para birimini fişin sağ tarafına yazdırıyorum ama istediğim tarzda deil bu tarz fişin sağ tarafından çıkması gereken para birimlerini sağa yaslayarak nasıl yazdırabilirim.

Yardımlarınız için şimdiden çok tşk ederim.

Kod: Tümünü seç

canvas.Rectangle(9,9,60,30);/*yanaştığını görmek için çerçeve ciziyorum*/
settextalign(canvas.Handle,TA_RIGHT);
TextOut(canvas.Handle,50,10,pansichar('126,35'),6)
burda 6 karakter uzunluğu
burda 50 karakter sayısı+karakter genişliği

sanırım çalışır

[Biltes]

Hocam verdiğiniz kod ok onu çalıştırdım ama şöyle bir sorun var, eğer sondaki rakamı 6 değil de 10 yaparsanız bu sefer parabimini 10'a tamamlamak için sonuna (l) gibi bir işaret atıyor bunu nasıl yok edebiliriz.

İlginiz için çok tşk ederim

[cihan]

Hocam verdiğiniz kod ok onu çalıştırdım ama şöyle bir sorun var, eğer sondaki rakamı 6 değil de 10 yaparsanız bu sefer parabimini 10'a tamamlamak için sonuna (l) gibi bir işaret atıyor bunu nasıl yok edebiliriz.

İlginiz için çok tşk ederim

pansichar ('126,35')içindeki değerinin length bir değişkene al ve 6 yerine o değişkeni kullan

[Biltes]

Hocam mümkünse bir örnek yazabilrmisiniz? Tam olarak bu fonksiyonu kullanmayı bilmiyorum. Örnekler var onları inceledim ama istediğim gibi mantığını oturtamadım.

Çok tşk ederim...

[sabanakman]

Kod: Tümünü seç

YazılacakYaziGenisligi:=Canvas.TextWidth('126,35');

[mrmarman]

- Verilmş kodu modifiye ederek şöyle bir kurgu hazırladım her şey dinamik olsun diye. Sen sadece rakamları değiştir otomatik yer değişikliği olur..

Kod: Tümünü seç

Const
  Soldan        =  9;
  Tepeden       =  9;
  AlanGenislik  = 100;
  AlanYukseklik =  20;
Var
  Tutar      : Double;
begin
  Tutar      := 126.35;
  //Yanaştığını görmek için çizilecek çerçeve...
  Canvas.Rectangle( Soldan,                 Tepeden,
                    Soldan + AlanGenislik,  Tepeden + AlanYukseklik);
  SetTextAlign( Canvas.Handle, TA_RIGHT );
  TextOut( Canvas.Handle, Soldan + AlanGenislik-3,
           Tepeden + ((AlanYukseklik - Canvas.TextHeight(FloatToStr(Tutar))) div 2),
           pAnsiChar(FloatToStr(Tutar)), Length(FloatToStr(Tutar))); // -3 yan çizgiye değmesin diye, dikey ise otomatik ortalanır.
end;

[Biltes]

Hocam hızır gibisiniz yemin ederim. Tam istediğim gibi oldlu olay elleriniz, klavyeniz dert görmesin.

İlgileriniz için çok tşk ediyorum.