Скачать: CL | DM;

stringgrid drawcell   Найти похожие ветки 

← →
bagos   (2009-09-30 20:01) [0]

Всем привет, помогите разобраться
крашу ячейки в гриде, нужно провести линию в ячейке top-1
 
if Copy(S, 1, 1) = "-" then
     if (ACol >= 5) and (ACol <= 25) and (ARow >= 0) then
     begin

       Canvas.Brush.Color := $00C1C1FF;
       Canvas.FillRect(Rect);

         Canvas.MoveTo(Rect.Left, rect.Top-1);
         Canvas.LineTo(Rect.Right, Rect.Top-1);

       Canvas.TextOut(rect.left + 4, rect.top+1, Copy(S, 2, Length(s) - 1));
     end;

линия то рисуется то пропадает, почему? что то не так делаю походу, помогите решить!

---

← →
Омлет   (2009-09-30 21:45) [1]

Если стоит какой-то режим смешивания цветов, то линия может затираться при повторном выводе.
Поставь Canvas.Pen.Mode := pmCopy;

> if Copy(S, 1, 1) = "-" then

if (Length(S) > 0) and (S[1] = "-") then

---

← →
Омлет   (2009-09-30 21:50) [2]

Ха. Не то ))
Ты ведь пытаешься рисовать не в своей ячейке.

        Canvas.MoveTo(Rect.Left, rect.Top-1);
        Canvas.LineTo(Rect.Right, Rect.Top-1);

---

← →
Омлет   (2009-09-30 21:54) [3]

Рисовать надо только в своей ячейке!
Rect.Top-1 - это уже ячейка выше данной. И если нужна там линия, то в обработчике для той ячейки и рисуй.

---

← →
Омлет   (2009-09-30 21:58) [4]

> (ARow >= 0)

На надо этого. Разве бывает строка < 0? Не бывает.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c