VPF::headercontrol - Форум программистов

karpushkin

Дата 3.3.2005, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.3.2005

Репутация: нет
Всего: нет

как связать изменение ширины секции HeaderControl с шириной колонки StgingGrid?

Dr.No_xXx

Дата 3.3.2005, 22:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 215
Регистрация: 24.2.2005

Репутация: нет
Всего: нет

смотря что тебе надо!

p0s0l

Дата 5.3.2005, 13:05 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Держи примерчик:

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    HeaderControl1: THeaderControl;
    procedure FormCreate(Sender: TObject);
    procedure HeaderControl1SectionResize(HeaderControl: THeaderControl;
      Section: THeaderSection);
  private
  public
    procedure UpdateStringGrid;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.FixedCols := 0;
  UpdateStringGrid;
end;

procedure TForm1.HeaderControl1SectionResize(HeaderControl: THeaderControl;
  Section: THeaderSection);
begin
  UpdateStringGrid;
end;

procedure TForm1.UpdateStringGrid;
var
  i : integer;
begin
  StringGrid1.ColCount := HeaderControl1.Sections.Count;
  StringGrid1.Width := HeaderControl1.Width;
  for i := 0 to StringGrid1.ColCount-1 do
    StringGrid1.ColWidths[i] := HeaderControl1.Sections[i].Width - StringGrid1.GridLineWidth;
end;

end.

Присоединённый файл ( Кол-во скачиваний: 1 )

HeaderControl.zip

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »