Search found 732 matches

by Joris
Tue Sep 29, 2020 3:06 am
Forum: Coding Questions
Topic: #PB_Splitter_FirstMinimumSize doesn't work for vertical spit
Replies: 3
Views: 678

Re: #PB_Splitter_FirstMinimumSize doesn't work for vertical

Second not working example. Global.i lci_005, lci_006, splt, Window_1 Procedure Build_Window_1(x = 0, y = 0, width = 1200, height = 700) Window_1 = OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, width, height, "", #PB_Window_SystemMenu |#PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_...
by Joris
Fri Sep 25, 2020 11:40 am
Forum: Coding Questions
Topic: #PB_Splitter_FirstMinimumSize doesn't work for vertical spit
Replies: 3
Views: 678

#PB_Splitter_FirstMinimumSize doesn't work for vertical spit

Hi, As the title says : The #PB_Splitter_FirstMinimumSize doesn't work for vertical spit. Greatings. Procedure Build_Window_1(x = 0, y = 0, width = 1400, height = 700) Window_1 = OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, width, height, "", #PB_Window_SystemMenu |#PB_Window_ScreenCentered...
by Joris
Wed Sep 23, 2020 8:56 am
Forum: Coding Questions
Topic: [Windows] Simple voice control
Replies: 1
Views: 662

Re: [Windows] Simple voice control

...But how to detect, if one or more quick claps have been done? Actually one single "clapping wave" can be seen in one captured buffer but can also appear in two consecutive buffers as well. So I'd need a simple method to get the "clap count", this is my actual method... ...whi...
by Joris
Tue Sep 15, 2020 7:15 am
Forum: General Discussion
Topic: Which BASICs have been you using in your life?
Replies: 58
Views: 15929

Re: Which BASICs have been you using in your life?

GFA Basic (Atari ST/Win 16Bit)
GFA Basic (32)
A bit of Visual Basic
Pure Basic
by Joris
Tue Sep 08, 2020 9:29 am
Forum: Coding Questions
Topic: Gadgets use without API's ... ???
Replies: 7
Views: 1012

Re: Gadgets use without API's ... ???

Ok.

This solution seems the best one (according the redraw process) :
SetGadgetColor(cnt_024, #PB_Gadget_BackColor, #PB_Default)
After the SetWindowColor(wnd_000, $FF)

See you.
by Joris
Tue Sep 08, 2020 9:05 am
Forum: Coding Questions
Topic: Gadgets use without API's ... ???
Replies: 7
Views: 1012

Re: Gadgets use without API's ... ???

Ha, yes, Rashad that's maybe a little bit better then my Resize.
(The OS-redraw process needs to get started, isn't it ?)

Thanks.
by Joris
Tue Sep 08, 2020 8:46 am
Forum: Coding Questions
Topic: Gadgets use without API's ... ???
Replies: 7
Views: 1012

Re: Gadgets use without API's ... ???

Strange solution Rashad, but still thanks. Infratec, you too. I found another strange thing about that color-overlapping : it happens only once ... Push the RED button, thengo to the next panal-tab and come back... it seems oke thenb (no twice color-overlapping) ??? ;********************************...
by Joris
Mon Sep 07, 2020 9:37 am
Forum: Coding Questions
Topic: Gadgets use without API's ... ???
Replies: 7
Views: 1012

Gadgets use without API's ... ???

Hi, I got this very simplified setup completely working but only with the use of API's. The position of all Gadgets should not become changed (as images are according placed on the canvas). Most of the names are simplified too. I like to know how to do it without API's, yet some things then go wrong...
by Joris
Mon Sep 07, 2020 8:40 am
Forum: Tricks 'n' Tips
Topic: Self Virus Check / Exec Alteration
Replies: 20
Views: 4112

Re: Self Virus Check / Exec Alteration

That's what ProgramFilename() is for. You don't need to know where the user puts your exe. It gets the exe's path and filename at runtime. Well, if I put that text file in the Linker and try to create executable, I get the message : POLINK Fatal Error : File not found 'szFullPath.s=ProgramFilename(...
by Joris
Sun Sep 06, 2020 9:20 am
Forum: Tricks 'n' Tips
Topic: Self Virus Check / Exec Alteration
Replies: 20
Views: 4112

Re: Self Virus Check / Exec Alteration

I feel a bit stupid but ...
I know my Programname of course, but how to know the full path where the exe will become placed (by the user) for ProgramFilename() ?
by Joris
Sun Aug 30, 2020 10:41 am
Forum: Coding Questions
Topic: gadget color
Replies: 15
Views: 1286

Re: gadget color

k3pto wrote:Hi Saki,
Thanks again for your reply. That seems like a lot of trouble just because PB does not allow changing a button color. I will try it if no other solution is posted.
As far as I know it's not a PB matter, as most Gadgets are part of the operating system.
by Joris
Fri Aug 28, 2020 11:36 am
Forum: Coding Questions
Topic: Problem no GetGadgetItemData in ListIconGadget ?
Replies: 2
Views: 674

Problem no GetGadgetItemData in ListIconGadget ?

Hi, The SetGadgetItemData doesn't seem to work here ? What is wrong or is this a bug ? Thanks. If OpenWindow(0, 0, 0, 300, 300, "ListIconGadgets", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) ListIconGadget(0, 10, 25, 330, 170, "Column", 100) For a = 0 To 14 AddGadgetItem(0...
by Joris
Wed Aug 19, 2020 3:23 pm
Forum: Coding Questions
Topic: Recursive problem ...
Replies: 3
Views: 808

Re: Recursive problem ...

Ok. So, it is a normal thing... And I can prevent it with a ProcedureReturn. I suppose that's a good sollution (it works, so...). Thanks. Procedure.s Analyse(txt.s) Protected.i cnt, a cnt=CountString(txt,":") If cnt For a=1 To cnt+1 Analyse(StringField(txt, a,":")) Next Procedure...
by Joris
Wed Aug 19, 2020 2:04 pm
Forum: Coding Questions
Topic: Recursive problem ...
Replies: 3
Views: 808

Recursive problem ...

Hi, The code below works fine, but I don't understand why it ends with the same string as the input. Is that a normal thing with recursive, or how do I prevent that ? Thanks. Procedure.s Analyse(txt.s) Protected.i cnt, a cnt=CountString(txt,":") If cnt For a=1 To cnt+1 Analyse(StringField(...
by Joris
Sat Aug 01, 2020 10:52 am
Forum: Coding Questions
Topic: RegularExpression ... IT WORKS BUT WHY ??? ;-)
Replies: 4
Views: 702

Re: RegularExpression ... IT WORKS BUT WHY ??? ;-)

But why is this one then wrong ?
regex=CreateRegularExpression(#PB_Any, "[\"#a-zA-Z_ ]+")