VPF::Измение курсора у Virtual TreeView после BeginUpda

GogaM

Дата 8.9.2008, 15:21 (ссылка)

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

Загрузка ...

Новичок

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

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

Не могу изменить курсор у Virtual TreeView.
Когда выполняю операции которые занимают много времени выставляю у дерева свойство Cursor := crHourGlass,
но визуально курсор на дереве не меняется, хотя свойство Cursor = crHourGlass.
Курсор меняется только в том случае если я перед началом цикла не выполняю BeginUpdate,
но в этом случае дерево работе очень медленно.
Можно ли после BeginUpdate поменять курсор?

morpheyushka

Дата 8.9.2008, 15:25 (ссылка)

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

Загрузка ...

Зеленый человек

Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

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

Я в подобных случаях пользуюсь RxLib'ом.
Делаю это так:

Код


StartWait;
try
//код
finally
  StopWait;
end;

пока выполняется код в try...finally - пользователь наблюдает часики smile

и вставлять можно когда хочешь...

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

Спасибо делается вот так!!!

GogaM

Дата 8.9.2008, 15:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Я так понимаю, что StartWait показывает часики на всем приложении а не на конкретном дереве.
Если это так, то этот вариан не подходит так же как и вариант Screen.Cursor := crHourGlass.
Поскольку оперции с деревом выполняются в потоке, остальные модули (формы) проекта должны нормально работать,
а при наведении мыши на контрол дерева курсор должен измениться.

Poseidon

Дата 8.9.2008, 16:04 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Я не пойму в чем проблема? Меняй курсор, делай BeginUpdate и начинай цикл...

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

GogaM

Дата 9.9.2008, 08:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Ещё раз.
Перед началом цикла делаю
Virtual TreeView.Cursor := crHourGlass
Virtual TreeView.BeginUpdate
Цикл
Virtual TreeView.EndUpdate
Virtual TreeView.Cursor := crDefault
Во время цикла водим мышом над деревом курсор crDefault.
Как поменять на crHourGlass.

Poseidon

Дата 9.9.2008, 09:05 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

В общем, как показали эксперементы с BeginUpdate, этот метод запрещает вообще все сообщения контролу. Поэтому и получается, что курсор как бы не знает что он находится над деревом и не меняется. На скорую руку я бы это все обошел так:

Код

type
  TTestThread = class(TThread)
  private
    VT: TVirtualStringTree;
  protected
    procedure Execute; override;
    procedure UpdVT;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var TestThread: TTestThread;
begin
  VirtualStringTree1.Cursor := crHourGlass;

  TestThread:= TTestThread.Create(True);
  TestThread.FreeOnTerminate:= True;
  TestThread.Resume;
end;


{ TTestThread }
procedure TTestThread.Execute;
var i: integer;
begin
  VT:= TVirtualStringTree.Create(nil);

  for i:= 0 to 50000 do VT.AddChild(nil); // < -- цикл заполнения

  Synchronize(UpdVT);
  VT.Free;
end;

procedure TTestThread.UpdVT;
begin
  with Form1 do
  begin
    VirtualStringTree1.Assign(VT);
    VirtualStringTree1.Cursor := crDefault;
  end
end;

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

GogaM

Дата 9.9.2008, 09:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Про "скорую руку" согласен.
Только Assign придётся делать 2 раза, чтоб деревья не отличались.
В добавок Assign происходит в основной нити и 2 Assign-а тож не мнгновенно отрабатывают.
Количество нод у мну в проекте примерно такое как в примере, да не по одному разу.

Poseidon

Дата 9.9.2008, 09:59 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(GogaM @ 9.9.2008, 09:42

)

В добавок Assign происходит в основной нити и 2 Assign-а тож не мнгновенно отрабатывают.

Кто сказал? Assign в потоке. А то, что не мгновенно, так это спорно smile

Assign - это присвоение данных которые в памяти. Такое присвоение обычно очень быстрое. Оно конечно медленнее чем если бы мы сразу заполняли дерево, но не ощутимо. Тем более пользователь видет в это время "часики".

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

GogaM

Дата 9.9.2008, 10:04 (ссылка)

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

Загрузка ...

Новичок

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

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

В примере Assign вызывается через Synchronize.
Это означает что весь код выполняется в основной нити.

Poseidon

Дата 9.9.2008, 10:19 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Ну верно и что? У нас есть пустое дерево в памяти и заполненное дерево в памяти. Мы берем данные из заполненного и копируем в пустое. Все это в основной нити и..? Ведь само заполнение данными, сама "тяжелая операция" проходит в потоке. А копирование память-память потом "общей кучей" пройдет за миллисекунды.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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