Author Topic: Canary Bay WD17+ (first release)  (Read 3813 times)

Michael MALKA

  • Newbie
  • *
  • Posts: 4
Re: Canary Bay WD17+ (latest release)
« Reply #15 on: March 23, 2021, 10:59:20 am »
Bonjour Patrice, oui j'ai trouvé du coté de dot.Net car bien que votre application soit légère et fonctionnelle je ne parviens pas à l'intégrer facilement sur mon application (pour  le résultat que je cherche). Ne connaissant rien en C et débutant en Windev il m'est difficile de comprendre comment l'integrer à mon projet. Je vous remercie pour vos réponses rapides.
Cordialement

Patrice Terrier

  • Administrator
  • *****
  • Posts: 1842
    • zapsolution
Re: Canary Bay WD17+ (latest release)
« Reply #16 on: March 25, 2021, 07:42:05 pm »
Michael

J'ai effectué la modification qui permet de connaître l'URL saisie par l'utilisateur dans le champ navigation.
Pour le moment je me contente de l'afficher dans un TRACE de la façon suivante

PROCEDURE ProcessBrowserMessage(uMsg is unsigned int, wParam is unsigned int, lParam is system int)

// Beta version 1.03
IF wParam = WM_NCDESTROY THEN // Last Browser TAB is closing
   IF gP.hRgn THEN
      DeleteObject(gP.hRgn); gP.hRgn = 0
      SetWindowRgn(gP.hMain, gP.hRgn, False)
      IF BTN_Undock..Visible THEN
         Browser_Template..Y += gP.dock_offset // Beta version 1.03
         Browser_Template..Height -= gP.dock_offset // Beta version 1.03
      END//else
      
      BTN_Undock..Visible   = False
      BTN_Dock..Visible   = True
      
      WindowRedraw(gP.hMain)
      
   END
ELSE IF wParam = WM_SETTEXT THEN // version 1.08
   FILE_MAP_ALL_ACCESS is unsigned int = 983040 | 0x0001 | 0x0002 | 0x0004 | 0x0008 | 0x0010
   hMapFile is system int = API(KERNEL32, "OpenFileMappingA", FILE_MAP_ALL_ACCESS, False, "WV2B_MF")
   IF (hMapFile) THEN
      BUF_SIZE is int = MAX_PATH * 2
      pBuf is system int = API(KERNEL32, "MapViewOfFile", hMapFile, FILE_MAP_ALL_ACCESS, 0, 0, BUF_SIZE)
      IF (pBuf) THEN
         Trace(StringRetrieve(pBuf, srUNICODEAddress))
         API(KERNEL32, "UnmapViewOfFile", pBuf)
      END
      API(KERNEL32, "CloseHandle", hMapFile)
   END
END

uMsg = uMsg; wParam = wParam; lParam = lParam
Patrice
(Always working with the latest Windows version available...)

Michael MALKA

  • Newbie
  • *
  • Posts: 4
Re: Canary Bay WD17+ (latest release)
« Reply #17 on: March 26, 2021, 09:33:40 am »
super merci beaucoup je teste ce weekend

Patrice Terrier

  • Administrator
  • *****
  • Posts: 1842
    • zapsolution
Re: Canary Bay WD17+ (latest release)
« Reply #18 on: March 26, 2021, 09:41:34 am »
Puisque çà vous intéresse, je posterai un message dès que la version sera disponible...
Patrice
(Always working with the latest Windows version available...)