[Back to WIN-OS2 SWAG index]  [Back to Main SWAG index]  [Original]

{
From: wieger@wsintt02.info.win.tue.nl (Wieger Wesselink)

I have written the following program that contains a wordwrap editor that
inherits from TFileWindow. The wordwrapping is achieved by modifying the
Style field of the Editor-object in TFileWindow. This works fine except
for one thing: saving the contents of the editor goes wrong. Sometimes the
last line is truncated. Can anyone tell me how to fix this problem?
Thanks in advance,

}
program WordWrap;

uses WinTypes, OWindows, OStdWnds;

type
  PMyFileWindow = ^TMyFileWindow;
  TMyFileWindow = object(TFileWindow)
    constructor Init(AParent: PWindowsObject; ATitle, AFileName: PChar);
  end;

  TMyApplication = object(TApplication)
    procedure InitMainWindow; virtual;
  end;

constructor TMyFileWindow.Init(AParent: PWindowsObject; ATitle,
        AFileName: PChar);
begin
  inherited Init(AParent, ATitle, AFileName);
  with Editor^.Attr do begin
    Style := Style and not (es_AutoHScroll or ws_HScroll);
  end;
end;

procedure TMyApplication.InitMainWindow;
begin
  MainWindow := New(PMyFileWindow, Init(nil, 'WordWrapper', nil));
end;

var
  MyApp: TMyApplication;

begin
  MyApp.Init('WordWrap');
  MyApp.Run;
  MyApp.Done;
end.

[Back to WIN-OS2 SWAG index]  [Back to Main SWAG index]  [Original]