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

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

•  TDictionary Custom Sort  6 536

•  Fast Watermark Sources  6 324

•  3D Designer  9 274

•  Sik Screen Capture  6 656

•  Patch Maker  7 033

•  Айболит (remote control)  7 047

•  ListBox Drag & Drop  5 914

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

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

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

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

•  Canvas Drawing  5 783

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

•  Поворот изображения  5 017

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

•  Paint on Shape  2 832

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

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

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

•  Пазл Numbrix  2 499

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

•  Игра HIP  2 149

•  Игра Go (Го)  2 086

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

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

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

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

•  HEX View  2 611

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

 
скрыть

  Форум  

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

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



Delphi Sources

TVertGrid — TStringGrid с возможностью заполнения в design-time



Автор: Дмитрий Логинов

Компонент TVertGrid представляет собой модифицированный TStringGrid.

В стандартный компонент добавлена возможность в режиме Design-time заполнять первую колонку (property Labels) и первую строку (property Titles) грида.

Если набранных строк в Labels больше, чем задано количество строк самого TVertGrid, то они будут автоматически добавлены. Аналогично и с количеством колонок (Titles). При уменьшении строк в свойствах Labels и Titles, количество строк и колонок самого грида не будет уменьшаться.

На скриншоте показано редактирование списка заголовков колонок. Количество строк в Titles это количество заполненных колонок первой строки.

Компонент очень прост и вы можете модифицировать его по своему собственному желанию.

Скачать VertGrid.Zip (1K)

Исходный код компонента:


unit VertGrid;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, stdctrls;

type
  TVertGrid = class(TStringGrid)
  protected
    { Protected declarations }
    procedure SetLines(Value: TStrings);
    function GetLines: TStrings;
    procedure SetTitles(Value: TStrings);
    function GetTitles: TStrings;
  public
    constructor Create(AOwner: TComponent); override;
  published

    // Первая колонка
    property Labels: TStrings read GetLines write SetLines;
    // Первая строка
    property Titles: TStrings read GetTitles write SetTitles;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TVertGrid]);
end;

constructor TVertGrid.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  ColCount := 2;
  DefaultRowHeight := 16;
end;

procedure TVertGrid.SetLines(Value: TStrings);
begin
  if Value.Count > RowCount then
    RowCount := Value.Count;

  Cols[0].Assign(Value);
end;

procedure TVertGrid.SetTitles(Value: TStrings);
begin
  if Value.Count > ColCount then
    ColCount := Value.Count;

  Rows[0].Assign(Value);
end;

function TVertGrid.GetLines: TStrings;
begin
  result := Cols[0];
end;

function TVertGrid.GetTitles: TStrings;
begin
  result := Rows[0];
end;

end.





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

TStringGridCheker

Vista Design

3D Designer

Create Table in Runtime

 

ProgTimer

Timers

TMicroTimer

Time Alarm

 

Dynamic Menu Runtime

RTimer

Registry Date Time

Run-Time

 



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

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