Fast R. 1 satira yazilabilecek harf sayısını nasıl hesaplaya

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
spiderman
Üye
Mesajlar: 70
Kayıt: 02 Ara 2005 03:17

Fast R. 1 satira yazilabilecek harf sayısını nasıl hesaplaya

Mesaj gönderen spiderman »

iyi haftasonları,

Fast Report icin rapor olusturma araci yaziyorum. Bir konuda takıldım. Kullanıcının seçtiği alanların 1 satırı gecip gecmedigi hesaplayamadım. Bu hesaplama kullanılan fontunda değerine göre değişmesi lazım. Gercekte hedefim ise secilen alanların 1 satırı gecmeyecek sekilde daraltılması.
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

FastReport kullanmadım ama fikir vermesi açısından öneride bulunabilirim.

- Windows Fontları kullanılarak belli bir CPI değeri sabitesine göre

Kod: Tümünü seç

Canvas.TextWidth('Muharrem ARMAN')
değeri bize ilgili canvas içib string ifadenin ne kadar pixel uzunluk kapladığını verir.

- Band baskısına göndereceğin alanların toplamını aynı şekilde bir string ifadeye koyarsan bu şekilde uzunluğunu tespit edebilirsin. Uzunluk limite kadar gerileyene kadar da string ifadenin sonundan harf eksilten bir döngü ile amacına ulaşabilirsin.
Resim
Resim ....Resim
Cevapla