Excel. Трюки и эффекты

Часть 12 из 19 Информация о книге
Сходные функции и процедуры в листинге 2.18 предназначены для управления элементом ListBox.
Листинг 2.18. Управление списком
//Добавление строки в список
 procedure AddToList(id: Integer; str: String);
 begin
 SendDlgItemMessage(hParentWnd, id, LB_ADDSTRING, 0,
 Integer(PAnsiChar(str)));
 end;
 //Удаление строки из списка
 procedure DeleteFromList(id: Integer; index: Integer);
 begin
 SendDlgItemMessage(hParentWnd, id, LB_DELETESTRING, index, 0);
 end;
 //Выделение строки с заданным номером
 procedure SetListSel(id: Integer; index: Integer);
 begin
 SendDlgItemMessage(hParentWnd, id, LB_SETCURSEL, index, 0);
 end;
 //Получение номера выделенной строки (LB_ERR, если нет выделения)
 function GetListSel(id: Integer): Integer;
 begin
 GetListSel := SendDlgItemMessage(hParentWnd, id,
 LB_GETCURSEL, 0, 0);
 end;
 //Получение количества строк
 function GetListCount(id: Integer): Integer;
 begin
 GetListCount := SendDlgItemMessage(hParentWnd, id,
 LB_GETCOUNT, 0, 0);
 end;
 //Получение текста строки по ее индексу
 function GetListItemText(id: Integer; index: Integer):String;
 var buffer: String;
 begin
 SetLength(buffer,
 SendDlgItemMessage(hParentWnd, id, LB_GETTEXTLEN,
 index, 0)
 );
 SendDlgItemMessage(hParentWnd, id, LB_GETTEXT, index,
 Integer(Addr(buffer)));
 GetListItemText := buffer;
 end;
 
Функции и процедуры листинга 2.19 дадут возможность управлять текстовыми полями (Edit и Memo).
Листинг 2.19. Управление текстовыми полями
//Получение позиции первого выделенного символа (нумерация с нуля)
 function GetSelStart(id: Integer): Integer;
 var selStart, selEnd: Integer;
 begin
 SendDlgItemMessage(hParentWnd, id, EM_GETSEL,
 Integer(Addr(selStart)),
 Integer(Addr(selEnd)));
 GetSelStart := selStart;
 end;
 //Получение длины выделенного фрагмента текста
 function GetSelLength(id: Integer): Integer;
 var selStart, selEnd: Integer;
 begin
 SendDlgItemMessage(hParentWnd, id, EM_GETSEL,
 Integer(Addr(selStart)),
 Integer(Addr(selEnd)));
 GetSelLength := selEnd – selStart;
 end;
 //Выделение фрагмента текста (позиция первого символа с нуля)
 procedure SetSel(id: Integer; start, length: Integer);
 begin
 SendDlgItemMessage(hParentWnd, id, EM_SETSEL, start,
 start + length);
 end;
 //Получение выделенного фрагмента текста
 function GetSelText(id: Integer): String;
 var allText: String;
 begin
 allText := GetText(id);
 GetSelText := Copy(allText, GetSelStart(id)+1,GetSelLength(id));
 end;
 //Замена выделенного текста
 procedure ReplaceSelText(id: Integer; newText: String);
 begin
 SendDlgItemMessage(hParentWnd, id, EM_REPLACESEL,
 0, Integer(PAnsiChar(newText)));
 end;
 
В листинге 2.20 приводятся функции и процедуры, которые можно с одинаковым успехом применять ко всем элементам управления.
Листинг 2.20. Общие функции и процедуры
//Установка текста окна
 procedure SetText(id: Integer; str: String);
 begin
 SetWindowText(GetDlgItem(hParentWnd, id), PAnsiChar(str));
 end;
 //Получение текста окна
 function GetText(id: Integer): String;
 var buffer: String;
 begin
 SetLength(buffer, GetWindowTextLength(hParentWnd));
 GetWindowText(hParentWnd, PAnsiChar(buffer), Length(buffer));
 GetText := buffer;
 end;
 //Активизация/деактивизация окна
 procedure SetEnabled(id: Integer; fEnabled: BOOL);
 begin
 EnableWindow(GetDlgItem(hParentWnd, id), fEnabled);
 end;
 
 Реакция на события элементов управления
 При возникновении какого-либо предусмотренного для элемента управления события родительскому окну посылается сообщение WM_COMMAND.
Примечание
 Сообщение WM_COMMAND приходит также при перерисовке так называемых «самоперерисовывающихся» (Owner Dr aw) элементов управления. Однако ввиду специфики данного вопроса и ограниченности объема г лавы мы его рассматривать не будем.
 
