1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
procedure TForm1.sgSourceDataDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Var
SG:TStringGrid;
i,add:byte;
S,S1,S2:String;
CanDraw:Boolean;
BigCellLength, BigCellHeight,
TextLength, TextHeight,
LeftIndent, TopIndent,
H1,H2,H3,
L1,L2:Integer;
begin
SG:=Form1.sgSourceData;{Для сокращения длины записей}
//Заливка площади ячеек:
SG.Canvas.Brush.Color := clWhite;{ячейки основной таблицы, белые}
If ARow<3 then SG.Canvas.Brush.Color := ClFixedCell;{первые три строки - "шапка", серые}
If (ARow>2) And (ACol in [4..6,10..12]) then
SG.Canvas.Brush.Color := RGB(240,240,240); {делаем 6 столбцов серыми (Disbled)}
SG.Canvas.FillRect(Rect);
//Границы ячеек:
If ARow<3 then {ЯЧЕЙКА "ШАПКИ"}
Begin
//Рисуем нижнюю границу: ------------------------
SG.Canvas.Pen.Color := clBlack;
If (ARow in [0,1]) And (ACol=0) then SG.Canvas.Pen.Color := clFixedCell; {Для ячеек (0,0) и (1,0) указываем цвет, совпадающий с цветом заливки ячейки}
SG.Canvas.MoveTo(Rect.Left-1, Rect.Bottom);{курсор - в левый нижний угол ячейки}
SG.Canvas.LineTo(Rect.Right, Rect.Bottom);{чертим нижнюю границу ячейки}
//Рисуем правую границу: ------------------------
SG.Canvas.Pen.Color := clBlack;
If ((ARow=0) And (ACol in [1..5,7..11])) Or
((ARow=1) And (ACol in [1,2,4,5,7,8,10,11])) then SG.Canvas.Pen.Color := clFixedCell;
SG.Canvas.MoveTo(Rect.Right, Rect.Top);{курсор - в правый верхний угол ячейки}
SG.Canvas.LineTo(Rect.Right, Rect.Bottom);{чертим правую границу ячейки}
End
Else {ОСНОВНАЯ ТАБЛИЦА}
Begin
//Рисуем правую границу: ------------------------
SG.Canvas.Pen.Color := clLightGrayLines;
If ACol in [0..3,6..9,12] then SG.Canvas.Pen.Color := clDarkGrayLines;
SG.Canvas.MoveTo(Rect.Right, Rect.Top);{курсор - в правый верхний угол ячейки}
SG.Canvas.LineTo(Rect.Right, Rect.Bottom+1);{чертим правую границу ячейки}
//Рисуем нижнюю границу: ------------------------
SG.Canvas.Pen.Color := clLightGrayLines;
If (ACol in [0..3,7..9]) Or (ARow=SG.RowCount-1) then
SG.Canvas.Pen.Color := clDarkGrayLines;
SG.Canvas.MoveTo(Rect.Left, Rect.Bottom);{курсор - в левый нижний угол ячейки}
SG.Canvas.LineTo(Rect.Right, Rect.Bottom);{чертим нижнюю границу ячейки}
End;
//3D-ЭФФЕКТ (первые 3 строки):
If ARow<3 then
Begin
//Темная нижняя граница: ----------------------------------------------
SG.Canvas.Pen.Color := cl3DGrayLines;
Add:=0; {добавка 1-го пикселя справа}
If (ARow=0) And (ACol in [1..5,7..11]) then Add:=1;
If (ARow=1) And (ACol in [1,2,4,5,7,8,10,11]) then Add:=1;
If not ((ARow<2) And (ACol=0)) then {исключаем две первые строки в первом столбце}
Begin
SG.Canvas.MoveTo(Rect.Left, Rect.Bottom-1);{курсор - в левый нижний угол ячейки}
SG.Canvas.LineTo(Rect.Right+Add, Rect.Bottom-1);{чертим нижнюю полосу}
End;
//Темная правая граница: -----------------------------------------------
Add:=0; {добавка 1-го пикселя снизу}
CanDraw:=True; {разрешает чертить правую границу}
If (ARow<2) And (ACol=0) then Add:=1;
If (ARow=0) And (ACol in [1..5,7..11]) then CanDraw:=False;
If (ARow=1) And (ACol in [1,2,4,5,7,8,10,11]) then CanDraw:=False;
If CanDraw then
Begin
SG.Canvas.MoveTo(Rect.Right-1, Rect.Top);{курсор - в правый верхний угол ячейки}
SG.Canvas.LineTo(Rect.Right-1, Rect.Bottom + Add);{чертим правую полосу}
End;
//Светлая верхняя граница: --------------------------------------------
SG.Canvas.Pen.Color := clWhite;
Add:=0; {добавка 1-го пикселя справа}
If (ARow=0) And (ACol in [1..5,7..11]) then Add:=1;
If (ARow=1) And (ACol in [1,2,4,5,7,8,10,11]) then Add:=1;
If not ((ARow in [1,2]) And (ACol=0)) then {исключаем две строки в первом столбце}
Begin
SG.Canvas.MoveTo(Rect.Left, Rect.Top);{курсор - в левый верхний угол ячейки}
SG.Canvas.LineTo(Rect.Right+Add, Rect.Top);{чертим нижнюю полосу}
End;
//Светлая левая граница: ----------------------------------------------
Add:=0; {добавка 1-го пикселя снизу}
CanDraw:=True; {разрешает чертить левую границу}
If (ARow<2) And (ACol=0) then Add:=1;
If (ARow=0) And (ACol in [2..6,8..12]) then CanDraw:=False;
If (ARow=1) And (ACol in [2,3,5,6,8,9,11,12]) then CanDraw:=False;
If CanDraw then
Begin
SG.Canvas.MoveTo(Rect.Left, Rect.Top);{курсор - в правый верхний угол ячейки}
SG.Canvas.LineTo(Rect.Left, Rect.Bottom + Add);{чертим правую полосу}
End;
End;{If, 3D effect}
{---------------------------------------------------------------------------}
//ТЕКСТ В ЯЧЕЙКАХ
SG.Canvas.Font.Color:=clBlack;
//Выводим текст в ячейке (0,0) "Объект измерения"
If (ARow=2) And (ACol=0) then
Begin
S1:=SG.Cells[0,1]; {"Объект"}
S2:=SG.Cells[0,2]; {"измерения"}
L1:=SG.Canvas.TextWidth(S1); {длина 1-го слова}
L2:=SG.Canvas.TextWidth(S2); {длина 2-го слова}
H1:=SG.Canvas.TextHeight(S1);{высота 1-го слова}
H2:=SG.Canvas.TextHeight(S2);{высота 2-го слова}
H3:=Round(0.1*H2); {высота пробельной строки}
BigCellHeight:= SG.RowHeights[0] + SG.RowHeights[1] + SG.RowHeights[2];{высота объединенной ячейки}
TopIndent :=Round((BigCellHeight - H1-H2-H3)/2); {отступ сверху (и снизу)}
//Выводим слово "Объект":
LeftIndent:=Round((SG.ColWidths[ACol] - L1)/2);
SG.Canvas.TextOut(Rect.Right - LeftIndent - L1, Rect.Bottom-1 - TopIndent - H1 - H2 - H3, S1);
//Выводим слово "измерения":
LeftIndent:=Round((SG.ColWidths[ACol] - L2)/2);
SG.Canvas.TextOut(Rect.Right - LeftIndent - L2, Rect.Bottom-1 - TopIndent - H2, S2);
End;
//Выводим текст по центру объединенных ("big") ячеек в 1-й строке:
If (ARow=0) And (ACol in [6,12]) then
Begin
BigCellLength:=0;
For i:=ACol-5 to ACol do BigCellLength := BigCellLength + SG.ColWidths[ACol];
S:=SG.Cells[ACol,ARow];
TextLength:=SG.Canvas.TextWidth(S);
TextHeight:=SG.Canvas.TextHeight(S);
LeftIndent:=Round((BigCellLength - TextLength)/2);
TopIndent:=Round((SG.RowHeights[ARow] - TextHeight)/2);
SG.Canvas.TextOut(Rect.Right - LeftIndent - TextLength, Rect.Top+TopIndent-1, S);
End;
//Выводим текст по центру объединенных ("big") ячеек во 2-й строке:
If (ARow=1) And (ACol in [3,6,9,12]) then
Begin
BigCellLength:=0;
For i:=ACol-2 to ACol do BigCellLength := BigCellLength + SG.ColWidths[ACol];
S:=SG.Cells[ACol,ARow];
TextLength:=SG.Canvas.TextWidth(S);
TextHeight:=SG.Canvas.TextHeight(S);
LeftIndent:=Round((BigCellLength - TextLength)/2);
TopIndent:=Round((SG.RowHeights[ARow] - TextHeight)/2);
SG.Canvas.TextOut(Rect.Right - LeftIndent - TextLength, Rect.Top+TopIndent-1, S);
End;
//Выводим текст в ячейках 3-й строки:
If (ARow=2) And (ACol>0) then
Begin
S:=SG.Cells[ACol,ARow];
TextLength:=SG.Canvas.TextWidth(S);
TextHeight:=SG.Canvas.TextHeight(S);
LeftIndent:=Round((SG.ColWidths[ACol] - TextLength)/2);
TopIndent:=Round((SG.RowHeights[ARow] - TextHeight)/2);
Case ACol of
1,10: SG.Canvas.Font.Color:=clRed;
2,11: SG.Canvas.Font.Color:=clGreen;
3,12: SG.Canvas.Font.Color:=clBlue;
End;{Case}
SG.Canvas.TextOut(Rect.Right - LeftIndent - TextLength, Rect.Top+TopIndent-1, S);
End;
//Выводим текст в строках с данными (4 строка и далее):
If ARow>2 then
Begin
S:=SG.Cells[ACol,ARow];
//TextLength:=SG.Canvas.TextWidth(S);
TextHeight:=SG.Canvas.TextHeight(S);
LeftIndent:=3; //Round((SG.ColWidths[ACol] - TextLength)/2);
TopIndent:=Round((SG.RowHeights[ARow] - TextHeight)/2);
SG.Canvas.Font.Color:=clBlack;
If ACol in [4..6,10..12] then
Begin
SG.Canvas.Font.Color:=clWhite;
SG.Canvas.TextOut(Rect.Left + LeftIndent + 1, Rect.Top+TopIndent-1 + 1, S);
SG.Canvas.Font.Color:=clGray;
End;
SetBkMode(SG.Canvas.Handle, TRANSPARENT);{делаем фон под буквами прозрачным}
SG.Canvas.TextOut(Rect.Left + LeftIndent, Rect.Top+TopIndent-1, S);
End;
end;
