frm_control.pas

非常不错的EXCEL格式导出数据

unit frm_control;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,excel2000,oleserver;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    edtx: TEdit;
    edty: TEdit;
    btnvpagebreaks: TButton;
    btnhpagebreaks: TButton;
    cbitaly: TCheckBox;
    cbunderline: TCheckBox;
    cbbold: TCheckBox;
    edtsize: TEdit;
    Label2: TLabel;
    lbfont: TListBox;
    procedure btnvpagebreaksClick(Sender: TObject);
    procedure btnhpagebreaksClick(Sender: TObject);
    procedure cbitalyClick(Sender: TObject);
    procedure cbunderlineClick(Sender: TObject);
    procedure cbboldClick(Sender: TObject);
    procedure edtsizeKeyPress(Sender: TObject; var Key: Char);
  private
    fexcelsheet:texcelworksheet;
    fpoint:tpoint;
    procedure getpoint;
    { Private declarations }
  public
    constructor create(aowner:tcomponent;aexcelsheet:texcelworksheet);reintroduce;
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

constructor tform2.create(aowner:tcomponent;aexcelsheet:texcelworksheet);
begin
  inherited create(aowner);
  fexcelsheet:=aexcelsheet;
  lbfont.items:=screen.fonts;
end;

procedure TForm2.btnvpagebreaksClick(Sender: TObject);
begin
  getpoint;
  with fexcelsheet,fpoint do
  begin
    vpagebreaks.add(range[cells.item[x,y],cells.item[x,y]]);
  end;
end;

procedure TForm2.btnhpagebreaksClick(Sender: TObject);
begin
  getpoint;
  with fexcelsheet,fpoint do
  begin
    hpagebreaks.add(range[cells.item[x,y],cells.item[x,y]]);
  end;
end;

procedure tform2.getpoint;
begin
  fpoint.x:=strtoint(edtx.text);
  fpoint.y:=strtoint(edty.text);
  
end;

procedure TForm2.cbitalyClick(Sender: TObject);
begin
  getpoint;
  with fexcelsheet,fpoint do
    if cbitaly.checked then
      range[cells.item[x,y],cells.item[x,y]].font.italic:=1
    else
      range[cells.item[x,y],cells.item[x,y]].font.italic:=0;
end;

procedure TForm2.cbunderlineClick(Sender: TObject);
begin
  getpoint;
  with fexcelsheet,fpoint do
      range[cells.item[x,y],cells.item[x,y]].font.name:=lbfont.items[lbfont.itemindex];
end;

procedure TForm2.cbboldClick(Sender: TObject);
begin
getpoint;
  with fexcelsheet,fpoint do
    if cbbold.checked then
      range[cells.item[x,y],cells.item[x,y]].font.italic:=1
    else
      range[cells.item[x,y],cells.item[x,y]].font.italic:=0;

end;

procedure TForm2.edtsizeKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    getpoint;
    with fexcelsheet,fpoint do
        range[cells.item[x,y],cells.item[x,y]].font.size:=strtoint(edtsize.Text);
  end;
end;

end.