| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как правильно прорисовать заголовок столбца StringGridа? [D6, WinXP]

Таня ©   (2004-06-17 13:55:00) 

Есть StringGrid с заголовком на две строки. Нужно в некотором столбце прорисовать заголовок (текст, картинка) на обе строчки.

Я для текста делаю так:

procedure TFormOU.SGDrawCell(Sender: TObject; ACol,  ARow: Integer; Rect: TRect; State: TGridDrawState);
var rec: TRect;
   h: integer;
begin
   if (state = [gdfixed]) and (arow < 2) then begin
         if ACol=2 then if Arow=0 then begin
               rec.Left := Rect.Left-1;
               rec.Top := rect.Top-1;
               rec.Right := rect.right+1;
               rec.Bottom := rect.bottom+1;
               SG.Canvas.Font.Color := clNavy;
               SG.Canvas.Font.Size := 9;
               SG.Canvas.Brush.Color := clBtnFace;
               SG.Canvas.FillRect(rec);
               h := SG.Canvas.TextWidth(SG.Cells[acol, arow]);
               h := rect.Left + Round((rect.Right-rect.Left)/2 - h/2);
               rec.Bottom:=2*(rec.Bottom-rec.Top)-1;
               SG.Canvas.TextRect(rec,h + 2, rec.Top +13, SG.Cells[acol, arow]);
            end else begin
               {ничего не делаю для второй ячейки}
            end
         else begin
            //прорисовка для других столбцов
            ...  
         end;
.....


Нижня ячека при этом всеравно налезает на текст, как правильно сделать?

---

Таня   (2004-06-17 16:54:00) [1]

> rec.Bottom:=2*(rec.Bottom-rec.Top)-1;- Это я задаю высоты, чтобы recна две ячейки был.

Как я понимаю RowHeights[0]действует на всю строку, а мне нужно только в определенном столбце.

---

TUser   (2004-06-17 16:13:00) [2]

> rec.Bottom:=2*(rec.Bottom-rec.Top)-1;

А эта строчка что делает? Вроде, должен поменяться rec, т.е. текст будет выводиться за пределами ячейки. Я не очень врубился, но если не ошибаюсь, то ошибка исчезнет, если назначить соответствующий RowHeights[0].

---

Наверх