lzRichEdit: Windows/Linux rich text implementation

[skalogryz]

I am very interested in this component, the feature I like most is Get/SetZoomState, which should make it much more useful than RichMemo. I presume it will zoom all text on the lzRichEdit.

Why don't you try this property then?

[ekimtrah]

@typo
But the one in lazrichedit.pas is

Code: [Select]

uses
  RichBox, WSRichBoxFactory, WSRichBox, Gtk2WSRichBox, Gtk2WSRichBoxFactory,
  Gtk2RTFTool, LazarusPackageIntf;

Which has no compiler directive, should I edit this file, even though it says

Code: [Select]

{ This file was automatically created by Lazarus. Do not edit!
  This source is only used to compile and install the package.
 }

Michael.

[typo]

lazrichedit.pas:

Code: [Select]

{ This file was automatically created by Lazarus. Do not edit!
  This source is only used to compile and install the package.
 }

unit LazRichEdit;

interface

uses
    RichBox, WSRichBoxFactory, WSRichBox,
    {$IFDEF LCLWIN32} Win32WSRichBox, Win32WSRichBoxFactory,{$ENDIF}
    {$IFDEF LCLGTK2}Gtk2WSRichBox, Gtk2WSRichBoxFactory, Gtk2RTFTool,{$ENDIF}
  LazarusPackageIntf;   

Don't download lzRichEdit from SVN, download it from the wiki link.

[typo]

I am very interested in this component, the feature I like most is Get/SetZoomState, which should make it much more useful than RichMemo. I presume it will zoom all text on the lzRichEdit.

Why don't you try this property then?

Congratulations, skalogryz, good work. Finally Lazarus will have a RichEdit. Or two.

RichEdit was becoming an item of great frustration for Delphi users.

I have improved the HTML conversion for lzRichEdit, now it converts the metafile in PNG and the image can appear in the HTML pages. Although it is not part of the component itself. And the demo can also demonstrate how to use lzRichEdit in chat applications.

[ekimtrah]

Why don't you try this property then?

Thank You, I obviously missed that one.

Don't download lzRichEdit from SVN, download it from the wiki link.

My bad, I thought I had got it from the wiki as that svn command is not in my history, but I just downloaded it from the wiki link and it was fine. Any hints on how to use the zoom ?
Thank You

[typo]

Run the demo project.

Edit > Zoom

[ti_dic]

Hi, the demo on http://sourceforge.net/projects/lazarusfiles/files/lzRichEdit.zip/download don't compile on linux.

some "uses" don't work under linux and some {$IFNDEF WINDOWS}  are missing for replacing TRichEditAlignment by TAlignment

[typo]

Have you downloaded it from the wiki link?

There are compiler directives around all of them. There should be several modifications after you downloaded it.

RichEdit alignment needs an aditional value, which is for full justification. So TRichEditAlignment has 4 possible values, while TAlignment has 3. For instance, function GetAlignment is declared so:

Code: [Select]

function GetAlignment: {$IFNDEF WINDOWS}TAlignment {$ELSE}TRichEditAlignment {$ENDIF};

Please correct something which is not in this way.

[ti_dic]

I downloaded the sources from the wiki link.
do you have a svn or git? it's will be more easy for me to make a patch.

for example in UParagrafo.pas line 147 the $IFDEF is missing for the case

Code: [Select]

  case TRichBox(RichControl).Paragraph.Alignment of
    traLeft: ComboBox1.ItemIndex:= 2;
    traCenter: ComboBox1.ItemIndex:= 0;
    traRight: ComboBox1.ItemIndex:= 1;
    traJustify: ComboBox1.ItemIndex:= 3;
  end;
i think it's would be more easier to replace TAlignment by TRichEditAlignment in linux case. And in TRichEditAlignment to set inside $IFDEF the  "traJustify", there will be less code to correct.

in UPrincipal.Pas, line 423 the routine GetFileNameHandle should be inside a $IFDEF
etc...

[Mike.Cornflake]

Nice :-)   Just wanted to say Thanks @Typo - you're right, this has been outstanding for too long.

[ekimtrah]

Run the demo project.

Edit > Zoom

Hi, the demo on http://sourceforge.net/projects/lazarusfiles/files/lzRichEdit.zip/download don't compile on linux.

I could not get it to compile on Linux either (It was from the wiki link, I attached the errors in a file), so I copied a bit of the code from the demo project and put it in a small test project (attached, see TForm1.Button1Click). Single stepping from the call to SetZoomState ends up in TWSCustomRichBox.SetZoomState, which is empty. Is this Linux specific code which hasn't been filled in yet. I would be happy to test any proposed changes.
Michael

[typo]

@ti_dic

Code: [Select]

case ComboBox1.ItemIndex of
    {$IFDEF WINDOWS}
    3: TRichBox(RichControl).Paragraph.Alignment := traJustify;
    {$ENDIF}
    2: TRichBox(RichControl).Paragraph.Alignment := {$IFNDEF WINDOWS}taLeftJustify
                                                    {$ELSE}traLeft{$ENDIF};
    1: TRichBox(RichControl).Paragraph.Alignment := {$IFNDEF WINDOWS}taRightJustify
                                                    {$ELSE}traRight{$ENDIF};
    0: TRichBox(RichControl).Paragraph.Alignment := {$IFNDEF WINDOWS}taCenter
                                                    {$ELSE}traCenter{$ENDIF};
  end;


Code: [Select]

case TRichBox(RichControl).Paragraph.Alignment of
    {$IFNDEF WINDOWS}taLeftJustify{$ELSE}traLeft{$ENDIF}:
      ComboBox1.ItemIndex:= 2;
    {$IFNDEF WINDOWS}taCenter{$ELSE}traCenter{$ENDIF}:
      ComboBox1.ItemIndex:= 0;
    {$IFNDEF WINDOWS}taRightJustify{$ELSE}traRight{$ENDIF}:
      ComboBox1.ItemIndex:= 1;
    {$IFDEF WINDOWS}traJustify: ComboBox1.ItemIndex:= 3;{$ENDIF}
  end;     

@ekimtrah

Thanks for the info. If you download now, the errors are already corrected. See the code above.

If you make the above modifications, you can run the demo and can see what lzRichEdit can do in Linux. It is not so much. If you can help, I would appreciate. If you can contribute with code, you could use this ( https://sourceforge.net/p/lazarusfiles/discussion/general/ ) or post it here.

[ti_dic]

@typo :

thank but i already corrected all compilation error on my computer (when i have wrote my first message), i don't know how to make a patch which i can send to you, without a svn.

[typo]

You can post code directly in that forum, without patch.

[ti_dic]

for the all demo compile with the lastest source code i added that :

Code: [Select]

{$IFNDEF WINDOWS}
const
  traLeft = taLeftJustify;
  traRight = taRightJustify;
  traCenter = taCenter;
  traJustify = taLeftJustify;
type
{$ELSE}
TRichEditAlignment = (traLeft, traRight, traCenter, traJustify);    // added
{$ENDIF}