PureBasic Forums - English

Hi again Global x,y,W,H ExamineDesktops() Procedure Fake(Image,x,y,WW,WH) hImage = CreateImage(Image,WW,WH) hDC = StartDrawing(ImageOutput(Image)) BitBlt_(hDC,0,0,WW,WH,GetDC_(GetDesktopWindow_()),x,y,#SRCCOPY) StopDrawing() ProcedureReturn hImage EndProcedure WW = DesktopWidth(0) WH = DesktopHeight...

Hi srod

KCC
Sorry KCC I just tested it with XP
It does not work
Be tuned

Hi KCC Compile the code and run it from shortcut You can hook the keyboard to disable windows shortcut (Ctrl-c.......) ExamineDesktops() OpenWindow(0,0,0,DesktopWidth(0),DesktopHeight(0),"",#PB_Window_BorderLess) SetWindowColor(0,#Red) SetWindowLong_(WindowID(0),#GWL_EXSTYLE,GetWindowLong_...

Hi Vera Is that what you are asking for ? I hope so Global Dim Anyid(4) Win_0 = OpenWindow(#PB_Any, 0, 0, 100, 100, "hui", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_TitleBar ) Anyid(0) = StringGadget(#PB_Any, 10, 10, 20, 24, "1") Anyid(1) = StringGadget(#PB_A...

It is not exactly what you want but may be it is OK You can change the message to any language and any text You can change the duration time too #1 : Global StringGadgetSC Procedure MessageTimer(hwnd, uMsg, idEvent, dwTime) PostQuitMessage_(0) EndProcedure Procedure StringGadgetProc(hWnd,uMsg,wParam...

@KCC Hi Try the next snippet may be it is your request Remember to change the Strings Variables to your Programme inf. listptr=0 result$=Space(270) SHGetSpecialFolderLocation_(0,#CSIDL_DESKTOPDIRECTORY,@listptr) SHGetPathFromIDList_(listptr,@result$) Path$ = Trim(result$) Linkn$ = "KCC.LNK"...

I do not know how is your code looks like?(SubClassing) But the next snippet will give you the full path of the selected item All in PB If OpenWindow(0, 0, 0, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ExplorerListGadget(0, 10, 10, 380, 180, "*....

A.D. Hi
If I understood you correctly

Just change

To

KCC Hi There are at least 3 methods to do that I allready posted one before for 'yrriti' But the next is the best KCC save the next script using any text editor as "test.rc" in a directory with the next code and 2 icon files test1.ico & test2.ico Then go to Compiler --> Compiler Option...

Nice to see you around Sparkie
But do not let any thing take you from your business
I hope it is fine

and have a good day sir

May be WW = 310 WH = 240 Color = $E3FFFF LMargin = 5 RMargin = 5 TMargin = 5 BMargin = 10 OpenWindow(0,0,0,WW,WH,"EditorGadget",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) ContainerGadget(0,5,5,WW-10,WH-40,#PB_Container_Flat) SetGadgetColor(0,#PB_Gadget_BackColor,Color) EditorGadget(1...

The design is fantastic
I just noticed a kind of slow for browsing

Conclusion:
V Good job
You always has the touch idle

have a good day sir

@charvista Hi
It is OK here PB 4.51 x86 Win 7 x64
What is your configurations?
And Remember to compile using Unicode

@tbohon Hi Take 'Fluid Byte' advice seriously But if for some reasons you want to use StringGadget() Next snippet For Windows Compile it In Unicode mode Text$ = "Text in Multiline StringGadget with WordWrap and Line Number" Linet$ = Space(#MAX_PATH) OpenWindow(0,0,0,300,240,"String Ga...

@PyroStrex Hi If you mean the Vertical white line at the right edge Use ContainerGadegt() with less width to hide it See the next snippet ; Shows using of several panels... If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ContainerGadget(0,...