Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#8

AW: Quickreport: Boolean mit Ja/Nein statt Wahr/Falsch anzeigen

  Alt 27. Sep 2010, 01:59
Oder aber den QRDBText bei Font auf Wingdings einstellen & anschließend das OnPrint Event des Feldes auf
Das ist auch ein schöner Lösungsweg.
Wobei man versuchen sollte den Wert des Feldes über den Parameter Sender rauszuziehen:
Delphi-Quellcode:
procedure TFormDruckenIBC.QRDBTextXXPrint(sender: TObject; var Value: String);
var
  f : TField;
begin
  f := (Sender as TQRDBText).Dataset.FieldByName((Sender as TQRDBText).DataField);
  if (f.AsBoolean then
   then Value := #254
    else Value := #168;
end;
  Mit Zitat antworten Zitat