spaces which make a memo-text justify are white,

[j&b]

Hello,

1.
If memo (rve) is focused memo.color is clYellow.
If grid is focused memo.color is clInfoBk.
The spaces which make memo-text justify (Blocksatz) are white, but they shall have the same color as memo.color (clYellow or clInfoBk).

2.
If memo has blank lines at the end, you have in the preview (or printing) a 2. page though she is empty. I look to the end of the memo for blank lines and delete them, an user doesn't do so. How can I delete them by programm (e.g. memo.exit).

I hope someone can help me.

Jürgen

[Sergey Tkachenko]

1. I cannot reproduce the problem with spaces. Please send me a project showing it.

2.

Code: Select all

procedure DeleteTrailingBlankLines(RVData: TCustomRVData); 
var i: Integer; 
begin 
  for i := RVData.ItemCount-1 downto 1 do 
    if RVData.IsParaStart(i) and (RVData.GetItemStyle(i)>=0) and 
      (RVData.GetItemText(i)='') then 
      RVData.DeleteItems(i,1)  
    else
      break;
end;

Call:

Code: Select all

DeleteBlankLines(RichViewEdit1.RVData); 
RichViewEdit1.ClearUndo; 
RichViewEdit1.Format;

[j&b]

Hello Sergey,

1. Thank for your help.

2. Sorry. I hope you can understand my problem now.

If memo (rve) is focused memo.color is clYellow.
When I leave memo to focus grid memo.color changes to clInfoBk.

The spaces (between chars) in a memo which make memo-text justify (zum Blocksatz) are white (but they shall be clYellow (or clInfBk)).

Jürgen

[Sergey Tkachenko]

I still cannot reproduce the problem. In my tests, these spaces are not visible (transparent) if the corresponding TextStyles.BackColor = clNone, as it should be.