home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / DELPHIDM / UInput.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-11  |  1.0 KB  |  43 lines
  1. unit UInput;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Tempunit, ComCtrls, StdCtrls, Buttons, OleCtrls, CELLLib_TLB, ExtCtrls;
  8.  
  9. type
  10.   TFInput = class(TTemplate)
  11.     procedure FormShow(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.  
  18. var
  19.   FInput: TFInput;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TFInput.FormShow(Sender: TObject);
  26. begin
  27.   inherited;
  28.         Cell1.DoSetColWidth(0,290);
  29.         Cell1.DoSetColWidth(1,120);
  30.         Cell1.DoSetCellString(0,1,'[2B:2] 1-100');
  31.         Cell1.DoSetCellInputOnlyValue(1,1,true,1,true,100);
  32.         Cell1.DoSetCellString(0,2,'[2B:3] Lowercase');
  33.         Cell1.DoSetCellInputControlCase(1,2,2);
  34.         Cell1.DoSetCellString(0,3,'[2B:4] 1 char+3 number');
  35.         Cell1.DoSetCellInputControlMask(1,3,'L999');
  36.         Cell1.DoSetCellString(0,4,'[2B:5] Readonly');
  37.         Cell1.DoSetCellString(1,4,'You cant change me! :-)');
  38.         Cell1.DoSetCellReadOnly(1,4,TRUE);
  39.  
  40. end;
  41.  
  42. end.
  43.