home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 October / PCWorld_2000-10_cd2.bin / Borland / interbase / IBConsole_src.ZIP / ibconsole / frmuDispMemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-07-24  |  1.8 KB  |  70 lines
  1. {
  2.  * The contents of this file are subject to the InterBase Public License
  3.  * Version 1.0 (the "License"); you may not use this file except in
  4.  * compliance with the License.
  5.  * 
  6.  * You may obtain a copy of the License at http://www.Inprise.com/IPL.html.
  7.  * 
  8.  * Software distributed under the License is distributed on an "AS IS"
  9.  * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  10.  * the License for the specific language governing rights and limitations
  11.  * under the License.  The Original Code was created by Inprise
  12.  * Corporation and its predecessors.
  13.  * 
  14.  * Portions created by Inprise Corporation are Copyright (C) Inprise
  15.  * Corporation. All Rights Reserved.
  16.  * 
  17.  * Contributor(s): ______________________________________.
  18. }
  19.  
  20. unit frmuDispMemo;
  21.  
  22. interface
  23.  
  24. uses
  25.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  26.   StdCtrls, ComCtrls, DBCtrls, DB, IBCustomDataSet, frmuDlgClass;
  27.  
  28. type
  29.   TfrmDispMemo = class(TDialog)
  30.     Memo: TMemo;
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.  
  37.   end;
  38.  
  39.   procedure DisplayMemo (const Owner: TForm; const Field: TField; const DataSet: TIBDataSet);
  40.  
  41. implementation
  42.  
  43. {$R *.DFM}
  44. var
  45.   frmDispMemo: TFrmDispMemo;
  46.  
  47. procedure DisplayMemo (const Owner: TForm; const Field: TField; const DataSet: TIBDataSet);
  48. var
  49.   MemoStr: TStream;
  50.  
  51. begin
  52.   if not Assigned (frmDispMemo) then
  53.     frmDispMemo := TfrmDispMemo.Create(Owner);
  54.   MemoStr := DataSet.CreateBlobStream (Field, bmRead);
  55.   with frmDispMemo do begin
  56.     Caption := Field.DisplayName;
  57.     Memo.Lines.LoadFromStream (MemoStr);
  58.     Show;
  59.   end;
  60. end;
  61.  
  62. procedure TfrmDispMemo.FormClose(Sender: TObject;
  63.   var Action: TCloseAction);
  64. begin
  65.   frmDispMemo.Free;
  66.   frmDispMemo := nil;
  67. end;
  68.  
  69. end.
  70.