Search found 208 matches

by KDJ
Fri Aug 03, 2018 3:25 pm
Forum: HMG General Help
Topic: This.Name in DEFINE CONTROL CONTEXT MENU
Replies: 7
Views: 171

Re: This.Name in DEFINE CONTROL CONTEXT MENU

Andy

Here is one of the ways:

Code: Select all

MENUITEM "Edita" NAME &("Edit" + cCtrl1) ACTION { ||  Mensaje( Val(SubStr(This.NAME, 9, 2)), Val(SubStr(This.NAME, 11, 2)), SubStr(This.NAME, 5) ) } TOOLTIP "cToolTipText"
by KDJ
Wed Jul 25, 2018 7:19 pm
Forum: PDF Generation
Topic: PDF Viewer DLL?
Replies: 153
Views: 25316

Re: PDF Viewer DLL?

PDFview version 2018-07-25 released. Changed: - program icon and title of main window, - now PDF is opened in new tab by default (Ctrl+O or in files panel - Enter), to open in current tab use Shift+Ctrl+O or in files panel - Shift+Enter (Shift+DoubleClick), - hotkey Ctrl+Shift+T now is used to rest...
by KDJ
Mon Jul 23, 2018 4:12 pm
Forum: General Discussions
Topic: BUTTON First Previous Next Last
Replies: 5
Views: 338

Re: BUTTON First Previous Next Last

Mustafa You can do this as follows: *---------------------------------------------------------* Function GoFirst() *---------------------------------------------------------* Form_1.Grid_2.SetFocus Form_1.Grid_2.Value := { 1, Form_1.Grid_2.Value[2] } ArribAbajo() return *---------------------------...
by KDJ
Sat Jul 21, 2018 10:54 pm
Forum: HMG Source
Topic: Opensource anticopy LIB/DLL download and use
Replies: 7
Views: 417

Re: Opensource anticopy LIB/DLL download and use

This message is advertisement of a commercial product.
Administrator please remove this topic from the forum.
by KDJ
Tue Jun 26, 2018 6:48 pm
Forum: General
Topic: mouseover label
Replies: 29
Views: 1801

Re: mouseover label

A small improvement to avoid flickering: #include "hmg.ch" #define LABEL_NAME 1 #define LABEL_HWND 2 MEMVAR _HMG_SYSDATA FUNCTION Main() LOCAL aLabel := {{"LABEL1", NIL}, ; {"LABEL2", NIL}, ; {"LABEL3", NIL}} LOCAL n DEFINE WINDOW MainForm; WIDTH 300; HEIGHT 260; TITLE "Labels as buttons"; MAIN; ON ...
by KDJ
Mon Jun 25, 2018 8:48 pm
Forum: General
Topic: mouseover label
Replies: 29
Views: 1801

Re: mouseover label

Is this supposed to be something like that: #include "hmg.ch" #define LABEL_NAME 1 #define LABEL_HWND 2 MEMVAR _HMG_SYSDATA FUNCTION Main() LOCAL aLabel := {{"LABEL1", NIL}, ; {"LABEL2", NIL}, ; {"LABEL3", NIL}} LOCAL n DEFINE WINDOW MainForm; WIDTH 300; HEIGHT 260; TITLE "Labels as buttons"; MAIN; ...
by KDJ
Sun Jun 24, 2018 12:34 pm
Forum: General
Topic: mouseover label
Replies: 29
Views: 1801

Re: mouseover label

Hi Krzysztof! Your sample works fine till application has focus. When I switched to another application and return to Label Test, onMouseEvent stopped to work :-( When I leave mouse cursor over label - it becomes RED - I'm switching by Alt-Tab to another application and return to Test - label stays...
by KDJ
Wed Jun 20, 2018 6:32 pm
Forum: General
Topic: mouseover label
Replies: 29
Views: 1801

Re: mouseover label

Grigory ... Why WM_MOUSELEAVE in HMG Extended works and in classic HMG doesn't work? Krzysztof IMHO Because HMG Extended uses a Label subclassing on C-level 8-) Grigory I solved this problem. Before that I completely forgot about the function EventProcessAllHookMessage(). WM_MOUSELEAVE works also i...
by KDJ
Sun Jun 17, 2018 12:16 pm
Forum: Others
Topic: How to adopt function DeleteUrlCacheEntry in HMG
Replies: 3
Views: 501

Re: How to adopt function DeleteUrlCacheEntry in HMG

For example, in this way: #include "hmg.ch" MEMVAR _HMG_SYSDATA FUNCTION Main() LOCAL cURL := "http://myURL" LOCAL nError IF DeleteUrlCacheEntry(cURL, @nError) MsgBox("Deleted!") ELSE //System Error Codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms681381(v=vs.85).aspx MsgBox("Error ...
by KDJ
Sun Jun 10, 2018 8:31 pm
Forum: General
Topic: mouseover label
Replies: 29
Views: 1801

Re: mouseover label

Grigory, thank you very much for your explanation.