uexcelutils.pas

超级好用的韩国数据表控件一共5个 Korea, a data table control

unit UExcelUtils;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, UExcel97, URGrids;

type
  TXlBorderWeight = (xlHairline, xlMedium, xlThick, xlThin);

const
  _EXCEL_HALIGN: array[TAlignment] of Longword =
    (xlHAlignLeft, xlHAlignRight, xlHAlignCenter);

  _EXCEL_VALIGN: array[TTextLayout] of Longword =
    (xlVAlignTop, xlVAlignCenter, xlVAlignBottom);

  _EXCEL_PENSTYLE: array[TPenStyle] of Longword =
    (xlContinuous, xlDash, xlDot, xlDashDot, xlDashDotDot, xlLineStyleNone, xlDouble);

  _EXCEL_BORDERWEIGHT: array[TXlBorderWeight] of Longword =
    (UExcel97.xlHairline, UExcel97.xlMedium, UExcel97.xlThick, UExcel97.xlThin);

procedure _Convert(AFont: TFont; ExFont: OleVariant); overload;
function  _Convert(ALines: TStrings): string; overload;
function  _GetHeaders(AGrid: TwCustomGrid): TwGridHeaders;
function  _GetIndicators(AGrid: TwCustomGrid): TwIndicators;
function  _HeadersVisible(AGrid: TwCustomGrid): Boolean;
//function  _FootersVisible(AGrid: TwCustomGrid): Boolean;

function IMax(a, b: Integer): Integer;
function IMin(a, b: Integer): Integer;

implementation

uses URMGrid, URDBGrid;

procedure _Convert(AFont: TFont; ExFont: OleVariant);
begin
  with AFont do
  begin
    ExFont.Name      := Name;
    ExFont.Size      := Size;
    ExFont.Color     := ColorToRGB(Color);
    ExFont.Bold      := fsBold in Style;
    ExFont.Italic    := fsItalic in Style;
    ExFont.Underline := fsUnderline in Style;
  end;
end;

function _Convert(ALines: TStrings): string;
var
  s: string;
  L: Integer;
  i: Integer;
begin
  Result := '';
  s := ALines.Text;

  L := Length(s);
  for i := 1 to L do
    if s[i] <> #13 then
      Result := Result + s[i];
end;

function IMax(a, b: Integer): Integer;
begin
  if a > b then Result := a else Result := b;
end;

function IMin(a, b: Integer): Integer;
begin
  if a < b then Result := a else Result := b;
end;

function _GetHeaders(AGrid: TwCustomGrid): TwGridHeaders;
begin
  if AGrid is TRealGrid then
    Result := TRealGrid(AGrid).Headers
  else if AGrid is TRealDBGrid then
    Result := TRealDBGrid(AGrid).Headers
  else
    Result := nil;
end;

function _GetIndicators(AGrid: TwCustomGrid): TwIndicators;
begin
  if AGrid is TRealGrid then
    Result := TRealGrid(AGrid).Indicators
  else if AGrid is TRealDBGrid then
    Result := TRealDBGrid(AGrid).Indicators
  else
    Result := nil;
end;

function _HeadersVisible(AGrid: TwCustomGrid): Boolean;
begin
  if AGrid is TRealGrid then
    Result := TRealGrid(AGrid).Headers.Visible
  else if AGrid is TRealDBGrid then
    Result := TRealDBGrid(AGrid).Headers.Visible
  else
    Result := False;
end;

{function _FootersVisible(AGrid: TwCustomGrid): Boolean;
begin
  if AGrid is TRealGrid then
    Result := TRealGrid(AGrid).Footers.Visible
  else if AGrid is TRealDBGrid then
    Result := TRealDBGrid(AGrid).Footers.Visible
  else
    Result := False;
end;}

end.