home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / DELPHIDM / UDemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-11  |  651 b   |  36 lines
  1. unit UDemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   USave, ComCtrls, StdCtrls, Buttons, OleCtrls, CELLLib_TLB, ExtCtrls,Main;
  8.  
  9. type
  10.   TFDemo = class(TFSave)
  11.     procedure FormShow(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.  
  18. var
  19.   FDemo: TFDemo;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TFDemo.FormShow(Sender: TObject);
  26. begin
  27.   inherited;
  28.       if main.openfilename <> '' then
  29.       begin
  30.             Cell1.DoOpenFile(main.openfilename);
  31.             FDemo.Caption:='Demo Cell Show';
  32.       end;
  33. end;
  34.  
  35. end.
  36.