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

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

•  TDictionary Custom Sort  6 355

•  Fast Watermark Sources  6 144

•  3D Designer  9 084

•  Sik Screen Capture  6 468

•  Patch Maker  6 884

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

•  ListBox Drag & Drop  5 740

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

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

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

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

•  Canvas Drawing  5 628

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

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

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

•  Paint on Shape  2 720

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

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

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

•  Пазл Numbrix  2 430

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

•  Игра HIP  2 071

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

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

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

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

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

•  HEX View  2 532

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

 
скрыть

  Форум  

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

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



Delphi Sources

Увеличение ячейки TStringGrid при увеличении числа строк



Автор: Пётр Соболь

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow:
  Integer; Rect: TRect; State: TGridDrawState);
var
  Format: Word;
  C: array[0..255] of Char;
  r: integer;
begin
  C := '';
  Format := DT_LEFT or DT_WORDBREAK;
  (Sender as TStringGrid).Canvas.FillRect(Rect);
  StrPCopy(C, (Sender as TStringGrid).Cells[ACol, ARow]);
  if c <> '' then //если есть значения
  begin
    r := WinProcs.DrawText((Sender as TStringGrid).Canvas.Handle, C,
      StrLen(C), Rect, Format);
    if r > (Sender as TStringGrid).RowHeights[Arow] then
      //если высота колонки меньше
      (Sender as TStringGrid).RowHeights[Arow] := r;
  end;
end;




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

TStringGridCheker

Примеры работы с БД

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

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

 

База предприятий и менеджеров 0.99

Консольное DOS приложение

Работа с принтером

Локализация приложений

 



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

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