Ownerdraw Button Control и region ы

← →
Nick Denry © (2005-09-09 15:56) [0]

Народ подскажите , плиз, почему кнопка (обычный "Button" class) не изменяет свою форму, если установить ей регион? Может имеет смысл ее сабклассировать, чтобы перехватывать какие то ее собщения?

← →
Игорь Шевченко © (2005-09-09 16:29) [1]

> Народ подскажите , плиз, почему кнопка (обычный "Button"
> class) не изменяет свою форму, если установить ей регион?

Изменяет

← →
Nick Denry © (2005-09-09 16:46) [2]

Мой код:

Button1 := CreateWindow("BUTTON","_OK_", WS_CHILD or WS_VISIBLE, 10, 10, 70, 25, MainWnd, 0, HInstance, nil); btnRgn := CreateEllipticRgn(10,10,30,25); SetWindowRgn(Button1 , btnRgn, true);

Да, я согласен - регион изменяется (т.е. нельзя мышкой ткнуть в какой либо угол кнопки, чтобы пришло WM_COMMAND), но ее внешний вид остается неизменным, и даже если она OWNERDRAW - то область осечения - не становится прозрачной - а выводится белым.

Игорь, я знаю что я туплю порой, неужели и в этот раз? :)

← →
Nick Denry © (2005-09-09 16:49) [3]

Я думал - может Parent - окно не перерисовывается, но оно вроде как перерисовывается...

прочем чего мелочиться - вот весь код:

Program test; uses windows, messages; var wc : TWndClassEx; //Переменная шаблона класса окна MainWnd : HWND; //Описатель главного окна Mesg : TMsg; //Переменная для цикла сбора сообщений Button1 : HWND; btnRgn : HRGN; bmpUp, bmpDwn : HBITMAP; function GetRootDir : String; var i : Integer; lpszExeDirPath : string; begin lpszExeDirPath := ParamStr(0); for i := Length(lpszExeDirPath) downto 0 do begin if lpszExeDirPath[i] = "\" then begin SetLength(lpszExeDirPath,i); break; end; end; Result := lpszExeDirPath; end; function WindowProc(wnd:HWND; Msg : Integer; Wparam:Wparam; Lparam:Lparam):Lresult;stdcall; var KS : TKeyboardState; TDC : HDC; Begin {Далее происходит цикл обработки сообщений} case msg of WM_CREATE: begin bmpUp := LoadImage(0, PChar(GetRootDir+"ups.bmp"),IMAGE_BITMAP,0,0,LR_LOADFROMFILE); end; WM_KEYDOWN: begin if wParam = VK_SHIFT then begin if (GetKeyState(VK_TAB)=1) then mEssageBox(0,0,0,MB_OK); end; end; WM_DRAWITEM: begin TDC := CreateCompatibleDC(0); SelectObject(TDC, bmpUp); SetBkMode(PDRAWITEMSTRUCT(Lparam)^.hDC, TRANSPARENT); BitBlt(PDRAWITEMSTRUCT(Lparam)^.hDC,0,0,70,25,TDC, 0,0,SRCCOPY); DeleteDC(TDC) end; WM_LBUTTONDOWN: begin Rectangle(GetWindowDC(wnd),80,80, 120,120); end; WM_DESTROY: begin DeleteObject(bmpUp); PostQuitMessage(0); Result:=0; Exit; end; else Result:=DefWindowProc(wnd,msg,wparam,lparam); end; End; {Переменные xPos,yPos,nWidth,nHeight в принципе не нужны, однако я их завел (и вам рекомендую) для лучшей читабельности программы} var xPos,yPos,nWidth,nHeight : Integer; begin //Тело программы { Далее идет заполнение шаблона класса окна} wc.cbSize:=sizeof(wc); wc.style:=cs_hredraw or cs_vredraw; wc.lpfnWndProc:=@WindowProc; wc.cbClsExtra:=0; wc.cbWndExtra:=0; wc.hInstance:=HInstance; wc.hIcon:=LoadIcon(0,idi_application); wc.hCursor:=LoadCursor(0,idc_arrow); wc.hbrBackground:=COLOR_BTNFACE+1; wc.lpszMenuName:=nil; wc.lpszClassName:="WinMin : Main"; RegisterClassEx(wc); //Регистрация нового класса в системе {"заполнение переменных xPos,yPos,nWidth,nHeight} xPos:=100; yPos:=150; nWidth:=400; nHeight:=250; { Создание главного окна} MainWnd:=CreateWindowEx ( 0, //флаги расширенных стилей "WinMin : Main", //имя класса окна, данное при заполнении структуры wc "Win Min", //заголовок окна ws_overlappedwindow, //флаги стилей окна {подробнdее о стилях см. после текста программы} xPos, //горизонтальная позиция окна yPos, //вертикальная позиция окна nWidth, //ширина окна nHeight, //высота окна 0, //описатель родительского окна (parent) или окна-владельца (owner) 0, //описатель меню окна (меню нет, нет и описателя) Hinstance, //описатель приложения nil //address of window-creation data ); Button1 := CreateWindow("BUTTON","_OK_", WS_CHILD or WS_VISIBLE or BS_OWNERDRAW, 10, 10, 70, 25, MainWnd, 0, HInstance, nil); btnRgn := CreateEllipticRgn(10,10,30,25); SetWindowRgn(Button1 , btnRgn, true); ShowWindow(MainWnd,CmdShow); //Отображаем окно While GetMessage(Mesg,0,0,0) do begin TranslateMessage(Mesg); DispatchMessage(Mesg); end; end.

