Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 283

•  TDictionary Custom Sort  6 332

•  Fast Watermark Sources  6 123

•  3D Designer  9 049

•  Sik Screen Capture  6 445

•  Patch Maker  6 861

•  Айболит (remote control)  6 844

•  ListBox Drag & Drop  5 718

•  Доска для игры Реверси  96 567

•  Графические эффекты  7 061

•  Рисование по маске  6 360

•  Перетаскивание изображений  5 232

•  Canvas Drawing  5 606

•  Рисование Луны  5 305

•  Поворот изображения  4 856

•  Рисование стержней  3 441

•  Paint on Shape  2 703

•  Генератор кроссвордов  3 580

•  Головоломка Paletto  2 873

•  Теорема Монжа об окружностях  3 681

•  Пазл Numbrix  2 413

•  Заборы и коммивояжеры  3 094

•  Игра HIP  2 054

•  Игра Go (Го)  1 979

•  Симулятор лифта  2 343

•  Программа укладки плитки  2 043

•  Генератор лабиринта  2 501

•  Проверка числового ввода  2 190

•  HEX View  2 511

•  Физический маятник  2 129

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как изменить шрифт определённой строки в DBGrid





"Всех денег не заработать", - огорченно сказал Билл Гейтс уходя в отставку.


procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  // If the record's CustNo is 4711 draw the entire row with a
  // line through it. (set the font style to strike out)
  if (Sender as TDBGrid).DataSource.DataSet.FieldByName('CustNo').AsString = '1221' then
    with (Sender as TDBGrid).Canvas do
    begin
      FillRect(Rect);
      // Set the font style to StrikeOut
      Font.Style := Font.Style + [fsStrikeOut];
      Font.Color := clRed;
      // Draw the cell right aligned for floats + offset
      if (Field.DataType = ftFloat) then
        TextOut(Rect.Right-TextWidth(Field.AsString)-3, Rect.Top+3, Field.AsString)
      // Otherwise draw the cell left aligned + offset
      else
        TextOut(Rect.Left+2,Rect.Top+3,Field.AsString);
    end;
end;





Похожие по теме исходники

cyDBGrid

Cell Hint in DBGrid

Примеры оформления DBGrid

Пример использования DBGrid

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте