Functions
	_bit_test ($v, $t)

	_scale_controls ($c)

	_scale_dialog ($c)

	_trim_quotes ($str)

	parse_rc ($rc, $winvar=' $mainwin', $parent=null, $type="AppWindow", $caption=null, $x=WBC_CENTER, $y=WBC_CENTER, $width=WBC_CENTER, $height=WBC_CENTER, $style=0, $lparam=0, $respath=PATH_RES)

Variables
const	BS_AUTOCHECKBOX 0x03

const	BS_AUTORADIOBUTTON 0x09

const	BS_BITMAP 0x80

const	BS_CHECKBOX 0x02

const	BS_GROUPBOX 0x07

const	BS_ICON 0x40

const	BS_PUSHBUTTON 0x00

const	BS_RADIOBUTTON 0x04

const	CBS_DROPDOWNLIST 3

const	CBS_SORT 0x100

const	ES_CENTER 0x01

const	ES_LEFT 0x0

const	ES_MULTILINE 0x04

const	ES_NUMBER 0x2000

const	ES_PASSWORD 0x20

const	ES_READONLY 0x0800

const	ES_RIGHT 0x02

const	ES_UPPERCASE 0x08

const	LBS_SORT 2

const	LVS_CHECKBOXES 0x00000800

const	LVS_GRIDLINES 0x00800000

const	LVS_NOSORTHEADER 0x00008000

const	LVS_SINGLESEL 0x00000004

const	SS_BITMAP 0x0E

const	SS_CENTER 0x01

const	SS_ETCHEDFRAME 0x12

const	SS_ETCHEDHORZ 0x10

const	SS_ETCHEDVERT 0x11

const	SS_ICON 0x03

const	SS_LEFT 0x00

const	SS_LEFTNOWORDWRAP 0x0C

const	SS_RIGHT 0x02

const	SS_WORDELLIPSIS 0xC000

const	TBS_AUTOTICKS 1

const	WB_KX_SCREEN 1.498

const	WB_KY_SCREEN 1.625

const	WS_DISABLED 0x08000000

const	WS_EX_STATICEDGE 0x00020000

const	WS_GROUP 0x00020000

const	WS_VISIBLE 0x10000000

Function Documentation

◆ _bit_test()

_bit_test	(		$v,
			$t )

Definition at line 487 of file wb_resources.inc.php.

{
    return (($v & $t) == $t);
}

Referenced by _scale_controls().

Here is the caller graph for this function:

◆ _scale_controls()

_scale_controls ( $c )

Definition at line 245 of file wb_resources.inc.php.

{
    global $_tabN, $path_res;
 
    $winclass = $c[3];
    $winstyle = hexdec($c[4]);
    $winexstyle = hexdec($c[9]);
 
    if(_bit_test($winstyle, WS_VISIBLE))
        $style = "WBC_VISIBLE";
    else
        $style = "WBC_INVISIBLE";
 
    if(_bit_test($winstyle, WS_DISABLED))
        $style .= " | WBC_DISABLED";
    else
        $style .= " | WBC_ENABLED";
 
    if(_bit_test($winexstyle, WS_EX_STATICEDGE))
        $style .= " | WBC_BORDER";
 
    // Set attributes according to control class
 
    switch(strtolower($winclass)) {
 
        case '"button"':
 
            switch($winstyle & 0x0F) {
                case BS_AUTORADIOBUTTON:
                case BS_RADIOBUTTON:
                    $class = "RadioButton";
                    if(_bit_test($winstyle, WS_GROUP))
                        $style .= " | WBC_GROUP";
                    break;
                case BS_AUTOCHECKBOX:
                case BS_CHECKBOX:
                    $class = "CheckBox";
                    break;
                case BS_GROUPBOX:
                    $class = "Frame";
                    break;
                case BS_PUSHBUTTON:
                default:
                    $class = "PushButton";
                    break;
            }
            break;
 
        case '"static"':
 
            switch($winstyle & 0x1F) {
                case SS_ICON:
                case SS_BITMAP:
                    $style .= " | WBC_IMAGE | WBC_CENTER";
                    $class = "Frame";
                    break;
                case SS_ETCHEDHORZ:
                case SS_ETCHEDVERT:
                case SS_ETCHEDFRAME:
                    $class = "Frame";
                    break;
                case SS_CENTER:
                    if(_bit_test($winstyle, SS_WORDELLIPSIS))
                        $style .= " | WBC_ELLIPSIS";
                    $style .= " | WBC_CENTER";
                    $class = "Label";
                    break;
                case SS_RIGHT:
                    if(_bit_test($winstyle, SS_WORDELLIPSIS))
                        $style .= " | WBC_ELLIPSIS";
                    $style .= " | WBC_RIGHT";
                    $class = "Label";
                    break;
                case SS_LEFT:
                default:
                    if(!_bit_test($winstyle, SS_LEFTNOWORDWRAP))
                        $style .= " | WBC_MULTILINE";
                    if(_bit_test($winstyle, SS_WORDELLIPSIS))
                        $style .= " | WBC_ELLIPSIS";
                    $class = "Label";
                    break;
            }
            break;
 
        case '"edit"':
            $class = "EditBox";
            if(_bit_test($winstyle, ES_MULTILINE)) {
                $style .= " | WBC_MULTILINE";
            } else {
                switch($winstyle & 0x03) {
                    case ES_CENTER:
                        $style .= " | WBC_CENTER";
                        break;
                    case ES_RIGHT:
                        $style .= " | WBC_RIGHT";
                        break;
                    case ES_LEFT:
                    default:
                        break;
                }
            }
            if(_bit_test($winstyle, ES_READONLY))
                $style .= " | WBC_READONLY";
            if(_bit_test($winstyle, ES_PASSWORD))
                $style .= " | WBC_MASKED";
            if(_bit_test($winstyle, ES_NUMBER))
                $style .= " | WBC_NUMBER";
            break;
 
        case '"richedit20a"':
            if(_bit_test($winstyle, ES_READONLY))
                $style .= " | WBC_READONLY";
            $class = "RTFEditBox";
            switch($winstyle & 0x03) {
                case ES_CENTER:
                    $style .= " | WBC_CENTER";
                    break;
                case ES_RIGHT:
                    $style .= " | WBC_RIGHT";
                    break;
                case ES_LEFT:
                default:
                    break;
            }
            break;
 
        case '"combobox"':
            $class = "ComboBox";
            if(_bit_test($winstyle, CBS_SORT))
                $style .= " | WBC_SORT";
            if(_bit_test($winstyle, CBS_DROPDOWNLIST))
                $style .= " | WBC_READONLY";
            break;
 
        case '"listbox"':
            $class = "ListBox";
            if(_bit_test($winstyle, LBS_SORT))
                $style .= " | WBC_SORT";
            break;
 
        case '"scrollbar"':
            $class = "ScrollBar";
            break;
 
        case '"syslistview32"':
            $class = "ListView";
            if(!_bit_test($winstyle, LVS_NOSORTHEADER))
                $style .= " | WBC_SORT";
            if(_bit_test($winstyle, LVS_GRIDLINES))
                $style .= " | WBC_LINES";
            if(_bit_test($winstyle, LVS_CHECKBOXES))
                $style .= " | WBC_CHECKBOXES";
            if(!_bit_test($winstyle, LVS_SINGLESEL))
                $style .= " | WBC_SINGLE";
            break;
 
        case '"systabcontrol32"':
            $class = "TabControl";
            break;
 
        case '"systreeview32"':
            $class = "TreeView";
            break;
 
        case '"toolbarwindow32"':
            $class = "ToolBar";
            break;
 
        case '"msctls_progress32"':
            $class = "Gauge";
            break;
 
        case '"msctls_statusbar32"':
            $class = "StatusBar";
            break;
 
        case '"sysmonthcal32"':
            $class = "Calendar";
            break;
 
        case '"msctls_trackbar32"':
            $class = "Slider";
            if(_bit_test($winstyle, TBS_AUTOTICKS))
                $style .= " | WBC_LINES";
            break;
 
        case '"msctls_updown32"':
            $class = "Spinner";
            if(_bit_test($winstyle, WS_GROUP))
                $style .= " | WBC_GROUP";
            break;
    }
 
    // Convert Windows style to WinBinder style
 
    $str = "wb_create_control(" .
        "%WINVAR%, " .                              // Parent
        $class . ", " .                             // Class
        $c[1] . ", " .                              // Caption
        (int)($c[5] * WB_KX_SCREEN) . ", " .        // Left
        (int)($c[6] * WB_KY_SCREEN) . ", " .        // Top
        (int)($c[7] * WB_KX_SCREEN) . ", " .        // Width
        (int)($c[8] * WB_KY_SCREEN) . ", " .        // Height
        $c[2] . ", " .                              // ID
        $style . ", " .                             // Style
        "0" .                                       // Param
        ($_tabN ? ", " . ($_tabN - 1) . ");\n" : ");\n");   // Tab #
 
    // Add some attributes to controls where needed
 
    switch($class) {
 
        case "Frame":
 
            if(strstr($style, "WBC_IMAGE")) {
                if(($winstyle & (SS_BITMAP | SS_ICON)) && ($c[1] !== '""')) {
                    $image = $path_res . _trim_quotes($c[1]);
                    if(preg_match("/\.(bmp|ico)$/", $image))
                        $str = "\$_tmp_ctrl_ = " . $str . "wb_set_image(\$_tmp_ctrl_, '$image', GREEN);" . " unset(\$_tmp_ctrl_);\n";
                }
            }
            break;
 
        case "PushButton":
 
            if(($winstyle & (BS_BITMAP | BS_ICON)) && ($c[1] !== '""')) {
                $image = $path_res . _trim_quotes($c[1]);
                if($image)
                    if(preg_match("/\.(bmp|ico)$/", $image))
                        $str = "\$_tmp_ctrl_ = " . $str . "wb_set_image(\$_tmp_ctrl_, '$image', GREEN);" . " unset(\$_tmp_ctrl_);\n";
            }
            break;
    }
 
    return $str;
}

References _bit_test(), _trim_quotes(), BS_AUTOCHECKBOX, BS_AUTORADIOBUTTON, BS_BITMAP, BS_CHECKBOX, BS_GROUPBOX, BS_ICON, BS_PUSHBUTTON, BS_RADIOBUTTON, CBS_DROPDOWNLIST, CBS_SORT, ES_CENTER, ES_LEFT, ES_MULTILINE, ES_NUMBER, ES_PASSWORD, ES_READONLY, ES_RIGHT, LBS_SORT, LVS_CHECKBOXES, LVS_GRIDLINES, LVS_NOSORTHEADER, LVS_SINGLESEL, SS_BITMAP, SS_CENTER, SS_ETCHEDFRAME, SS_ETCHEDHORZ, SS_ETCHEDVERT, SS_ICON, SS_LEFT, SS_LEFTNOWORDWRAP, SS_RIGHT, SS_WORDELLIPSIS, TBS_AUTOTICKS, WB_KX_SCREEN, WB_KY_SCREEN, WS_DISABLED, WS_EX_STATICEDGE, WS_GROUP, and WS_VISIBLE.

◆ _scale_dialog()

_scale_dialog ( $c )

Definition at line 156 of file wb_resources.inc.php.

{
    global $_winclass, $_usergeom, $_tabN;
 
    if($_winclass == "TabControl") {
 
        $_tabN++;
        $code = "wbtemp_create_item(%PARENT%, ". $c[6] . ");\n";
 
    } else {
 
        $_addx = 8;                 //width + 2xborder
        $_addy = 4 + 42 + 17 + 4;   //border + caption + border
 
        switch(is_string($_winclass) ? strtolower($_winclass) : $_winclass) {
 
            case "appwindow":
                $_winclass = AppWindow;
                $_addx = 8;                 //width + 2xborder
                $_addy = 3 + 18 + 22 + 18 + 3;  //border + caption + menu + statusbar + border
                break;
            case "resizablewindow":
                $_winclass = ResizableWindow;
                $_addx = 8;                 //width + 2xborder
                $_addy = 4 + 42 + 17 + 4;   //border + caption + menu + statusbar + border
                break;
            case "modaldialog":
                $_winclass = ModalDialog;
                $_addx = 8;                 //width + 2xborder
                $_addy = 4 + 42 + 17 + 4;   //border + caption + border
                break;
            case "modelessdialog":
                $_winclass = ModelessDialog;
                break;
            case "tooldialog":
                $_winclass = ToolDialog;
                break;
        }
 
        if(!(($_usergeom[0] == WBC_CENTER && $_usergeom[1] == WBC_CENTER &&
          $_usergeom[2] == WBC_CENTER && $_usergeom[3] == WBC_CENTER))) {
 
            $code = "%WINVAR% = wb_create_window(" .
            "%PARENT%, " .                              // parent
            "$_winclass, " .                            // class
            $c[6] . ", " .                              // caption
            $_usergeom[0] . ", " .                      // left
            $_usergeom[1] . ", " .                      // top
            $_usergeom[2] . ", " .                      // width
            $_usergeom[3] . ", " .                      // height
            "%STYLE%, " .                               // style
            "%LPARAM%);\n";                             // lparam
 
        } else {
 
            if(is_array($_usergeom)) {
                if(count($_usergeom) == 2) {        // Width, height only
                    $_usergeom[2] = $_usergeom[0];
                    $_usergeom[3] = $_usergeom[1];
                    $_usergeom[0] = WBC_CENTER;
                    $_usergeom[1] = WBC_CENTER;
                }
            } elseif(is_null($_usergeom)) {
                $_usergeom[0] = WBC_DEFAULTPOS;
                $_usergeom[1] = WBC_DEFAULTPOS;
                $_usergeom[2] = WBC_DEFAULTPOS;
                $_usergeom[3] = WBC_DEFAULTPOS;
            }
 
            $code = "%WINVAR% = wb_create_window(" .
            "%PARENT%, " .                              // parent
            "$_winclass, " .                            // class
            $c[6] . ", " .                              // caption
            "WBC_CENTER, " .                            // left
            "WBC_CENTER, " .                            // top
//          (int)($c[4] * WB_KX_SCREEN + $_addx) . ", " .
//          (int)($c[5] * WB_KY_SCREEN + $_addy) . ", " .
            (int)($c[4] * WB_KX_SCREEN) . ", " .
            (int)($c[5] * WB_KY_SCREEN) . ", " .
            "%STYLE%, " .                               // style
            "%LPARAM%);\n";                             // lparam
        }
 
        $_tabN = 0;
 
    }
    return $code;
}

References WB_KX_SCREEN, and WB_KY_SCREEN.

◆ _trim_quotes()

_trim_quotes ( $str )

Definition at line 482 of file wb_resources.inc.php.

{
    return str_replace('"', '', $str);
}

Referenced by _scale_controls().

Here is the caller graph for this function:

◆ parse_rc()

parse_rc	(	$rc,
		$winvar = '$mainwin',
		$parent = null,
		$type = "AppWindow",
		$caption = null,
		$x = WBC_CENTER,
		$y = WBC_CENTER,
		$width = WBC_CENTER,
		$height = WBC_CENTER,
		$style = 0,
		$lparam = 0,
		$respath = PATH_RES )

Definition at line 86 of file wb_resources.inc.php.

{
    global $_winclass, $_usergeom, $path_res;
 
    // Read file
 
    $_usergeom = array($x, $y, $width, $height);
    $path_res = $respath;
 
    // Remove comments and useless spaces
 
    $rc = preg_replace("/^\s*;.*$/m", "", $rc);
    $rc = preg_replace("/^\s*(.*)$/m", "\\1", $rc);
 
    // Maintain #defines and discard the rest (fixed to work with newer versions of PHP -- thanks Hans)
 
//  $def = preg_replace("/(?!^\s*#define)(.*)$/m", "\\2", $rc);
    $def = preg_replace('/^((?!#define).)*$/m', "\\2", $rc);
 
    // Remove blank lines
 
    $def = preg_replace("/\n+/m", "\n", $def);
 
    // Change string C #defines to PHP format
 
    $def = preg_replace("/#define\s+(\w+)\s+\"(.*)\"/", "if(!defined(\"\\1\")) define(\"\\1\", \"\\2\");", $def);
 
    // Change character C #defines to PHP format
 
    $def = preg_replace("/#define\s+(\w+)\s+'(.+)'/", "if(!defined(\"\\1\")) define(\"\\1\", \"\\2\");", $def);
 
    // Change numeric C #defines to PHP format
 
    $def = preg_replace("/#define\s+(\w+)\s+(\S+)/", "if(!defined(\"\\1\")) define(\"\\1\", \\2);", $def);
    $def = "// Control identifiers\n\n" . preg_replace("/(\r\n|\r|\n)+/sm", "\n", $def);
 
    // Return to original string and eliminates the #defines
 
    $rc = preg_replace("/^\s*#define(.*)$/m", "", $rc);
 
    // Create the window
 
    $_winclass = $type;
 
    $tok = "\s*((?:[\"'][\S \t]*[\"'])|(?:[\S^,'\"]+))\s*"; // Normal or quoted token
    $rc = "// Create window\n\n" . preg_replace_callback("/^$tok\s+DIALOGEX$tok,$tok,$tok,$tok\s+CAPTION$tok\s+FONT$tok,$tok\s+STYLE$tok\s+EXSTYLE$tok/m", "_scale_dialog", $rc);
 
    // Create the controls
 
    $rc = preg_replace_callback("/^\s*CONTROL\s+$tok,$tok,$tok,$tok,$tok,$tok,$tok,$tok,$tok/m", "_scale_controls", $rc);
 
    // Create BEGIN / END comments
 
    $rc = preg_replace("/^\s*BEGIN/m", "\n// Insert controls\n", $rc);
    $rc = preg_replace("/^\s*END/m", "\n// End controls", $rc);
 
    // Replace variable names
 
    $rc = str_replace("%WINVAR%", $winvar, $rc);
    $rc = str_replace("%PARENT%", $parent? $parent : "NULL", $rc);
    $rc = str_replace("%STYLE%",  $style, $rc);
    $rc = str_replace("%LPARAM%", $lparam, $rc);
 
    return "$def\n$rc";
}