IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Report title option

Browse Source
This commit is contained in:
flywire 2023-02-06 00:39:07 +11:00
parent f53f760c18
commit cc97783a2a
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnucash/report/reports/example/sample-report.scm
View File

@ -34,6 +34,10 @@
(debug-enable 'backtrace) (debug-enable 'backtrace)
;; initialise values
(define optname-report-title (N_ "Report Title"))
(define opthelp-report-title (N_ "Title for this report."))
;; This function will generate a set of options that GnuCash ;; This function will generate a set of options that GnuCash
;; will use to display a dialog where the user can select ;; will use to display a dialog where the user can select
;; values for your report's parameters. ;; values for your report's parameters.
@ -163,6 +167,12 @@ Your reports probably shouldn't have an \
option like this.") option like this.")
#f) #f)
;; This is a Report Title option using constants defined at the
;; beginning of the file.
(gnc-register-string-option optiondb
(N_ "Testing") optname-report-title
"c" opthelp-report-title (N_ "Report Title Default"))
;; Setting a default section is optional but set in most reports. ;; Setting a default section is optional but set in most reports.
;; If not set, the default section will be the first section. ;; If not set, the default section will be the first section.
(gnc:options-set-default-section options "Tab B") (gnc:options-set-default-section options "Tab B")
@ -200,6 +210,7 @@ option like this.")
(list-val (op-value "Tab A" "A list option")) (list-val (op-value "Tab A" "A list option"))
(radio-val (op-value "Tab A" "A Radio Button option")) (radio-val (op-value "Tab A" "A Radio Button option"))
(crash-val (op-value "Testing" "Crash the report")) (crash-val (op-value "Testing" "Crash the report"))
(report-title (op-value "Testing" optname-report-title))
;; document will be the HTML document that we return. ;; document will be the HTML document that we return.
(document (gnc:make-html-document))) (document (gnc:make-html-document)))
@ -263,7 +274,7 @@ option like this.")
;; translation of the given string is available for the ;; translation of the given string is available for the
;; current locale, then the translation is returned, ;; current locale, then the translation is returned,
;; otherwise the original string is returned. ;; otherwise the original string is returned.
(gnc:html-document-set-title! document (G_ "Report Title")) (gnc:html-document-set-title! document report-title)
;; we make a "text object" to add a bunch of text to. ;; we make a "text object" to add a bunch of text to.
;; the function gnc:make-html-text can take any number of ;; the function gnc:make-html-text can take any number of