Qreport'da Şarta Bağlı olarak Font değişimi

[Akshan]

Arkadaşalr bu konuyu forumda araştırdım ancak benim istediğime göre bir sonuç bulamadım..
--Sorunum--
Qoucikreportta Ortalama diye bir QRDBtext im var.Bu Textin fontunu Genel Ortalamnın altında ve üstünde olanlar olarak değiştirmek isityorum..
////////////////////////////////////////////////////////////////////
if (IBQuery4ORTALAMA.AsFloat)< IBQuery5GENELORTALAMA.AsFloat then
QRDBText7.Font.Style:=[fsBold,fsItalic,fsUnderline]
else
QRDBText7.Font.Style:=[fsItalic];
/////////////////////////////////////////////////////////////////////////

Bu kod yapısında çalıştırdığım zaman bütün değerleri İtalic olarak gösteriyor.Çünkü sıralamayı büyükten küçüğre doğru yaptırıyorum ve ilk sıradakinin ortlaması da genel ortalamanın üstünde olduğu için ilk değere göre bütün hepsini İtalic yapıyor...

Amacım genel ortalamanın altında ve üstünde olanlar olmak üzere font değişimi yaptırmak..

Teşekkürler.....

[rsimsek]

Şart sağlandığında verdiğin sitili sağlanmıyorsa alman gerekir. Denemeden gönderiyorum fakat aşağıdaki yazıma benzer bir şekilde olmalı

Kod: Tümünü seç

if (IBQuery4ORTALAMA.AsFloat)< IBQuery5GENELORTALAMA.AsFloat then
  QRDBText7.Font.Style:=[fsBold,fsItalic,fsUnderline]
else
  QRDBText7.Font.Style:= QRDBText7.Font.Style -[fsItalic] - [fsUnderline] - [fsBold]; 

yada

Kod: Tümünü seç

if (IBQuery4ORTALAMA.AsFloat)< IBQuery5GENELORTALAMA.AsFloat then
  QRDBText7.Font.Style:=[fsBold,fsItalic,fsUnderline]
else
begin
  QRDBText7.Font.Style:= [];
  QRDBText7.Font.Style:= [fsBold]; // [fsItalic]
end;
[fsBold]; 

Not: Ayrıca eğik/italik çıkması normal. Çünkü her halükarda fsItalic demişsin