- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
此链接/图片显示了我试图使用 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
问题似乎出在 //Attempt to merge 3 cells into one
注释下方的 StringGridDrawCell
中的合并代码。
我确信这可能是显而易见的事情,但我一生都看不到它。
注意:如果有人可以将链接转换为嵌入图像,我将不胜感激,因为我似乎没有足够的声誉来发布图像。
最佳答案
试试这个:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, 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] := 'Product';
StringGrid.Cells[2, 1] := 'Count';
StringGrid.Cells[3, 1] := 'Weight %';
StringGrid.Cells[4, 1] := 'Product';
StringGrid.Cells[5, 1] := 'Count';
StringGrid.Cells[6, 1] := 'Weight %';
StringGrid.Cells[7, 1] := 'Product';
StringGrid.Cells[8, 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, 4, 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, 4, 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);
StringGrid.Canvas.LineTo(Rect.Right, Rect.Top);
case ACol of
1..9: 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-1);
StringGrid.Canvas.LineTo(Rect.Right, Rect.Bottom-1);
end
else begin
case ACol of
1..9: 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;
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, PChar(CellText), Length(CellText), Rect, 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, PChar(CellText), Length(CellText), Rect, DT_WORDBREAK or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS)
else
DrawText(StringGrid.Canvas.Handle, PChar(CellText), Length(CellText), Rect, DT_SINGLELINE or DT_CENTER or DT_BOTTOM or DT_END_ELLIPSIS);
end
else begin
CellText := StringGrid.Cells[ACol, ARow];
Rect.Inflate(-2, -2);
case ACol of
0..1, 4, 7: begin
DrawText(StringGrid.Canvas.Handle, PChar(CellText), Length(CellText), Rect, DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
end;
2..3, 5..6, 8..9: begin
DrawText(StringGrid.Canvas.Handle, PChar(CellText), Length(CellText), Rect, 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 合并单元格绘图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26768056/
我试图要求 test/unit 的新版本(即不是与 ruby 捆绑的版本) .根据 instructions我用 gem i test-unit 安装它.但是现在当我需要 test/unit我似乎
简短版本是: 我有一个 systemd 单元,我想在调用时检查脚本的返回代码: systemctl status service.service 长版本:我有一个 lsb init 脚本正是这样做的,
我正在使用反射动态创建一个类的实例,这工作正常,除非尝试通过单元测试执行此操作 - 我使用的是 MS 测试框架。 我收到熟悉的错误:“无法加载文件或程序集‘Assy’或其依赖项之一。系统找不到指定的文
我想知道测试网站“界面功能”的最佳实践是什么。 我对哪些方法可用于测试界面和动态生成的内容感兴趣。特别是,我很难弄清楚是否可以为需要用户交互的操作创建自动化测试,或者这是否只是浪费时间,我应该让一些
我有一个简单的 Python 服务,其中有一个无限执行某些操作的循环。在各种信号上,sys.exit(0) 被调用,这导致 SystemExit 被引发,然后如果可以的话应该进行一些清理。 在测试中,
我正在使用 OpenCV 2.4.2 这是 OpenCV 文档中的引文 C++: void HoughLinesP(InputArray image, OutputArray lines, doubl
忙于 C# 中的自动化测试用例,我们需要在每次测试后恢复数据库快照。问题是,当运行多个测试时它会失败,因为“其他用户正在使用数据库时无法更改数据库状态。” 我们使用 SqlConnection.Cle
我阅读了 C# 规范并用谷歌搜索了它,但一无所获。 我 99% 肯定 C# 中没有像单元命名空间指令这样的功能,但问题是:为什么?是否有惯用或技术原因? 这很方便,尤其是当我们的大部分文件都由单个命名
我目前正在尝试向我的应用程序(一个非常老的项目......评论说 iOS 2.0)添加单元测试(精确的应用程序测试)并且总是偶然发现 undefined symbols for architectur
我正在使用Delphi 7,并且有一个新单元要在我的项目中使用。我已经编译了新的。当我尝试通过将其添加到uses子句在项目中使用此单元时,出现错误,提示未找到.dcu文件。我还尝试将文件的完整路径放在
场景:我需要编写一个复杂的nHibernate查询,该查询将返回预计的DTO,但是我想使用TDD方法。该方法如下所示: public PrintDTO GetUsersForPrinting(int
您可以通过运行以下命令在事件 html 设置中显示 Jupyter 笔记本: $ jupyter nbconvert untitled.ipynb --to slides --post serve 有
如何在一个网站上拥有多个 AdSense 单元? Google 提供的唯一代码是按单位计算的。 (adsbygoogle = window.adsbygoogle || []).push({})
我刚刚开始为大量代码编写测试。有很多类依赖于文件系统,即读取 CSV 文件、读/写配置文件等。 当前测试文件存储在项目(这是一个 Maven2 项目)的 test 目录中,但由于多种原因该目录并不总是
我对 TDD 还很陌生,在单元测试方面也不是很老练,所以才有这个问题。我有这个用 PHP 编写的遗留函数 function foo(){ x = bar(); y = baz();
我创建了一个程序,在 Swing 窗口的一侧显示结果过滤选项,但默认情况下它们水平相邻显示,这浪费了我在 BorderLayout 的西侧分配的空间。我可以在构造函数或添加语句中传递任何内容来将它们堆
标题不好的借口:如果有人能更好地描述它,请做。 我有一个 WeakList类,它“基本上”是一个 List> (虽然不是字面意义上的派生自列表,但它应该对用户完全透明)。 现在的基本思想是“如果引用的
我正在尝试在 UITableView 上添加两个原型(prototype)单元。但是,我不知道如何验证是否能够为每个原型(prototype)“返回”正确的单元格。你们能帮我一下吗? func ta
我正在使用 CloudKit 作为数据库创建一个简单的待办事项列表应用程序。目前我可以添加和删除对象,但对编辑对象感到困惑。 编辑项目 Controller protocol EditItemCont
我正在针对以下任务训练 RNN:给定一个包含 30 个单词的序列,然后将该序列分类为二进制类。 在我的网络中拥有超过 30 个单元(LSTM、GRU 或普通 RNN)有好处吗?我在网上看到过很多例子,
我是一名优秀的程序员,十分优秀!