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.wfm, bold_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
|