home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / DELPHIDM / USort.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-11  |  3.3 KB  |  119 lines
  1. unit USort;
  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.   TFSort = class(TTemplate)
  11.     procedure FormShow(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.  
  18. var
  19.   FSort: TFSort;
  20.  
  21. implementation
  22.  
  23. {$R *.DFM}
  24.  
  25. procedure TFSort.FormShow(Sender: TObject);
  26. Var
  27.   i : integer;  
  28. begin
  29.   inherited;
  30.   Cell1.Cols := 6;
  31.   Cell1.Rows := 8;
  32.   Cell1.DoSetBackGround( 4);
  33.  
  34.   Cell1.DoSetCellString( 0, -1, 'Stock');
  35.   Cell1.DoSetCellString( 1, -1, 'Last value');
  36.   Cell1.DoSetCellString( 2, -1, 'Changeing');
  37.   Cell1.DoSetCellString( 3, -1, 'Now value');
  38.   Cell1.DoSetCellString( 4, -1, '10:10');
  39.   Cell1.DoSetCellString( 5, -1, 'Trade value');
  40.  
  41.   Cell1.DoSetCellString( 0, 0, 'Tsinghua Tech');
  42.   Cell1.DoSetCellValue( 1, 0, 27.5);
  43.   Cell1.DoSetCellValue( 2, 0, -0.57);
  44.   Cell1.DoSetCellValue( 3, 0, 1116200);
  45.   Cell1.DoSetCellValue( 4, 0, 27.6);
  46.   Cell1.DoSetCellValue( 5, 0, 338700);
  47.  
  48.   Cell1.DoSetCellString( 0, 1, 'ChongqingU');
  49.   Cell1.DoSetCellValue( 1, 1, 9.59);
  50.   Cell1.DoSetCellValue( 2, 1, -1.94);
  51.   Cell1.DoSetCellValue( 3, 1, 317000);
  52.   Cell1.DoSetCellValue( 4, 1, 9.7);
  53.   Cell1.DoSetCellValue( 5, 1, 45600);
  54.  
  55.   Cell1.DoSetCellString( 0, 2, 'AdierLTD');
  56.   Cell1.DoSetCellValue( 1, 2, 11.3);
  57.   Cell1.DoSetCellValue( 2, 2, 0.89);
  58.   Cell1.DoSetCellValue( 3, 2, 333200);
  59.   Cell1.DoSetCellValue( 4, 2, 11.21);
  60.   Cell1.DoSetCellValue( 5, 2, 20700);
  61.  
  62.   Cell1.DoSetCellString( 0, 3, 'Kingson');
  63.   Cell1.DoSetCellValue( 1, 3, 13.52);
  64.   Cell1.DoSetCellValue( 2, 3, -2.02);
  65.   Cell1.DoSetCellValue( 3, 3, 378500);
  66.   Cell1.DoSetCellValue( 4, 3, 13.68);
  67.   Cell1.DoSetCellValue( 5, 3, 26500);
  68.  
  69.   Cell1.DoSetCellString( 0, 4, 'Media' );
  70.   Cell1.DoSetCellValue( 1, 4, 15.82);
  71.   Cell1.DoSetCellValue( 2, 4, -1.12);
  72.   Cell1.DoSetCellValue( 3, 4, 799600);
  73.   Cell1.DoSetCellValue( 4, 4, 15.81);
  74.   Cell1.DoSetCellValue( 5, 4, 69600);
  75.  
  76.   Cell1.DoSetCellString( 0, 5, 'HASBear');
  77.   Cell1.DoSetCellValue( 1, 5, 6.3);
  78.   Cell1.DoSetCellValue( 2, 5, -1.4);
  79.   Cell1.DoSetCellValue( 3, 5, 476000);
  80.   Cell1.DoSetCellValue( 4, 5, 6.43);
  81.   Cell1.DoSetCellValue( 5, 5, 195500);
  82.  
  83.   Cell1.DoSetCellString( 0, 6, 'KLSteal');
  84.   Cell1.DoSetCellValue( 1, 6, 10.21);
  85.   Cell1.DoSetCellValue( 2, 6, -0.68);
  86.   Cell1.DoSetCellValue( 3, 6, 221300);
  87.   Cell1.DoSetCellValue( 4, 6, 10.26);
  88.   Cell1.DoSetCellValue( 5, 6, 21200);
  89.  
  90.   Cell1.DoSetCellString( 0, 7, 'NO1Shoping');
  91.   Cell1.DoSetCellValue( 1, 7, 9.1);
  92.   Cell1.DoSetCellValue( 2, 7, -2.04);
  93.   Cell1.DoSetCellValue( 3, 7, 1014800);
  94.   Cell1.DoSetCellValue( 4, 7, 9.12);
  95.   Cell1.DoSetCellValue( 5, 7, 97000);
  96.  
  97.   Cell1.DoSetCellString( 0, 8, 'VVCoffer');
  98.   Cell1.DoSetCellValue( 1, 8, 8.98);
  99.   Cell1.DoSetCellValue( 2, 8, -2.07);
  100.   Cell1.DoSetCellValue( 3, 8, 757300);
  101.   Cell1.DoSetCellValue( 4, 8, 9.11);
  102.   Cell1.DoSetCellValue( 5, 8, 154400);
  103.  
  104.   For i := 1 To 6 do
  105.     Cell1.DoSetSortCol( i, True);
  106.   ;
  107.  
  108.   Cell1.RowSelectedMode := True;
  109.   Cell1.SideLabelVisible := False;
  110.   Cell1.PageLabelVisible := False;
  111.   Cell1.DoShowCurrentCell( False, True);
  112.   Cell1.MultiSelectedMode := False;
  113.  
  114.   Cell1.GridReadOnly := True;
  115.   Cell1.CurrentTopLabelHint := False;
  116. end;
  117.  
  118. end.
  119.