WEB UI 2.0

[unixkd]

Hi all,

Has anybody experience of web ui with probably samples and screen shorts ?

Thanks.

Joe

[rdonnay]

This is based on DC_XbpHtmlStyle().

I really haven't worked with this yet, but I will look at it this weekend and give me preliminary report.

[rdonnay]

Here is my first attempt trying to style a DCPUSHBUTTON. It doesn't seem to respect the "hover" correctly.
I think that XbpHtmlStyle() hasn't really been finished.
I am communicating with Alaska on this.

Code: Select all

#INCLUDE "dcdialog.CH"

#if XPPVER > 02000000
#Pragma Library("xppwui.lib")
#endif


FUNCTION Main()

LOCAL GetList[0], oStyle, cCSS

TEXT INTO cCSS WRAP
<style>
 div {
    text-align:center;
    height: 100%;
    vertical-align:middle;
    border: 1px goldenrod solid;
    font-size:16px;
 }
 #gradient-color {
    background-color:navajowhite gold khaki lemonchiffon;
 }
 #gradient-color:hover {
    background-color:lemonchiffon;
 }
 #gradient-color:active {
    background-color:navajowhite gold khaki lemonchiffon;
    border: 2px red solid;
 }
</style>
ENDTEXT

oStyle := XbpHTMLStyle():New( cCSS )

@ 0,0 DCPUSHBUTTON CAPTION '<div id="gradient-color">Button 2</div>' ;
      SIZE 30, 4 ;
      PREEVAL {|o|o:visualStyle := oStyle}

DCREAD GUI FIT TITLE 'Button Test'

RETURN nil

* ------------

PROC appsys ; RETURN