← →
Игорь Шевченко © (2005-09-09 17:07) [4]

"The coordinates of a window"s window region are relative to the upper-left corner of the window, not the client area of the window. "

← →
Nick Denry © (2005-09-09 17:15) [5]

Button1 := CreateWindow("BUTTON","_OK_", WS_CHILD or WS_VISIBLE or BS_OWNERDRAW, 10, 10, 70, 25, MainWnd, 0, HInstance, nil);

btnRgn := CreateEllipticRgn(10,10,30,25);

??

Игорь, объясни плиз в чем тут клиентские и оконные координаты?

имхо же все в оконных идет?

← →
Игорь Шевченко © (2005-09-09 17:26) [6]

Nick Denry © (09.09.05 17:15) [5]

> Игорь, объясни плиз в чем тут клиентские и оконные координаты?

Вообще-то оконная координата левого верхнего угла окна равна нулю.

← →
Nick Denry © (2005-09-09 18:30) [7]

Т.е. ты хочешь сказать, что регион должен создаваться как

btnRgn := CreateEllipticRgn(0,0,20,15);

?

← →
Игорь Шевченко © (2005-09-09 18:32) [8]

Nick Denry © (09.09.05 18:30) [7]

> Т.е. ты хочешь сказать, что регион должен создаваться как
>

Вообще-то да :)

← →
Nick Denry © (2005-09-09 19:22) [9]

Отсечения воспроизведения все равно не происходит.

Мне кажется, что

===
int SetWindowRgn(
HWND hWnd,
HRGN hRgn,
BOOL bRedraw // window redraw flag
);
----
Remarks

If the bRedraw parameter is TRUE, the system sends the WM_WINDOWPOSCHANGING and WM_WINDOWPOSCHANGED messages to the window.
====

у кнопок на 2 этих сообщения какая-то нестандартная обработка...

← →
y-soft © (2005-09-09 20:08) [10]

>Nick Denry © (09.09.05 19:22) [9]

Все рисуется и обрабатывается (пример из книги Марко Канту, Тим Гуч с Джоном Ф. Лэм "Delphi. Руководство разработчика"):

http://y-soft.comsignal.ru/Delphi/DDHROUND_PAS.HTM

← →
Nick Denry © (2005-09-09 22:09) [11]

Да , но с виндовой кнопкой почему-то не работает

← →
Турист (2005-09-09 23:59) [12]

Наверно, это все-таки неправильно

procedure TForm1.Button2Click(Sender: TObject); var Button: Hwnd; begin Button := CreateWindow("BUTTON","_OK_", WS_POPUP, 10, 10, 70, 25, 0, 0, HInstance, nil); SetWindowRgn(Button, CreateEllipticRgn(0, 0, 70, 25), False); Windows.SetParent(Button, Handle); ShowWindow(Button, SW_SHOW) end;

← →
Nick Denry © (2005-09-10 12:01) [13]

Да, последний вариант действительно работает...

интресно, в чем все-таки разница? :)

← →
Турист (2005-09-10 12:37) [14]

>Nick Denry © (10.09.05 12:01) [13]
>интресно, в чем все-таки разница? :)
Между чем ?

← →
Nick Denry © (2005-09-13 00:21) [15]

Ну теперь собственно говоря между WS_POPUP + Windows.SetParent(Button, Handle); и WS_CHILD;

← →
Nick Denry © (2005-09-13 00:23) [16]

правда я с испугу свой контрол реализовал в Dll и CS_GLOBALCLASS :)

