Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zeichensatz bei QuickReport (https://www.delphipraxis.net/51198-zeichensatz-bei-quickreport.html)

marabu 8. Aug 2005 10:16

Re: Zeichensatz bei QuickReport
 
Ich vermute, der Fehler steckt in deinem Code bzw. in der Art wie du den Font gesetzt hast - aber im Kaffeesatzlesen (d.h. ohne deinen Quelltext) war ich noch nie richtig gut.

marabu

remie 8. Aug 2005 10:28

Re: Zeichensatz bei QuickReport
 
Mit dem Font mach ich eigentlich garnix das is ja das lustige an der geschichte ich fülle eigentlich nur Meine 2 memos und die Positionen

Delphi-Quellcode:
    Qrmemo1.Lines.Text := '';
    Qrmemo2.Lines.Text := '';
    QrLabel9.Caption := suchenpreis1.asString;
    QRLabel10.Caption := suchenpreis1.AsString;
    if suchenmahnstufe.Value = 1 then QRLabel11.Caption := FloattoStr(db.preis1)
    else if suchenmahnstufe.Value = 2 then QRLabel11.Caption := FloattoStr((Mahngebuer1+Mahngebuer2))
         else if suchenmahnstufe.Value = 3 then QRLabel11.Caption := FloatToStr((Mahngebuer1+Mahngebuer2+Mahngebuer3))
                else QrLabel11.Caption := '0';
    QRLabel13.Caption := FloattoStr(StrtoFloat(QRLabel9.Caption)+StrToFloat(QRLabel10.Caption)+StrToFloat(QRLabel11.Caption));
    QRLabel9.Caption := Format('%8.2f',[suchenbetrag.Value]);
    QRLabel10.Caption := Format('%8.2f',[StrToFloat(QRLabel10.Caption)]);
    QRLabel11.Caption := Format('%8.2f',[StrToFloat(QRLabel11.Caption)]);
    QRLabel13.Caption := Format('%8.2f',[StrToFloat(QRLabel13.Caption)]);
    QRLabel9.Caption := Qrlabel9.Caption+' EURO';
    QRLabel10.Caption := Qrlabel10.Caption+' EURO';
    QRLabel11.Caption := Qrlabel11.Caption+' EURO';
    QRLabel13.Caption := QrLabel13.Caption+' EURO';

    QrLabel4.Caption := Multilang1.GetTextEx('@posten',a);
    QrLabel5.Caption := Multilang1.GetTextEx('@preis',a);
    Qrlabel6.Caption := Multilang1.GetTextEx('@ausstaende',a);
    Qrlabel7.Caption := Multilang1.GetTextEx('@mahngbr',a);
    Qrlabel8.Caption := Multilang1.GetTextEx('@inkassogbr',a);
    Qrlabel12.Caption := Multilang1.GetTextEx('@summe',a);
    Qrlabel6.Caption := Qrlabel6.Caption+suchenbuchungsnr.AsString;

// Dan lade ich die Texte für die Memos aus der DB und schreib sie ins Memo das Wars

remie 8. Aug 2005 10:44

Re: Zeichensatz bei QuickReport
 
Habe das Problem gefunden, ich muss die schriftart nicht nur im Font einstellen, sondern auch in den Report eigenschaften sprich rk --> Reporteinstellungen
dan funktioniert es ( scheiss QuickReport )

Trotzdem Danke für die Hilfe

Union 8. Aug 2005 10:50

Re: Zeichensatz bei QuickReport
 
Zitat:

Zitat von remie
Habe das Problem gefunden, ich muss die schriftart nicht nur im Font einstellen, sondern auch in den Report eigenschaften sprich rk --> Reporteinstellungen
dan funktioniert es ( scheiss QuickReport )

Trotzdem Danke für die Hilfe

Das stimmt nicht ganz... Im Reportobjekt sollte man nur die Standardschriftart einstellen. Dann gibt es aber in fast jedem QR-Objekt (Bands, TQrCustomPrintable) sowohl die Eigenschaft Font als auch ParentFont. Die darf nicht auf True stehen, sonst wird der Font es Elternobjekts übernommen. Das ist kein Bug, sonder ein feature, das Dir erlaubt, Fonts hierarchisch und mit wenig Aufwand zu setzen ;)

remie 8. Aug 2005 10:54

Re: Zeichensatz bei QuickReport
 
das habe ich ja überall aus gehabt und es ging trotzdem nicht :gruebel:
Aber egal es geht wieder und der cheff is glücklich das is ja alles was zählt :wink:


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:57 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz