Subject Re: Font Selection
From Mervyn Bick <invalid@invalid.invald>
Date Sun, 8 Sep 2019 08:58:53 +0200
Newsgroups dbase.getting-started
Attachment(s) bold_text.wfmbold_text.rep

On 2019-09-08 3:46 AM, Ivan Benttini wrote:

> Unfortunatelly the above is the way it came to me as .zip file,
> perhaps You can send it to me again, since I could  NOT unzip the format it came to me, sorry Mr. M  Bick
>

If you are using Windows 7 or Windows 10 right-click on the file in
Windows Explorer and select Extract All

If you are still using Windows XP you will need to download a program to
do the unzipping. I used to use 7-Zip.

This is a very informal newsgroup and we use first names.

Mervyn.



if file('bold_text.dbf')
// drop table bold_text
endif

if not file('bold_text.dbf')
   create table bold_text  (id autoinc,fname character(5),lname character(5), salary numeric(10,2))
    
   use bold_text
   generate 10
   scan
   if recn()%2 = 0
      replace salary with recno()*100
   else
      replace salary with recno()*150
    endif  
   endscan
   use  
endif

** END HEADER -- do not remove this line
//
// Generated on 2019-09-06
//
parameter bModal
local f
f = new bold_textForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class bold_textForm of FORM
   with (this)
      height = 16.0
      left = 24.4286
      top = 0.9091
      width = 67.7143
      text = ""
   endwith

   this.BOLD_TEXT1 = new QUERY(this)
//   this.BOLD_TEXT1.parent = this
   with (this.BOLD_TEXT1)
      left = 6.0
      width = 8.0
      height = 1.0
      sql = 'select * from "bold_text.DBF"'
      active = true
   endwith

   with (this.BOLD_TEXT1.rowset)
      onNavigate = class::ROWSET_ONNAVIGATE
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.bold_text1.rowset
      height = 7.0
      left = 4.0
      top = 2.5
      width = 56.0
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      dataLink = form.bold_text1.rowset.fields["fname"]
      height = 1.0
      left = 23.0
      top = 11.5
      width = 8.0
   endwith

   this.ENTRYFIELD2 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD2)
      dataLink = form.bold_text1.rowset.fields["lname"]
      height = 1.0
      left = 32.0
      top = 11.5
      width = 8.0
   endwith

   this.rowset = this.bold_text1.rowset

   function rowset_onNavigate(type, nRows)
      if this.fields['salary'].value >= 1000
         this.parent.parent.entryfield2.fontbold := true
      else
          this.parent.parent.entryfield2.fontbold := false
      endif      
      return

endclass



** END HEADER -- do not remove this line
//
// Generated on 2019-09-06
//
local r
r = new bold_textReport()
r.render()

