Программирование в Delphi. Трюки и эффекты

Name: Программирование в Delphi. Трюки и эффекты
Rating: 5 (5 reviews)
Author: Александр Анатольевич Чиртик

Автор

Александр Анатольевич Чиртик

Жанр

Программирование

Год написания книги

2010

Теги

<< 1 ... 16 17 18 19 20 21 22 23 24 ... 42 >>

На страницу:

Перейти

20 из 42

Настройки чтения

Размер шрифта

Высота строк

Поля

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) пригодится функция Create-Combo, приведенная в листинге 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) вполне подойдет функция 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;