PowerBuilder 中12种类型的行选择指示图标

来源：互联网发布：名爵mg3轮毂数据参数编辑：程序博客网时间：2024/05/02 12:25

本技巧讲述了在PB脚本中创建12种行选择指示图标：包括颜色条、凸起的文本以及标准的PB行选择指示图标，函数中包括在运行时建立、删除、修改指示图标等功能。

/*-----------------------------------------------

FUNCTION:
- boolean SetRfi(datawindow adw, int ai_rfi_cd)

PURPOSE/FUNCTIONALITY:
- Create ColorBand or RaisedTextBand to
serve as RowFocusIndicator for a Grid/Tabular
DataWindow.

- Switch Off/Destroy previously created
RowFocusIndicator

ARGUMENTS:
- adw : datawindow reference
- ai_rfi_cd : type of RowFocusIndicator to be set.

legal values: 0 to 12
0=Switch Off/Destroy

RETURNS:
- bool. True=Successful, False=Failed

HOW TO USE?
- Create this function as a window function or as a function

in a NVO with two arguments as under:
1. datawindow adw ... by value
2. integer ai_rfi_cd ... by value

and with boolean return
- If created as a function/event of datawindow, arument-1 (adw) is
not required. (Use "This" in lieu of "adw")
- Call it after dataobject is assigned to dataWindowControl.

- Function Call Example:
This.SetRfi(dw, 7)

- if created as a window function and called from the window,
assuming dataWindowControl is names as dw.

------------------------------------------------------------------------

Author:
Rajnikant Puranik/Nov.8,1998
email:puranik@bom2.vsnl.net.in

------------------------------------------------------------------------
NO BAR ON USAGE
*/

string ls_h, ls_err, ls_msg, ls_mod, ls_obj
string ls_bg_colour //background color
long ll_width //width of band

ll_width = Long(adw.Object.DataWindow.HorizontalScrollMaximum)

//ai_rfi_cd = Integer Code for type of SetRowFocusIndicator
CHOOSE CASE ai_rfi_cd
   CASE 0 //No RowFocusIndicator
      adw.SetRowFocusIndicator(Off!)
      //Destroy Previously created RowFocusIndicator Rectangle
      //named "rf_rect"
      ls_obj = adw.Object.DataWindow.Objects
      if Pos(ls_obj, "rf_rect") > 0 then
         ls_mod = "destroy rf_rect"
         ls_err = adw.Modify(ls_mod)
         if ls_err <> "" then
            ls_err = "Modify Error:" + ls_err
            PopulateError(-1, ls_err)
            goto lbl_err
         end if
      end if

CASE 1
adw.SetRowFocusIndicator(Hand!)

CASE 2
adw.SetRowFocusIndicator(FocusRect!)

   CASE 4 to 11
      /*
      CREATE COLORED BAND/RECTANGLE NAMED : rf_rect

      It is preferable to define colors and other
      constants in a global NVO. e.g.:
         constant long LIGHT_YELLOW = RGB(255, 255, 200)

      In case the NVO is named gc ("g" fot Global
      and "c" fot constants).   then one could
      substitute below:
      ls_bg_colour = string(RGB(255, 255, 200))
      by
      ls_bg_colour = string(gc.LIGHT_YELLOW)
*/

      CHOOSE CASE ai_rfi_cd
         CASE 4
            ls_bg_colour = string(RGB(255, 255, 255)) //WHITE

CASE 5
ls_bg_colour = string(RGB(217, 217, 217)) //LIGHTER GRAY

CASE 6
ls_bg_colour = string(RGB(192, 192, 192)) //LIGHT GRAY

CASE 7
ls_bg_colour = string(RGB(255, 255, 200)) //LIGHT YELLOW

CASE 8
ls_bg_colour = string(RGB(255, 179, 217)) //LIGHT PINK

CASE 9
ls_bg_colour = string(RGB(140, 200, 200)) //LIGHT GREEN

CASE 10
ls_bg_colour = string(RGB(255, 211, 168)) //LIGHT ORANGE

CASE 11
ls_bg_colour = string(RGB(200, 255, 255)) //LIGHT BLUE

END CHOOSE
ll_width += adw.width

      //Create Rectangle String
      ls_mod = "Create Rectangle(band=detail" + &
      " x='" + string(adw.X) + "'" +&
      " y='0'" +&
      " height='80~t if(1=1, RowHeight(), 80)'" +&
      " width='" + string(ll_width) + "'" +&
      " name=rf_rect " +&
      " visible='1~t if(currentrow() = getrow(), 1, 0)'" +&
      " brush.hatch='6'" + &
      " brush.color='" + ls_bg_colour + "'" +&
      " pen.style='0'" +&
      " pen.width='5'" +&
      " pen.color='" + string(gc.BLACK) + "'" +&
      " background.mode='2'" +&
      " background.color='0'" +&
      ")"

   CASE 12
      if adw.VscrollBar then
         ll_width += adw.width - 130
      else
         ll_width += adw.width - 20
      end if
      //create string for raised text rectangle named : rf_rect
      ls_mod = "create text(band=Detail" +&
      " color='0'" +&
      " border='6'" +&
      " x='" + string(adw.X + 10) + "'" +&
      " y='0'" +&
      " height='80~t if(1=1, RowHeight() - 5, 80)'" +&
      " width='" + string(ll_width) + "'" +&
      " text=''" +&
      " name=rf_rect" +&
      " visible='1~t if(currentrow() = getrow(), 1, 0)'" +&
      " background.mode='2'" +&
      " background.color='12632256'" +&
      " )"

   CASE ELSE
      ls_err = "Illegal Option: " + String(ai_rfi_cd) + " !"
      PopulateError(-1, ls_err)
      goto lbl_err
END CHOOSE

CHOOSE CASE ai_rfi_cd
CASE 4 to 12
ls_err = adw.Modify(ls_mod)

      if ls_err <> "" then
         ls_err = "Modify Error:" + ls_err
         PopulateError(-1, ls_err)
         goto lbl_err
      end if

      if adw.SetPosition("rf_rect", "detail", FALSE) <> 1 then
         ls_err = "SetPosition Error."
         PopulateError(-1, ls_err)
         goto lbl_err
      end if
END CHOOSE

return true

//-------------------------------------------------------------------
lbl_err:

ls_msg = error.Text + ". " +&
"Error/Msg No.=" + String(error.Number) + "; " +&
"Window/Menu=" + error.WindowMenu + "; " +&
"Object=" + error.Object + "; " +&
"ObjectEvent=" + error.Object + "; " +&
"Error Line No.=" + String(error.Line) + "."

MessageBox("Message/Error", ls_msg, Exclamation!)

return false

■完