home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / stocks.pak / CUSTTEXT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  629 b   |  40 lines
  1. unit Custtext;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls;
  7.  
  8. type
  9.   TfmChartText = class(TForm)
  10.     Memo: TMemo;
  11.     procedure OKBtnClick(Sender: TObject);
  12.   public
  13.     procedure ClearText;
  14.     procedure AddLine(const Str:string);
  15.   end;
  16.  
  17. var
  18.   fmChartText: TfmChartText;
  19.  
  20. implementation
  21.  
  22. {$R *.DFM}
  23.  
  24. procedure TfmChartText.ClearText;
  25. begin
  26.   Memo.Lines.Clear;
  27. end;
  28.  
  29. procedure TfmChartText.AddLine(const Str:string);
  30. begin
  31.   Memo.Lines.Add(Str);
  32. end;
  33.  
  34. procedure TfmChartText.OKBtnClick(Sender: TObject);
  35. begin
  36.    Close;
  37. end;
  38.  
  39. end.
  40.