Delphi Quickreport

السلام عليكم

عند استعمالك للـ QRDBText اذهب إلى الأحاث (Event) بالضبط عند OnPrint

مثلا استعملت قاعدة البيانات biolife.db من DBDEMOS Alias

procedure TQuickReport2.QRDBText4Print(sender: TObject; var Value: String);
begin
 if Table1.FieldByName('Length (cm)').AsInteger<100 then
	QRDBText4.Font.Color := clRed
  else QRDBText4.Font.Color := clBlack;
end;

أو

procedure TQuickReport2.QRDBText4Print(sender: TObject; var Value: String);
begin
 if strtoint(Value)<100 then  QRDBText4.Font.Color := clRed
  else QRDBText4.Font.Color := clBlack;
 end;

النتيجة

شكرا جزيلا

شرح كافي وافي

يعطيك ألف عافية