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

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

•  TDictionary Custom Sort  6 262

•  Fast Watermark Sources  6 062

•  3D Designer  8 964

•  Sik Screen Capture  6 384

•  Patch Maker  6 807

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

•  ListBox Drag & Drop  5 662

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

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

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

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

•  Canvas Drawing  5 547

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

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

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

•  Paint on Shape  2 653

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

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

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

•  Пазл Numbrix  2 380

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

•  Игра HIP  2 017

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

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

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

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

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

•  HEX View  2 478

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

 
скрыть

  Форум  

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

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



Delphi Sources

Заголовок TDBGrid в две строки



Оформил: DeeCo

type
   TAccessDBGrid = class(TDBGrid);

 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
   const Rect: TRect; DataCol: Integer; Column: TColumn;
   State: TGridDrawState);
 var
   S1, S2: String;
 begin
   with TAccessDBGrid(DBGrid1) do
   begin
     // Increase title height 
    // Titelhohe vergrossern 
    RowHeights[0] := 32;

     Canvas.Brush.Style := bsClear;

     // Column Titles 
    // Spalten Titel setzen 
    case Column.Index of
     0: begin
          Column.Title.Caption := '';
          S1 := 'Row 1';
          S2 := 'Row 2';
        end;
     1: begin
          Column.Title.Caption := '';
          S1 := 'Row 1';
          S2 := 'Row 2';
        end;
     end;
     // write title: 
    // Titel ausgeben: 
    Canvas.TextOut(Rect.Left+2, 2, S1);
     Canvas.TextOut(Rect.Left+2, 16, S2);
   end;
 end;







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

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