PureBasic Forums - English

The problem comes from Windows XP theme Next is a much easier method SetThemeAppProperties_(0) Procedure Add_Icon_To_ImageList(ImgList, DLL_Path.s, index) Protected hIcon, img_index = -1 hIcon = ExtractIcon_(#Null, DLL_Path, index) StartDrawing(ImageOutput(1)) Box(0,0,24,24,$FFFFFF) DrawImage(hicon,...

Procedure Add_Icon_To_ImageList(ImgList, DLL_Path.s, index) Protected hIcon, img_index = -1 iinf.ICONINFO hIcon = ExtractIcon_(#Null, DLL_Path, index) StartDrawing(ImageOutput(1)) Box(0,0,32,32,$FFFFFF) DrawImage(hicon,0,0,24,24) StopDrawing() iinf\hbmMask = ImageID(0) iinf\hbmColor = ImageID(1) ic...

Procedure Add_Icon_To_ImageList(ImgList, DLL_Path.s, index) Protected hIcon, img_index = -1 hIcon = ExtractIcon_(#Null, DLL_Path, index) StartDrawing(ImageOutput(1)) Box(0,0,24,24,$ffffff) DrawImage(hicon,0,0,24,24) StopDrawing() iinf.ICONINFO iinf\fIcon = 1 iinf\hbmMask = ImageID(0) iinf\hbmColor ...

I didn't use any Window and forced CMD to be run as Invoker not admin
It works here with Windows 11 x64
It's different than you did

Catch Input language change while running CMD.exe Global prog,kb,oldkb prog = RunProgram("cmd.exe","","",#PB_Program_Open) While ProgramRunning(prog) kb = GetWindowThreadProcessId_(GetForegroundWindow_(),0) kb = GetKeyboardLayout_(kb) If kb <> oldkb oldkb = kb Delay(100...

Hi tatanas
It depends
Delay is not always the good solution
But you can use [While WindowEvent():Wend ] when needed
Be sure that every repeated process start on clean ground
Try and error is your answer

Sample for using Escape with RegularExpression It may help Text$ = ~"<a href=\"https://www.sample.com\">Share</a>" + #CRLF$ Text$ + ~"<p> Share</p>" + #CRLF$ Text$ + ~"<a NoReplaceMe>Share</a>" + #CRLF$ Text$ + ~"<a href=\"https://www.sample.com\&quo...

Maybe
String lib

Most of my problems comes from Time and Timing specially these days with SSD devices
Check that and give the CPU and other components time to breeze

Hi guys
Thanks blueb and pjay for your comments
NM I am so glad to read your comments at any PB post
I hope you are in a very good shape

Hi
You can't D&D from lower UAC to higher UAC [ Security issue ]
Workaround :
1- Create a dummy application as user UAC
2- D&D to the dummy
3- Copy from the dummy then paste to the higher one

It's tricky and need some ghost effects to do it

Hi How do you expect the string gadget to accept D&D if it's Read Only EnableExplicit Define.s XMLString XMLString="<?xml version='1.0' encoding='UTF-16'?>"+Chr(10)+ ;{ "<dialogs>"+Chr(10)+ " <window id='0' name='Window1' text='Test' xpos='0' ypos='0' width='auto' minwid...

1- Using Windows API 2- Usual Windows Button effects 3- Use Vector lib. to do what you want to do Suit yourself it's only a scratch for beginning Have fun Procedure colorBUTTON(gad,w,h,font.s,fsize,text.s,tcolor) LoadFont(0,font,fsize) CreateImage(gad,w-6,h-8,32,#PB_Image_Transparent) StartVectorDra...

Better use of BindEvent() Exactly it's not perfect because if it stopped and started again the continuation of the timer cycle is messed up ;EnableExplicit #XCounterDefaultValue = 10 #LongTimerDefaultValue = 45 #ShortTimerDefaultValue = 15 Global LongTimerCounter,ShortTimerCounter,XCounter Procedure...