Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 04/30/2025 in all areas

  1. Hi all, I'll try to keep this succinct... Since windows 10 1903 it has been possible to embed UWP controls (i.e. XAML controls) in win32 apps. The container that holds a XAML control is a XAML Island. For non-legacy media playback, Microsoft tells us to use the WinRT MediaPlayer object with the MediaPlayerElement control. MediaPlayerElement is the UI & video rendering component of the player (the XAML control). The other MediaPlayer object is the bones of the player which you attach to the control. To get this working you annoyingly need to add the maxversiontested element to the application manifest. There's script in the zip which will copy AutoIt.exe (or AutoIt_x64.exe if you're using it) and update its manifest. If you replace the original file with the modified one, you should be able to successfully run the example with the F5 key. Or here's a screenshot if you just want to see the result! PS. As an aside, Another way of approaching modern playback is via MediaEngine which we've recently attempted to get going. This approach doesn't play well with autoit though, and you need to do ungodly things to prevent callbacks from crashing your script! MediaPlayer.zip
    4 points
  2. Func _GUI2() Local $hGUI = GUICreate("Example Gui 2", 390, 320, @DesktopWidth * 0.3, -1) GUISetStyle($WS_POPUPWINDOW) ; <====== ..you scared me there for a minute 😅
    2 points
  3. GUISetStyle ( Style [, ExStyle [, winhandle]] ) oops, my mind didn't go there. first I did a reboot maybe ... and then I started cursing Microsoft Thank you very much.
    1 point
  4. From "GUIStyles.inc.au3" [0x80880000, 'WS_POPUPWINDOW'] [0x80000000, 'WS_POPUP'] [0x00800000, 'WS_BORDER'] [0x00080000, 'WS_SYSMENU'] Great how these 8's are vertically aligned
    1 point
  5. Gui 1 (Control Viewer) Style 0x94880000 WS_POPUP, WS_VISIBLE, WS_CLIPSIBLINGS, WS_BORDER, WS_SYSMENU ExStyle 0 ================= For GUI2, the wrong syntax GUISetStyle(-1, $WS_POPUPWINDOW) messed up its ex style : Gui 2 (GuiPropView) Style 0x94CA0000 (unchanged, style kept as when GUI2 was created) ExStyle 0x00080100 <= this is 0x80000 (WS_EX_LAYERED) that's why we couldn't see GUI2 + 0x100 (WS_EX_WINDOWEDGE)
    1 point
  6. The article is a bit long, I will add more example code below when finished!
    1 point
  7. yeah fair enough, totally get where you're coming from. Just to explain though - this uses libraries from the WinRT project which literally has thousands of objects wrapped. The folder structure is a way for me to drop objects in and out of a project without definitions getting in the way of each other. So we could probably boil all this down to a single header - but it will only be useful for this implementation. So the setup is more for me I guess! There are Interface tags in all the interface libraries. So for a more traditional approach with ObjCreateInterface() I'd probably extract all those and dump them into its own include file. You'd would also lose the benefits of things like calltips, and a few other perks but you gain a bit more simplicity with the file structure.
    1 point
  8. TheSaint

    Kobo Cover Fixer

    Latest v1.4 update now available, see the first post. Some more improvements came to mind. Latest Changes Been busy, so missed doing the v1.3 upload. For Your Interest I finally managed to fix all the images on my Kobo device. This involved the images for the newest ebook additions to my device (around five), plus all the side loaded ebooks, where the images were either black & white instead of color or were badly sized, or in many cases, both. I then double checked the lot to be doubly sure all were now present & acceptable. I did that last with my program, and also with my Kobo device. A Rehash Of My Situation Latest News So anyway, I finally had the image situation on my Kobo device, like I wanted. But then of course, I needed to do a sync, to get my latest ebook purchase. On this occasion a surprise waited for me ... Sync appeared to be working and actually completed ... WTF ... Why? The first inkling I had of this, was my latest five acquisitions at Kobo, automatically went into 'Pending' status after the list was updated. They then proceeded to download, one after the other, then the device went into the 'downloading covers' state, which always takes a while to complete, but after several minutes did finish, then it did 'Annotations' etc and then the Sync completed. WOW ... I could not believe it. Reflections So that's it for now, and going forward I will probably only reply further if new revelations come to light, or in response to posts from others. I will finish up by saying how nice it is to see all the cover images on my Kobo device, when browsing or when putting the device to sleep. It had been too long since that was regularly the case. Fingers crossed.
    1 point
  9. it was resolved #include <GUIConstants.au3> Global $hGUI = GUICreate("GUI") Global $id_1 = _CreateInput("INPUT1", 20, 20, 150, 30, "0xB6FF00", 10) Global $id_2 = _CreateInput("INPUT2", 20, 60, 150, 30, "0xB6FF00") Global $id_3 = _CreateInput("INPUT3", 20, 100, 150, 35, "0xFFD800", 10) Global $id_4 = _CreateInput("INPUT4", 20, 145, 150, 35, "0xFFD800") Global $id_5 = _CreateInput("INPUT5", 20, 190, 150, 40, "0xFFB400", 10) Global $id_6 = _CreateInput("INPUT6", 20, 240, 150, 40, "0xFFB400") Global $id_7 = _CreateInputWL("Test Label:", "INPUT7", 220, 20, 150, 30, "0xB6FF00", 10) Global $id_8 = _CreateInputWL("Test Label:", "INPUT8", 220, 60, 150, 30, "0xB6FF00") Global $id_9 = _CreateInputWL("Test Label:", "INPUT9", 220, 100, 150, 30, "0xB6FF00", 10) Global $id_10 = _CreateInputWL("Test Label:", "INPUT10", 220, 145, 150, 30, "0xB6FF00") Global $id_11 = _CreateInputWL("Test Label:", "INPUT11", 220, 190, 150, 40, "0xFFB400", 10) Global $id_12 = _CreateInputWL("Test Label:", "INPUT12", 220, 240, 150, 40, "0xFFB400") GUISetState() Sleep(3000) GUICtrlSetData($id_1, "[test] gyps") GUICtrlSetData($id_7, "[test] gyps") While True Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd ;-------------------------------------------------------------------------------------------------------------------------------- Func _CreateInput($Text, $Left, $Top, $Width, $Height, $Color, $Corner = $Height / 2) GUICtrlCreateGraphic($Left, $Top, $Width, $Height) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color, $Color) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $Corner, 0) GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, $Corner, $Height, 0, 0, 0, $Height) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $Width - $Corner, 0) GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, $Width - $Corner, $Height, $Width, 0, $Width, $Height) GUICtrlSetGraphic(-1, $GUI_GR_RECT, $Corner, 0, $Width - ($Corner * 2), $Height) GUICtrlSetState(-1, $GUI_DISABLE) $idInput1 = GUICtrlCreateInput($Text, $Left + $Corner, $Top + ($Height * 0.2), $Width - ($Corner * 2), $Height * 0.6, -1, $WS_EX_TOOLWINDOW) GUICtrlSetFont(-1, Int($Height * 0.4), 400) GUICtrlSetBkColor(-1, $Color) Return $idInput1 EndFunc ;==>_CreateInput ;-------------------------------------------------------------------------------------------------------------------------------- Func _CreateInputWL($Label, $Text, $Left, $Top, $Width, $Height, $Color, $Corner = $Height / 2) GUICtrlCreateGraphic($Left, $Top, $Width, $Height) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, $Color, $Color) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $Corner, 0) GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, $Corner, $Height, 0, 0, 0, $Height) GUICtrlSetGraphic(-1, $GUI_GR_MOVE, $Width - $Corner, 0) GUICtrlSetGraphic(-1, $GUI_GR_BEZIER, $Width - $Corner, $Height, $Width, 0, $Width, $Height) GUICtrlSetGraphic(-1, $GUI_GR_RECT, $Corner, 0, $Width - ($Corner * 2), $Height) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlCreateLabel($Label, $Left + $Corner, $Top, $Width - ($Corner * 2), $Height * 0.4) GUICtrlSetBkColor(-1, $Color) GUICtrlSetFont(-1, Int($Height * 0.25)) $idInput1 = GUICtrlCreateInput($Text, $Left + $Corner, $Top + ($Height * 0.35), $Width - ($Corner * 2), $Height * 0.60, -1, $WS_EX_TOOLWINDOW) GUICtrlSetFont(-1, Int($Height * 0.35)) GUICtrlSetBkColor(-1, $Color) Return $idInput1 EndFunc ;==>_CreateInputWL ;--------------------------------------------------------------------------------------------------------------------------------
    1 point
  10. TheSaint

    Kobo Cover Fixer

    Yeah, tell me about it. And my usage essentially hasn't changed, from the first 18 months, where I had no real issue, until now. What has changed, is updates to my device, so clearly they screwed something or the number of ebooks on my device is a factor ... though to be sure, my Kobo device still has much more space free than used. And as usual, I always treat my devices and drives well, which is carefully. I also never charge my devices, until almost flat ... be that ereader or phone or tablet etc. I eject properly, store and transport properly, etc etc. My money is on nerdy coders and flawed management as being the real issue ... and I've seen that across many devices.
    0 points
×
×
  • Create New...