Report Builder Dik Label

[mt]

Delphi 5 ve rapolrama için Report Builder kullanıyorum.Raporda dik yazı nasıl yazdırırım.
Cevaplar için Teşekkürler.

[mrmarman]

Merhaba.

- Ben normalde QuickReport kullanıyorum. İstediğin işlem benzeri durumlarda kullandığım yegane metod, bir image nesnesine canvas işlemleriyle dik yazı yazdırıp bunun yazıcıdan çıkmasını sağlamak şeklindedir.

[mt]

Cevabın için teşekkür ederim. Elinde küçük bir örnek varsa yazabilirmisin.

[mrmarman]

Selam.

- Aşağıda 90 derece eğimli yazı yazan kod örneği veriyorum.

- Denemek için boş bir forma yazıcıdan çıktı olarak kullanacağın genişlik ve boyutta bir tane TImage nesnesi koy.

- With bloğundaki Font ayarlarını dilediğin şekilde ayarla ve

Kod: Tümünü seç

    TextOut(3, ClipRect.Bottom, 'Dikey Yazi');

satırında x ve y değerleriyle ( 3, ClipRect.Bottom ifade edilen değerleri ki ClipRect.Bottom resmin en alt sınırını verir.) oynayarak şekillendir. Sonuç hoşuna giderse yazıcı BeforePrint olayında bu işlemi yazıcı sayfanın Image nesnesine uygula.

Kod: Tümünü seç

var
  lf : TLogFont;
  tf : TFont;
begin
  with Image1.Canvas do begin
    Font.Name   := 'Arial';
    Font.Size   := 8;
    Font.Style  := Font.Style+[fsBOLD];
    Brush.Style := bsClear;
    tf := TFont.Create;
    try
      tf.Assign(Font);
      GetObject(tf.Handle, sizeof(lf), @lf);
      lf.lfEscapement  := 900;
      lf.lfOrientation := 900;
      tf.Handle := CreateFontIndirect(lf);
      Font.Assign(tf);
    finally
      tf.Free;
    end;
    TextOut(3, ClipRect.Bottom, 'Dikey Yazi');
  end;
end;

[mt]

Teşekkürler

[fatihbarut]

arkadaşlar reportbuilderda label ın angle özelliğini 90 yapıverin dik yazsın. sayfalarca kodla uğraşmak yerine

[danaci]

fatih barut arkadaş bu reportbuilderin label için angel propertisi nerede
ben d6 için olanını kullanıyorum ama öyle bir özelliği yok

[fatihbarut]

merhaba
delphi 7 kullanmanı tavsiye ederim. r builder 9 dan itibaren var