PureBasic Forums - English

It crashes, if i type 2 chars!

Rings wrote:i'm too lazy to answer


sorry only in german

Here it is: :lol: :lol: :lol:

;
; 31.March 2005
; CountGadgets by leo1991
;


Procedure EnumChildWindowProc(hwnd,*Result.LONG)
*Result\l + 1
ProcedureReturn 1
EndProcedure
Procedure CountGadgets(hwnd)
EnumChildWindows_(hwnd,@EnumChildWindowProc(),@count)
ProcedureReturn count
EndProcedure ...

Macros are faster :D

!macro test
!{
bla / 5 * 99
d = 70 * 100000 / (90 + 700)
l = a > c
d * 1000
!}

Procedure test()
bla / 5 * 99
d = 70 * 100000 / (90 + 700)
l = a > c
d * 1000
EndProcedure

#N = 100000000
t1 = GetTickCount_()
For I = 0 To #N
! test
Next
t1 = GetTickCount_() - t1

t2 ...

Do you search somethin like this?

;
; Image in an EditorGadget
; 29.3.2005,12:11 by Leo1991
;

hwnd = OpenWindow(0,0,0,640,480,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Hello World!")
CreateGadgetList(hwnd)
hedit = EditorGadget(0,10,10,620,460)
CreateGadgetList(hedit)
file.s ...

I don't think, this is useful. It isn't used often, so it isn't needed to be
added to PB :D You could try it with this Procedure:


;
; 25.3.2005
; Array Items
; By leo1991 in English Forum
;

Procedure ArrayItems(*Array.LONG)
*Array - 8
Size = *Array\l - 1
*Array + 8
RetVal.l
For I = 0 To ...

?