On 2015-07-23 11:04, Tracy Pearson wrote:
Mike,
We wanted a consistent look/feel of the toolbars. There is a custom
report
module in our system. One way to be sure the toolbars appear docked at
the
top each time is to set them in a Resource file. Another way would be
to
programmatically put them in place. Which causes screen flashes.
There is a bit of code around setting the resource file. That code also
corrects the preview/edit window opening to fill the _Screen space.
Tracy Pearson
PowerChurch Software
I standardized my reporting 10 years ago with Fred Taylor's code:
PROCEDURE ShowReport(tcCursor as String, tcRpt as String, tcCaption as
String, tlSkipPreview as Logical, tlSkipPrompt as Logical, tlCloseAfter
as Logical)
* mjb 01-24-05 using Fred Taylor's idea for showing report inside max
window (courtesy ProFox archives)
* mjb 04-04-06 added tlSkipPreview and tlSkipPrompt clauses
* mjb 05-13-07 added tcCursor
* mjb 05-15-07 added tlCloseAfter
LOCAL loFrm as Form, loException as Exception
CLEAR && mjb 04-12-06 get rid of any screen echos
TRY
IF !tlSkipPreview THEN
loFrm = CREATEOBJECT("Form")
WITH loFrm
.Caption = tcCaption
.WindowState = 2 && Maximized
.Show()
SELECT (tcCursor)
IF !tlSkipPrompt THEN
REPORT FORM (tcRpt) TO PRINTER PROMPT NOCONSOLE PREVIEW WINDOW
(.Name)
ELSE
REPORT FORM (tcRpt) TO PRINTER
NOCONSOLE PREVIEW WINDOW (.Name)
ENDIF && !tlSkipPrompt
ENDWITH && loFrm
loFrm.Release()
ELSE && no preview window (form)
IF !tlSkipPrompt THEN
REPORT FORM (tcRpt) TO PRINTER PROMPT NOCONSOLE
ELSE
REPORT FORM (tcRpt) TO PRINTER NOCONSOLE
ENDIF && !tlSkipPrompt
ENDIF && !tlSkipPreview
CATCH TO loException
MESSAGEBOX(loException.Message,16,oUtils.Get_Translation("Problem
generating report."))
FINALLY
IF tlCloseAfter THEN
USE IN (SELECT(tcCursor))
ENDIF && tlCloseAfter
ENDTRY
ENDPROC && ShowReport(tcRpt as String, tcCaption as String,
tlSkipPreview as Logical, tlSkipPrompt as Logical, tlCloseAfter as
Logical)
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
