proc decimals_allowed {field_name dp} {
if {$field_name != ""} {
set buffer [GuidoExecServer GetFieldInformation [subst {DatabaseType = "SurveyDatabase" SurpacTableName = "survey_stations" SurpacFieldName = $field_name}]]
set FieldType [GuidoGetParamBufferValue $buffer FieldType]
if {$FieldType == "real"} {
if {[$dp getCurrentValue] == ""} {
$dp setCurrentValue 2
}
return 1
}
$dp setCurrentValue ""
return 0
}
$dp setInputAllowed 0 false
return 1
}
GuidoForm frm00267 {
-label "Display survey stations"
-default_buttons
-help_id 340
-layout BoxLayout Y_AXIS
GuidoPanel displayCriteriaPanel {
-layout CentreLineLayout
GuidoPanel p1 {
-label "Display options"
-border etched true
-layout CentreLineLayout
GuidoCheckBox rescale {
-label "Rescale"
-selected_value Y
-unselected_value N
-tip SRV_STN_DISPLAY_RESCALE_TIP
-next_focus displayTraverseConnections
}
GuidoCheckBox displayTraverseConnections {
-label "Display traverse connections"
-selected_value Y
-unselected_value N
-tip SRV_STN_DISPLAY_TRAVERSE_CONNECTIONS_TIP
-next_focus b1
}
GuidoLabel l1 {
-dependency {"[$displayTraverseConnections getCurrentValue]" == "Y"}
-label "Traverse arrow direction"
}
GuidoButtonGroupPanel traverseArrowDirection {
-layout BoxLayout X_AXIS
-dependency {"[$displayTraverseConnections getCurrentValue]" == "Y"}
GuidoRadioButton b1 {
-selected_value "forward"
-caption "Forward"
-next_focus b2
}
GuidoRadioButton b2 {
-selected_value "reverse"
-caption "Reverse"
-next_focus b3
}
GuidoRadioButton b3 {
-selected_value "none"
-caption "None"
-next_focus arrowSize
}
}
GuidoField arrowSize {
-dependency {"[$displayTraverseConnections getCurrentValue]" == "Y"}
-label "Arrow size"
-display_length 5
-max_length 10
-low_bound 0.01
-null false
-default 0.02
-format real_8
-tip SRV_ARROW_SIZE_TIP
-next_focus colourByField
}
GuidoComboBox colourByField {
-label "Field to colour stations by"
-display_length 10
-max_length 18
-exclusive true
-null true
-tip SRV_STN_DISPLAY_COLOUR_FIELD_TIP
-next_focus defaultColour
}
}
GuidoPanel p2 {
-border etched true
-label "Default rendering styles"
-layout CentreLineLayout
GuidoColourBrowserField defaultColour {
-display_length 11
-exclusive false
-label "Colour"
-max_length 32
-tip DB_SET_STYLES_COLOUR_TIP
-null false
-next_focus defaultLineStyle
}
StringLineStyles defaultLineStyle {
-label "Line style"
-width 11
-tip SRV_STN_DEFAULT_LINE_TIP
-next_focus defaultMarkerStyle
}
MarkerSymbols defaultMarkerStyle {
-label "Marker style"
-width 11
-tip SRV_STN_DEFAULT_MARKER_TIP
-next_focus fieldName
}
GuidoFiller f1 {
-height .1
}
GuidoFiller f1 {
-height .1
}
}
}
GuidoFiller f0 {
-height 1
}
GuidoScrollPane s0 {
-height 9
-label "Display labels"
-border etched true
GuidoTable styles {
-instances 1 0 9
-interactive true
GuidoComboBox fieldName {
-label "Field"
-display_length 10
-max_length 18
-exclusive true
-null true
-tip SRV_STN_DISPLAY_LABEL_FIELD_TIP
-next_focus decimals
}
GuidoField decimals {
-dependency {"[decimals_allowed [$fieldName getCurrentValue] $decimals]"}
-label "Decimals"
-display_length 4
-format integer
-max_length 4
-null false
-low_bound 0
-high_bound 5
-tip DB_COLLAR_LABELS_DP_TIP
-next_focus font
}
GuidoFontNameBrowser font {
-label "Font"
-default "Default"
-display_length 10
-max_length 128
-null false
-tip DB_LABELS_FONT_TIP
-next_focus size
}
GuidoField size {
-label "Size"
-display_length 5
-max_length 10
-low_bound 0.01
-null false
-default 0.02
-format real_8
-tip DB_FONT_SIZE_TIP
-next_focus units
}
GuidoComboBox units {
-label "Units"
-display_length 3
-max_length 3
-null false
-value_in "oru" "sru"
-default "sru"
-tip DB_FONT_SIZE_TIP
-next_focus position
}
GuidoComboBox position {
-label "Position"
-display_length 5
-max_length 5
-null false
-value_in "above" "below" "left" "right"
-default  "above"
-tip SRV_STN_DISPLAY_LABEL_POSITION_TIP
}
}
}
GuidoFiller f1 {
-height 1
}
$font updateBrowserList
set buffer [ GuidoExecServer ServerGetSelectedLegendItem { } ]
set path [GuidoGetParamBufferValue $buffer path]
if {$path > ""} {
$frm00267 setNextFocusableComponentName defaultColour
}
}
