gmPrintSuite und Delphi2007

[HiWieGehts]

Hallo,

ich weiß nicht, ob dieses Thema jemanden interessiert, weil nicht festellbar ist, wie oft ein Beitrag gelesen wird. Für den Fall, dass es aber jemanden gibt, der die gleichen Probleme wie ich hat, hier die Änderungen, welche ich nach langem Debuggen durchgeführt habe:

Am Beginn der Datei GMPS.INC (vor {$IFDEF VER150}) einfügen:

Delphi-Quellcode:

{******************************************************************************}

{$IFDEF VER180}
  {$DEFINE DELPHI2007}
  {$DEFINE DELPHI}
{$ENDIF}

{$IFDEF VER170}
  {$DEFINE DELPHI2006}
  {$DEFINE DELPHI}
{$ENDIF}

{$IFDEF VER160}
  {$DEFINE DELPHI2005}
  {$DEFINE DELPHI}
{$ENDIF}

{$IFDEF VER150}

Zwischen dem {$ENDIF} von {$IFDEF VER100} und {$IFDEF DELPHI7} in GMPS.INC die folgenden Zeilen einfügen:

Delphi-Quellcode:

{$IFDEF VER100}
  {$DEFINE DELPHI3}
  {$DEFINE DELPHI}
{$ENDIF}

{$IFDEF DELPHI2007}
  {$DEFINE D2007+}
  {$DEFINE D2006+}
  {$DEFINE D2005+}
  {$DEFINE D6+}
  {$DEFINE D5+}
  {$DEFINE D4+}
  {$DEFINE D3+}
{$ENDIF}

{$IFDEF DELPHI2006}
  {$DEFINE D2006+}
  {$DEFINE D2005+}
  {$DEFINE D6+}
  {$DEFINE D5+}
  {$DEFINE D4+}
  {$DEFINE D3+}
{$ENDIF}

{$IFDEF DELPHI2005}
  {$DEFINE D2005+}
  {$DEFINE D6+}
  {$DEFINE D5+}
  {$DEFINE D4+}
  {$DEFINE D3+}
{$ENDIF}

{$IFDEF DELPHI7}

In der Datei GmResource.pas die Prozedure AssignToFont wie folgt ergänzen:

Delphi-Quellcode:

procedure TGmFont.AssignToFont(AFont: TFont);
{$IFNDEF D2007+}
var
  logFont : TLogFont;
{$ENDIF}
begin
  AFont.Color := FColor;
  AFont.Size := FSize;
  AFont.Name := FName;
  AFont.Charset := FCharset;
  AFont.Style := FStyle;
  {$IFDEF D2007+}
  AFont.Orientation := Round(FAngle * 10);
  {$ELSE}
  if FAngle <> 0 then
  begin
    GetObject(AFont.Handle, sizeof(logFont), @logFont);
    logFont.lfEscapement := Round(FAngle * 10);
    logFont.lfOrientation := Round(FAngle * 10);
    AFont.Handle := CreateFontIndirect(logFont);
  end;
  {$ENDIF}
end;

Mit diesen Änderungen kann wieder Text in beliebigen Winkeln ausgegeben werden.

Ich hoffe mit diesem Beitrag keine Urheberrechte zu verletzen. Sollte dies der Fall sein, bitte Info (Antwort) schreiben oder wenn die erforderlichen Rechte vorhanden, Beitrag löschen.

LG, HiWieGehts