gorynych_zmey Jul 11 2012 at 11:01

Маленькие хитрости: автоматическое восстановление вида указателя курсора

2 min

3.4K

Comments 13

romik Jul 11 2012 at 11:15

Тогда уж можно переименовать TCursorSaver в TCursorChanger и передавать ему новый курсор в конструктор. Будет более SRPшно.

TheHorse Jul 11 2012 at 11:37

А если курсор поменять нужно более чем на время жизненного цикла одной функции? К примеру, у меня асинхронная загрузка 1000 html документов, и курсор должен оставаться в виде crSomeWait, пока не придет последний ответ. Я так понимаю, с таким примером, ваш метод не пройдет?

gorynych_zmey Jul 11 2012 at 14:13

Если созданный интерфейс будет сохраняться на протяжении всей цепочки вызовов (передачей в виде параметра или сохранением в какое-то приватное поле класса, в рамках которого работает асинхронная загрузка) — то подойдет.

TheHorse Jul 11 2012 at 14:29

Ну тогда нужно будет явно удалять экземпляр TCursorSaver, а это уже не автоматически…

gorynych_zmey Jul 11 2012 at 14:37

Почему? Я уже писал в статье, что у TInterfacedObject есть счетчик использований. Нужно, чтобы до конца всей цепочки вызовов где-то имелась хотя бы одна ссылка на интерфейс, а в конце цепочки вызовов эта ссылка разрушалась — вместе с TCursorSaver.
Как вариант — можно инициализировать ICursorSaver перед вызовом цепочки, и передавать его в каждый блок загрузки. Тогда счетчик использований обнулится в конце последнего блока загрузки — и курсор вернется в нормальное состояние.

TheHorse Jul 11 2012 at 14:48

передавать его в каждый блок загрузки — беда беда. Так нельзя делать, это будет сложнее чем так не делать.

В этом то и суть, что чтобы убрать из него последнюю ссылку — нужно что-то сделать, а если нужно что-то сделать — это уже не автоматически).

gorynych_zmey Jul 11 2012 at 14:57

Не зная, как у вас ваша асинхронная загрузка реализована — сложно что-то подсказать. Но общее направление поиска возможного решения — удерживать созданный интерфейс используемым (т.е. с ненулевым счетчиком) до самого последнего блока выполнения. Как это сделать, и насколько это будет целесообразно — вам виднее.

TheHorse Jul 11 2012 at 16:46

Да нет у меня никакой асинхронной загрузки), я пытался указать на сложности при необходимости изменения курсора более чем на жизненный цикл одного метода. Конечно можно модернизировать ваш пример для чего угодно, но в этом случае уже легче будет самостоятельно возвращать курсор, имхо.

koreec Jul 11 2012 at 11:42

Можно еще оптимизировать:
Определить Create как

constructor Create(ACursor: TCursor = crHourGlass);

и добавить в него

ScreenCursor := ACursor;

Тогда код вызова станет на одну строку меньше.

Keenest Jul 11 2012 at 13:14

*чешет затылок*
А я по-старинке делал что-то типа

procedure busy(flag: boolean);
begin
    if flag then
        screen.cursor:=crSQLwait
    else
        screen.cursor:=crNormal;
    PanelWait.visible:=flag
end;

Ну и перед тяжёлыми вычислениями вызывал busy(true), а по завершении — busy(false).

r3code Aug 7 2012 at 16:46

Я делал в JQuery стиле:


procedure SetBusy(IsBusy: boolean = true);
begin
    if IsBusy then
        screen.cursor:=crSQLwait
    else
        screen.cursor:=crNormal;
end;

Вызов


SetBusy; // я занят, нихт троген!
SetBusy(false); // свободен, яя арбайтен финиш

UFO just landed and posted this here

Nashev Sep 7 2012 at 17:30

Что это? А то гугл разленился, показывает только этот Ваш коммент…

Show the best of all time