Entwickler-Ecke

Datenbanken - Freereport RichEdit Bug *fixed*


Xion - Di 11.05.10 10:52
Titel: Freereport RichEdit Bug *fixed*
Hi,

ich lasse den Freereport einen Report generieren. Neben ein paar "Edits" (einzeilige Memos) ist da ein RichEdit ganz unten. Dieses kann beliebig groß sein und auch über mehrere Seiten gehen. Ok, da schlagen noch andre Bug zu, manche hab ich schon im Freereport-Code gefixt (sonst gibts nur Access Violations).

Das eigentlich Problem ist aber: Der Report sieht ok aus. Ich drucke ihn (nach PDF). Im PDF ist das Layout der Schrift aber anders...etwas größer, deutlich breiter. Die Schrift selbst könnte die selbe sein, nur das Layout ist anders. Was zur Folge hat, dass es zusätzliche Zeilenumbrüche gibt und zudem der "Rahmen" des gedruckten nicht an die veränderte Schrift angepasst wird => Es wird unten was abgeschnitten.

Jetzt die Frage:
Wie bekomme ich denn überhaupt raus, wie die Einstellungen im PDF sind? Und warum sind sie nicht so wie im Report? Wenn ich die Schriftgröße allgemein kleiner mache, dann ist sie überall kleiner...aber im PDF ist sie breiter. Da muss irgendwo ein Faktor rumhängen...

PS: Das eigentliche Problem ist, dass er es auch beim Drucken auf Papier so macht, weßhalb dann halt was fehlt => ich kann nix mehr aus meiner Datenbank drucken => Katastrophe ;) Interessanter Weise lief das ganze schon ne Weile (3 Jahre?)...scheint fast so als hat sich da was beim Speichern der frf Datei geändert.

In dem Code hier ist vermutlich das Verbrechen:

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
 
procedure TfrRichView.ShowRich(Render: Boolean);
var
  Range: TFormatRange;
  MaxLen, LogX, LogY: Integer;
  StopRender: Boolean;
  EMF: TMetafile;
  EMFCanvas: TMetafileCanvas;
  re: TRichEdit;
begin
  if Render then
    re := RichEdit else
    re := SRichEdit;
  FillChar(Range, SizeOf(TFormatRange), 0);
  with Range do
  begin
    if Render then
      hdc := Canvas.Handle else
      hdc := GetDC(0);
    if Render then
      if IsPrinting then
      begin
        LogX := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
        LogY := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
        rc := Rect(DRect.Left * 1440 div LogX, DRect.Top * 1440 div LogY,
                   DRect.Right * 1440 div LogX, DRect.Bottom * 1440 div LogY);
      end
      else
      begin
        LogX := Screen.PixelsPerInch;
        LogY := LogX;
        rc := Rect(0, 0, Round(SaveDX * 1440 / LogX), Round(SaveDY * 1440 / LogY));
        EMF := TMetafile.Create;
        EMF.Width := SaveDX;
        EMF.Height := SaveDY;
        EMFCanvas := TMetafileCanvas.Create(EMF, 0);
        EMFCanvas.Brush.Style := bsClear;
        hdc := EMFCanvas.Handle;
      end
    else
    begin
      LogX := Screen.PixelsPerInch;
      LogY := LogX;
      rc := Rect(0, 0, Round(DX * 1440 / LogX), Round(DY * 1440 / LogY));
    end;
    hdcTarget := hdc;
    rcPage := rc;
    LastChar := CharFrom;
    MaxLen := re.GetTextLen;
    chrg.cpMax := -1;
    repeat
      chrg.cpMin := LastChar;
      LastChar := re.Perform(EM_FORMATRANGE, Integer(Render), Integer(@Range));
      StopRender := ((LastChar < MaxLen) and (LastChar <> -1)) or
                    (LastChar >= MaxLen) or (LastChar = -1) or (LastChar = 0);
    until StopRender;
  end;
  re.Perform(EM_FORMATRANGE, 0, 0);
  if not Render then
    ReleaseDC(0, Range.hdc)
  else if not IsPrinting then
  begin
    EMFCanvas.Free;
    Canvas.StretchDraw(DRect, EMF);
    EMF.Free;
  end;
end;

Die 1440 kommen mir sehr suspekt vor.

Googlen sagt mir:
http://www.aboutvb.de/vba/artikel/vbascreenres.htm hat folgendes geschrieben:

Aus der Bildschirmauflösung in dpi können Sie zusätzlich noch den vertikalen und den horizontalen Umrechnungsfaktor für die Maßeinheit TWIPS ermitteln. Diese ist ein bei vielen externen Steuerelementen (wie etwa den Microsoft Common Controls) verwendeter Standard für bildschirmbezogene Abmessungen. Diese Maßeinheit errechnet sich als 1440tel der horizontalen bzw. vertikalen Bildschirmauflösung, wie sie von GetDeviceCaps geliefert wird.

