双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

StringGrid指定单元格背景颜色改变

2011-01-02 04:00:17 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

吴恒墨衍会员 · AI 创作全网分发关注 + 加入社区

深入解析TMC2209 UART寄存器配置：从基础指令到高级参数调优本文深入解析TMC2209 UART寄存器配置，从基础指令到高级参数调优，涵盖电流控制、微步细分等关键设置。通过实战案例和优化技巧，帮助开发者高效配置步进电机驱动，提升系统性能和稳定性。特别介绍了UART通信协议和CRC校验实现，确保数据传输可靠性。阅读详情

怎么样让选中的单元格及其它前面的单元格的背颜色改变？如选中单元格的为row = 5,col = 4,让row=5 ,col=3的单元格的颜色也改变？

...全文

CTF实战：从ECDSA签名漏洞到flag获取本文详细解析了ECDSA签名算法在CTF比赛中的实战应用，重点探讨了随机数重用和参数泄露等常见漏洞。通过PWNHUB六月赛的例题，展示了如何从签名数据中恢复私钥并获取flag，同时提供了防御措施和实战技巧，帮助参赛者提升解题能力。阅读详情

吴恒

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

野草飞雪 2011-01-10

打赏
举报

用画笔即可

tomorrow619810 2011-01-10

打赏
举报

[Quote=引用 1 楼 bdmh 的回复:]

通过
StringGrid1.CellRect(StringGrid1.Col-1,StringGrid1.Row);获得另一个单元格的Rect，然后画上底色
[/Quote]

Tbrush.color=clred;
fillrect（StringGrid1.CellRect(StringGrid1.Col-1,StringGrid1.Row)）

浮生若梦_平淡为真 2011-01-06

打赏
举报

继承这个类写个新的类，或者把代码放到窗体的刷新事件中

软件钢琴师 2011-01-06

打赏
举报

用advstringgrid 吧
procedure TForm1.FormCreate(Sender: TObject);
begin
AdvStringGrid1.Colors[2,1] := clblue;
end;
很简单

dyf2001 2011-01-06

打赏
举报

procedure TForm1.FormCreate(Sender: TObject);
begin
self.FCol := 1;
self.FRow := 1;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (ACol = 0) or (ARow = 0) then
Exit;
if ((ACol = self.FCol) and (ARow = self.FRow)) or ((ACol = self.FCol-1) and (ARow = self.FRow) and (ACol>0)) then
begin
self.StringGrid1.Canvas.Brush.Color := clRed;

end
else
self.StringGrid1.Canvas.Brush.Color := clwhite;
self.StringGrid1.Canvas.FillRect(Rect);
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
self.FCol := ACol;
self.FRow := ARow;
self.StringGrid1.Refresh;
end;

大概测试了一些可以，细节可以自己再研究

火龙岛主 2011-01-05

打赏
举报

加入Invalidate，刷新一下。

吴恒 2011-01-05

打赏
举报

不起作用，还是刷不过来，选中哪个只会刷新那个单元格的底色。高手给段代码吧。

吴恒 2011-01-02

打赏
举报

这样改不能自动刷新相邻的单元格呀，把界面最小化然后再还原还能看到效果了。
if (state * [gdSelected]) = [gdSelected] then
begin
if acol mod 2 = 0 then
begin
DrawCol(arow,acol,rgb(223,249,221),clblue,[],rect) ;

newRect:=stringgrid1.CellRect(acol+1,arow);
drawcol(arow,acol+1,rgb(223, 249,221),clblack,[],newRect);

end
else
begin
DrawCol(arow,acol,rgb(223,249,221),clblack,[],rect) ;
newRect:=stringgrid1.CellRect(acol-1,arow);
drawcol(arow,acol-1,rgb(223, 249,221),clblue,[],newRect);

end;
end
else
begin

begin

if (arow = 0 )then
DrawCol(arow,acol,clwhite,clFuchsia,[fsbold],rect)
else if (acol mod 2 = 0) then
DrawCol(arow,acol,clwhite,clblue,[],rect)

else
DrawCol(arow,acol,clwhite,clblack,[],rect);
end;
end;

procedure DrawCol(row, col: integer;color,fontcolor:Tcolor;fontstyle:TFontStyles;rect:Trect);
var
nrect:TRect;
str:string;
h,w,lx,ly,x,y:integer;

begin
//rect:=stringgrid1.CellRect(col,row);
stringgrid1.canvas.Brush.Color:=color; // rgb(231,243,226)
stringgrid1.Canvas.FillRect(rect);
stringgrid1.canvas.Font.Name:='宋体';
stringgrid1.canvas.Font.size:=10;
stringgrid1.canvas.Font.style:=fontstyle;
// if col mod 2 = 0 then
stringgrid1.canvas.Font.color:=fontcolor;
// else
// stringgrid1.Canvas.Font.Color:=clblack;
str:=stringgrid1.cells[col,row];
h := stringgrid1.Canvas.TextHeight(str);
w:=stringgrid1.Canvas.TextWidth(str);
lx:=(rect.Right-rect.left - w) div 2;
ly:=(rect.Bottom -rect.Top - h) div 2;
x:=rect.Left+lx;
y:=rect.Top+ly ;
stringgrid1.Canvas.TextOut(x,y, str);

end;

bdmh 2011-01-02

打赏
举报

通过
StringGrid1.CellRect(StringGrid1.Col-1,StringGrid1.Row);获得另一个单元格的Rect，然后画上底色

✦双11狂欢大促✦

StringGrid指定单元格背景颜色改变

相关推荐

双11狂欢大促