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

Часть 11 из 19 Информация о книге
Внимание!
 Обратите внимание на параметр id функций создания и манипулирования элементами управления. Это целочисленное значение идентифицирует элементы управления в пределах родительского окна.
 
Итак, для создания обычных кнопок можно использовать функцию из листинга 2.7 (все рассмотренные далее функции создания элементов управления возвращают дескриптор созданного окна).
Листинг 2.7. Создание кнопки
function CreateButton(x, y, width, height, id:Integer;
 caption : String):HWND;
 begin
 CreateButton :=
 CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or
 WS_VISIBLE or BS_PUSHBUTTON or WS_TABSTOP,
 x, y, width, height, hParentWnd, HMENU(id),
 hAppInst, nil);
 end;
 
Приведенная в листинге 2.8 функция создает флажок и устанавливает его.
Листинг 2.8. Создание флажка
function CreateCheck(x, y, width, height, id: Integer;
 caption: String; checked: Boolean):HWND;
 var
 res: HWND;
 begin
 res :=
 CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or
 WS_VISIBLE or BS_AUTOCHECKBOX or WS_TABSTOP,
 x, y, width, height, hParentWnd, HMENU(id),
 hAppInst, nil);
 if ((res <> 0) and checked) then
 SendMessage(res, BM_SETCHECK, BST_CHECKED, 0);
 //Флажок установлен
 CreateCheck := res;
 end;
 
Следующая функция (листинг 2.9) создает переключатель. Если нужно, то он устанавливается. Новый переключатель может начинать новую группу переключателей, для чего нужно параметру group присвоить значение True.
Листинг 2.9. Создание переключателя
function CreateOption(x, y, width, height, id: Integer;
 caption: String; group: Boolean;
 checked: Boolean):HWND;
 var
 res: HWND;
 nGroup: Integer;
 begin
 if (checked) then nGroup := WS_GROUP else nGroup := 0;
 res :=
 CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or
 WS_VISIBLE or BS_AUTORADIOBUTTON or nGroup or
 WS_TABSTOP, x, y, width, height, hParentWnd,
 HMENU(id), hAppInst, nil);
 if ((res <> 0) and checked) then
 //Переключатель установлен
 SendMessage(res, BM_SETCHECK, BST_CHECKED, 0);
 CreateOption := res;
 end;
 
Для создания подписанной рамки, группирующей элементы управления, можно воспользоваться функцией CreateFrame, приведенной в листинге 2.10.
Листинг 2.10. Создание рамки
function CreateFrame(x, y, width, height, id: Integer;
 caption: String):HWND;
 begin
 CreateFrame:=
 CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or
 WS_VISIBLE or BS_GROUPBOX, x, y, width, height,
 hParentWnd, HMENU(id), hAppInst, nil);
 end;
 
Для того чтобы создать раскрывающийся список (ComboBox), можно использовать функцию CreateCombo из листинга 2.11.
Листинг 2.11. Создание раскрывающегося списка
function CreateCombo(x, y, width, height, id: Integer):HWND;
 begin
 CreateCombo:=
 CreateWindow('COMBOBOX', nil, WS_CHILD or WS_VISIBLE or
 CBS_DROPDOWN or CBS_AUTOHSCROLL or WS_TABSTOP,
 x, y, width, height, hParentWnd,
 HMENU(id), hAppInst, nil);
 end;
 
Для создания простого списка (ListBox) вполне подойдет фyнкцияCreateList из листинга 2.12.
Листинг 2.12. Создание простого списка
function CreateList(x, y, width, height, id: Integer):HWND;
 begin
 CreateList:=
 CreateWindowEx(WS_EX_CLIENTEDGE, 'LISTBOX', nil, WS_CHILD or
 WS_VISIBLE or LBS_NOTIFY or WS_BORDER or
 WS_TABSTOP, x, y, width, height,
 hParentWnd, HMENU(id), hAppInst, nil);
 end;
 
Функция CreateLabel в листинге 2.13 создает статическую надпись (Label), предназначенную только для вывода текста.
Листинг 2.13. Создание надписи
function CreateLabel(x, y, width, height, id: Integer;
 caption: String):HWND;
 begin
 CreateLabel:=
 CreateWindow('STATIC', PAnsiChar(caption), WS_CHILD or
 WS_VISIBLE, x, y, width, height, hParentWnd,
 HMENU(id), hAppInst, nil);
 end;
 
Однострочное текстовое поле с привычной рамкой создается функцией CreateEdit (листинг 2.14).
Листинг 2.14. Создание однострочного текстового поля
function CreateEdit(x, y, width, height, id: Integer;
 strInitText: String):HWND;
 begin
 CreateEdit:=
 CreateWindowEx(WS_EX_CLIENTEDGE, 'EDIT',
 PAnsiChar(strInitText), WS_CHILD or
 WS_VISIBLE or ES_AUTOHSCROLL or WS_TABSTOP,
 x, y, width, height, hParentWnd,
 HMENU(id), hAppInst, nil);
 end;
 
Создание многострочного текстового поля (Memo) отличается от создания однострочного поля только указанием дополнительного флага ES_MULTILINE (листинг 2.15).
Листинг 2.15. Создание многострочного текстового поля
function CreateMemo(x, y, width, height, id: Integer;
 strInitText: String):HWND;
 begin
 CreateMemo:=
 CreateWindowEx(WS_EX_CLIENTEDGE, 'EDIT',
 PAnsiChar(strInitText),
 WS_CHILD or WS_VISIBLE or ES_AUTOVSCROLL or
 ES_MULTILINE or WS_TABSTOP,
 x, y, width, height, hParentWnd,
 HMENU(id), hAppInst, nil);
 end;
 
Приведенные здесь функции не претендуют на абсолютную универсальность и гибкость. Они введены для того, чтобы упростить создание элементов управления в тех частных случаях, которые приводятся далее в примерах этой главы.
 Использование элементов управления
 Элементы управления, как и все окна, управляются путем посылки им сообщений. Этим же способом они уведомляют родительские окна о некоторых произошедших событиях (например, выделение элемента в списке, нажатие кнопки и т. д.).
Описание наиболее используемых сообщений для рассматриваемых элементов управления приводится в приложении 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;
Перейти к странице:
Предыдущая страница
Следующая страница