|
open
|
|
|
Full name
|
pfc_w_pagesetup.open
|
|
Access
|
public
|
|
Extend of
|
|
|
Return value
|
|
|
Prototype
|
event open()
|
|
Name
|
Datatype
|
li_cnt
|
integer
|
|
li_papersizeupper
|
integer
|
|
li_papersourceupper
|
integer
|
|
li_position
|
integer
|
event open;call w_response::open;//////////////////////////////////////////////////////////////////////////////////////////
//
// Event: Open
//
// Description: Initialize window based on pagesetup structure passed in
//
//////////////////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 5.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996-1997 Sybase, Inc. and its subsidiaries. All rights reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////////////////
integer li_papersourceupper
integer li_papersizeupper
integer li_cnt
integer li_position
ib_disableclosequery = true
gb_paper.SetPosition (ToBottom!)
gb_orientation.SetPosition (ToBottom!)
gb_margins.SetPosition (ToBottom!)
// Get the passed in pagesetup structure
istr_pagesetup = Message.PowerObjectParm
// Margins
gb_margins.enabled = not istr_pagesetup.b_disablemargins
em_left.enabled = not istr_pagesetup.b_disablemargins
em_right.enabled = not istr_pagesetup.b_disablemargins
em_top.enabled = not istr_pagesetup.b_disablemargins
em_bottom.enabled = not istr_pagesetup.b_disablemargins
st_left.enabled = not istr_pagesetup.b_disablemargins
st_right.enabled = not istr_pagesetup.b_disablemargins
st_top.enabled = not istr_pagesetup.b_disablemargins
st_bottom.enabled = not istr_pagesetup.b_disablemargins
// Allow for 1/1000 inch, centimeter
if istr_pagesetup.i_units >=2 then
istr_pagesetup.i_marginleft = istr_pagesetup.i_marginleft / 1000
istr_pagesetup.i_marginright = istr_pagesetup.i_marginright / 1000
istr_pagesetup.i_margintop = istr_pagesetup.i_margintop / 1000
istr_pagesetup.i_marginbottom = istr_pagesetup.i_marginbottom / 1000
if istr_pagesetup.i_units = 2 then
gb_margins.text = gb_margins.text + " (inches)"
elseif istr_pagesetup.i_units = 3 then
gb_margins.text = gb_margins.text + " (centimeters)"
end if
end if
em_left.text = String (istr_pagesetup.i_marginleft)
em_right.text = String (istr_pagesetup.i_marginright)
em_top.text = String (istr_pagesetup.i_margintop)
em_bottom.text = String (istr_pagesetup.i_marginbottom)
// Orientation
gb_orientation.enabled = not istr_pagesetup.b_disableorientation
rb_landscape.enabled = not istr_pagesetup.b_disableorientation
rb_portrait.enabled = not istr_pagesetup.b_disableorientation
if IsNull (istr_pagesetup.b_portraitorientation) then
rb_landscape.checked = false
rb_portrait.checked = false
else
rb_landscape.Checked = not istr_pagesetup.b_portraitorientation
rb_portrait.Checked = istr_pagesetup.b_portraitorientation
end if
// Paper
gb_paper.enabled = not istr_pagesetup.b_disablepaper
ddlb_size.enabled = not istr_pagesetup.b_disablepaper
ddlb_source.enabled = not istr_pagesetup.b_disablepaper
st_size.enabled = not istr_pagesetup.b_disablepaper
st_source.enabled = not istr_pagesetup.b_disablepaper
// Default paper sizes
li_papersizeupper = UpperBound (istr_pagesetup.str_papersize)
if li_papersizeupper <= 0 then
istr_pagesetup.str_papersize[1].s_type = "Default"
istr_pagesetup.str_papersize[2].s_type = "Letter 8 1/2 x 11 in"
istr_pagesetup.str_papersize[3].s_type = "LetterSmall 8 1/2 x 11 in"
istr_pagesetup.str_papersize[4].s_type = "Tabloid 17 x 11 in"
istr_pagesetup.str_papersize[5].s_type = "Ledger 17 x 11 in"
istr_pagesetup.str_papersize[6].s_type = "Legal 8 1/2 x 14 in"
istr_pagesetup.str_papersize[7].s_type = "Statement 5 1/2 x 8 1/2 in"
istr_pagesetup.str_papersize[8].s_type = "Executive 7 1/4 x 10 1/2 in"
istr_pagesetup.str_papersize[9].s_type = "A3 297 x 420 mm"
istr_pagesetup.str_papersize[10].s_type = "A4 210 x 297 mm"
istr_pagesetup.str_papersize[11].s_type = "A4 Small 210 x 297 mm"
istr_pagesetup.str_papersize[12].s_type = "A5 148 x 210 mm"
istr_pagesetup.str_papersize[13].s_type = "B4 250 x 354"
istr_pagesetup.str_papersize[14].s_type = "B5 182 x 257 mm"
istr_pagesetup.str_papersize[15].s_type = "Folio 8 1/2 x 13 in"
istr_pagesetup.str_papersize[16].s_type = "Quarto 215 x 275 mm"
istr_pagesetup.str_papersize[17].s_type = "10 x 14 in"
istr_pagesetup.str_papersize[18].s_type = "11 x 17 in"
istr_pagesetup.str_papersize[19].s_type = "Note 8 1/2 x 11 in"
istr_pagesetup.str_papersize[20].s_type = "Envelope #9 3 7/8 x 8 7/8"
istr_pagesetup.str_papersize[21].s_type = "Envelope #10 4 1/8 x 9 1/2"
istr_pagesetup.str_papersize[22].s_type = "Envelope #11 4 1/2 x 10 3/8"
istr_pagesetup.str_papersize[23].s_type = "Envelope #12 4 x 11 1/276"
istr_pagesetup.str_papersize[24].s_type = "Envelope #14 5 x 11 1/2"
istr_pagesetup.str_papersize[25].s_type = "C size sheet"
istr_pagesetup.str_papersize[26].s_type = "D size sheet"
istr_pagesetup.str_papersize[27].s_type = "E size sheet"
istr_pagesetup.str_papersize[28].s_type = "Envelope DL 110 x 220 mm"
istr_pagesetup.str_papersize[29].s_type = "Envelope C5 162 x 229 mm"
istr_pagesetup.str_papersize[30].s_type = "Envelope C3 324 x 458 mm"
istr_pagesetup.str_papersize[31].s_type = "Envelope C4 229 x 324 mm"
istr_pagesetup.str_papersize[32].s_type = "Envelope C6 114 x 162 mm"
istr_pagesetup.str_papersize[33].s_type = "Envelope C65 114 x 229 mm"
istr_pagesetup.str_papersize[34].s_type = "Envelope B4 250 x 353 mm"
istr_pagesetup.str_papersize[35].s_type = "Envelope B5 176 x 250 mm"
istr_pagesetup.str_papersize[36].s_type = "Envelope B6 176 x 125 mm"
istr_pagesetup.str_papersize[37].s_type = "Envelope 110 x 230 mm"
istr_pagesetup.str_papersize[38].s_type = "Envelope Monarch 3.875 x 7.5 in"
istr_pagesetup.str_papersize[39].s_type = "6 3/4 Envelope 3 5/8 x 6 1/2 in"
istr_pagesetup.str_papersize[40].s_type = "US Std Fanfold 14 7/8 x 11 in"
istr_pagesetup.str_papersize[41].s_type = "German Std Fanfold 8 1/2 x 12 in"
istr_pagesetup.str_papersize[42].s_type = "German Legal Fanfold 8 1/2 x 13 in"
for li_cnt = 1 to 42
istr_pagesetup.str_papersize[li_cnt].i_val = li_cnt - 1
next
end if
li_papersizeupper = UpperBound (istr_pagesetup.str_papersize)
for li_cnt = 1 to li_papersizeupper
li_position = ddlb_size.AddItem (istr_pagesetup.str_papersize[li_cnt].s_type)
if li_position > 0 then
if istr_pagesetup.str_papersize[li_cnt].i_val = istr_pagesetup.i_papersize then
ddlb_size.SelectItem (li_position)
end if
end if
next
// Paper source defaults
li_papersourceupper = UpperBound (istr_pagesetup.str_papersource)
if li_papersourceupper <= 0 then
istr_pagesetup.str_papersource[1].s_type = "Default"
istr_pagesetup.str_papersource[2].s_type = "Upper"
istr_pagesetup.str_papersource[3].s_type = "Lower"
istr_pagesetup.str_papersource[4].s_type = "Middle"
istr_pagesetup.str_papersource[5].s_type = "Manual"
istr_pagesetup.str_papersource[6].s_type = "Envelope"
istr_pagesetup.str_papersource[7].s_type = "Envelope manual"
istr_pagesetup.str_papersource[8].s_type = "Auto"
istr_pagesetup.str_papersource[9].s_type = "Tractor"
istr_pagesetup.str_papersource[10].s_type = "Smallfmt"
istr_pagesetup.str_papersource[11].s_type = "Largefmt"
istr_pagesetup.str_papersource[12].s_type = "Large capacity"
istr_pagesetup.str_papersource[13].s_type = "Cassette"
for li_cnt = 1 to 13
istr_pagesetup.str_papersource[li_cnt].i_val = li_cnt - 1
next
end if
li_papersourceupper = UpperBound (istr_pagesetup.str_papersource)
for li_cnt = 1 to li_papersourceupper
li_position = ddlb_source.AddItem (istr_pagesetup.str_papersource[li_cnt].s_type)
if li_position > 0 then
if istr_pagesetup.str_papersource[li_cnt].i_val = istr_pagesetup.i_papersource then
ddlb_source.SelectItem (li_position)
end if
end if
next
end event
|
Name
|
Owner
|
 dragobject.setposition |
dragobject
|
|
dropdownlistbox.additem |
dropdownlistbox
|
|
dropdownlistbox.selectitem |
dropdownlistbox
|
|
systemfunctions.isnull |
systemfunctions
|
|
systemfunctions.string |
systemfunctions
|
|
systemfunctions.upperbound |
systemfunctions
|
|
pfc_w_master.open |
pfc_w_master
|
pfcapsrv.pbl
> 
pfc_w_pagesetup
> 
s_paperattrib
pfc_u_st
pfc_w_pagesetup.gb_margins
demopfc