分类导航
PHPJavaPythonC#C&C++RubyVBasp.NetGoPerlDjangoDelphiJspSpringLuaLaravelMybatisAspGroovyThinkPHP

delphi – TStringGrid合并单元格绘图

Delphi   发布时间：2022-04-11  发布网站：大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了delphi – TStringGrid合并单元格绘图，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
这个链接/ pic显示了我想用TStringGrid实现的目标.

此链接/图片显示了我的下面代码产生的结果.

unit Unit1;

interface

uses
  Windows,messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Grids;

type
  TForm1 = class(TForm)
    StringGrid: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGridDrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawStatE);
  private
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
  cProdWidth = 70;
  cCountWidth = 45;
  cWeightWidth = 55;
var
  Index: Integer;
  Col,Row: Integer;
begin
  StringGrid.ColCount := 10;
  StringGrid.RowCount := 2;
  StringGrid.Cells[1,0] := 'Shoulder';
  StringGrid.ColWidths[1] := cProdWidth;
  StringGrid.Cells[4,0] := 'Barrel';
  StringGrid.ColWidths[4] := cProdWidth;
  StringGrid.Cells[7,0] := 'Leg';
  StringGrid.ColWidths[7] := cProdWidth;

  StringGrid.Cells[0,1] := 'CarCass Prod';
  StringGrid.ColWidths[0] := cProdWidth;
  StringGrid.Cells[1,1] := 'Product';
  StringGrid.Cells[2,1] := 'Count';
  StringGrid.ColWidths[2] := cCountWidth;
  StringGrid.Cells[3,1] := 'Weight %';
  StringGrid.ColWidths[3] := cWeightWidth;
  StringGrid.Cells[4,1] := 'Product';
  StringGrid.Cells[5,1] := 'Count';
  StringGrid.ColWidths[5] := cCountWidth;
  StringGrid.Cells[6,1] := 'Weight %';
  StringGrid.ColWidths[6] := cWeightWidth;
  StringGrid.Cells[7,1] := 'Product';
  StringGrid.Cells[8,1] := 'Count';
  StringGrid.ColWidths[8] := cCountWidth;
  StringGrid.Cells[9,1] := 'Weight %';
  StringGrid.ColWidths[9] := cWeightWidth;
  StringGrid.Invalidate;
end;

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol,ARow: Integer; Rect: TRect; State: TGridDrawStatE);
var
  CellText: String;