Впринципе, получилось даже интереснесней - поддержка 4 состояний и PNG :)

← →
Игорь Шевченко © (2005-09-13 10:13) [17]

Nick Denry © (13.09.05 00:21) [15]

> Ну теперь собственно говоря между WS_POPUP + Windows.SetParent(Button,
> Handle); и WS_CHILD;

Все решается очень просто, при создании окна кнопки добавь ей стиль WS_CLIPSIBLINGS.

Вот такой пример работает:

procedure TForm1.Button1Click(Sender: TObject); var ButtonRect: TRect; begin FButton := CreateWindowEx(0, "BUTTON","_OK_", WS_CHILD or WS_VISIBLE or WS_CLIPSIBLINGS or BS_PUSHBUTTON, 10, 10, 70, 25, Handle, 0, HInstance, nil); Windows.GetWindowRect(FButton, ButtonRect); OffsetRect(ButtonRect, -ButtonRect.Left, -ButtonRect.Top); FButtonRgn := CreateEllipticRgnIndirect (ButtonRect); Win32Check((FButtonRgn <> 0) and (SetWindowRgn (FButton, FButtonRgn, true) <> 0)); end;

Без этого стиля придется каждый раз при перерисовке вызывать функции InvalidateRect у родительского окна и UpdateWindow у дочернего.

А ларчик открывается просто: создаешь обычную кнопку и winapi"шную кнопку, смотришь Spy++, чем окна отличаются.

← →
Игорь Шевченко © (2005-09-13 10:14) [18]

Удалено модератором
Примечание: Дубль

2Игорь Шевченко © (13.09.05 10:13) [17]

Ага, вот теперь можно кричать, размахивать руками и говорить, я так и знал, я так и думал... :)

Я вот только теперь чего думаю, обратно на кнопки перейти и свой контрол выкинуть нафиг или не мучаться с суперклассированием?

Nick Denry © (13.09.05 13:03) [19]

> Я вот только теперь чего думаю, обратно на кнопки перейти
>

А я не знаю, что тебе требуется. Как назначить регион окну кнопки, вроде разобрались, причем тут саб/суперклассинг, я не совсем понимаю.

Требуется компонент (не в дельфийском понятии этого слова :),

кнопка, имеющая след. параметры:

Графическа кнопка произвольной формы (задется маской), имеет четыре (т.е. три состояния, на каждое из которых отрисовывается своя картинка) -

1. Кнопка отжата (1ая картинка)
2. Кнопка нажата (2ая картика)
3. Мышь над (сотсюда суперклассинг, сообщние WM_MOUSEOVER, 3я картинка)

Так же при нажатии/отжатии/наведении кнопка менят цвет надписи, на 3 заданных.

+ Возможность назначить Шрифт, которым будет отрисовывться текст на кнопке.

Кнопка должна быть расположенна в множстве диалогов программы (в ресурсах, отсюда и CS_GLOBALclASS) и не должн быть размазанна по всму коду (т.е. код кнопки в проекте должен встречаться один раз (т.е. вроде как Dll)- в остльных модулях только создание, уничтожение и назначение свойств (я сделал через SetProp/GeProp).

Вопрос один и то наверное не существенный - сделать это а базе виндовой кнопки или как я - на баз обычного окна - имитирующего поведение кнопки.

Я не знаю, насколько использовние контролов (о, слово наконец-то вспомнил!) со стилем CS_GLOBALCLASS оправданно и безопасно....

Игорь, а что такое
Win32Check((FButtonRgn <> 0) and (SetWindowRgn (FButton, FButtonRgn, true) <> 0));

Я первый раз такую конструкцию вижу...

Nick Denry © (13.09.05 13:42) [21]

> Требуется компонент (не в дельфийском понятии этого слова
> :),

Это называется Control. Делай и воздастся тебе.

> Я не знаю, насколько использовние контролов (о, слово наконец-то
> вспомнил!) со стилем CS_GLOBALCLASS оправданно и безопасно....

И оправдано и безопасно. Располагается он в DLL, также, как и Common Controls, на этапе инициализации DLL класс регистрируется.

Nick Denry © (13.09.05 13:53) [22]

> Win32Check((FButtonRgn <> 0) and (SetWindowRgn (FButton,
> FButtonRgn, true) <> 0));

if not ((FButtonRgn <> 0) and (SetWindowRgn (FButton,
> FButtonRgn, true) <> 0)) then
raise Exception.Create (SysErrorMessage(GetLastError));

одно и то же.

на этапе инициализации DLL класс регистрируется

Т.е. мне надо сделать что-то типа функции initCommonControls?

Или достаточно при DLL_PROCESS_ATTACH зарегистрировать этот класс?

И еще, для назначения контролу индивидуальных параметров я использую SetProp/GetProp,

потому что глобальные переменные принимают одинаковые значения для всех контролов (т.е. для последнего, их использующего), а локольные (в процедуре обработки сообщений окна) почему-то не инициализируются - это правильно (а контролов должно быть рпоизвольное количество, само собой разумеется)?

и вот еще вопрос, когда я могу выгрузить такую библиотеку безопасно?

У меня сначала было так:

{код приложения (примерно, пишу не из дома), использующего длл, функция WndProc}

...(Глобальные переенные) var controlDll: THandle; graphButton : HWND; WM_CREATE: begin controlDll := LoadLibrary("libname.dll"); graphButton := CreateWindow("antGraphBtnClass", ...); SetProp(graphButton, "image_up", hBitmap_handle); {ну и т.д.} end; А вот когда я на WM_DESTROY: begin { Освобождаю библиотеку} FreeLibrary (controlDll); - то прога вызывает исключение, т.к. я так понимаю еще обращается к процедуре окна самого контрола, а тут библиотека как бы убирается... end; так вот когда ее можно нормально освободить - после цикла while GetMessage ???

> А вот когда я на
> WM_DESTROY:
> begin
> { Освобождаю библиотеку}
> FreeLibrary (controlDll); - то прога вызывает
> исключение, т.к. я так понимаю еще обращается к процедуре
> окна самого контрола, а тут библиотека как бы убирается.
> ..
>
> end;

Во-первых, зачем библиотеку освобождать ?
Во-вторых, вызывается ли UnregisterClass в библиотеке при ее освобождении
В-третьих, и самое главное:

ПОЧЕМУ ЛЮДИ НИКОГДА НЕ ПИШУТ ДЕТАЛЬНОЕ ОПИСАНИЕ ПРОБЛЕМЫ, НАПРИМЕР, КАКОЕ ИСКЛЮЧЕНИЕ У НИХ ВОЗНИКАЕТ ? У ОТВЕЧАЮЩИХ ЧАЩЕ ВСЕГО НЕТ ПЕРЕД ГЛАЗАМИ ЭКРАНА АВТОРА ВОПРОСА.

ЕСЛИ КТО ИЗ АВТОРОВ ВОПРОСОВ СЧИТАЕТ СЕБЯ ПАРТИЗАНОМ, ПОПАВШИМ В ГЕСТАПО И БУДЕТ ТЕРПЕТЬ ПЫТКИ, НО НЕ ВЫДАСТ ВОЕННУЮ ТАЙНУ, ЭТО ЕГО, АВТОРА ВОПРОСА, ЛИЧНЫЕ ПРОБЛЕМЫ И ШАНСЫ ЕГО ПОЛУЧИТЬ ПОМОЩЬ РЕЗКО УМЕНЬШАЮТСЯ.

Извиняюсь за крик, наболело.

Во-вторых, вызывается ли UnregisterClass в библиотеке при ее освобождении

да на dll_process_detach

Во-первых, зачем библиотеку освобождать ?

ну я загружаю ее динамически, поэтому по хорошему, ее надо освобождать...

но впринципе, никакой необходимости загружать динамически нет, я просто сделал "по инерции", попробую статическую загрузку.

ПОЧЕМУ ЛЮДИ НИКОГДА НЕ ПИШУТ ДЕТАЛЬНОЕ ОПИСАНИЕ ПРОБЛЕМЫ

(ничего страшного :)
(а может и очень страшно, но я не специально и уж тем более не партизан :)

Я лично предположил, что такая проблема должна быть достаточно известна
или имеет известное логическое объяснение и

выгрузка библиотеки (после оконного цикла):

While GetMessage(Mesg,0,0,0) do begin TranslateMessage(Mesg); DispatchMessage(Mesg); end; FreeLibrary(stdCtrlsLib); end.

дало отсутвие появления исключения.

Если освобождать на WM_DESROY:

то получаю следующее исключение:

---------------------------
Dialog: test.exe - Ошибка приложения
---------------------------
Инструкция по адресу "0x00793db0" обратилась к памяти по адресу "0x00793db0". Память не может быть "read".

"ОК" -- завершение приложения
"Отмена" -- отладка приложения
---------------------------
OK Отмена
---------------------------

Ownerdraw Button Control и region ы Найти похожие ветки