PureBasic Forums - English

Aha....
Thank you very much Guys !

TIA :
Why doesn't $FF0000 show as Red ?
SetGadgetColor(3, #PB_Gadget_FrontColor, $FF0000)

Pls , see code below :


; purebasic
If OpenWindow(0, 0, 0, 200, 500, "SetStringColor", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
; Create the font objects
Define VerdanaFont = LoadFont(#PB_Any ...

Ahh.. Thank you very much ChrisR...

- #PB_EventType_Focus
- #PB_EventType_Change
- #PB_EventType_LostFocus
I'm starting to get the hang of things...

TIA ,
For Editor & String , single Click causes DoubleClick ?
I think what's happening is PB catches TWO Clicks , StringDownClick and StringUpClick .
Same for EditorDownClick and EditorUpClick .
How can I discover #PB_UpClick vs #PB_DownClick ?

If OpenWindow(0, 0, 0, 200, 500, "SetGadgetColor ...

oops

Thanks Michael Vogel ,
I couldn't get that working ,
so I switched things around a bit .
Now switch occurs at Button Click
and I added FreeGadget(0) .

Image1 = LoadImage(0, "StartButton-Green-159x42-bmp.bmp")
Image2 = LoadImage(1, "WorkingButton-Red-159x42-bmp.bmp")
ImageID = Image1 ; Initialize ...

Sorry , Michael Vogel , I don't get it , both codes are the same ?
This:
https://vmars.us/ShowMe/WorkingButton- ... -\bmp.bmp
https://vmars.us/ShowMe/StartButton-Gr ... 2-bmp.bmp ?

TIA :
I'm having Trouble with Toggle images ?

https://vmars.us/ShowMe/WorkingButton-Red-159x42-\bmp.bmp


https://vmars.us/ShowMe/StartButton-Green-159x42-bmp.bmp

See code below:
Problem is that code doesn't show either image .

; www.purebasic.com
; Author: Andre Beer (PureBasic-Team - www ...

TIA...:
How to #CCM_SETBKCOLOR for Button ?
I see this Example by Andre 2003
SendMessage_(GadgetID(9),#CCM_SETBKCOLOR,0,RGB(60,50,0))
that colors a ProgressBar .
Is there one for Button ?
Thanks...

Thanks guys ,I appreciate your Help...

https://vmars.us/freeware/Study-Up/Study-Up-HELP.html


Thanks Grampa for letting me Post it on your sites

Hi NickTheQuick ;
Yes , processing a large file can take a while ,
I do that to give the user notice that something in happening .
If I do the MessageRequester without a Delay , it doesn't show right away .

Sorry I was speaking generically , is Array faster than NewList .
Program starts here:


Procedure StartProgram()
Debug "Procedure StartProgram()"
SetGadgetText(StartButton , "Working....")
Delay(500)
MessageRequester("Still TO DO" , "1) Stop any 'Clear Address_String' " +
"2) Delete any ...

Thanks for your Help:

I have a 'NewList WordsList.s()'
into which I am reading in .txt file .
So far my largest file is 300kb , 4,540 lines .
At a Button Click WordsList.s() can be re-sorted
into Ascending or Descending order .
The Program can be quite slow , sometimes getting a "Not Responding ...

Thank you Andesdaf , works much better:

; CreateRegularExpression(0, "^[0-9 .]+$") ; First Try "^[0-9]+$"
If MatchRegularExpression(0, aLine$)
; Debug "RegularExpressionError() = " + RegularExpressionError()
Debug "SkipThisLine = " + aLine$
Goto SkipThisLine
EndIf

TIA ;
I want to weed out lines that have only numeric characters OR
numeric characters and space(s) .
If it is a numeric line , I want to 'Goto SkipThisLine'
But my RegEx lets thru every line .
How can this be fixed?


; CreateRegularExpression(0, "^[0-9 ]+$") ; First Try "^[0-9]+$"
If ...