Welcome!

Microsoft Cloud Authors: Pat Romanski, Liz McMillan, Lori MacVittie, Elizabeth White, Yeshim Deniz

Related Topics: Microsoft Cloud, PowerBuilder

Microsoft Cloud: Article

DataWindow.NET How To: DataWindow Formatting

A simple but powerful way of formatting data in the presentation layer

We also override the OnClick method. The DataWindow control doesn't natively support a click-on-column header sort operation. The overridden method uses the PFC click-on-column header code modified to work in a .NET environment.

OnClick

Protected Overrides Sub OnClick
(ByVal e As EventArgs)
Dim clickedobject As Sybase.DataWindow.ObjectAtPointer
Dim objectname, columnname, sort As String
clickedobject = MyBase.ObjectUnderMouse()
Select Case clickedobject.Band.Type
  Case Sybase.DataWindow.BandType.Header
  objectname = clickedobject.Gob.Name
   If objectname.Substring(objectname
    .Length() - 2, 2) = "_t" Or _
    objectname.Substring(objectname.
    Length() - 2, 2) = "_a" Then
    columnname = objectname.Sub
    string(0, objectname.Length() - 2)
    If columnname = sortcolumnname
   Then
   If sortorder = " A" Then
    sortorder = " D"
   Else
    sortorder = " A"
    End If
   Else
    sortcolumnname = columnname
    sortorder = " A"
   End If
   sort = sortcolumnname + sortorder
   MyBase.SetSort(sort)
   MyBase.Sort()
  End If
End Select
MyBase.OnClick(e)
End Sub

One of the main reasons for overriding the DataWindow control - other than to get it not to move when the title bar is shown - is because the DataWindow object color properties take RGB values. The system color values in the .NET framework are ARGB values (they contain an alpha component). The GetRGB method that I added converts the ARGB value to an RGB value that the DataWindow can use.

GetRGB

Public Function GetRGB(ByVal theColor As Color) As String
Dim theRGB As Long
theRGB = RGB(theColor.R(), theColor.G(), theColor.B())
Return theRGB.ToString()
End Function

The color setting methods I've added to the subclassed control accept .NET system colors and call that method internally to convert the value and then set the appropriate DataWindow object property. One example of this is the SetColumnBackColor method; the other color setting methods are similar.

SetColumnBackColor

Public Sub SetColumnBackColor
   (ByVal theColor As Color)
Dim columns As ArrayList = GetVisibleColumns()
Dim col As String
For Each col In columns
   MyBase.SetProperty(obj + ".BackGround.Mode", "0")
   MyBase.SetProperty(col + ".Background.Color", GetRGB(theColor))
Next
End Sub

One of the color settings that the DataWindow control doesn't provide native support for is to have alternating rows appear with different background colors. That's done easily enough by adding a property expression to the DataWindow object and I've added a method to the overridden control to make it simpler.

SetRowAlternatingColors

