xldemo.dpr

著名的XLGrid源代码

program XLDemo;

uses
  Windows,
  Graphics,
  Forms,
  JPEG,
  GSFlat,
  XLGrids,
  XLSheet,
  XLEdits,
  XLCells;

{$R *.RES}

var
  Sheet: TXLSheet;
  Styler: TXLStyler;
  I: Integer;
begin
  Application.Initialize;
  InitGSFlatControls;
  Application.Title := 'XLGrid Demo';
  with Application do begin
    Sheet := TXLSheet.Create(nil);
    try
      Styler := TXLStyler.Create(nil);
      try
        Styler.Name := 'DemoStyler';
        Sheet.Styler := Styler;
        Sheet.Name := 'DemoSheet';
        Sheet.Title := Sheet.Name;
        Sheet.BaseClientStyle.Font.Name := 'Tahoma';
        Sheet.BaseTitleStyle.Font.Name := 'Tahoma';
        Sheet.ColCount := 10;
        Sheet.RowCount := 30;
        for I := 0 to Sheet.RowCount - 1 do Sheet.Values[-1, I] := I + 1;
        for I := 0 to Sheet.ColCount - 1 do Sheet.Values[I, -1] := Char(I + 65);
        with Sheet[-1, -1] do begin
          Value := 'XLGrid 1.7';
          Color := clYellow;
        end;
        with Sheet[1,1] do begin
          Width := 5;
          Value := 'This is a demo XLGrid-package version!';
          Font.Style := [fsBold];
          HorzAlign := haCenter;
          EditorClass := TXLMemo;
        end;
        with Sheet[1,2] do begin
          Width := 5;
          Value := 'Column and row counts are limited';
          HorzAlign := haCenter;
          EditorClass := TXLMemo;
        end;
        with Sheet.Cells[1,5] do begin
          Width := 5;
          Value := 'Ctrl+Click to select title cells';
          HorzAlign := haCenter;
          Font.Style := [fsItalic];
          EditorClass := TXLMemo;
        end;
        OpenXLSheetDesigner(Sheet);
      finally
        Styler.Free;
      end;
    finally
      Sheet.Free;
    end;
  end;
end.