给 StringGrid 按条件上色

 

1. unit Unit1;
3. interface
5. uses
6.    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.    Dialogs, Grids, StdCtrls, ExtCtrls;
9. type
10.    TForm1 = class(TForm)
11.      StringGrid1: TStringGrid;
12.      Button1:      TButton;
13.      Button2:      TButton;
14.      ColorBox1:    TColorBox;
15.      procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: integer;
16.        Rect: TRect; State: TGridDrawState);
17.      procedure FormCreate(Sender: TObject);
18.      procedure Button1Click(Sender: TObject);
19.      procedure Button2Click(Sender: TObject);
20.      procedure ColorBox1Change(Sender: TObject);
21.    private
22.      divMode: integer;
23.    public
24.      { Public declarations }
25.    end;
27. var
28.    Form1: TForm1;
30. implementation
32. {$R *.dfm}
34. procedure TForm1.Button1Click(Sender: TObject);
35. begin
36.    divMode := 1;
37.    StringGrid1.Repaint;
38. end;
40. procedure TForm1.Button2Click(Sender: TObject);
41. begin
42.    divMode := 2;
43.    StringGrid1.Repaint;
44. end;
46. procedure TForm1.ColorBox1Change(Sender: TObject);
47. begin
48.    StringGrid1.Repaint;
49. end;
51. procedure TForm1.FormCreate(Sender: TObject);
52. begin
53.    divMode := 0;
54. end;
56. procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: integer;
57.    Rect: TRect; State: TGridDrawState);
58. begin
59.    with StringGrid1 do
60.    begin
61.      if divMode = 0 then
62.      begin
63.        Canvas.Brush.Color := clWhite;
64.        Canvas.FillRect(Rect);
65.      end;  
66.      if divMode = 1 then
67.      begin
68.        // 标出被 7 整除的数
69.        if (ARow * 5 + ACol) mod 7 = 0 then
70.          Canvas.Brush.Color := ColorBox1.Selected
71.        else
72.          Canvas.Brush.Color := clWhite;
73.        Canvas.FillRect(Rect);
74.      end;
75.      if divMode = 2 then
76.      begin
77.        // 标出被 3 整除的数
78.        if (ARow * 5 + ACol) mod 3 = 0 then
79.          Canvas.Brush.Color := ColorBox1.Selected
80.        else
81.          Canvas.Brush.Color := clWhite;
82.        Canvas.FillRect(Rect);
83.      end;
84.      Canvas.Pen.Color := clBlack;
85.      Canvas.TextOut(Rect.Left + 2, Rect.top + 4, IntToStr((ARow) * 5 + ACol));
86.    end;
88. end;
90. end.