class bold_textReport of REPORT
   with (this)
      autoSort = false
   endwith

   this.BOLD_TEXT1 = new QUERY()
   this.BOLD_TEXT1.parent = this
   with (this.BOLD_TEXT1)
      left = 6.0
      width = 8.0
      height = 1.0
      sql = 'select * from "bold_text.DBF"'
      requestLive = false
      active = true
   endwith

   with (this.printer)
      duplex = 1        // None
      orientation = 1        // Portrait
      paperSource = 7
      paperSize = 9
      resolution = 3        // Medium
      color = 2        // Color
      trueTypeFonts = 1        // Bitmap
   endwith

   this.PAGETEMPLATE1 = new PAGETEMPLATE(this)
   with (this.PAGETEMPLATE1)
      height = 16837.0
      width = 11905.0
      marginTop = 1080.0
      marginLeft = 1080.0
      marginBottom = 1080.0
      marginRight = 1080.0
      gridLineWidth = 0
   endwith

   this.PAGETEMPLATE1.STREAMFRAME1 = new STREAMFRAME(this.PAGETEMPLATE1)
   with (this.PAGETEMPLATE1.STREAMFRAME1)
      height = 11592.0
      left = 360.0
      top = 1365.0
      width = 9360.0
      form.STREAMFRAME1 = form.pagetemplate1.streamframe1
   endwith

   this.STREAMSOURCE1 = new STREAMSOURCE(this)
   with (this.STREAMSOURCE1.detailBand)
      height = 250.0
   endwith

   this.STREAMSOURCE1.detailBand.TITLETEXTID1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TITLETEXTID1)
      canRender = {||this.parent.firstOnFrame}
      height = 300.0
      left = 435.0
      top = 5.0
      width = 1170.0
      prefixEnable = false
      alignHorizontal = 2        // Right
      suppressIfBlank = true
      text = "<H3>Id</H3>"
   endwith

   this.STREAMSOURCE1.detailBand.TEXTID1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TEXTID1)
      height = 293.0
      left = 435.0
      top = 298.0
      width = 1170.0
      variableHeight = true
      prefixEnable = false
      alignHorizontal = 2        // Right
      text = {||this.form.bold_text1.rowset.fields["id"].value}
   endwith

   this.STREAMSOURCE1.detailBand.TITLETEXTFNAME1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TITLETEXTFNAME1)
      canRender = {||this.parent.firstOnFrame}
      height = 300.0
      left = 2370.0
      top = 20.0
      width = 780.0
      prefixEnable = false
      suppressIfBlank = true
      text = "<H3>Fname</H3>"
   endwith

   this.STREAMSOURCE1.detailBand.TEXTFNAME1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TEXTFNAME1)
      height = 293.0
      left = 2370.0
      top = 313.0
      width = 780.0
      variableHeight = true
      prefixEnable = false
      text = {||this.form.bold_text1.rowset.fields["fname"].value}
   endwith

   this.STREAMSOURCE1.detailBand.TITLETEXTLNAME1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TITLETEXTLNAME1)
      canRender = {||this.parent.firstOnFrame}
      height = 300.0
      left = 3930.0
      top = 5.0
      width = 780.0
      prefixEnable = false
      suppressIfBlank = true
      text = "<H3>Lname</H3>"
   endwith

   this.STREAMSOURCE1.detailBand.TEXTLNAME1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TEXTLNAME1)
      canRender = class::TEXTLNAME1_CANRENDER
      height = 293.0
      left = 3930.0
      top = 298.0
      width = 780.0
      variableHeight = true
      prefixEnable = false
      text = {||this.form.bold_text1.rowset.fields["lname"].value}
   endwith

   this.STREAMSOURCE1.detailBand.TITLETEXTSALARY1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TITLETEXTSALARY1)
      canRender = {||this.parent.firstOnFrame}
      height = 300.0
      left = 5760.0
      top = 5.0
      width = 1080.0
      prefixEnable = false
      alignHorizontal = 2        // Right
      suppressIfBlank = true
      text = "<H3>Salary</H3>"
   endwith

   this.STREAMSOURCE1.detailBand.TEXTSALARY1 = new TEXT(this.STREAMSOURCE1.detailBand)
   with (this.STREAMSOURCE1.detailBand.TEXTSALARY1)
      height = 293.0
      left = 5760.0
      top = 298.0
      width = 1080.0
      variableHeight = true
      prefixEnable = false
      alignHorizontal = 2        // Right
      picture = "99999999.99"
      text = {||this.form.bold_text1.rowset.fields["salary"].value}
   endwith

   with (this.reportGroup.footerBand)
      height = 250.0
   endwith

   with (this.reportGroup.headerBand)
      height = 250.0
   endwith

   this.firstPageTemplate = this.form.pagetemplate1
   this.form.pagetemplate1.nextPageTemplate = this.form.pagetemplate1
   this.form.pagetemplate1.streamframe1.streamSource = this.form.streamsource1
   this.form.streamsource1.rowset = this.form.bold_text1.rowset

   function TEXTLNAME1_canRender()
      if this.parent.textsalary1.text() >= 1000
          this.fontbold := true
      else    
           this.fontbold := false
       endif      
      return true

endclass