Итак, когда родительское окно получает сообщение WM_COMMAND, то из двух прилагающихся параметров (lParam и wParam) можно извлечь следующие сведения:
• старшие 16 бит wParam представляют собой целочисленный код уведомления, позволяющий определить, что же именно произошло с элементом управления;
• младшие 16 бит wParam представляют собой идентификатор элемента управления, состояние которого изменилось (именно этот идентификатор мы передавали вместо дескриптора меню при создании элементов управления);
• lParam содержит дескриптор (HWND) окна элемента управления, состояние которого изменилось.
Для выделения старших 16 бит из 32-битного значения можно использовать функцию HiWord. Для получения младших 16 бит можно использовать функцию с именем LoWord. Обе они объявлены в модуле Windows.
В качестве примеров можно привести следующие коды уведомлений:
• BN_CLICKED – нажата кнопка;
• EN_CHANGE – изменен текст в текстовом поле;
• LBN_SELCHANGE – изменилось выделение в списке;
• CBN_SELCHANGE – изменилось выделение в раскрывающемся списке.
Эти и все остальные константы уведомлений стандартных элементов управления объявлены в модуле Messages.
Примечание
 Коды уведомлений рассматриваемых в этой г лаве элементов управления приводятся в приложении 3.
 
 Пример приложения
 Рассмотрим небольшой пример, иллюстрирующий принцип работы с элементами управления, помещенными на форму описанным ранее способом. Проект этого приложения называется ControlsDemo.
Не будем заострять внимание на регистрации класса главного окна приложения, так как она аналогична приведенной в листинге 2.4. Рассмотрим создание окна с элементами управления в нем (листинг 2.21).
Листинг 2.21. Создание главного окна приложения (с элементами управления)
program ControlsDemo;
 uses
 Windows, Messages,
 Controls in 'Controls.pas';
 {$R *.res}
 var
 hMainWnd: HWND;
 hInst: Cardinal;
 mess: MSG;
 //Функция обработки сообщений
 …
 //Создание окна и цикла обработки сообщений
 begin
 hInst := GetModuleHandle(nil);
 //Регистрация и создание главного окна
 if not RegisterWindow() then Exit;
 hMainWnd := CreateWindow(
 'MyWindowClass', //Имя класса окна
 'Главное окно', //Заголовок окна
 WS_OVERLAPPEDWINDOW,
 CW_USEDEFAULT, //Координата X по умолчанию
 CW_USEDEFAULT, //Координата Y по умолчанию
 CW_USEDEFAULT, //Ширина по умолчанию
 CW_USEDEFAULT, //Высота по умолчанию
 HWND(nil), //Нет родительского окна
 HMENU(nil), //Нет меню
 hInst,
 nil);
 if (hMainWnd = HWND(nil)) then Exit;
 //Инициализация модуля Controls для работы с главным окном
 Controls.hParentWnd := hMainWnd;
 Controls.hAppInst := hInst;
 //Создание элементов управления
 CreateFrame(10, 80, 170, 70, –1, 'Кнопки');
 CreateButton(20, 100, 70, 30, 1001, 'Кнопка 1');
 CreateButton(100, 100, 70, 30, 1002,'Кнопка 2');
 CreateFrame(200, 10, 200, 180, –1, 'Флажки и переключатели');
 CreateCheck(210, 30, 180, 20, 2001, 'Флажок 1');
 CreateCheck(210, 60, 180, 20, 2002, 'Флажок 2', True);
 CreateOption(210, 100, 180, 20, 3001, 'Переключатель 1', True);
 CreateOption(210, 130, 180, 20, 3002, 'Переключатель 2', False,
 True);
 CreateOption(210, 160, 180, 20, 3003, 'Переключатель 3', True);
 CreateFrame(420, 10, 300, 180, –1, 'Списки и статические
 надписи');
 CreateLabel(430, 30, 70, 20, -1, 'Надпись');
 CreateCombo(510, 30, 200, 100, 4001);
 CreateList(430, 60, 280, 120, 5001);
 CreateFrame(200, 200, 200, 240, –1, 'Текстовые поля');
 CreateEdit(210, 220, 180, 20, 6001, 'Текст в текстовом поле');
 CreateMemo(210, 250, 180, 180, 6002, 'Текст в многострочном'
 + #13 + #10 + 'текстовом поле');
 //Добавление строк в списки
 AddToCombo(4001, 'Строка 1');
 AddToCombo(4001, 'Строка 2');
 AddToCombo(4001, 'Строка 3');
 AddToList(5001, 'Строка 1');
 AddToList(5001, 'Строка 2');
 AddToList(5001, 'Строка 3');
 ShowWindow(hMainWnd, SW_NORMAL);
 //Запуск цикла обработки сообщений
 while (Longint(GetMessage(mess, 0, 0, 0)) <> 0)
 do begin
 TranslateMessage(mess);
 DispatchMessage(mess);
 end;
 end.
Перейти к странице:
Предыдущая страница
Следующая страница