begin
  if (ACol > 0)
    then begin
          CellText := StringGrid.Cells[ACol,ARow];
          if ((ARow = 0) and (ACol in [1,4,7]))
            then begin
                  // Attempt to merge 3 cells into one
                  Rect.Right := StringGrid.ColWidths[ACol] + StringGrid.ColWidths[ACol + 1] + StringGrid.ColWidths[ACol + 2];
                  StringGrid.Canvas.brush.Color := clWindow;
                  StringGrid.Canvas.brush.Style := bsSolid;
                  StringGrid.Canvas.Pen.Style := psClear;
                  StringGrid.Canvas.FillRect(rect);
                  DrawText(StringGrid.Canvas.Handle,PChar(CellText),Length(CellText),Rect,DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
                 end;
          if (ACol in [1,2,3,7,8,9])
            then begin
                  StringGrid.Canvas.brush.Color := clWebLinen;
                  StringGrid.Canvas.FillRect(Rect);
                 end
            else StringGrid.Canvas.brush.Color := clWindow;
          if (ARow > 0)
            then StringGrid.Canvas.TextOut(Rect.Left + 2,Rect.Top,CellText);
         end;
end;

end.

这是我的unit1.dfm文件内容.

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 371
  ClientWidth = 606
  Color = clBtnFace    
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = false
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StringGrid: TStringGrid
    Left = 0
    Top = 0
    Width = 606
    Height = 371
    Align = alClient
    ColCount = 1
    FixedCols = 0
    RowCount = 1
    FixedRows = 0
    TabOrder = 0
    OnDrawCell = StringGridDrawCell
    ExplicitLeft = 160
    ExplicitTop = 88
    ExplicitWidth = 320
    ExplicitHeight = 120
  end
end

问题似乎是在StringGridDrawCell中的合并代码正好在//尝试将3个单元格合并到一个注释中.

我敢肯定它可能是显而易见的,但对于我的生活,我看不到它.

注意：如果有人可以将链接转换为嵌入式图像,那将非常受欢迎,因为我似乎没有足够的声誉来发布图像.

解决方法

试试这个： 
unit Unit1;

interface

uses
  Windows,Grids;

type
  TForm1 = class(TForm)
    StringGrid: TStringGrid;
    procedure StringGridDrawCell(Sender: TObject; ACol,ARow: Integer;
      Rect: TRect; State: TGridDrawStatE);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
  cProdWidth = 70;
  cCountWidth = 45;
  cWeightWidth = 55;
  cNoSELEction: TGridRect = (Left: -1; Top: -1; Right: -1; Bottom: -1);
begin
  StringGrid.ColCount := 10;
  StringGrid.RowCount := 3;
  StringGrid.FixedRows := 2;

  StringGrid.RowHeights[0] := StringGrid.Canvas.TextHeight('Shoulder') + 4;
  StringGrid.RowHeights[1] := (StringGrid.Canvas.TextHeight('CarCass Product') + 4) * 2;

  StringGrid.ColWidths[0] := cProdWidth;
  StringGrid.ColWidths[1] := cProdWidth;
  StringGrid.ColWidths[2] := cCountWidth;
  StringGrid.ColWidths[3] := cWeightWidth;
  StringGrid.ColWidths[4] := cProdWidth;
  StringGrid.ColWidths[5] := cCountWidth;
  StringGrid.ColWidths[6] := cWeightWidth;
  StringGrid.ColWidths[7] := cProdWidth;
  StringGrid.ColWidths[8] := cCountWidth;
  StringGrid.ColWidths[9] := cWeightWidth;

  StringGrid.Cells[1,0] := 'Shoulder';
  StringGrid.Cells[4,0] := 'Barrel';
  StringGrid.Cells[7,0] := 'Leg';

  StringGrid.Cells[0,1] := 'CarCass'#10'Product';
  StringGrid.Cells[1,1] := 'Count';
  StringGrid.Cells[3,1] := 'Weight %';
  StringGrid.Cells[4,1] := 'Count';
  StringGrid.Cells[6,1] := 'Weight %';
  StringGrid.Cells[7,1] := 'Count';
  StringGrid.Cells[9,1] := 'Weight %';

  StringGrid.Cells[0,2] := '22-110';
  StringGrid.Cells[1,2] := '22-120';
  StringGrid.Cells[2,2] := '2';
  StringGrid.Cells[3,2] := '35';
  StringGrid.Cells[4,2] := '22-130';
  StringGrid.Cells[5,2] := '1';
  StringGrid.Cells[6,2] := '25';
  StringGrid.Cells[7,2] := '22-140';
  StringGrid.Cells[8,2] := '2';
  StringGrid.Cells[9,2] := '40';

  StringGrid.SELEction := cNoSELEction;
  StringGrid.Invalidate;
end;

procedure TForm1.StringGridDrawCell(Sender: TObject; ACol,ARow: Integer;
  Rect: TRect; State: TGridDrawStatE);
var
  CellText: String;
begin
  Rect := StringGrid.CellRect(ACol,ARow);

  if ARow = 0 then
  begin
    case ACol of
      1,7: begin
        Rect.Right := Rect.Right + StringGrid.GridLineWidth;
      end;
      2,5,8: begin
        Rect.Left := Rect.Left - StringGrid.GridLineWidth;
        Rect.Right := Rect.Right + StringGrid.GridLineWidth;
      end;
      3,6,9: begin
        Rect.Left := Rect.Left - StringGrid.GridLineWidth;
      end;
    end;
    case ACol of
      0,4..6: begin
        StringGrid.Canvas.brush.Color := clWindow;
      end;
      1..3,7..9: begin
        StringGrid.Canvas.brush.Color := clWebLinen;
      end;
    end;
  end else
  begin
    if (State * [gdSELEcted,gdRowSELEcted]) <> [] then
      StringGrid.Canvas.brush.Color := clHighlight
    else
      StringGrid.Canvas.brush.Color := clWindow;
  end;

  StringGrid.Canvas.brush.Style := bsSolid;
  StringGrid.Canvas.Pen.Style := psClear;
  StringGrid.Canvas.FillRect(Rect);

  StringGrid.Canvas.brush.Style := bsClear;
  StringGrid.Canvas.Pen.Style := psSolid;
  StringGrid.Canvas.Pen.Color := clWindowText;

  if ARow = 0 then
  begin
    StringGrid.Canvas.MoveTo(Rect.Left,Rect.Top);
    StringGrid.Canvas.LineTo(Rect.Right,Rect.Top);

    case ACol of
      0,1,7: begin
        StringGrid.Canvas.MoveTo(Rect.Left,Rect.Top);
        StringGrid.Canvas.LineTo(Rect.Left,Rect.bottom);
      end;
    end;

    if ACol = 9 then
    begin
      StringGrid.Canvas.MoveTo(Rect.Right-1,Rect.Top);
      StringGrid.Canvas.LineTo(Rect.Right-1,Rect.bottom);
    end;

    StringGrid.Canvas.MoveTo(Rect.Left,Rect.bottom);
    StringGrid.Canvas.LineTo(Rect.Right,Rect.bottom);
  end
  else if ARow = 1 then
  begin
    StringGrid.Canvas.MoveTo(Rect.Left,Rect.Top);

    case ACol of
      1..9: begin
        StringGrid.Canvas.MoveTo(Rect.Left,Rect.bottom-1);
    StringGrid.Canvas.LineTo(Rect.Right,Rect.bottom-1);
  end
  else begin
    case ACol of
      1..9: begin
        StringGrid.Canvas.MoveTo(Rect.Left,Rect.bottom);
    end;
  end;

  if (State * [gdSELEcted,gdRowSELEcted]) <> [] then
  begin
    StringGrid.Canvas.brush.Color := clHighlight;
    StringGrid.Canvas.Font.Color := clHighlightText;
  end else
  begin
    StringGrid.Canvas.brush.Color := clWindow;
    StringGrid.Canvas.Font.Color := clWindowText;
  end;
  StringGrid.Canvas.brush.Style := bsClear;

  if ARow = 0 then
  begin
    case ACol of
      1..3: begin
        Rect.TopLeft := StringGrid.CellRect(1,0).TopLeft;
        Rect.bottomRight := StringGrid.CellRect(3,0).bottomRight;
        CellText := StringGrid.Cells[1,0];
      end;
      4..6: begin
        Rect.TopLeft := StringGrid.CellRect(4,0).TopLeft;
        Rect.bottomRight := StringGrid.CellRect(6,0).bottomRight;
        CellText := StringGrid.Cells[4,0];
      end;
      7..9: begin
        Rect.TopLeft := StringGrid.CellRect(7,0).TopLeft;
        Rect.bottomRight := StringGrid.CellRect(9,0).bottomRight;
        CellText := StringGrid.Cells[7,0];
      end;
    end;

    Rect.Inflate(-2,-2);
    DrawText(StringGrid.Canvas.Handle,DT_SINGLELINE or DT_CENTER or DT_VCENTER or DT_END_ELLIPSIS);
  end
  else if ARow = 1 then
  begin
    CellText := StringGrid.Cells[ACol,ARow];
    Rect.Inflate(-2,-2);
    if ACol = 0 then
      DrawText(StringGrid.Canvas.Handle,DT_WORDBREAK or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS)
    else
      DrawText(StringGrid.Canvas.Handle,DT_SINGLELINE or DT_CENTER or DT_BOTTOM or DT_END_ELLIPSIS);
  end
  else begin
    CellText := StringGrid.Cells[ACol,-2);
    case ACol of
      0..1,7: begin
        DrawText(StringGrid.Canvas.Handle,DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
      end;
      2..3,5..6,8..9: begin
        DrawText(StringGrid.Canvas.Handle,DT_SINGLELINE or DT_RIGHT or DT_VCENTER or DT_END_ELLIPSIS);
      end;
    end;
  end;
end;

end.
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 371
  ClientWidth = 606
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = false
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StringGrid: TStringGrid
    Left = 0
    Top = 0
    Width = 606
    Height = 371
    Align = alClient
    ColCount = 1
    FixedCols = 0
    RowCount = 1
    FixedRows = 0
    Options = [goRangeSELEct,goRowSELEct]
    TabOrder = 0
    OnDrawCell = StringGridDrawCell
  end
end

大佬总结

以上是大佬教程为你收集整理的delphi – TStringGrid合并单元格绘图全部内容，希望文章能够帮你解决delphi – TStringGrid合并单元格绘图所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。
标签：delphitstringgrid单元格合并绘图
猜你在找的Delphi相关文章
其他相关热搜词更多
phpJavaPython程序员load中如何string使用参数jquery开发安装listlinuxiosandroid工具javascriptcap