VPF::Проблема с ProfGrid - Форум программистов

green2005

Дата 29.11.2006, 07:31 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте все!
Вопрос на счет ProfGrid-a
(версия 2.3.1)
хороший компонент но возникает такая странная вещь:
если на экране объединенные по вертикали ячейки видны не целиком из-под фиксированных строк,
то при скролировании по горизонтали портится вид фиксированных ячеек
(точнее на них сверху отображается невидимая чать объединённых ячеек)

Я с этим боролся следующим образом

Код


procedure TForm1.Profgrid1TopLeftChanged(Sender: TObject);
begin
  Profgrid1.Invalidate;
end;

но в этом случае, если фиксированные столбцы не видны
(если часть формы выдвинуть вне поля экрана)
то те же глюки возникают при скролировании по вертикали

Во всех случая скролинг производится мышкой по scrollbar-ам profgrida
ProfGrid содержит 50 строк и 50 столбцов
3 строки и 3 столбца фиксированные

Весь текст программы

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ProfGrid1: TProfGrid;
    procedure Profgrid1_TopLeftChanged(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Profgrid1_TopLeftChanged(Sender: TObject);
begin
  Profgrid1.Invalidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i,j:integer;
begin
  ProfGrid1.Cells[5,2].Text:='sss';
  ProfGrid1.MergeHoriz(5,7,0);
  ProfGrid1.MergeHoriz(5,7,1);

  ProfGrid1.MergeVert(0,3,10);
  ProfGrid1.MergeVert(1,3,10);
  for i:=3 to ProfGrid1.colCount-1 do
    for j:=2 to (ProfGrid1.RowCount-2)div 2 do
  ProfGrid1.MergeVert(i,2*j-1,2*j);
end;

end.

M
Girder

Пользуйся тегом CODE!

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