PureBasic Forums - English

Try this. Procedure Event_ResizeWnd() Protected Wnd = EventWindow() Protected w = WindowWidth(Wnd) Protected h = WindowHeight(Wnd) Static img If IsImage(img) : FreeImage(img): EndIf If w > 0 And h > 0 img = CreateImage(#PB_Any, w, h, 24, #Red) If img If StartDrawing(ImageOutput(img)) Box(10, 10, w -...

Macro ScaleUp(value) (((value)*DpiScale)>>#PB_DpiBits) EndMacro Macro ScaleDown(value) (((value)<<#PB_DpiBits)/DpiScale) EndMacro No. That one pixel error is due to rounding when scaling up and down, so your scaling up and down macros have the same error. At 125%, the left margin is 5 pixels and th...

Your code has the same left and right margins at 100% screen scale. But, to make it look right at screen scales greater than 100%, you need to handle the size in pixels, which is a bit complicated. To ensure that there is not even a single pixel of error, it is not recommended to use PB native funct...

FillRect_() does not paint the background color because the values of the fields in the ptRECT structure are all 0.
The structure variable is only populated after the #LVM_GETSUBITEMRECT message call below.

Fill in the background color as shown below. Global ImgList, OldWndProc, ListIcon Procedure ListIcon_SetItemImage(tempListIconGadget, index_item.w, index_subitem.w, index_image.w) Protected itemLV.LVITEM ; tagLVITEM itemLV\mask = #LVIF_IMAGE itemLV\iItem = index_item itemLV\iSubItem = index_subitem ...

I've looked recently, too, and there's no such general way(APIs or registry values, etc.). Nevertheless, you can get some hints from the link below.

https://learn.microsoft.com/en-us/windo ... ed-corners

The same issue occurs in Visual Studio 2022.

Confirmed. The IMA error occurs only in PB 6.10 x86 both ASM and C backend. If StartVectorDrawing(SvgVectorOutput("test.svg", 400, 200)) AddPathBox(50, 50, 200, 50) AddPathBox(150, 75, 200, 50) VectorSourceColor(RGBA(255, 0, 0, 255)) StrokePath(10) StopVectorDrawing() EndIf

That's not possible with a numeric constant, but it is with a string constant. #MyColor$ = "A unique string that is never used in the code." *p = @"A unique string that is never used in the code." R=$00 G=$B2 B=$FF PokeS(*p, Str(RGB(R,G,B))) color.l = Val(#MyColor$) a.s = #MyColo...

In practice, the custom drawing is shorter if you do a few calculations like RASHAD's code. :wink: Fixed some glitches in the previous code. Import "Msimg32.lib" TransparentBlt(hdcDest, xoriginDest.l, yoriginDest.l, wDest.l, hDest.l, hdcSrc, xoriginSrc.l, yoriginSrc.l, wSrc.l, hSrc.l, crTr...

I tested it with a few files and it seems to work fine for local disk files.
Note that the return value is a quad type.
Tested with 6.10 LTS x64/x86.

This is a trick using a background image. Edit: Fixed a drawing issue when returning from offscreen. Procedure Add_Icon_To_ImageList(ImgList, DLL_Path.s, index) Protected hIcon, img_index = -1 hIcon = ExtractIcon_(#Null, DLL_Path, index) If hIcon img_index = ImageList_AddIcon_(ImgList, hIcon) Destro...

Problem 1: For my program, I want to use the keyboard function keys for selection of my SUB programs. If i use F1...F9 there is no problem and it work very well, but if I use F10, it blocks the mouse and other Function keys If I push again F10 all works well ... PB5.73x64 / Win 10 pro Try this. Pro...

Thank you breeze4me for the example of setting webgadget parameters at startup. Unfortunately, I was unable to test the second example due to a lack of intelligence and now I feel completely stupid. :cry: Would you be so kind as to add a few more explanations? What happens to the code? How can I te...

I haven't tried it with PB, but the answer below might be helpful. https://stackoverflow.com/questions/8289492/find-out-when-keyboard-layout-is-changed If I open the cmd.exe console, I can't get the keyboard layout even though the system tray text switches The console part is MS's issue. https://git...