Серый форум — AHK: CreateWindowEx стиль окна

Re: AHK: CreateWindowEx стиль окна

null@example.com (teadrinker) — Fri, 13 Feb 2015 15:32:28 +0000

Меню нужно создавать заранее и один раз. Правый клик можно отследить проще, через метку GuiContextMenu:

;SetBatchLines -1
Gui +LastFound 
Gui Show,w800 h520

Global WS_VISIBLE     := 0x10000000 
Global WS_CHILD      := 0x40000000 
Global ES_CENTER    := 0x1
Global ES_PASSWORD := 0x20

Menu, menu_context, Add, Тык , a

Global RE
RText=Привет мир!
DllCall("LoadLibrary",Str,"Msftedit.dll")
DllCall("CreateWindowEx"
    , Uint,    0x200
    , Str,     "RichEdit50W"
    , Str,     RText
    , Uint,    WS_VISIBLE | WS_CHILD | ES_CENTER
    , int,     0
    , int,     0
    , int,     200
    , int,    50 
    , Uint,     WinExist()
    , Uint,    0
    , Uint,    hRE
    , Uint,    0) 
Return

GuiContextMenu:
   MouseGetPos,,,, ctrl
   if ctrl = RichEdit50W1
      Menu, menu_context, Show
   Return

GuiClose:
GuiEscape:
ExitApp

a:
msgbox Тык

Re: AHK: CreateWindowEx стиль окна

null@example.com (yalanne) — Fri, 13 Feb 2015 15:20:01 +0000

teadrinker пишет:

Нужно меню создать самостоятельно, после этого отслеживать клик правой кнопкой по данному контролу.

Я к такому решению пришел.

;SetBatchLines -1
Gui +LastFound 
Gui Show,w800 h520

Global WS_VISIBLE     := 0x10000000 
Global WS_CHILD      := 0x40000000 
Global ES_CENTER    := 0x1
Global ES_PASSWORD := 0x20


Global RE
RText=Привет мир!
hRE := DllCall("LoadLibrary",Str,"Msftedit.dll")
DllCall("CreateWindowEx"
    , Uint,    0x200
    , Str,     "RichEdit50W"
    , Str,     RText
    , Uint,    WS_VISIBLE | WS_CHILD | ES_CENTER
    , int,     0
    , int,     0
    , int,     200
    , int,    50 
    , Uint,     WinExist()
    , Uint,    0
    , Uint,    hRE
    , Uint,    0) 
    
OnMessage(0x0204, "WM_RBUTTONDOWN")
Return

WM_RBUTTONDOWN(){
MouseGetPos, , , , ctrl
if ctrl = RichEdit50W1
{
        Menu, menu_context, Add, Тык , a
        Menu, menu_context, Show
        Menu, menu_context, DeleteAll,
}
}


GuiClose:
GuiEscape:
ExitApp

a:
msgbox Тык

Re: AHK: CreateWindowEx стиль окна

null@example.com (teadrinker) — Fri, 13 Feb 2015 02:43:52 +0000

Malcev пишет:

0x50000000 получили, как я понимаю из-за того, что сложили эти 2 величины

Так это не сложение, это операция "побитового или". Сравни два результата:

SetFormat, IntegerFast, H
MsgBox, % 0xFFFF | 0xFFFF "`n" 0xFFFF + 0xFFFF

Я не понимаю почему многие так все шифруют?

Я тоже не понимаю, может хотят казаться этакими волшебниками, оперирующими "магическими числами"?

Re: AHK: CreateWindowEx стиль окна

null@example.com (Malcev) — Fri, 13 Feb 2015 02:38:30 +0000

0x50000000 получили, как я понимаю из-за того, что сложили эти 2 величины, поэтому так и написал.
Я не понимаю почему многие так все шифруют?
Нет, чтобы написать так:

;SetBatchLines -1
Gui +LastFound 
Gui Show,w800 h520

RText=Привет мир!
hRE:=DllCall("LoadLibrary",Str,"Msftedit.dll")
global WS_VISIBLE=0x10000000, WS_CHILD=0x40000000
RE:=DllCall("CreateWindowEx"
    , Uint,    0x200
    , Str,     "RichEdit50W"
    , Str,     RText
    , Uint,   WS_CHILD | WS_VISIBLE
    , int,     0
    , int,     0
    , int,     200
    , int,    50 ;Pos
    , Uint,     WinExist()
    , Uint,    0
    , Uint,    hRE
    , Uint,    0) ;hWnd Parent, hInstance

Return

GuiClose:
GuiEscape:
ExitApp

Re: AHK: CreateWindowEx стиль окна

null@example.com (teadrinker) — Fri, 13 Feb 2015 02:31:35 +0000

Нужно меню создать самостоятельно, после этого отслеживать клик правой кнопкой по данному контролу.

Re: AHK: CreateWindowEx стиль окна

null@example.com (yalanne) — Fri, 13 Feb 2015 02:13:58 +0000

спасибо. А что насчет второго вопроса?

Re: AHK: CreateWindowEx стиль окна

null@example.com (teadrinker) — Fri, 13 Feb 2015 02:04:46 +0000

Там не "+", там "|", это не одно и то же.

Re: AHK: CreateWindowEx стиль окна

null@example.com (Malcev) — Fri, 13 Feb 2015 01:50:26 +0000

; WS_CHILD (0x40000000) + WS_VISIBLE (0x10000000) = 0x50000000:

AHK: CreateWindowEx стиль окна

null@example.com (yalanne) — Fri, 13 Feb 2015 01:29:17 +0000

Доброго времени суток.
Кто знает что это за стиль окна 0x50000000

столкнулся с с ним в этом скрипте:

;SetBatchLines -1
Gui +LastFound 
Gui Show,w800 h520

RText=Привет мир!
hRE:=DllCall("LoadLibrary",Str,"Msftedit.dll")
RE:=DllCall("CreateWindowEx"
    , Uint,    0x200
    , Str,     "RichEdit50W"
    , Str,     RText
    , Uint,    0x50000000
    , int,     0
    , int,     0
    , int,     200
    , int,    50 ;Pos
    , Uint,     WinExist()
    , Uint,    0
    , Uint,    hRE
    , Uint,    0) ;hWnd Parent, hInstance

Return

GuiClose:
GuiEscape:
ExitApp

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