Rambler's Top100
"Knowledge itself is power"
F.Bacon
Поиск | Карта сайта | Помощь | О проекте | ТТХ  
 Подводные камни
  
О разделе

Список по категориям
Общий список

 
 К н и г и
 
Книжная полка
 
 
Библиотека
 
  
  
 


Поиск
 
Поиск по КС
Поиск в статьях
Яndex© + Google©
Поиск книг

 
  
Тематический каталог
Все манускрипты

 
  
Карта VCL
ОШИБКИ
Сообщения системы

 
Форумы
 
Круглый стол
Новые вопросы

 
  
Базарная площадь
Городская площадь

 
   
С Л С

 
Летопись
 
Королевские Хроники
Рыцарский Зал
Глас народа!

 
  
ТТХ
Конкурсы
Королевская клюква

 
Разделы
 
Hello, World!
Лицей

Квинтана

 
  
Сокровищница
Подземелье Магов
Подводные камни
Свитки

 
  
Школа ОБЕРОНА

 
  
Арсенальная башня
Фолианты
Полигон

 
  
Книга Песка
Дальние земли

 
  
АРХИВЫ

 
 

Сейчас на сайте присутствуют:
 
 
 10:35 Владимир Метальников
 10:32 Geo
 
 
Во Флориде и в Королевстве сейчас  10:46[Войти] | [Зарегистрироваться]

БИБЛИОТЕКА.VCL.TSQLConnection.SQLHourGlass.Восстанавливается всегда обычный курсор

Рощин С.А.
дата публикации 01-12-2003 16:28

КАТЕГОРИЯБИБЛИОТЕКА.VCL.TSQLConnection.SQLHourGlass.Восстанавливается всегда обычный курсор
ПРОДУКТDelphi 7
ПЛАТФОРМА


Проблема в следующем.
Допустим, выполняются некие долгие операции, в том числе и методы TSQLConnection.Execute. В начале программист меняет курсор экрана на свой собственный, и по завершению хочет вернуть старое значение.

Во время выполнения Execute курсор поменяется на часы а потом на обычную стрелку. Если бы было установлено свойство SQLHourGlass=false, то курсор бы просто поменялся на обычную стрелку, что неожиданно и нежелательно.

В процессе исследования выяснено следующее.

При выполнении метода TSQLConnection.Execute, в начале и в конце выполняется внутренняя процедура, которая меняет курсор (см. модуль SqlExpr):

procedure TSQLConnection.SetCursor(CursorType: Integer);
begin
  if SQLHourGlass or (CursorType = DefaultCursor) then
    if Assigned(ScreenCursorProc) then
      ScreenCursorProc(CursorType);
end;

Легко видеть, что если установлено свойство SQLHourGlass=true то сначала устанавливаются песочные часы, а в конце устанавливается курсор по умолчанию. А в противном случае сначала курсор не меняется, а в конце всегда устанавливается курсор по умолчанию. Это приводит к нежелательному поведению программы.




Типовые решения
  1. ScreenCursorProc - это общедоступная переменная процедурного типа, которая объявлена в модуле DB:

    ScreenCursorProc : procedure (const CurIndex : integer);
    

    Она присваивается при инициализации модуля DBLogDlg:

    procedure SetCursorType(const CurIndex: Integer);
    begin
      Screen.Cursor := TCursor(CurIndex);
    end;
    initialization
    {.....}
      ScreenCursorProc := SetCursorType;
    end.
    

    Процедура SetCursorType выглядит несложно. Она отвечает за изменение курсора при выполнении запросов. Её можно написать по своему вкусу и присвоить переменной ScreenCursorProc. Вот простейший пример процедуры, которая вместо обычных песочных часов делает часы с текстом "SQL" и не меняет курсор на обычный, если он отличен отличен от песочных часов:

    unit DataModule1;
    {...........}
    procedure SetCursorType(const CurIndex: Integer);
    begin
      if CurIndex=0 then begin
        if (Screen.Cursor = crHourGlass) or (Screen.Cursor = crSQLWait) then
          Screen.Cursor := TCursor(CurIndex);
      end else if CurIndex = crHourGlass then Screen.Cursor := crSQLWait
        else Screen.Cursor := TCursor(CurIndex);
    end;
    
    initialization
      ScreenCursorProc := SetCursorType;
    end.
    



Смотрите также материалы по темам:
[Курсоры]

 Обсуждение материала нет сообщений
  
Время на сайте: GMT минус 5 часов

Если вы заметили орфографическую ошибку на этой странице, просто выделите ошибку мышью и нажмите Ctrl+Enter.
Функция может не работать в некоторых версиях броузеров.

Web hosting for this web site provided by DotNetPark (ASP.NET, SharePoint, MS SQL hosting)  
Software for IIS, Hyper-V, MS SQL. Tools for Windows server administrators. Server migration utilities  

 
© При использовании любых материалов «Королевства Delphi» необходимо указывать источник информации. Перепечатка авторских статей возможна только при согласии всех авторов и администрации сайта.
Все используемые на сайте торговые марки являются собственностью их производителей.

Яндекс цитирования