VPF::TTable - Форум программистов

prism

Дата 18.2.2007, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.1.2007

Репутация: нет
Всего: нет

Можно ли получить доступ к отдельным строкам и изменить цвет(несколько строк разным цветом) или выделить как-нибудь всю строку?

Sunvas

Дата 18.2.2007, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

prism, чем ты выводишь содержимое table-a? Ты же имеешь в виду компонент от BDE?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Albinos_x

Дата 19.2.2007, 09:26 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

вопрос не правильно задан... наверно имеется ввиду DBGrid...

Код

...
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: 
 TRect; 
   Field: TField; State: TGridDrawState); 
 begin 
   if gdFocused in State then 
   with (Sender as TDBGrid).Canvas do 
   begin 
     Brush.Color := clRed; 
     FillRect(Rect); 
     TextOut(Rect.Left, Rect.Top, Field.AsString); 
   end; 
 end;
...

DRKB (Delphi Russian Knowledge Base)

Добавлено @ 09:29
TTable - невизуальный компанент... у него нет строк smile

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

prism

Дата 26.2.2007, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 13.1.2007

Репутация: нет
Всего: нет

Да, конечно, я имел в виду DBGrid. Прорисовка строк нужным цветом получается, но без понимания процесса, обясните пожалуйста как мне узнать на какой строке фокус и не могли бы вы прокоментировать следуйщий код:

Цитата(Albinos_x @ 19.2.2007, 09:26)

Код


procedure TForm1.DrawField(const Value: string; const Rect: TRect;
      vCanvas: TCanvas; vFont: TFont; vAlignment: TAlignment; color:TColor);
    var
      X: Integer;
    begin

      vCanvas.Brush.Color:=color;
      vCanvas.Font := vFont;
      vCanvas.Font.Color := 0;
      vCanvas.Font.Style := vCanvas.Font.Style + [fsUnderline];
      case vAlignment of
        taRightJustify:
          begin
            SetTextAlign(vCanvas.Handle, TA_RIGHT);
            X := Rect.Right - 2;
          end;
        taLeftJustify:
          begin
            SetTextAlign(vCanvas.Handle, TA_LEFT);
            X := Rect.Left + 2;
          end;
        taCenter:
          begin
            SetTextAlign(vCanvas.Handle, TA_CENTER);
            X := (Rect.Right + Rect.Left) div 2;
          end;
      end;
      vCanvas.TextRect(Rect, X, Rect.Top + 2, Value);
      SetTextAlign(vCanvas.Handle, TA_LEFT);
    end;


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  with Sender as TDBGrid, DataSource.DataSet do
      begin
        if ADOQuery1.fieldbyname('NUM_TR').AsInteger<16 then
          DrawField(Column.Field.DisplayText, Rect, Canvas,
          Column.Font, Column.Alignment, clInactiveCaptionText);
      end;

   {//Здесь я пытался выделить нужным цветом строку в фокусе но не получилось
     if gdFocused in State then
     with (Sender as TDBGrid).Canvas do
     begin
        DrawField(Column.Field.DisplayText, Rect, Canvas,
          Column.Font, Column.Alignment,       clInactiveCaptionText);

     end;
     }

  

end;

Это сообщение отредактировал(а) Alexeis - 27.2.2007, 10:42

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »