Текущий архив: 2003.01.30;
Скачать: CL | DM;

Вниз

Почему StringGrid так работает?   Найти похожие ветки 

← →
Blackweber ©   (2003-01-12 03:12) [0]

Если раскомментировать кусок кода в процедуре, то грид после завершения циклов очищает Canvas. Почему? Наверно из-за вывода, текста в ячейки. Как сделать чтобы и текст был и ячейки закрашивались?
Благодарю за ответы.

procedure TMainForm.Loop(Arr: TArray; Colour: TColor);
var i,j : Byte;
GrCan : TCanvas;
begin
GrCan := Grid.Canvas;
GrCan.Brush.Color := Colour;
for i := 0 to Cols do
for j := 0 to Rows do
begin
{ Grid.Cells[i, j] := IntToStr(Arr[i, j]);
if Arr[i, j] = 0 then Grid.Cells[i, j] := ""
else }GrCan.Rectangle(i * C_Width, j * R_Height, (i + 1) * C_Width, (j + 1) * R_Height);
Sleep(10);
end;
end;

---

← →
Rouse_ ©   (2003-01-12 07:29) [1]

Рисовать вручную на канвасе WM_PAINT, GetWindowDC

Желаю успехов

---

← →
blackweber ©   (2003-01-12 13:23) [2]

А если в OnDrawCell попробовать? (у самого нет времени =))

---

← →
blackweber ©   (2003-01-12 20:30) [3]

Мляя, мужики Grid.DefaultDrawing := False; - и все в ШОКОЛАДЕ!!!!!!!!

---

Страницы: 1 вся ветка

Текущий архив: 2003.01.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c