Request for new event- BeforeLeaveRTFDataBlock

mbrickman

Can we have a new BeforeLeaveRTFDataBlock event in TWPCustomRtfEdit. This would be implemented as follows:

Code

TWPAllowEvent = procedure(Sender: TWPCustomRtfEdit;
  var Allow: Boolean) of object;


FBeforeLeaveRTFDataBlock: TWPAllowEvent;


function TWPCustomRtfEdit.DontAllowLeaveRTFDataBlock: Boolean;
var allow: Boolean;
begin
  allow := TRUE;
  if assigned(FBeforeLeaveRTFDataBlock) then
    FBeforeLeaveRTFDataBlock(Self, allow)
  if allow = FALSE then
  begin
    Result := TRUE;
    exit;
  end;
  if (wpDisableEditOfNonBodyDataBlocks in EditOptionsEx)
    or (LayoutMode = wplayLayout) then
    with FMemo.Cursor do
    begin
      if (RTFData = nil) or (RTFData.Kind <> wpIsBody) then
        Result := FALSE
      else Result := TRUE;
    end else Result := FALSE;
end;

Alles anzeigen

This will allow us to lock users into data blocks under program control. In particular, our application will have two distinct edit modes - Body Mode and Header/Footer Mode. Currently we can lock the user into the body using the wpDisableEditOfNonBodyDataBlocks option, but there is no way of locking them out of the body when they are in our Header/Footer Mode. Introducing our proposed event will be much more flexible than creating another EditOptionsEx value such as wpDisableEditOfBodyDataBlocks

mbrickman

Of course we will also need a published property

mbrickman

Actually my implementation is no good as I need to know the destination data block. So please consider the following solution which works for me - Modify WPRTEPaint as follows (new or modified lines marked with {*}):

1) add new data type for the event

Code

...type  TWPRTFEnginePaint = class;  TWPLeaveRTFDataBlockEvent = procedure(Sender: TWPRTFEnginePaint;    FromBlock, ToBlock: TWPRTFDataBlock; var Allowed: Boolean) of object; {*}

2) Create the event property

Code

TWPRTFEnginePaint = class(TWPRTFEngineBasis)...    FOverridePageCount, FOverridePageOffset: Integer;    FBeforeLeaveRTFDataBlock: TWPLeaveRTFDataBlockEvent; {*}    procedure SetUseANSITextAttr(x: Boolean);...    property OnGetPageGapText: TWPOnGetPageGapText read _OnGetPageGapText write _OnGetPageGapText;    property BeforeLeaveRTFDataBlock: TWPLeaveRTFDataBlockEvent read FBeforeLeaveRTFDataBlock write FBeforeLeaveRTFDataBlock; {*}  end;

3) Now implement in MoveCursor function

Code

function TWPRTFEnginePaint.MoveCursor(PaintPageNr: Integer; X, Y: Integer; DontLeaveDataBlock: Boolean = FALSE): Boolean;
var aRTFData, newblock: TWPRTFDataBlock;
...
  Allowed: Boolean; {*}
begin
...
      RepaintIt := (par.RTFData <> Cursor.RTFData);


      Allowed := TRUE; {*}
      if RepaintIt then
        if assigned(FBeforeLeaveRTFDataBlock) then {*}
          FBeforeLeaveRTFDataBlock(self, Cursor.RTFData, par.RTFData, Allowed);  {*}


      if not Allowed or (DontLeaveDataBlock and RepaintIt and (Cursor.RTFData <> nil)) then exit; {*}
...

Alles anzeigen

I hope you will be able to include these changes in your next release.

support

thanks for the suggestion,
OnLeaveRTFDataBlock will be in V5.20.7

Julian