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

Вниз

StringGird pt3   Найти похожие ветки 

← →
Bobby Digital ©   (2005-01-21 20:11) [0]

Как мне расскрасить, серым цветом, нулевую строку в SringGrid (у SringGrid св-ва fixedRow и fixedCol равны 0), и сделать чтоб весь текст в нулевой строке был подчеркнутым.

Если можно то на примере, пример по адресу  http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988624493&n=17 работет не так как  мне надо, я еще новичек в Делфи, и пока не сталкивался с рисованием на компонентах, заранее спасибо.

---

← →
begin...end ©   (2005-01-21 20:19) [1]

> Bobby Digital ©   (21.01.05 20:11)

procedure TForm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
begin
 if (ACol = 0) and (ARow = 0) then
   with (Sender as TStringGrid), Canvas do
   begin
     Brush.Color := clSilver;
     FillRect(Rect);
     Font.Color := clWhite;
     Font.Style := [fsUnderLine];
     TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow])
   end;
end.

---

← →
begin...end ©   (2005-01-21 20:28) [2]

> Bobby Digital ©   (21.01.05 20:11)

А, извиняюсь. Ведь нужно, чтобы во всей нулевой строке текст был подчёркнутым.
Тогда так:

procedure TForm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
begin
 with (Sender as TStringGrid), Canvas do
   if ARow = 0 then
   begin
     if ACol = 0 then
     begin
       Brush.Color := clSilver;
       FillRect(Rect)
     end;
     Font.Color := clWhite;
     Font.Style := [fsUnderLine];
     TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow])
   end
end.

---

← →
begin...end ©   (2005-01-21 20:37) [3]

Со мной сегодня определённо чего-то не так :-)))
Вот окончательный вариант:

procedure TForm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
begin
 with (Sender as TStringGrid), Canvas do
   if ARow = 0 then
   begin
     if ACol = 0 then
       Brush.Color := clSilver;
     FillRect(Rect);
     Font.Color := clRed;
     Font.Style := [fsUnderLine];
     TextOut(Rect.Left, Rect.Top, Cells[ACol, ARow])
   end
end.

Всё... Пойду к экзамену готовиться...

---

← →
Bobby Digital ©   (2005-01-21 21:35) [4]

спасибо ... я же не полный Ламер мне и первго варианта полне хватило

---

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

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

Наверх

Память: 0.48 MB
Время: 0.034 c