Delphi <-> Lazarus

[bdlm]

ich möchte ein Programm mit Delphi entwickelt in Lazarus compilieren. Gibt es eine Unit, ... die fehlende Delphi Componenten (TRichedit) zumindest kompilierbar macht ....

z.B.

{$if def LARAZUS}
type TRichedit = Tmemo
{$end}

[theo]

Nein.

[Heinrich Wolf]

Doch! Hier gibt es TRichMemo:
https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/richmemo/
Am besten mit svn zu holen. Hat allerdings noch Bugs, besonders unter Linux.

[bdlm]

wie sieht z.B. die beste Moglichkeit aus Delphi code der die Unit pngimage und TPnhObject verwendet durch möglichst geringe Änderungen Lazarus kompatibel umzu schreiben ??

[theo]

wie sieht z.B. die beste Moglichkeit aus Delphi code der die Unit pngimage und TPnhObject verwendet durch möglichst geringe Änderungen Lazarus kompatibel umzu schreiben ??

Lazarus unterstützt PNG nativ. Also kann man alles PNG-spezifische löschen.

[bdlm]

ich suche nach einer Lösung mit der mein Code sowohl unter Delphi als auch unter Lazarus compilierbar ist

Der verzicht des Einbinden der pngiage unit geht einfach

uses ...........

{$ifdef DELPHI}
pngimage,
{$enfif}

......;

wie bekomme ich aber ein TpngObject im Lazarus zum compileren, ich benötige einen Funktions / Class Wrapper

[MAC]

Was ist denn die Funktion eines TpngObject ???
Bei Lazarus werden, zum beispiel von einem TImage mehrere Formate Automatisch unterstützt , so das es nicht notwendig ist ein Extra Objekt für Png zu erstellen...

[Heinrich Wolf]

Vergleiche http://www.Wolf-Fuerth.de/calprint.src.zip. Da ist sowohl TRichMemo als auch tPortableNetworkGraphic drin und es ist Delphi 5 / Lazarus cross-platform. Es kann PNG lesen und schreiben und RTF schreiben.

Code: Alles auswählen

program CalPrint;
 
//...
 
{$ifdef Ver130}
  { Delphi 5 }
  {$define DelphiPng}
{$endif}
 
//...
 
uses
  //...
  {$ifdef DelphiPng}
    { http://pngdelphi.sourceforge.net
      http://www.delphi-forum.de/topic_PNGImage_90020,0.html
      http://www.torry.net/vcl/graphics/other ... gimage.zip
    }
    PngImage in '..\..\..\PngImage\PngImage.pas',
    PngLang  in '..\..\..\PngImage\PngLang.pas',
    ZLibPas  in '..\..\..\PngImage\ZLibPas.pas',
  {$endif}
  //...
  var     Graphic : tGraphic;
  //...
  begin
    //...
            {$ifdef fpc}
              PicIndexPng : try
                              Graphic := tPortableNetworkGraphic.Create;
                            except
                              Graphic := Nil;
                            end;
            {$else}
              PicIndexGif : try
                              Graphic := tGifImage.Create;
                            except
                              Graphic := Nil;
                            end;
            {$endif}
            {$ifdef DelphiPng}
              PicIndexPng : try
                              Graphic := tPngObject.Create;
                            except
                              Graphic := Nil;
                            end;
            {$endif}

[Heinrich Wolf]

Doch! Hier gibt es TRichMemo:
https://lazarus-ccr.svn.sourceforge.net/svnroot/lazarus-ccr/components/richmemo/
Am besten mit svn zu holen. Hat allerdings noch Bugs, besonders unter Linux.

http://bugs.freepascal.org/view.php?id=19624