Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблема с 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.


 smile


M
Girder
Пользуйся тегом CODE!
 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

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


 




[ Время генерации скрипта: 0.1149 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.