請問~如何讓StringGrid的列上色~ 讓StringGrid一列一列的顏色不同~~ 謝謝~~~

FAQ< > <>> < > < href="http://delphi.ktop.com.tw/link.asp?topic_id=40704">http://delphi.ktop.com.tw/link.asp?topic_id=40704 ... many more ...

Hi!peiyao您好! 請您參考下面的方法,看是否對您有幫助.  //下面的方法同時改變了StringGrid資料的Alignment,請注意.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);      FUNCTION XCenter (rect:  TRect; canvas:  TCanvas; s:  STRING):  INTEGER;
  BEGIN
   RESULT := ((rect.Left   rect.Right) - canvas.TextWidth(s)) DIV 2
  END {XCenter};      FUNCTION YCenter (rect:  TRect; canvas:  TCanvas; s:  STRING):  INTEGER;
  BEGIN
    RESULT := ((rect.Top   rect.Bottom) - canvas.TextHeight(s)) DIV 2
  END {YCenter};    begin      with (Sender as TStringGrid) do
  begin
    if Odd(ARow) then
      begin
        Canvas.Brush.Color:=clwhite;
      end
    else
      begin
       if Arow = 0 then
         Canvas.Brush.Color:=clBtnFace
       else
         Canvas.Brush.Color:=clYellow;
      end;
    Canvas.TextRect(Rect,XCenter(Rect, Canvas, cells[acol,arow]),YCenter(Rect, Canvas, cells[acol,arow]),cells[acol,arow]);
    Canvas.FrameRect(Rect);
  end;
end;
 

發表人 - mathewzhao 於 2003/11/28 12:31:10