tmemo.wordwrap, runtime changes have no effect?
lazarus / 8-Other

----------------------------------------------------------------------
Mike J · 2009-11-18 02:24

tmemo.wordwrap, runtime changes have no effect?

I am doing the projects in 'Sams Teach Yourself Borland Delphi 4' and
have reached 'Day 6', Listing 6.1, SPMAIN.PAS, a Notepad clone called
Scratch Pad.

One of the menu items is a "wordwrap" toggle. If I set the WordWrap to
False at build time, the memo does not wordwrap, toggling the wordwrap
from false to true does not change the form's behavior. Same with the
scroll bars. Conversely, if I set the WordWrap to True at build time,
the memo wordwraps, and toggling the word from true to false does not
turn off wordwrap. Is this a bug? Missing functionality?

Platform: Ubuntu 9.10
*** BLECK, you can't select and copy the version information text in
the about dialog! ***
Version #: 0.9.28.2-0 beta
Date: 2009-10-26
FPC Version: 2.2.4
SVN Revision:
x86_64-linux-gtk 2(beta)

Code: [Select]procedure TMainForm.EditWordWrapClick(Sender: TObject);
begin
     if Memo.WordWrap then begin
        Memo.WordWrap := False;
        EditWordWrap.Checked := False;
        Memo.ScrollBars:=ssBoth;
        StatusBar.SimpleText:='Word Wrap Off';
     end
     else begin
          Memo.WordWrap := True;
          EditWordWrap.Checked := True;
          Memo.ScrollBars := ssVertical;
        StatusBar.SimpleText:='Word Wrap On';
     end;
end;