home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 January / Chip_2000-01_cd.bin / zkuste / Delphi / nastroje / browutil.exe / COMPNT / SHOWMEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-04-29  |  1.5 KB  |  72 lines
  1. unit ShowMemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, DBCtrls, DB;
  8.  
  9. type
  10.   TFrmShowMemo = class(TForm)
  11.     PnlMemo: TPanel;
  12.     DBMemo: TDBMemo;
  13.     SrcMemo: TDataSource;
  14.     Panel1: TPanel;
  15.     BtnOk: TButton;
  16.     BtnClose: TButton;
  17.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  18.     procedure BtnOkClick(Sender: TObject);
  19.     procedure BtnCloseClick(Sender: TObject);
  20.     procedure DBMemoChange(Sender: TObject);
  21.     procedure FormShow(Sender: TObject);
  22.     procedure FormActivate(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   FrmShowMemo: TFrmShowMemo;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TFrmShowMemo.FormClose(Sender: TObject; var Action: TCloseAction);
  37. begin
  38.   Action := caFree;
  39. end;
  40.  
  41. procedure TFrmShowMemo.BtnOkClick(Sender: TObject);
  42. begin
  43.   DBMemo.Perform(CM_EXIT,0,1);
  44.   Close;
  45. end;
  46.  
  47. procedure TFrmShowMemo.BtnCloseClick(Sender: TObject);
  48. begin
  49.   SendMessage(DBMemo.Handle,WM_UNDO,0,1);
  50.   DBMemo.Perform(CM_EXIT,0,1);
  51.   Close;
  52. end;
  53.  
  54. procedure TFrmShowMemo.DBMemoChange(Sender: TObject);
  55. begin
  56.   if BtnClose.Caption = 'C&lose' then
  57.     BtnClose.Caption := '&Cancel';
  58. end;
  59.  
  60. procedure TFrmShowMemo.FormShow(Sender: TObject);
  61. begin
  62.   DBMemo.OnChange := DBMemoChange;
  63. end;
  64.  
  65. procedure TFrmShowMemo.FormActivate(Sender: TObject);
  66. begin
  67.   if DBMemo.ReadOnly then
  68.     btnClose.Visible := False;
  69. end;
  70.  
  71. end.
  72.