From Mark Goldberg:

OK A little ClarionQuiz, designed for folks who've:

+ written few if any classes

+ written few if any API calls

(*)Write ctWindowHelper (inc & clw) so that the code below works.

Suggestion: first write the .OnTop method so that it only displays a message with it's argument that will split out the "class" part from the "api" part as to the API: you can use this one depending on how much you want to push yourself, you can either figure out the api on your own or you can use this link:

http://msdn.microsoft.com/en-us/library/windows/desktop/ms633545(v=vs.85).aspx

that api and it's equates are defined inside of clarion\libsrc\win

or maybe see if you can prototype it yourself...

Mark Goldberg, Monday October 12 2014


[Monday, October 13, 2014 5:36 AM] Mark Goldberg:
 
<<<
 
PROGRAM
 MAP
   MyProc()
 END
 INCLUDE('ctWindowHelper.inc'),once
 oWindowHelper  ctWindowHelper
 CODE
 START(MyProc)
 
MyProc  PROCEDURE()
UI:IsOnTop BOOL(FALSE)
MyWindow WINDOW('Test Window')
                 CHECK('Is On Top'),USE(UI:IsOnTop),AT(10,10)
             END
  CODE
  OPEN(MyWindow)
  ACCEPT
    CASE ACCEPTED()
        OF ?UI:IsOnTop;  MESSAGE('UI:IsOnTop['& UI:IsOnTop &']')
                                  oWindowHelper.OnTop( UI:IsOnTop )
    END
  END
 
 





comments powered by Disqus