QRAngledLabel Caption (Çözüldü)

[haydarxxx]

QuickRep da QRAngledLabel companettim var.Raporu ön izlemeye alırken vt den QRAngledLabel ın caption özelliğine bilgi ataması yapıyorum.QuickRep de 58 tane QRAngledLabel var.(Bilgi olarak QRAngledLabel normal QRLabel dan farkı yazıyı dik olarak yazması bir ayar özeliğ de yok)

Kod: Tümünü seç

if not Assigned(Form37) Then
Application.CreateForm(TForm37, Form37);
form37.QRAngledLabel1.Caption:=IBDataSet_TARIH.FieldByName('1').value;
form37.QRAngledLabel2.Caption:=IBDataSet_TARIH.FieldByName('2').value;
form37.QRAngledLabel3.Caption:=IBDataSet_TARIH.FieldByName('3').value;
form37.QRAngledLabel4.Caption:=IBDataSet_TARIH.FieldByName('4').value;
form37.QRAngledLabel5.Caption:=IBDataSet_TARIH.FieldByName('5').value;
form37.quickrep1.preview;

5 kayıt a kadar QRAngledLabel caption nuna bilgi aktarması yapıyor.Ama kayıt sayısı 5 i geçtiği zaman raporu ön izlemeyee almıyor bir hatada vermiyor.

Kod: Tümünü seç

form37.QRAngledLabel1.Caption:=IBDataSet_TARIH.FieldByName('1').value;
form37.QRAngledLabel2.Caption:=IBDataSet_TARIH.FieldByName('2').value;
form37.QRAngledLabel3.Caption:=IBDataSet_TARIH.FieldByName('3').value;
form37.QRAngledLabel4.Caption:=IBDataSet_TARIH.FieldByName('4').value;
form37.QRAngledLabel5.Caption:=IBDataSet_TARIH.FieldByName('5').value;
form37.QRAngledLabel6.Caption:=IBDataSet_TARIH.FieldByName('6').value;
form37.QRAngledLabel7.Caption:=IBDataSet_TARIH.FieldByName('7').value;
form37.QRAngledLabel8.Caption:=IBDataSet_TARIH.FieldByName('8').value;
................................
..........................

gibi



IBDataSet de kayıt boş ise label a aktarmıyor veri girişi yaptığımda düzeldi.Teşekkürler