Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Add a comment to an Icetips ArticlePlease add your comments to this article.
Please note that you must provide both a name and a valid email address in order
for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!
Back to article list Search Articles Add Comment Printer friendly Direct link ABC: Small demo template 1998-08-09 -- Jim Dennison Newsgroups: comp.lang.clarion
> Maybe someone can help? I've been hitting my brain very hard for so long...
> Well, I'm writting a template with a #BUTTON calling another window.
> On this window I have a list box from where I can call a third window to
> insert window controls. So far so good.
>
> Now how do I generate embeds for each of these controls???
> When I compile, the code is generated only once, on only one control. It
> works but
> I also want it to generate for the other controls.
> I tried PRESERVE on the #AT, still no go. Any ideas? Here is the code:
>
> #BUTTON('My Controls...'),MULTI(%FieldList,%MyControl)
> #PROMPT('My Control:',CONTROL),%MyControl
> #ENDBUTTON
>
> #AT(%DataSection)
> #FOR(%FieldList)
> %SomeVariable string(10)
> #ENDFOR
> #ENDAT
>
> #AT(%ControlEventHandling,%MyControl,'Accepted')
> ... some generated code... (this is the part which is generated only once)
> #ENDAT
I'm not exactly sure what you are trying to accomplish, but for what it's worth
I've been racking my brain for about six weeks with a large template chain.
It would be nice if someone wrote a book on template design to help us trial
and error programmers. But maybe that's what seperates the pros from the
amateurs.
When you do finaly break the down the wall you've been hitting your head
against and get your template to work, it's really exciting!
Anyway for whatever it's worth heres's a group of buttons for forms, browses, reports, etc
with my embeded source code. I extracted this control template from my chain, which contains
Window Templates, Code Templates, Extension Templates, Control Templates etc.
All of the code below works, maybe it will help:
#CONTROL (QueryBrowseButtons, 'Browse Query, Reset, & Report Buttons')
CONTROLS
BUTTON('&Query'),AT(,,45,14),USE(?QueryButton)
BUTTON('&Reset'),AT(50,0,45,14),USE(?ResetButton)
BUTTON('Query Re&port'),AT(50,0,57,14),USE(?QueryReportButton)
END
#BOXED ('Query Template')
#DISPLAY (' Select An Existing Query Window Procedure')
#DISPLAY (' Or Enter A Unique Name For A New Query Window.')
#DISPLAY ('')
#PROMPT ('Query Window Procedure:', PROCEDURE), %SelectQueryWindowName, REQ
#PROMPT ('Select Report For Query:', PROCEDURE), %ReportProcedure
#ENDBOXED
#AT (%ControlEventHandling, '?QueryButton', 'Accepted')
%SelectQueryWindowName !QueryWindow
If QueryString
Brw1.SetFilter(QueryString)
Else
Brw1.SetFilter(QueryString)
End
ThisWindow.Reset(True)
ENABLE(?ResetButton)
#ENDAT
#AT (%ControlEventHandling, '?ResetButton', 'Accepted')
Clear(QueryString)
DISPLAY
If QueryString
Brw1.SetFilter(QueryString)
Else
Brw1.SetFilter(QueryString)
End
ThisWindow.Reset(True)
IF NOT QueryString
DISABLE(?ResetButton)
ELSE
ENABLE(?ResetButton)
END
#ENDAT
#AT (%ControlEventHandling, '?QueryReportButton', 'Accepted')
%ReportProcedure
#ENDAT
#CONTROL (QueryFormButton, 'Button to Save Query')
CONTROLS
BUTTON('&Use Query String'),AT(,,75,14),USE(?UseQueryStringButton)
END
#BOXED (' Save Query Form Button')
#DISPLAY ('There are no prompts for this Template.')
#ENDBOXED
#AT (%ControlEventHandling, '?UseQueryStringButton', 'Accepted')
Que:Query = QueryString
Display()
#ENDAT
#!-----------------------------------------------------------------------
#EXTENSION ('ReportQuery')
#BOXED (' Report Query Extension')
#DISPLAY ('There are no Prompts for this Template.')
#ENDBOXED
#AT (%WindowManagerMethodCodeSection, 'Open', '()'), PRIORITY(4000)
SELF.PROCESS.SetFilter(QueryString)
#ENDAT
#!--------------------------------------------------------------------
Today is November 21, 2024, 7:09 am This article has been viewed 35396 times. Google search has resulted in 51 hits on this article since January 25, 2004.
|
|