TADVStringGrid如何动态更改与当前cellADV相邻的单元格的文本颜色

时间:2018-09-15 16:52:59

标签: delphi

我有一个带有ColorCombo编辑器的单元格,在它旁边有一个带有一些文本的单元格。当我在ColorCombo编辑器中选择其他颜色时,我想动态更改相邻单元格中文本的颜色。

我还没有找到访问相邻单元格的画布的方法,所以我可以更改颜色

1 个答案:

答案 0 :(得分:1)

从TMS Documentation

”   单元格属性也可以直接设置。当然,使用此方法需要更多的内存,因为属​​性与每个单元格一起存储。可能的属性是:

property Alignments[Col,Row: Integer]: TAlignment;
property Colors[Col,Row: Integer]: TColor; property ColorsTo[Col,Row: Integer]: TColor;
property FontColors[Col,Row: Integer]: TColor;
property FontStyles[Col,Row: Integer]: TFontStyles;
property FontSizes[Col,Row: Integer]: Integer;
property FontNames[Col,Row: Integer]: string;

示例:将单元格2,3设置为红色背景,粗体Tahoma字体并右对齐

Grid.Colors[2,3] := clRed; 
Grid.FontStyles[2,3] := Grid.FontStyles[2,3] + [fsBold];
Grid.FontNames[2,3] := ‘Tahoma’; 
Grid.Alignments[2,3] := taRightJustify;

注意:属性grid.ColorsTo [Col,Row:Integer]:TColor用于指定单元格中从Colors []设置的颜色到ColorsTo []设置的颜色的垂直渐变。 “