Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: октябрь 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



DbGrid со свойствами Col и Row

Идет Иванушка-дурачек по полю и видит коровью морду. RC5-64 подумал Иванушка. Идет дальше и дедка-пастуха видит - Daniel Baker - подумал Иванушка. Увидел частокол с кольями на равном растоянии друг от друга... не успел ничего подумать, как пастух пробурчал:
- Ага OGR has started!!


 {
 Код улучшенного TDBGrid, имеющего свойства Col,
 Row и Canvas и метод CellRect. Это чрезвычайно
 полезно в случае, если вы, к примеру, хотите
 получить выпадающий список на месте редактируемой
 пользователем ячейки.
 }
 
 unit VUBComps;
 
 interface
 
 uses
 
   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
   Forms, Dialogs, Grids, DBGrids, DB, Menus;
 
 type
 
   TDBGridVUB = class(TDBGrid)
   private
     { Private declarations }
   protected
     { Protected declarations }
   public
     property Canvas;
     function CellRect(ACol, ARow: Longint): TRect;
     property Col;
     property Row;
 
     procedure Register;
 
 implementation
 
 procedure Register;
 begin
 
   RegisterComponents('VUBudget', [TDBGridVUB]);
 end;
 
 function TDBGridVUB.CellRect(ACol, ARow: Longint): TRect;
 begin
 
   Result := inherited CellRect(ACol, ARow);
 end;
 
 end.
 
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS