home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk3 / wrapmemo.pak / MEMOS.PAS
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  691 b   |  39 lines
  1. unit Memos;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   TWrapMemo = class(TMemo)
  11.   private
  12.     { Private declarations }
  13.   protected
  14.     { Protected declarations }
  15.   public
  16.     { Public declarations }
  17.     constructor Create(AOwner: TComponent); override;
  18.   published
  19.     { Published declarations }
  20.     property WordWrap default False;
  21.   end;
  22.  
  23. procedure Register;
  24.  
  25. implementation
  26.  
  27. procedure Register;
  28. begin
  29.   RegisterComponents('Samples', [TWrapMemo]);
  30. end;
  31.  
  32. constructor TWrapMemo.Create(AOwner: TComponent);
  33. begin
  34.   inherited Create(AOwner);
  35.   WordWrap := False;
  36. end;
  37.  
  38. end.
  39.