Search found 1592 matches

by serge_girard
Mon Aug 21, 2017 4:28 pm
Forum: HMG Tutorials and Tips
Topic: How do i call a procedure
Replies: 44
Views: 972

Re: How do i call a procedure

Right again!
More or less... Once you have a project you see 'Modules'. In the toolbar you see 'Project'--> New Module.
This will ask a (prg) name and will create an empty PRG file.

Serge
by serge_girard
Mon Aug 21, 2017 4:23 pm
Forum: HMG General Help
Topic: Hi, how do I execute the loop by step with a one-button condition using for / next or while
Replies: 14
Views: 338

Re: Hi, how do I execute the loop by step with a one-button condition using for / next or while

All functions CAN affect. See this sample : #include "hmg.ch" lPAUSE := .f. aDBF := {} AADD(aDBF, { "T1", "C", 8, 0 }) AADD(aDBF, { "T2", "C", 8, 0 }) DBCREATE("TEST", aDBF) DEFINE WINDOW mathematica ; AT 0,0 ; WIDTH 750 ; HEIGHT 800 ; ICON "" ; TITLE 'mathematica ' ; NOMAXIMIZE ; NOSIZE ; BACKCOLOR...
by serge_girard
Mon Aug 21, 2017 2:12 pm
Forum: HMG Tutorials and Tips
Topic: How do i call a procedure
Replies: 44
Views: 972

Re: How do i call a procedure

Right, twice!

Serge
by serge_girard
Mon Aug 21, 2017 6:51 am
Forum: HMG General Help
Topic: Hi, how do I execute the loop by step with a one-button condition using for / next or while
Replies: 14
Views: 338

Re: Hi, how do I execute the loop by step with a one-button condition using for / next or while

DO EVENTS is great, but it can interfere with other functions, so be carefull...

Serge
by serge_girard
Mon Aug 21, 2017 6:49 am
Forum: HMG Tutorials and Tips
Topic: How do i call a procedure
Replies: 44
Views: 972

Re: How do i call a procedure

Robert,

I use about the same manner as Rathi. But of course (if a rather small project) you can create one big PRG (with different windows names).

Serge
by serge_girard
Sun Aug 20, 2017 12:11 pm
Forum: General Discussions
Topic: Happy Birthday to Zoltan !
Replies: 5
Views: 70

Happy Birthday to Zoltan !

Happy Birthday to Zoltan !

Serge
by serge_girard
Sun Aug 20, 2017 10:02 am
Forum: HMG General Help
Topic: Hi, how do I execute the loop by step with a one-button condition using for / next or while
Replies: 14
Views: 338

Re: Hi, how do I execute the loop by step with a one-button condition using for / next or while

Jair, It is difficult to understand/see exactly what you want. May be this? #include "hmg.ch" lPAUSE := .f. DEFINE WINDOW mathematica ; AT 0,0 ; WIDTH 750 ; HEIGHT 800 ; ICON "" ; TITLE 'mathematica ' ; NOMAXIMIZE ; NOSIZE ; BACKCOLOR WHITE ; MAIN ON KEY ESCAPE ACTION { mathematica.Release } @ 10,10...
by serge_girard
Fri Aug 18, 2017 5:00 pm
Forum: Self Introduction
Topic: The last novice
Replies: 60
Views: 1505

Re: The last novice

Eduardo, 'Many small bussines and profesionals needs solid desktop app, and there is were we must focuse.' This is very true. I don't see any of my programs (apps...) running on a cellphone. The screen and buttons are too small etc. A desktop is better for large amounts of data. Nowadays thieves wil...
by serge_girard
Fri Aug 18, 2017 6:09 am
Forum: General Discussions
Topic: Happy Birthday Rathinagiri!
Replies: 16
Views: 141

Re: Happy Birthday Rathinagiri!

Rathi, a very happy birthday to you ! And, of course, many returns!

Serge
by serge_girard
Wed Aug 16, 2017 6:05 am
Forum: HMG General Help
Topic: Hi, how do I execute the loop by step with a one-button condition using for / next or while
Replies: 14
Views: 338

Re: Hi, how do I execute the loop by step with a one-button condition using for / next or while

Jair, In the main: lSTOP := .f. + @ 600,10 BUTTON Start_STOP ; CAPTION 'Cancel' ; WIDTH 80 ; HEIGHT 30 ; ACTION {lSTOP := .T. } ; FONT "Arial" SIZE 09 ; TOOLTIP "Stop searching " ; FLAT Before the loop: lSTOP := .F. In the loop: WHILE .. DO EVENTS IF lSTOP EXIT ENDIF ENDDO This I use to stop loops! ...