Hä? *googelt*
http://de.wikipedia.org/wiki/Twip hat folgendes geschrieben:

ist eine angloamerikanische Längeneinheit und bezeichnet die Teilung „TWentieth of an Inch Point“
1 twip = 17,6389241667372 μm

:schmoll:

Etwas probieren sagt mir, da berechnet er nur die Seitengröße...ich kann durch verringern der x-Werte die Breite der Seite beeinflussen...aber nicht die Schriftbreite...


Xion - Do 13.05.10 13:41
Nach 20 Stunden :autsch: , :think: , :motz: , :puke: , :nut: , :nixweiss: , :?!?: , :crying: und :eyecrazy: in denen ich versucht hab die Ursachen zu finden kam ich auf das Ergebnis:
"Preview of some RTF files do not look as their print
This issue is a known rich edit control problem."

Dann hab ich einfach mit der Holzhammermethode die Symptome entfernt:

:dance: :dance2: :party: :tongue: :dance: :dunce:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
 
procedure TfrRichView.ShowRich(Render: Boolean);
var
  Range: TFormatRange;
  MaxLen, LogX, LogY: Integer;
  StopRender: Boolean;
  EMF: TMetafile;
  EMFCanvas: TMetafileCanvas;
  re: TRichEdit;
begin
  if Render then
    re := RichEdit else
    re := SRichEdit;
  FillChar(Range, SizeOf(TFormatRange), 0);
  with Range do
  begin
    if Render then
      hdc := Canvas.Handle
    else
      hdc := GetDC(0);

    if Render then
{      if IsPrinting then
      begin
        LogX := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX); //600
        LogY := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
        rc := Rect( DRect.Left * 1440 div LogX, DRect.Top * 1440 div LogY,
                    DRect.Right * 1440 div LogX, DRect.Bottom * 1440 div LogY);
      end
      else
 }     begin
        LogX := Screen.PixelsPerInch; //96
        LogY := LogX;
        rc := Rect(0, 0, Round(SaveDX * 1440 / LogX), Round( SaveDY* 1440 / LogY));
        EMF := TMetafile.Create;
        EMF.Width := SaveDX;
        EMF.Height := SaveDY;
        EMFCanvas := TMetafileCanvas.Create(EMF, 0);
        EMFCanvas.Brush.Style := bsClear;
        hdc := EMFCanvas.Handle;
      end
    else
    begin
      LogX := Screen.PixelsPerInch;
      LogY := LogX;
      rc := Rect(0, 0, Round(DX * 1440 / LogX), Round(DY * 1440 / LogY));
    end;
    hdcTarget := hdc;
    rcPage := rc;
    LastChar := CharFrom;
    MaxLen := re.GetTextLen;
    chrg.cpMax := -1;
    repeat
      chrg.cpMin := LastChar;
      LastChar := re.Perform(EM_FORMATRANGE, Integer(Render), Integer(@Range));
      StopRender := ((LastChar < MaxLen) and (LastChar <> -1)) or
                    (LastChar >= MaxLen) or (LastChar = -1) or (LastChar = 0);
    until StopRender;
  end;
  re.Perform(EM_FORMATRANGE, 0, 0);
  if not Render then
    ReleaseDC(0, Range.hdc)
  else if not IsPrinting then
  begin
    EMFCanvas.Free;
    Canvas.StretchDraw(DRect, EMF);
    EMF.Free;
  end
  else if IsPrinting then   
  begin
    EMFCanvas.Free;
    Printer.Canvas.StretchDraw(DRect, EMF);
    EMF.Free;
  end
end;


Ich habe einfach die Berechnung für den Drucker blockiert und rendere dafür das Preview auf den Drucker. Wenn der Drucker Querformat wäre dann gäbs sicher Probleme, allerdings gibt es ja so auch die Probleme, weil der Text angeblich nicht reinpasst (dann fehlt einfach ne Zeile, weil er das RichEdit schon beim Preview auf die Seiten eingepasst hat) oder es ist noch ne Menge weiß. Vor allem verändert er auch das Schriftbild (Zeichen werden breiter/schmaler).

Der Versuch einfach ein Memo zu nehmen (ohne RTF dann) hat auch nicht funktioniert, weil das Memo beim Seitenumbruch böse Bugs in Freereport hat. Das RTF ausdrucken hat auch nicht geklappt, da hat er noch unendlich leere Seiten hintenran gehängt. Der RichEdit ist genauso verbuggt wie Freereport und Delphi 2005 :P


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!