;Autor: nico ;Nur mit XP-Skin EnableExplicit Define EventID Define LinkHTML$="PureBoard" Define SysLinkHandle #MAX_LINKID_TEXT = 48 #L_MAX_URL_LENGTH = 2083 Structure LITEM mask.l iLink.l state.l stateMask.l szID.w[#MAX_LINKID_TEXT] szUrl.w[#L_MAX_URL_LENGTH] EndStructure Structure NMLINK hdr.NMHDR item.LITEM EndStructure Procedure WindowCallback(hwnd, msg, wparam, lparam) Protected result Protected *nmhdr.NMHDR Protected *LINK.NMLINK result = #PB_ProcessPureBasicEvents Select msg Case #WM_NOTIFY *nmhdr.NMHDR = lParam Select *nmhdr\code Case #NM_CLICK *LINK.NMLINK = lParam Debug PeekS(@*LINK\item\szUrl[0], -1, #PB_Unicode) EndSelect EndSelect ProcedureReturn result EndProcedure #LWS_TRANSPARENT = $0001 If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) SysLinkHandle = CreateWindowEx_(0, "SysLink", LinkHTML$, #WS_CHILD | #WS_VISIBLE | #LWS_TRANSPARENT, 10, 10, 100, 20, WindowID(0), 2, 0, 0) SetWindowColor(0, RGB(200, 255, 200)) SetWindowCallback(@WindowCallback()) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf