TStringGrid中設置字體顏色(0分)

  • 主题发起人 主题发起人 huangyaoxu
  • 开始时间 开始时间
H

huangyaoxu

Unregistered / Unconfirmed
GUEST, unregistred user!
剛剛學習TStringGrid組件,很多知識都不懂,哪位前輩可以告訴我。
如果想在外邊設置一個函數和一個過程來設置這個組件的字體顏色,例如:
Procedure SetFontColor(Grid: TStringGrid;
ACol,ARow: Integer;
Value : TColor);//功能:設置所選擇行的字體顏色
Function GetFontColor(Grid: TStringGrid;
ACol,ARow: Integer;) : TColor;
//功能:獲得選擇行的字體顏色
對于上邊SetFontColor 我是這樣定義的:
procedure TForm1.setfontcolor(Grid: TStringGrid;
aCol, aRow: Integer;
Value: TColor);
var
rect : TRect;
begin
with griddo
begin
Canvas.Font.Color := Value;
Canvas.Font.Size := 12;
Canvas.Font.Style := canvas.Font.Style +[fsBold];
Canvas.textout(rect.Left + 2,rect.Top + 2,cells[Acol,Arow]);
end;
end;

但設置不了所要選定的行的顏色,哪位前輩能給些提示呢?
還有就是怎樣來獲得StringGrid所設定行的字體顏色?
謝謝!
 
TStringGrid中的颜色和内容 都是 DrawCell时,进行设置的吧。
你这样行吗?
 
楼上正解
或者改完要刷新
 
接受答案了.
 
后退
顶部