Excel. Трюки и эффекты
Шрифт:
Описание наиболее используемых сообщений для рассматриваемых элементов управления приводится в приложении 3. Мы же рассмотрим, как можно упростить работу с элементами управления в некоторых частных случаях, написав для этого специальные функции.
Итак, в демонстрационном проекте для управления переключателями и флажками предусмотрены следующие функции и процедуры (листинг 2.16).
Листинг 2.16.
Управление флажками и переключателями
//Установка/снятие флажка (установка/снятие переключателя)
procedure SetChecked(id: Integer; checked: BOOL);
var state: Integer;
begin
if (checked) then state := BST_CHECKED
else state := BST_UNCHECKED;
SendDlgItemMessage(hParentWnd, id, BM_SETCHECK, state, 0);
end;
//Получение информации о том, установлен ли флажок
//(установлен ли переключатель)
function GetChecked(id: Integer):BOOL;
begin
if (SendDlgItemMessage(hParentWnd, id, BM_GETCHECK, 0, 0) =
BST_CHECKED)
then GetChecked := True
else GetChecked := False;
end;
Функции и процедуры листинга 2.17 предназначены для управления элементом ComboBox.
Листинг 2.17.
Управление
//Добавление строки в список
procedure AddToCombo(id: Integer; str: String);
begin
SendDlgItemMessage(hParentWnd, id, CB_ADDSTRING, 0,
Integer(PAnsiChar(str)));
end;
//Удаление строки из списка
procedure DeleteFromCombo(id: Integer; index: Integer);
begin
SendDlgItemMessage(hParentWnd, id, CB_DELETESTRING, index, 0);
end;
//Выделение строки с заданным номером
procedure SetComboSel(id: Integer; index: Integer);
begin
SendDlgItemMessage(hParentWnd, id, CB_SETCURSEL, index, 0);
end;
//Получение номера выделенной строки (CB_ERR, если нет выделения)
function GetComboSel(id: Integer): Integer;
begin
GetComboSel := SendDlgItemMessage(hParentWnd, id,
CB_GETCURSEL, 0, 0);
end;
//Получение количества строк
function GetComboCount(id: Integer): Integer;
begin
GetComboCount := SendDlgItemMessage(hParentWnd, id,
CB_GETCOUNT, 0, 0);
end;
//Получение текста строки по ее индексу
function GetComboItemText(id: Integer; index: Integer):String;
var buffer: String;
begin
SetLength(buffer,
SendDlgItemMessage(hParentWnd, id, CB_GETLBTEXTLEN,
index, 0)
);
SendDlgItemMessage(hParentWnd, id, CB_GETLBTEXT, index,
Integer(Addr(buffer)));
GetComboItemText := buffer;
end;
Сходные функции и процедуры в листинге 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.
Листинг 2.21 заодно демонстрирует использование некоторых из приведенных ранее функций работы с элементами управления. Выглядит созданное окно так, как показано на рис. 2.3.
Рис. 2.3. Окно с элементами управления
Принцип построения функции обработки сообщений для этого окна приведен в листинге 2.22.
Листинг 2.22.
Функция обработки сообщений
//Функция обработки сообщений
function WindowFunc(hWnd:HWND; msg:UINT; wParam:WPARAM;
lParam:LPARAM):LRESULT; stdcall;
var
ps: PAINTSTRUCT;
begin
case msg of
WM_PAINT:
begin
//Перерисовка содержимого окна
BeginPaint(hWnd, ps);
TextOut(ps.hdc, 10, 10, \'Текст в окне\', 12);
EndPaint(hWnd, ps);
end;
WM_CLOSE:
if (hWnd = hMainWnd) then
PostQuitMessage(0); //При закрытии этого окна
//завершается приложение
WM_COMMAND:
begin
case LOWORD(wParam) of
//нажата «Кнопка 1»
1001: if HIWORD(wParam) = BN_CLICKED then;
//нажата «Кнопка 2»
1002: if HIWORD(wParam) = BN_CLICKED then;
//установлен «Флажок 1»
2001: if HIWORD(wParam) = BN_CLICKED then;
//установлен «Флажок 2»
2002: if HIWORD(wParam) = BN_CLICKED then;
//установлен «Переключатель 1»
3001: if HIWORD(wParam) = BN_CLICKED then;
//установлен «Переключатель 2»
3002: if HIWORD(wParam) = BN_CLICKED then;
//установлен «Переключатель 3»
3003: if HIWORD(wParam) = BN_CLICKED then;
//выделение в ComboBox
4001: if HIWORD(wParam) = CBN_SELCHANGE then;
//выделение в ListBox
5001: if HIWORD(wParam) = LBN_SELCHANGE then;
//изменен текст в Edit
6001: if HIWORD(wParam) = EN_CHANGE then;
//изменен текст в Memo
6002: if HIWORD(wParam) = EN_CHANGE then;
end;
end;
else
begin
//Обработка по умолчанию
WindowFunc := DefWindowProc(hWnd, msg, wParam, lParam);
Exit;
end;
end;
WindowFunc := S_OK; //Сообщение обработано
end;