Public Sub SetRowAlternating
Colors(ByVal OddColor As Color, ByVal EvenColor As Color)
Dim columns As ArrayList = GetVisibleColumns()
Dim col, modify As String
Dim rc As Int32
modify = GetRGB(OddColor) + _~tif ( MOD( getrow(),2 )=0 ," +
GetRGB(EvenColor) + "," + GetRGB(OddColor) + ")"
For Each col In columns
   MyBase.SetProperty(obj + ".BackGround.Mode", "0")
   rc = MyBase.SetProperty(col + ".Background.Color", modify)
Next
End Sub

Similar to the issues with the .NET system colors, the .NET Framework Font is a class whereas the DataWindow has a series of independent font properties. The Font setting methods I've added to the subclassed DataWindow control accept the .NET Framework Font class and then access the individual properties. One example is the SetColumnFont method; the other font setting methods are similar.

SetColumnFont

Public Sub SetColumnFont(ByVal theFont As Font)
Dim columns As ArrayList = GetVisibleColumns()
Dim col As String
For Each col In columns
   MyBase.SetProperty(col + ".Font.Face", theFont.Name)
   MyBase.SetProperty(col + ".Font.Height", "-" + theFont.Size.ToString())
Next
End Sub

There are some helper functions defined for the subclassed control as well. One is the GetHeaderObjects method. It looks through all of the controls on the DataWindow object and determines which are static text controls in the header band.

GetHeaderObjects

Public Function GetHeaderObjects() As ArrayList
Dim objects, obj As String
Dim objarray As String()
Dim headerobjects As New ArrayList
objects = MyBase.GetProperty ("DataWindow.Objects")
objarray = objects.Split(vbTab.ToCharArray())
For Each obj In objarray
  If MyBase.GetProperty(obj + ".Type") = "text" Then
   If MyBase.GetProperty(obj + ".Band") = "header" Then
    headerobjects.Add(obj)
   End If
  End If
Next
Return headerobjects
End Function

A somewhat similar approach is used by the GetColumns method to get an array containing all of the columns in the DataWindow object.

GetColumns

Public Function GetColumns() As ArrayList
Dim i, j As Int16
j = MyBase.ColumnCount()
Dim columns As New ArrayList
Dim columnname As String
For i = 1 To j
  columnname = MyBase.GetProperty("#" + i.ToString() + ".Name")
  columns.Add(columnname)
Next
Return columns
End Function

More Stories By Bruce Armstrong

Bruce Armstrong is a development lead with Integrated Data Services (www.get-integrated.com). A charter member of TeamSybase, he has been using PowerBuilder since version 1.0.B. He was a contributing author to SYS-CON's PowerBuilder 4.0 Secrets of the Masters and the editor of SAMs' PowerBuilder 9: Advanced Client/Server Development.

Comments (11)

Share your thoughts on this story.

Add your comment
You must be signed in to add a comment. Sign-in | Register

In accordance with our Comment Policy, we encourage comments that are on topic, relevant and to-the-point. We will remove comments that include profanity, personal attacks, racial slurs, threats of violence, or other inappropriate material that violates our Terms and Conditions, and will block users who make repeated violations. We ask all readers to expect diversity of opinion and to treat one another with dignity and respect.


IoT & Smart Cities Stories
The deluge of IoT sensor data collected from connected devices and the powerful AI required to make that data actionable are giving rise to a hybrid ecosystem in which cloud, on-prem and edge processes become interweaved. Attendees will learn how emerging composable infrastructure solutions deliver the adaptive architecture needed to manage this new data reality. Machine learning algorithms can better anticipate data storms and automate resources to support surges, including fully scalable GPU-c...
Machine learning has taken residence at our cities' cores and now we can finally have "smart cities." Cities are a collection of buildings made to provide the structure and safety necessary for people to function, create and survive. Buildings are a pool of ever-changing performance data from large automated systems such as heating and cooling to the people that live and work within them. Through machine learning, buildings can optimize performance, reduce costs, and improve occupant comfort by ...
The explosion of new web/cloud/IoT-based applications and the data they generate are transforming our world right before our eyes. In this rush to adopt these new technologies, organizations are often ignoring fundamental questions concerning who owns the data and failing to ask for permission to conduct invasive surveillance of their customers. Organizations that are not transparent about how their systems gather data telemetry without offering shared data ownership risk product rejection, regu...
René Bostic is the Technical VP of the IBM Cloud Unit in North America. Enjoying her career with IBM during the modern millennial technological era, she is an expert in cloud computing, DevOps and emerging cloud technologies such as Blockchain. Her strengths and core competencies include a proven record of accomplishments in consensus building at all levels to assess, plan, and implement enterprise and cloud computing solutions. René is a member of the Society of Women Engineers (SWE) and a m...
Poor data quality and analytics drive down business value. In fact, Gartner estimated that the average financial impact of poor data quality on organizations is $9.7 million per year. But bad data is much more than a cost center. By eroding trust in information, analytics and the business decisions based on these, it is a serious impediment to digital transformation.
Digital Transformation: Preparing Cloud & IoT Security for the Age of Artificial Intelligence. As automation and artificial intelligence (AI) power solution development and delivery, many businesses need to build backend cloud capabilities. Well-poised organizations, marketing smart devices with AI and BlockChain capabilities prepare to refine compliance and regulatory capabilities in 2018. Volumes of health, financial, technical and privacy data, along with tightening compliance requirements by...
Predicting the future has never been more challenging - not because of the lack of data but because of the flood of ungoverned and risk laden information. Microsoft states that 2.5 exabytes of data are created every day. Expectations and reliance on data are being pushed to the limits, as demands around hybrid options continue to grow.
Digital Transformation and Disruption, Amazon Style - What You Can Learn. Chris Kocher is a co-founder of Grey Heron, a management and strategic marketing consulting firm. He has 25+ years in both strategic and hands-on operating experience helping executives and investors build revenues and shareholder value. He has consulted with over 130 companies on innovating with new business models, product strategies and monetization. Chris has held management positions at HP and Symantec in addition to ...
Enterprises have taken advantage of IoT to achieve important revenue and cost advantages. What is less apparent is how incumbent enterprises operating at scale have, following success with IoT, built analytic, operations management and software development capabilities - ranging from autonomous vehicles to manageable robotics installations. They have embraced these capabilities as if they were Silicon Valley startups.
As IoT continues to increase momentum, so does the associated risk. Secure Device Lifecycle Management (DLM) is ranked as one of the most important technology areas of IoT. Driving this trend is the realization that secure support for IoT devices provides companies the ability to deliver high-quality, reliable, secure offerings faster, create new revenue streams, and reduce support costs, all while building a competitive advantage in their markets. In this session, we will use customer use cases...