PureBasic Forums - English

Simple key checker

OpenWindow(0, 0, 0,300,40, "", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
TextGadget(0, 0, 8, 300, 20, "Press any key.", #PB_Text_Center)

Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Quit = 1

Case #WM_CHAR ;Char / Ctrl + Char
key = EventwParam ...

You are a Windows user
So if you want to get any key pressed and any key combination with (alt-ctrl-shift)
You can use Local Hook

Hi ChrisR
I don't like it but if you insist :)

If OpenWindow(0, 0, 0, 500, 220, "FrameContainer Font Text", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
LoadFont(0, "Segoe UI", 12, #PB_Font_Italic)
SetGadgetFont(#PB_Default, FontID(0))
FrameGadget(0, 20, 60, 200, 120, "FrameContainer_0 ...

Hi

;
; ------------------------------------------------------------
;
; PureBasic - Menu example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;

;
; We just have to open a window and see when an event happen on the menu
;

If OpenWindow(0, 100 ...

Wake up :D

;
; ------------------------------------------------------------
;
; PureBasic - Menu example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;

;
; We just have to open a window and see when an event happen on the menu
;

If OpenWindow ...

Maybe

Global oldprocedure

Procedure editorGadgetCB(hwnd, uMsg, wParam, lParam)
If uMsg = #WM_CHAR
If wParam <> #VK_BACK
If Len(GetGadgetText(0))%30 = 29
keybd_event_(#VK_RETURN,0,0,0)
keybd_event_(#VK_RETURN,0,#KEYEVENTF_KEYUP,0)
EndIf
EndIf

EndIf
ProcedureReturn CallWindowProc ...

Try

CreateImage(0, 32,32)
CreateImage(1, 32,32)

StartDrawing(ImageOutput(0))
Box(0,0,32,32,#White)
StopDrawing()

icoInf.ICONINFO
icoInf\fIcon = #False
icoInf\hbmMask = ImageID(0)
icoInf\hbmColor = ImageID(1)

curHnd = CreateIconIndirect_(icoInf)
;
For x = 32512 To 32650 ;Hide System cursor ...

Hi
Try

Hi dige
Quick hack adapt it for your needs
Use state? to set the menu item status
SetMenuItemBitmaps_() = SetMenuItemState :D


UsePNGImageDecoder()
LoadImage(1,#PB_Compiler_Home + "examples/sources/Data/ToolBar/Open.png")
LoadImage(2,#PB_Compiler_Home + "examples/sources/Data/ToolBar/Save.png ...

If InitSprite() = #Null
MessageRequester("Error", "InitSprite failed.", #PB_MessageRequester_Error)
End
EndIf

#_WINDOW_WIDTH = 720
#_WINDOW_HEIGHT = 640
OpenWindow(0, 0, 0, #_WINDOW_WIDTH, #_WINDOW_HEIGHT, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
OpenWindowedScreen(WindowID(0), 0 ...

Hi
You can try
Windows x64

Hi Mesa
I think your approach to get the default font is not quit right

If OpenWindow(0, 0, 0, 400, 200, "VectorDrawing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CanvasGadget(0, 0, 0, 400, 200)

; FID = GetGadgetFont(#PB_Default)
; fnt.LOGFONT
; GetObject_(FID,SizeOf(fnt),@fnt ...

Just replace

; -------------------------------------------------
; MAIN
; -------------------------------------------------
If OpenWindow(#Window, 0, 0, 900, 600, "PureBasic XY Graph - FIXED",
#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget)

CanvasGadget(#Canvas, 0, 0 ...

Hi VB6_to_PBx
Long time no see

Enumeration
#Window
#Canvas
EndEnumeration

; -------------------------------------------------
; Data
; -------------------------------------------------
Global Dim DataX.f(8)
Global Dim DataY.f(8)

DataX(0) = 0.200 : DataY(0) = 151.1
DataX(1) = 0.300 : DataY(1 ...

PB ParentID is like Windows API #GWL_HWNDPARENT
It only keeps the child window over the parent window not as exact child
You can try restrict the child window moving
Next is just to show what I mean


;EnableExplicit
Define wndFlags
Define x,y,w,h

Enumeration Windows
#wnd_Main
#wnd_Child1 ...