/*----------------------------------------------------------------------------*/ /* */ /* Copyright (c) 1995, 2004 IBM Corporation. All rights reserved. */ /* Copyright (c) 2005-2014 Rexx Language Association. All rights reserved. */ /* */ /* This program and the accompanying materials are made available under */ /* the terms of the Common Public License v1.0 which accompanies this */ /* distribution. A copy is also available at the following address: */ /* http://www.oorexx.org/license.html */ /* */ /* Redistribution and use in source and binary forms, with or */ /* without modification, are permitted provided that the following */ /* conditions are met: */ /* */ /* Redistributions of source code must retain the above copyright */ /* notice, this list of conditions and the following disclaimer. */ /* Redistributions in binary form must reproduce the above copyright */ /* notice, this list of conditions and the following disclaimer in */ /* the documentation and/or other materials provided with the distribution. */ /* */ /* Neither the name of Rexx Language Association nor the names */ /* of its contributors may be used to endorse or promote products */ /* derived from this software without specific prior written permission. */ /* */ /* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS */ /* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT */ /* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS */ /* FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT */ /* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, */ /* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED */ /* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, */ /* OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY */ /* OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING */ /* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS */ /* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ /* */ /*----------------------------------------------------------------------------*/ /** * Windows Dialog Interface for Open Object Rexx (ooRexx.) * * The Dynamic Dialog Class. This class is the foundation for creating a dialog * template in memory. */ ::class 'DynamicDialog' mixinclass Object public ::constant STATIC_ID -1 ::method init class external "LIBRARY oodialog dyndlg_init_cls" -- Documented "internal use only" in 3.2.0 - Do not document. ::attribute basePtr get private external "LIBRARY oodialog dyndlg_getBasePtr" ::attribute basePtr set private external "LIBRARY oodialog dyndlg_setBasePtr" -- Documented "internal use only" in 3.2.0 - Do not document. ::attribute activePtr get private external "LIBRARY oodialog dyndlg_getActivePtr" ::attribute activePtr set private external "LIBRARY oodialog dyndlg_setActivePtr" -- Documented "internal use only" in 3.2.0 - Do not document. ::attribute dialogItemCount get private external "LIBRARY oodialog dyndlg_getDialogItemCount" ::attribute dialogItemCount set private external "LIBRARY oodialog dyndlg_setDialogItemCount" ::method dynamicInit private external "LIBRARY oodialog dyndlg_dynamicInit" ::method stop private external "LIBRARY oodialog dyndlg_stop" ::method startParentDialog private external "LIBRARY oodialog dyndlg_startParentDialog" ::method startChildDialog private external "LIBRARY oodialog dyndlg_startChildDialog" -- This method should be over-ridden in subclasses and provides the opportunity for the subclass to -- add dialog controls to the dialog template. ::method defineDialog return 0 ::method create external "LIBRARY oodialog dyndlg_create" ::method createCenter arga = arg(1,"A") newarg = .array~new(arg()+2) do i = arg() to 1 by -1; if arga~hasindex(i) = 1 then newarg[i+2] = arga[i]; end /* shift arguments up by 2 */ -- Let OS center the dialog. if \ newarg~hasindex(6) then newarg[6] = "CENTER" else newarg[6] = newarg[6] || " CENTER" -- When dialog has centered style, the OS will ignore the x, y co-ordinates newarg[1] = 0 newarg[2] = 0 forward message "create" arguments (newarg) ::method createStatic external "LIBRARY oodialog dyndlg_createStatic" ::method createStaticText external "LIBRARY oodialog dyndlg_createStaticText" ::method createStaticImage external "LIBRARY oodialog dyndlg_createStaticImage" ::method createStaticFrame external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createWhiteRect external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createGrayRect external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createBlackRect external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createWhiteFrame external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createGrayFrame external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createBlackFrame external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createEtchedHorizontal external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createEtchedVertical external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createEtchedFrame external "LIBRARY oodialog dyndlg_createStaticFrame" ::method createPushButton external "LIBRARY oodialog dyndlg_createPushButton" ::method createRadioButton external "LIBRARY oodialog dyndlg_createRadioButton" ::method createCheckBox external "LIBRARY oodialog dyndlg_createRadioButton" ::method createGroupBox external "LIBRARY oodialog dyndlg_createGroupBox" -- The optional msgToRaise arg can be the name of a method to invoke when the -- button is pushed. The empty string signals the implementing code to skip -- adding a method to the message table and just add the bitmaps. ::method createBitmapButton use strict arg id, x, y, cx = 0, cy = 0, opts = "", text = "", msgToRaise = "", bmp, focus = "", sel = "", disabl = "" if \ self~hasMethod('INSTALLBITMAPBUTTON') then return -3 opts = opts~translate || " OWNER" if focus = "" & sel = "" & opts~wordpos("FRAME") = 0 & opts~wordpos("TAB") = 0 then opts = opts || " NOTAB" ret = self~createPushButton(id, x, y, cx, cy, opts, text) if ret <> 0 then return ret return self~installBitmapButton(id, msgToRaise~space(0), bmp, focus, sel, disabl, opts) ::method createComboBox external "LIBRARY oodialog dyndlg_createComboBox" ::method createDateTimePicker external "LIBRARY oodialog dyndlg_createNamedControl" ::method createEdit external "LIBRARY oodialog dyndlg_createEdit" ::method createListBox external "LIBRARY oodialog dyndlg_createListBox" ::method createListView external "LIBRARY oodialog dyndlg_createNamedControl" ::method createMonthCalendar external "LIBRARY oodialog dyndlg_createNamedControl" ::method createPasswordEdit external "LIBRARY oodialog dyndlg_createEdit" ::method createProgressBar external "LIBRARY oodialog dyndlg_createProgressBar" ::method createReBar external "LIBRARY oodialog dyndlg_createNamedControl" ::method createStatusBar external "LIBRARY oodialog dyndlg_createNamedControl" ::method createScrollBar external "LIBRARY oodialog dyndlg_createScrollBar" ::method createTab external "LIBRARY oodialog dyndlg_createNamedControl" ::method createToolBar external "LIBRARY oodialog dyndlg_createNamedControl" ::method createTrackBar external "LIBRARY oodialog dyndlg_createNamedControl" ::method createTreeView external "LIBRARY oodialog dyndlg_createNamedControl" ::method createUpDown external "LIBRARY oodialog dyndlg_createNamedControl" ::method createRadioButtonGroup arr = arg(1,"A") if \ arr~hasindex(6) then arr[6] = "" arr[8] = "R" forward message "createRBCBGroup" Arguments (arr) ::method createCheckBoxGroup arr = arg(1,"A") if \ arr~hasindex(6) then arr[6] = "" arr[8] = "C" forward message "createRBCBGroup" Arguments (arr) ::method createRBCBGroup private use arg startid, x, y, cx, inp, opts = "", idstat = (self~STATIC_ID), kind if self~activePtr = 0 then return -2 startid = self~checkID(startid) if startid < 0 then return startid if arg(4, 'o') = 1 then cx = 0 parse var inp rb inp size = self~getTextSizeDu(rb) len = size~width stepy = size~height lastlen = len; oldy = stepy; stepy = trunc(stepy * 1.5) opts = opts~translate nob = opts~wordpos("NOBORDER") if nob = 0 then my = y + oldy; else my = y newopts = opts~changestr("NOBORDER","") if cx \= 0 then len = cx-20 i = 0 do while rb \= "" if kind = "R" then do if i = 0 then self~createRadioButton(startid + i, x + 4, my, len + 12, stepy, newopts || " GROUP", rb) else self~createRadioButton(startid + i, x + 4, my, len + 12, stepy, newopts, rb) end else do self~createCheckBox(startid + i, x + 4, my, len + 12, stepy, newopts, rb) end my = my + stepy; i = i + 1 parse var inp rb inp if rb \== '', cx = 0 then do s = self~getTextSizeDu(rb) len = s~width if len > lastlen then lastlen = len end end if cx \= 0 then LastLen = cx-20 size = .Size~new(lastlen+20, my-y+trunc(oldy / 2)) if nob = 0 then self~createGroupBox(idstat, x, y, size~width, size~height, newopts, "") return size ::method createEditInput use strict arg id, x, y, cx1 = 0, cx2, cy = 0, text, opts = "", idstat = (self~STATIC_ID), attributeName = "" if self~activePtr = 0 then return -2 id = self~checkID(id) if id < 0 then return id if attributeName == "" then attributeName = text if cy = 0 | cx1 = 0 then do size = self~getTextSizeDu(text) if cy = 0 then cy = size~height + 4 if cx1 = 0 then cx1 = size~width + 4 end opts = opts~translate ret = self~createStaticText(idstat, x, y+2, cx1, cy, opts, text) if ret == 0 then ret = self~createEdit(id, x+cx1+1, y, cx2, cy, opts, attributeName) return ret ::method createEditInputGroup use strict arg startid, x, y, cx1 = 0, cx2, inp, opts = "", idstat = (self~STATIC_ID) parse var inp rb inp if self~activePtr = 0 then return -2 startid = self~checkID(startid) if startid < 0 then return startid if arg(4, 'o') = 1 then cx1 = 0 count = 0; ll = 0 do while rb \= "" count = count + 1 data.count = rb if cx1 = 0 then do size = self~getTextSizeDu(rb) if size~width > ll then ll = size~width end parse var inp rb inp end if cx1 = 0 then cx1 = ll+4 is = idstat s = self~getTextSizeDu("Tg") stepy = s~height opts = opts~translate nob = opts~wordpos("NOBORDER") if nob = 0 then my = y + trunc(stepy * 1.25); else my = y newopts = opts~changestr("NOBORDER", "") do i=1 to count self~createEditInput(startid + i -1, x+4, my, cx1-4, cx2-6, stepy+4, data.i, newopts, is) if is \= -1 then is = is + 1 my = my + trunc(stepy * 2.25) end if nob = 0 then return self~createGroupBox(is, x, y, cx1+cx2, my-y, newopts, "") else return 0 ::method createEditInputStem use strict arg startid, x, y, cx1 = 0, cx2, inp., opts = "", idstat = (self~STATIC_ID) if self~activePtr = 0 then return -2 startid = self~checkID(startid) if startid < 0 then return startid count = 0; ll = 0 do while var("inp."count+1) = 1 count = count + 1 if cx1 = 0 then do s = self~getTextSizeDu(inp.count) if s~width > ll then ll = s~width end end if cx1 = 0 then cx1 = ll+4 is = idstat s = self~getTextSizeDu("Tg") stepy = s~height opts = opts~translate nob = opts~wordpos("NOBORDER") if nob = 0 then my = y + trunc(stepy * 1.25); else my = y newopts = opts~changestr("NOBORDER", "") do i=1 to count self~createEditInput(startid + i -1, x+4, my, cx1-4, cx2-6, stepy+4, inp.i, newopts, is) if is \= -1 then is = is + 2 my = my + trunc(stepy * 2.25) end if nob = 0 then return self~createGroupBox(is, x, y, cx1+cx2, my-y, newopts, "") else return 0 ::method createComboBoxInput use strict arg id, x, y, cx1 = 0, cx2, clines = 5, text, opts = "", idstat = (self~STATIC_ID), attributeName = "" if self~activePtr = 0 then return -2 id = self~checkID(id) if id < 0 then return id if attributeName == "" then attributeName = text s = self~getTextSizeDu(text) cy = s~height + 4 if cx1 = 0 then cx1 = s~width + 4 opts = opts~translate ret = self~createStaticText(idstat, x, y, cx1, cy, opts, text) if ret == 0 then return self~createComboBox(id, x+cx1+2, y, cx2, cy*clines, opts, attributeName) else return ret ::method createCheckBoxStem arr = arg(1,"A") arr[11] = "C" if \ arr~hasindex(7) then arr[7] = "" forward message "createRBCBStem" Arguments (arr) ::method createRadioButtonStem arr = arg(1,"A") arr[11] = "R" if \ arr~hasindex(7) then arr[7] = "" forward message "createRBCBStem" Arguments (arr) ::method createRBCBStem private use arg startid, x, y, cxx, inp., max, opts = "", idstat, fn, fs, kind -- Note that font name and font size (fn, fs) are no longer used. They are -- here for backwards compatibility. if self~activePtr = 0 then return -2 startid = self~checkID(startid) if startid < 0 then return if arg(4, 'o') = 1 then cxx = 0 count = 0; ll = 0 do while var("inp."count+1) = 1 count = count + 1 if cxx = 0 then do s = self~getTextSizeDu(inp.count) if s~width > ll then ll = s~width end end if var("max") = 0 | max = 0 then max = count if cxx = 0 & max \= 1 then cx = ll+20; else cx = cxx if arg(8, 'o') = 1 then idstat = self~STATIC_ID s = self~getTextSizeDu("Tg") stepx = s~width oldy = s~height mx = 0; highy = 0 opts = opts~translate nob = opts~wordpos("NOBORDER") if nob = 0 then do stepy = trunc(oldy * 1.5) my = y + oldy newopts = opts end else do stepy = oldy my = y newopts = delword(opts, nob, 1) end do i=1 to count if (i>1) & ((i-1)//max = 0) then do highy = my if nob = 0 then my = y + oldy; else my = y mx = mx + cx end if max=1 & cxx=0 then do s = self~getTextSizeDu(inp.i) cx = s~width + 24 end if kind = "R" then do if i = 1 then tmpopts = newopts || " GROUP"; else tmpopts = newopts self~createRadioButton(startid + i - 1, x + mx + 4, my, cx - 8, stepy, tmpopts, inp.i) end else do self~createCheckBox(startid + i - 1, x + mx + 4, my, cx - 8, stepy, newopts, inp.i) end my = my + stepy end if highy = 0 then highy = my if nob = 0 then return self~createGroupBox(idstat, x, y, mx+cx, highy-y+(stepy % 2), newopts, "") else return 0 ::method createPushButtonGroup use arg x, y, cx, cy, inp, bottom, opts = "" parse var inp bt bid bfnk newinp if self~activePtr = 0 then return -2 if arg(6,"o") = 1 then bottom = 0 if cx = 0 | arg(3,"o") = 1 then cx = 40 if cy = 0 | arg(4,"o") = 1 then cy = 12 opts = opts~translate do while bt \= "" if bt~pos("'") > 0 then parse var inp "'"bt"'" bid bfnk newinp else if bt~pos('"') > 0 then parse var inp '"'bt'"' bid bfnk newinp if bfnk = 0 then bfnk = "" self~createPushButton(bid, x, y, cx, cy, opts, bt, bfnk) n = opts~wordpos("DEFAULT") if n \= 0 then opts = opts~delword(n,1) if bottom = 0 then y = y + trunc(cy * 1.5); else x = x + trunc(cx * 1.25) inp = newinp parse var inp bt bid bfnk newinp end return 0 ::method createPushButtonStem external "LIBRARY oodialog dyndlg_createPushButtonStem" ::method createOkCancelRightBottom return self~createPushButtonGroup(self~sizeX-95, self~sizeY - 15,,, "&Ok 1 OK &Cancel 2 CANCEL", 1, "DEFAULT") ::method createOkCancelLeftBottom return self~createPushButtonGroup(5, self~sizeY - 15,,, "&Ok 1 OK &Cancel 2 CANCEL", 1, "DEFAULT") ::method createOkCancelRightTop return self~createPushButtonGroup(self~sizeX-45, 5,,, "&Ok 1 OK &Cancel 2 CANCEL", 0, " DEFAULT") ::method createOkCancelLeftTop return self~createPushButtonGroup(5, 5,,, "&Ok 1 OK &Cancel 2 CANCEL", 0, "DEFAULT") ::method addIconResource external "LIBRARY oodialog dyndlg_addIconResource" -- Documented "internal use only" in 3.2.0 - Do not document. ::method startIt use arg icon = 0, modeless = .false if self~basePtr = 0 then return 0 icon = self~resolveIconID(icon) if \ modeless~datatype('O') then modeless = .false if \ self~startParentDialog(icon, modeless) then return 0 self~initDialog return self~dlgHandle -- This method creates a dialog from a resource script file (usually with extension of '.rc'.) -- It calls loadFrame() and loadItems() The argument 'loadOptions' can be one or more of:e -- "CENTER" : this will create the dialog on a centered position -- "CONNECTBUTTONS" : automatically connect all push buttons to a method -- "CONNECTRADIOS" : automatically connect all raidio buttons to a method -- "CONNECTCHECKS" : automatically connect all check boxes to a method ::method load forward message "loadFrame" continue ret = result if ret == 0 then do forward message "loadItems" continue ret = result end else do self~stop end return ret -- This method starts the in-memory dialog template using the specified resource script file. -- It is usually called from the load() method. The return was not documented prior to -- 4.1.0, but it returned 0 for success and 1 for error. Need to preserve that, I guess, -- although .true and .false make much more sense. -- -- We special case a .PropertySheetPage and return the dlg. stem so the dialog template -- can be started correctly for DS_CONTROL dialogs. ::method loadFrame private use arg resfile, dialogid, options, expected if arg(4,"O") | expected = 0 then expected = 200 if options~translate~wordpos("CENTER") > 0 then internopts = "CENTER " else internopts = "" file = SysSearchPath("PATH",resfile) f = .stream~new(file) op = f~open(read) if op \= "READY:" then do say "Resource file not found -->" resfile "("op")" return 1 end global = .constDirUsage == 'use only' found = 0; n = 0 fl = f~lines do while found = 0 do while n = 0 & fl > 0 s = f~linein; fl = fl -1 select when s~wordpos("DIALOG ") > 0 then n = s~wordpos("DIALOG ") when s~wordpos("DIALOGEX ") > 0 then n = s~wordpos("DIALOGEX ") when s~wordpos("ICON") = 2 then do -- ICON RESOURCE statement as opposed to an ICON CONTROL statement. -- filename could have spaces and *should* be in quotes. parse var s nameID ic fileName self~addIconResource(nameID, fileName) end when s~wordpos("#define") > 0 then do s = s~translate(" ", "9"x) parse var s "#define " symb iid . if global then .constDir[symb] = iid else self~constDir[symb~space(0)~translate] = iid end otherwise nop end -- End select end if (self~checkfile(f) = 1) then return 1 if arg(2,'O') | dialogid = "DIALOGID" | dialogid = '' then found = 1 else do foundID = s~word(n-1)~translate if foundID = dialogid~translate then found = 1 else if self~checkID(foundID) = dialogid then found = 1 else if foundID = self~checkID(dialogid~translate) then found = 1 else n = 0 end end n = s~Pos(",") parse var s prev "," dlg.y "," dlg.w "," dlg.h dlg.x = s~substr(n-3,3) if dlg.x~datatype('N') = 0 then dlg.x = s~substr(n-2,2) s = f~linein; fl = fl -1 do while s~wordpos("STYLE ") = 0 & fl > 0 s = f~linein; fl = fl -1 end if (self~checkfile(f) = 1) then return 1 parse var s prev dlg.style dlg.style = dlg.style~translate(" ", "|") internopts = internopts || self~getRCStyle(dlg.style, "DLG") dlg.title = "" dlg.fsize = "" dlg.font = "" s = f~linein; fl = fl -1 do while s~wordpos("CAPTION ") = 0 & s~wordpos("FONT ") = 0 & fl > 0 s = f~linein; fl = fl -1 end if (self~checkfile(f) = 1) then return 1 if s~wordpos("CAPTION ") > 0 then do parse var s prev '"'dlg.title'"' s = f~linein; fl = fl -1 do while s~wordpos("FONT ") = 0 & fl > 0 s = f~linein; fl = fl -1 end if fl > 0 then do parse var s prev dlg.fsize "," '"'dlg.font'"' end end else do parse var s prev dlg.fsize "," '"'dlg.font'"' end -- Now read to the end of the file to pick up any additional icon resource -- or define statements. do while fl > 0 s = f~linein; fl = fl -1 select when s~wordpos("ICON") = 2 then do parse var s nameID ic fileName self~addIconResource(nameID, fileName) end when s~wordpos("#define") > 0 then do s = s~translate(" ", "9"x) parse var s "#define " symb iid . if global then .constDir[symb] = iid else self~constDir[symb~space(0)~translate] = iid end otherwise nop end -- End select end f~close if dlg.title == "" then internopts ||= " NOBORDER" if self~isA(.PropertySheetPage) then return self~startTemplate(dlg.w, dlg.h, dlg.title, dlg.font, dlg.fsize, expected) if self~create(dlg.x, dlg.y, dlg.w, dlg.h, dlg.title, internopts,, dlg.font, dlg.fsize, expected) then return 0 else return 1 -- This method creates the dialog's controls from a resource script file. It is usually called by the load() method. -- Although its return was not documented prior to 4.1.0, it has returned 0 for success and non-zero for failure. ::method loadItems private use arg resfile, dialogid, loadOptions if self~activePtr = 0 then return -2 file = SysSearchPath("PATH",resfile) f = .stream~new(file) op = f~open(read) if op \= "READY:" then do say "Resource file not found --> " op return 1 end global = .constDirUsage == 'use only' if arg(3, "O") then loadOptions = ""; else loadOptions = loadOptions~translate found = 0; n = 0 fl = f~lines do while found = 0 & fl > 0 do while n = 0 & fl > 0 s = f~linein; fl = fl - 1 -- This seems redundent, #defines were probably already caught in loadFrame() if s~wordpos("#define") > 0 then do s = s~translate(" ", "9"x) parse var s "#define " symb iid . if global then .constDir[symb] = iid else self~constDir[symb~space(0)~translate] = iid end n = s~wordpos("DIALOG") if n = 0 then n = s~wordpos("DIALOGEX") end if self~checkfile(f)=1 then return 1 if arg(2, 'O') | dialogid = "DIALOGID" | dialogid = '' then found = 1 else do foundID = s~word(n-1)~translate if foundID = dialogid~translate then found = 1 else if self~checkID(foundID) = dialogid then found = 1 else if foundID = self~checkID(dialogid~translate) then found = 1 else n = 0 end end s = f~linein; fl = fl - 1 do while s~wordpos("BEGIN") = 0 & s~pos("{") = 0 & fl > 0 s = f~linein; fl = fl - 1 end if self~checkfile(f)=1 then return 1 self~processingLoad = 1 do while fl > 0 & s~wordpos("END") = 0 & s~pos("}") = 0 s = f~linein; fl = fl - 1 if s~wordpos("END") > 0 | s~pos("}") > 0 then leave; if s~wordpos("CONTROL") > 0 then do parse var s type '"'name'"' "," id "," class "," style "," x "," y "," w "," h "," extStyle opts = "" id = id~strip class = class~strip~translate style = style~translate(" ", "|") extStyle = extStyle~translate(" ", "|") select when class = '"BUTTON"' | class = WC_BUTTON then do if style~wordpos("BS_AUTORADIOBUTTON") > 0 | style~wordpos("BS_RADIOBUTTON") > 0 then self~createRadioButton(id, x, y, w, h, self~getRCStyle(style, "BTN", "R"), name, , loadOptions) else if style~wordpos("BS_AUTOCHECKBOX") > 0 | style~wordpos("BS_CHECKBOX") > 0 then self~createCheckBox(id, x, y, w, h, self~getRCStyle(style, "BTN"), name, , loadOptions) else if style~wordpos("BS_GROUPBOX") > 0 then self~createGroupBox(id, x, y, w, h, self~getRCStyle(style, "GB"), name) else if style~pos("BS_OWNERDRAW") = 0 & style~wordpos("BS_AUTO3STATE") > 0 then do -- If not the owner draw flag and the 3state flag, it is a checkbox. self~createCheckBox(id, x, y, w, h, self~getRCStyle(style, "BTN"), name, , loadOptions) end else do self~createPushButton(id, x, y, w, h, self~getRCStyle(style, "BTN"), name, , loadOptions) end end when class = 'WC_COMBOBOX' | class = '"COMBOBOX"' then self~createComboBox(id, x, y, w, h, self~getRCStyle(style, "CB"), name) when class = 'DATETIMEPICK_CLASS' | class = '"SYSDATETIMEPICK32"' then self~createDateTimePicker(id, x, y, w, h, self~getNamedCtrlStyle(style, "DTP"), name) when class = 'WC_EDIT' | class = '"EDIT"' then self~createEdit(id, x, y, w, h, self~getRCStyle(style, "EDIT"), name) when class = 'WC_LISTBOX' | class = '"LISTBOX"' then self~createListBox(id, x, y, w, h, self~getRCStyle(style, "LB"), name) when class = 'WC_LISTVIEW' | class = '"SYSLISTVIEW32"' then self~createListView(id, x, y, w, h, self~getNamedCtrlStyle(style, "LIST"), name) when class = 'MONTHCAL_CLASS' | class = '"SYSMONTHCAL32"' then self~createMonthCalendar(id, x, y, w, h, self~getNamedCtrlStyle(style, "MONTH"), name) when class = 'PROGRESS_CLASS' | class = '"MSCTLS_PROGRESS32"' then self~createProgressBar(id, x, y, w, h, self~getNamedCtrlStyle(style, "PROGRESS")) when class = 'REBARCLASSNAME' then self~createReBar(id, x, y, w, h, self~getNamedCtrlStyle(style, "REBAR"), name) when class = 'WC_SCROLLBAR' | class = '"SCROLLBAR"' then self~createScrollBar(id, x, y, w, h, self~getRCStyle(style, "SB")) when class = '"STATIC"' | class = WC_STATIC then do opts = self~getRCStyle(style, "ST") select when style~wordpos("SS_LEFT") > 0 then self~createStaticText(id, x, y, w, h, opts, name) when style~wordpos("SS_RIGHT") > 0 then self~createStaticText(id, x, y, w, h, opts || " RIGHT", name) when style~wordpos("SS_CENTER") > 0 then self~createStaticText(id, x, y, w, h, opts || " CENTER", name) when style~wordpos("SS_SIMPLE") > 0 then self~createStaticText(id, x, y, w, h, opts || " SIMPLE", name) when style~wordpos("SS_LEFTNOWORDWRAP") > 0 then self~createStaticText(id, x, y, w, h, opts || " LEFTNOWRAP", name) when style~wordpos("SS_WHITERECT") > 0 then self~createWhiteRect(id, x, y, w, h, opts) when style~wordpos("SS_GRAYRECT") > 0 then self~createGrayRect(id, x, y, w, h, opts) when style~wordpos("SS_BLACKRECT") > 0 then self~createBlackRect(id, x, y, w, h, opts) when style~wordpos("SS_WHITEFRAME") > 0 then self~createWhiteFrame(id, x, y, w, h, opts) when style~wordpos("SS_GRAYFRAME") > 0 then self~createGrayFrame(id, x, y, w, h, opts) when style~wordpos("SS_BLACKFRAME") > 0 then self~createBlackFrame(id, x, y, w, h, opts) when style~wordpos("SS_ETCHEDFRAME") > 0 then self~createEtchedFrame(id, x, y, w, h, opts) when style~wordpos("SS_ETCHEDHORZ") > 0 then self~createEtchedHorizontal(id, x, y, w, h, opts) when style~wordpos("SS_ETCHEDVERT") > 0 then self~createEtchedVertical(id, x, y, w, h, opts) when style~wordpos("SS_BITMAP") > 0 then self~createStaticImage(id, x, y, w, h, "BITMAP " || opts) when style~wordpos("SS_ENHMETAFILE") > 0 then self~createStaticImage(id, x, y, w, h, "METAFILE " || opts) when style~wordpos("SS_ICON") > 0 then self~createStaticImage(id, x, y, w, h, "ICON " || opts) otherwise ret = errorDialog("Static item ignored due to unknown static style option in:" || - '0d0a'x || f "("s")") end end when class = 'STATUSCLASSNAME' then self~createStatusBar(id, x, y, w, h, self~getNamedCtrlStyle(style, "STATUS"), name) when class = 'WC_TABCONTROL' | class = '"SYSTABCONTROL32"' then self~createTab(id, x, y, w, h, self~getNamedCtrlStyle(style, "TAB"), name) when class = 'TOOLBARCLASSNAME' then self~createToolBar(id, x, y, w, h, self~getNamedCtrlStyle(style, "TOOLBAR"), name) when class = 'TRACKBAR_CLASS' | class = '"MSCTLS_TRACKBAR32"' then self~createTrackBar(id, x, y, w, h, self~getNamedCtrlStyle(style, "SLIDER"), name) when class = 'WC_TREEVIEW' | class = '"SYSTREEVIEW32"' then self~createTreeView(id, x, y, w, h, self~getNamedCtrlStyle(style, "TREE"), name) when class = 'UPDOWN_CLASS' | class = '"MSCTLS_UPDOWN32"' then self~createUpDown(id, x, y, w, h, self~getNamedCtrlStyle(style, "UPDOWN"), name) otherwise do self~errorFile(f, s) return 1 end end /* select 2*/ end else do parse var s type '"'name'"' "," id "," x "," y "," w "," h "," style "," extStyle if id~space(0) = "" then parse var s type id "," x "," y "," w "," h "," style "," extStyle id = id~strip type = type~strip~translate style = style~translate(" ", "|") extStyle = extStyle~translate(" ", "|") select when type = "DEFPUSHBUTTON" | type = "PUSHBUTTON" then do if type~left(3) = ("DEF") then style = style || " | BS_DEFPUSHBUTTON" self~createPushButton(id, x, y, w, h, self~getRCStyle(style, "BTN"), name, , loadOptions) end when type = "EDITTEXT" then self~createEdit(id, x, y, w, h, self~getRCStyle(style, "EDIT"), name) when type = "LTEXT" | type = "CTEXT" | type = "RTEXT" then do opts = self~getRCStyle(style, "ST") if type = "CTEXT" then opts = opts || " CENTER"; else if type = "RTEXT" then opts = opts || " RIGHT"; else if style~wordpos("SS_LEFTNOWORDWRAP") > 0 then opts = opts || " LEFTNOWRAP"; self~createStaticText(id, x, y, w, h, opts, name) end when type = "ICON" then do opts = self~getRCStyle(style, "ST") self~createStaticImage(id, x, y, w, h, "ICON " || opts) end when type = "GROUPBOX" then self~createGroupBox(id, x, y, w, h, self~getRCStyle(style, "GB"), name) when type = "COMBOBOX" then self~createComboBox(id, x, y, w, h, self~getRCStyle(style, "CB"), name) when type = "LISTBOX" then self~createListBox(id, x, y, w, h, self~getRCStyle(style, "LB"), name) when type = "SCROLLBAR" then self~createScrollBar(id, x, y, w, h, self~getRCStyle(style, "SB")) when type = "AUTORADIOBUTTON" | type = "RADIOBUTTON" then self~createRadioButton(id, x, y, w, h, self~getRCStyle(style, "BTN", "R"), name, , loadOptions) when type = "AUTOCHECKBOX" | type = "CHECKBOX" then self~createCheckBox(id, x, y, w, h, self~getRCStyle(style, "BTN"), name, , loadOptions) when type = "AUTO3STATE" then do -- Sometimes AUTO3STATE is used for an owner draw button. if style~pos("BS_OWNERDRAW") > 0 then do -- With the owner draw flag, treat as a regular button. self~createPushButton(id, x, y, w, h, self~getRCStyle(style, "BTN"), name, , loadOptions) end else do -- Otherwise, (no owner draw flag,) treat as 3state. self~createCheckBox(id, x, y, w, h, self~getRCStyle(style, "BTN") || " | BS_AUTO3STATE", name, , loadOptions) end end otherwise do self~errorFile(f, s) return 1 end end /*select 1*/ end end /* do while */ f~close self~processingLoad = 0 return 0 ::method getRCStyle private use arg style, kind, spec_kind ret = "" if style~wordpos("NOT WS_VISIBLE") > 0 then ret = "HIDDEN" else if style~wordpos("WS_VISIBLE") > 0 then ret = "VISIBLE" if style~wordpos("WS_DISABLED") > 0 & style~wordpos("NOT WS_DISABLED") == 0 then ret = ret || " DISABLED" if style~wordpos("WS_GROUP") > 0 & style~wordpos("NOT WS_GROUP") == 0 then ret = ret || " GROUP" if kind = "DLG" then do if style~wordpos("DS_CENTER") > 0 then ret = ret ||" CENTER" if style~wordpos("DS_SYSMODAL") > 0 then ret = ret ||" SYSTEMMODAL" if style~wordpos("DS_MODALFRAME") = 0 then ret = ret ||" NOTMODAL" if style~wordpos("WS_SYSMENU") = 0 then ret = ret ||" NOMENU" if style~wordpos("WS_THICKFRAME") > 0 then ret = ret ||" THICKFRAME" if style~wordpos("WS_MINIMIZEBOX") > 0 | style~wordpos("WS_GROUP") > 0 then ret = ret ||" MINIMIZEBOX" if style~wordpos("WS_MAXIMIZEBOX") > 0 | style~wordpos("WS_TABSTOP") > 0 then ret = ret ||" MAXIMIZEBOX" if style~wordpos("WS_OVERLAPPED") > 0 then ret = ret ||" OVERLAPPED" if style~wordpos("WS_POPUP") > 0 then ret = ret ||" POPUP" if style~wordpos("DS_CONTROL") > 0 | style~wordpos("WS_CHILD") > 0 then ret = ret ||" CONTROL" end else if kind = "BTN" then do if style~wordpos("WS_OWNERDRAW") > 0 | style~wordpos("BS_OWNERDRAW") > 0 then ret = ret || " OWNER" if ret~wordpos("OWNER") = 0 then if style~wordpos("BS_AUTO3STATE") > 0 then ret = ret || " 3STATE" if style~wordpos("BS_DEFPUSHBUTTON") > 0 then ret = ret || " DEFAULT" if style~wordpos("BS_LEFTTEXT") > 0 | style~wordpos("BS_RIGHTBUTTON") > 0 then ret = ret || " LTEXT" if style~wordpos("BS_BITMAP") > 0 then ret = ret || " BITMAP" if style~wordpos("BS_ICON") > 0 then ret = ret || " ICON" if style~wordpos("BS_LEFT") > 0 then ret = ret || " LEFT" if style~wordpos("BS_RIGHT") > 0 then ret = ret || " RIGHT" if style~wordpos("BS_CENTER") > 0 then ret = ret || " HCENTER" if style~wordpos("BS_TOP") > 0 then ret = ret || " TOP" if style~wordpos("BS_BOTTOM") > 0 then ret = ret || " BOTTOM" if style~wordpos("BS_VCENTER") > 0 then ret = ret || " VCENTER" if style~wordpos("BS_PUSHLIKE") > 0 then ret = ret || " PUSHLIKE" if style~wordpos("BS_MULTILINE") > 0 then ret = ret || " MULTILINE" if style~wordpos("BS_NOTIFY") > 0 then ret = ret || " NOTIFY" if style~wordpos("BS_FLAT") > 0 then ret = ret || " FLAT" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" if style~wordpos("NOT WS_TABSTOP") > 0 then ret = ret || " NOTAB" if spec_kind == "R" then do /* radio buttons need explicit WS_TABSTOP to be tab stops */ if style~wordpos("WS_TABSTOP") = 0 then ret = ret || " NOTAB" end end else if kind = "GB" then do if style~wordpos("BS_LEFT") > 0 then ret = ret || " LEFT" if style~wordpos("BS_RIGHT") > 0 then ret = ret || " RIGHT" if style~wordpos("BS_CENTER") > 0 then ret = ret || " CENTER" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" if style~wordpos("WS_TABSTOP") > 0 then ret = ret || " TAB" end else if kind = "EDIT" then do if style~wordpos("ES_AUTOHSCROLL") > 0 then ret = ret || " AUTOSCROLLH" if style~wordpos("ES_AUTOVSCROLL") > 0 then ret = ret || " AUTOSCROLLV" if style~wordpos("ES_PASSWORD") > 0 then ret = ret || " PASSWORD" if style~wordpos("ES_MULTILINE") > 0 then ret = ret || " MULTILINE" if style~wordpos("ES_READONLY") > 0 then ret = ret || " READONLY" if style~wordpos("ES_WANTRETURN") > 0 then ret = ret || " WANTRETURN" if style~wordpos("ES_NOHIDESEL") > 0 then ret = ret || " KEEPSELECTION" if style~wordpos("ES_CENTER") > 0 then ret = ret || " CENTER" if style~wordpos("ES_RIGHT") > 0 then ret = ret || " RIGHT" if style~wordpos("ES_UPPERCASE") > 0 then ret = ret || " UPPER" if style~wordpos("ES_LOWERCASE") > 0 then ret = ret || " LOWER" if style~wordpos("ES_NUMBER") > 0 then ret = ret || " NUMBER" if style~wordpos("ES_OEMCONVERT") > 0 then ret = ret || " OEM" if style~wordpos("NOT WS_TABSTOP") > 0 then ret = ret || " NOTAB" end else if kind = "CB" then do if style~wordpos("CBS_SIMPLE") > 0 then ret = ret || " SIMPLE" if style~wordpos("CBS_DROPDOWNLIST") > 0 then ret = ret || " LIST" if style~wordpos("CBS_LOWERCASE") > 0 then ret = ret || " LOWER" if style~wordpos("CBS_SORT") > 0 then ret = ret || " SORT" if style~wordpos("CBS_AUTOHSCROLL") = 0 then ret = ret || " NOHSCROLL" if style~wordpos("CBS_NOINTEGRALHEIGHT") > 0 then ret = ret || " PARTIAL" if style~wordpos("CBS_DISABLENOSCROLL") > 0 then ret = ret || " DISABLENOSCROLL" if style~wordpos("CBS_UPPERCASE") > 0 then ret = ret || " DISABLENOSCROLL" if style~wordpos("WS_VSCROLL") > 0 then ret = ret || " VSCROLL" if style~wordpos("WS_HSCROLL") > 0 then ret = ret || " HSCROLL" if style~wordpos("WS_TABSTOP") = 0 then ret = ret || " NOTAB" end else if kind = "LB" then do if style~wordpos("LBS_USETABSTOPS") > 0 then ret = ret || " COLUMNS" if style~wordpos("LBS_STANDARD") > 0 then ret = ret|| " SORT" else if style~wordpos("LBS_SORT") > 0 then ret = ret|| " SORT" if style~wordpos("LBS_NOTIFY") > 0 then ret = ret || " NOTIFY" if style~wordpos("LBS_MULTIPLESEL") > 0 then ret = ret || " MULTI" if style~wordpos("LBS_MULTICOLUMN") > 0 then ret = ret || " MCOLUMN" if style~wordpos("LBS_NOINTEGRALHEIGHT") > 0 then ret = ret || " PARTIAL" if style~wordpos("LBS_DISABLENOSCROLL") > 0 then ret = ret || " SBALWAYS" if style~wordpos("LBS_WANTKEYBOARDINPUT") > 0 then ret = ret || " KEYINPUT" if style~wordpos("LBS_EXTENDEDSEL") > 0 then ret = ret || " EXTSEL" if style~wordpos("WS_TABSTOP") = 0 then ret = ret || " NOTAB" end else if kind = "ST" then do if style~wordpos("SS_CENTERIMAGE") > 0 then ret = ret || " CENTERIMAGE" if style~wordpos("SS_EDITCONTROL") > 0 then ret = ret || " EDITCONTROL" if style~wordpos("SS_ENDELLIPSIS") > 0 then ret = ret || " ENDELLIPSIS" if style~wordpos("SS_NOPREFIX") > 0 then ret = ret || " NOPREFIX" if style~wordpos("SS_NOTIFY") > 0 then ret = ret || " NOTIFY" if style~wordpos("SS_PATHELLIPSIS") > 0 then ret = ret || " PATHELLIPSIS" if style~wordpos("SS_RIGHTJUST") > 0 then ret = ret || " RIGHTJUST" if style~wordpos("SS_REALSIZECONTROL") > 0 then ret = ret || " SIZECONTROL" if style~wordpos("SS_REALSIZEIMAGE") > 0 then ret = ret || " SIZEIMAGE" if style~wordpos("SS_SUNKEN") > 0 then ret = ret || " SUNKEN" if style~wordpos("SS_WORDELLIPSIS") > 0 then ret = ret || " WORDELLIPSIS" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" if style~wordpos("WS_TABSTOP") > 0 then ret = ret || " TAB" end else if kind = "SB" then do if style~wordpos("SBS_HORZ") > 0 then ret = ret || " HORIZONTAL" if style~wordpos("SBS_TOPALIGN") > 0 then ret = ret || " TOPLEFT" if style~wordpos("SBS_BOTTOMALIGN") > 0 then ret = ret || " BOTTOMRIGHT" if style~wordpos("WS_TABSTOP") > 0 then ret = ret || " TAB" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end if kind = "EDIT" | kind = "LB" | kind = "CB" then if style~wordpos("NOT WS_BORDER") > 0 then ret = ret || " NOBORDER" if kind = "EDIT" | kind = "CB" | kind = "LB" | kind = "DLG" then do if style~wordpos("WS_VSCROLL") > 0 then ret = ret || " VSCROLL" if style~wordpos("WS_HSCROLL") > 0 then ret = ret || " HSCROLL" end return ret -- Gets the Common Control style string ::method getCcCtrlStyle private use arg style ret = '' if style~wordpos("CCS_ADJUSTABLE") > 0 then ret = ret || " CCS_ADJUSTABLE" if style~wordpos("CCS_BOTTOM") > 0 then ret = ret || " CCS_BOTTOM" if style~wordpos("CCS_LEFT") > 0 then ret = ret || " CCS_LEFT" if style~wordpos("CCS_NODIVIDER") > 0 then ret = ret || " CCS_NODIVIDER" if style~wordpos("CCS_NOMOVEX") > 0 then ret = ret || " CCS_NOMOVEX" if style~wordpos("CCS_NOMOVEY") > 0 then ret = ret || " CCS_NOMOVEY" if style~wordpos("CCS_NOPARENTALIGN") > 0 then ret = ret || " CCS_NOPARENTALIGN" if style~wordpos("CCS_NORESIZE") > 0 then ret = ret || " CCS_NORESIZE" if style~wordpos("CCS_RIGHT") > 0 then ret = ret || " CCS_RIGHT" if style~wordpos("CCS_TOP") > 0 then ret = ret || " CCS_TOP" if style~wordpos("CCS_VERT") > 0 then ret = ret || " CCS_VERT" return ret ::method getNamedCtrlStyle private use arg style, kind ret = "" if style~wordpos("NOT WS_VISIBLE") > 0 then ret = "HIDDEN" else if style~wordpos("WS_VISIBLE") > 0 then ret = "VISIBLE" if style~wordpos("WS_DISABLED") > 0 & style~wordpos("NOT WS_DISABLED") == 0 then ret = ret || " DISABLED" if kind = "DTP" then do if style~wordpos("DTS_APPCANPARSE") > 0 then ret = ret || " CANPARSE" if style~wordpos("DTS_RIGHTALIGN") > 0 then ret = ret || " RIGHT" if style~wordpos("DTS_SHOWNONE") > 0 then ret = ret || " SHOWNONE" if style~wordpos("DTS_UPDOWN") > 0 then ret = ret || " UPDOWN" if style~wordpos("DTS_LONGDATEFORMAT") > 0 then ret = ret || " LONG" if style~wordpos("DTS_SHORTDATEFORMAT") > 0 then ret = ret || " SHORT" if style~wordpos("DTS_SHORTDATECENTURYFORMAT") > 0 then ret = ret || " CENTURY" if style~wordpos("DTS_TIMEFORMAT") > 0 then ret = ret || " TIME" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end else if kind = "LIST" then do if style~wordpos("LVS_EDITLABELS") > 0 then ret = ret || " EDIT" if style~wordpos("LVS_SHOWSELALWAYS") > 0 then ret = ret || " SHOWSELALWAYS" if style~wordpos("LVS_ALIGNLEFT") > 0 then ret = ret || " ALIGNLEFT" if style~wordpos("LVS_ALIGNTOP") > 0 then ret = ret || " ALIGNTOP" if style~wordpos("LVS_AUTOARRANGE") > 0 then ret = ret || " AUTOARRANGE" if style~wordpos("LVS_ICON") > 0 then ret = ret || " ICON" if style~wordpos("LVS_SMALLICON") > 0 then ret = ret || " SMALLICON" if style~wordpos("LVS_LIST") > 0 then ret = ret || " LIST" if style~wordpos("LVS_REPORT") > 0 then ret = ret || " REPORT" if style~wordpos("LVS_NOCOLUMNHEADER") > 0 then ret = ret || " NOHEADER" if style~wordpos("LVS_NOLABELWRAP") > 0 then ret = ret || " NOWRAP" if style~wordpos("LVS_NOSCROLL") > 0 then ret = ret || " NOSCROLL" if style~wordpos("LVS_NOSORTHEADER") > 0 then ret = ret || " NOSORTHEADER" if style~wordpos("LVS_SHAREIMAGELISTS") > 0 then ret = ret || " SHAREIMAGES" if style~wordpos("LVS_SINGLESEL") > 0 then ret = ret || " SINGLESEL" if style~wordpos("LVS_SORTASCENDING") > 0 then ret = ret || " ASCENDING" if style~wordpos("LVS_SORTDESCENDING") > 0 then ret = ret || " DESCENDING" if style~wordpos("WS_BORDER") = 0 then ret = ret || " NOBORDER" end else if kind = "MONTH" then do if style~wordpos("MCS_DAYSTATE") > 0 then ret = ret || " DAYSTATE" if style~wordpos("MCS_MULTISELECT") > 0 then ret = ret || " MULTI" if style~wordpos("MCS_NOTODAY") > 0 then ret = ret || " NOTODAY" if style~wordpos("MCS_NOTODAYCIRCLE") > 0 then ret = ret || " NOCIRCLE" if style~wordpos("MCS_WEEKNUMBERS") > 0 then ret = ret || " WEEKNUMBERS" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end else if kind = "PROGRESS" then do if style~wordpos("PBS_VERTICAL") > 0 then ret = ret || " VERTICAL" if style~wordpos("PBS_SMOOTH") > 0 then ret = ret || " SMOOTH" if style~wordpos("PBS_MARQUEE") > 0 then ret = ret || " MARQUEE" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" if style~wordpos("WS_TABSTOP") > 0 then ret = ret || " TAB" end else if kind = "REBAR" then do ret = ret || self~getCcStyle(style) if style~wordpos("RBS_AUTOSIZE") > 0 then ret = ret || " AUTOSIZE" if style~wordpos("RBS_BANDBORDERS") > 0 then ret = ret || " BANDBORDERS" if style~wordpos("RBS_DBLCLKTOGGLE") > 0 then ret = ret || " DBLCLKTOGGLE" if style~wordpos("RBS_FIXEDORDER") > 0 then ret = ret || " FIXEDORDER" if style~wordpos("RBS_REGISTERDROP") > 0 then ret = ret || " REGISTERDROP" if style~wordpos("RBS_TOOLTIPS") > 0 then ret = ret || " TOOLTIPS" if style~wordpos("RBS_VARHEIGHT") > 0 then ret = ret || " VARHEIGHT" if style~wordpos("RBS_VERTICALGRIPPER") > 0 then ret = ret || " VERTICALGRIPPER" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end else if kind = "SLIDER" then do if style~wordpos("TBS_AUTOTICKS") > 0 then ret = ret || " AUTOTICKS" if style~wordpos("TBS_NOTICKS") > 0 then ret = ret || " NOTICKS" if style~wordpos("TBS_VERT") > 0 then ret = ret || " VERTICAL" if style~wordpos("TBS_HORZ") > 0 then ret = ret || " HORIZONTAL" if style~wordpos("TBS_TOP") > 0 then ret = ret || " TOP" if style~wordpos("TBS_BOTTOM") > 0 then ret = ret || " BOTTOM" if style~wordpos("TBS_LEFT") > 0 then ret = ret || " LEFT" if style~wordpos("TBS_RIGHT") > 0 then ret = ret || " RIGHT" if style~wordpos("TBS_BOTH") > 0 then ret = ret || " BOTH" if style~wordpos("TBS_ENABLESELRANGE") > 0 then ret = ret || " ENABLESELRANGE" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end else if kind = "STATUS" then do ret = ret || self~getCcStyle(style) if style~wordpos("SBARS_SIZEGRIP") > 0 then ret = ret || " SIZEGRIP" if style~wordpos("SBARS_TOOLTIPS") > 0 then ret = ret || " TOOLTIPS" if style~wordpos("SBT_TOOLTIPS") > 0 then ret = ret || " TOOLTIPS" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end else if kind = "TAB" then do if style~wordpos("WS_GROUP") > 0 then ret = ret || " GROUP" if style~wordpos("TCS_BUTTONS") > 0 then ret = ret || " BUTTONS" if style~wordpos("TCS_FIXEDWIDTH") > 0 then ret = ret || " FIXED" if style~wordpos("TCS_FOCUSNEVER") > 0 then ret = ret || " FOCUSNEVER" if style~wordpos("TCS_FOCUSONBUTTONDOWN") > 0 then ret = ret || " FOCUSONDOWN" if style~wordpos("TCS_FORCEICONLEFT") > 0 then ret = ret || " ICONLEFT" if style~wordpos("TCS_FORCELABELLEFT") > 0 then ret = ret || " LABELLEFT" if style~wordpos("TCS_MULTILINE") > 0 then ret = ret || " MULTILINE" if style~wordpos("TCS_RIGHTJUSTIFY") > 0 then ret = ret || " ALIGNRIGHT" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end else if kind = "TOOLBAR" then do ret = ret || self~getCcStyle(style) if style~wordpos("TBSTYLE_TOOLTIPS") > 0 then ret = ret || " TOOLTIPS" if style~wordpos("TBSTYLE_WRAPABLE") > 0 then ret = ret || " WRAPABLE" if style~wordpos("TBSTYLE_ALTDRAG") > 0 then ret = ret || " ALTDRAG" if style~wordpos("TBSTYLE_FLAT") > 0 then ret = ret || " FLAT" if style~wordpos("TBSTYLE_LIST") > 0 then ret = ret || " LIST" if style~wordpos("TBSTYLE_CUSTOMERASE") > 0 then ret = ret || " CUSTOMERASE" if style~wordpos("TBSTYLE_REGISTERDROP") > 0 then ret = ret || " REGISTERDROP" if style~wordpos("TBSTYLE_TRANSPARENT") > 0 then ret = ret || " TRANSPARENT" if style~wordpos("WS_BORDER") > 0 then ret = ret || " BORDER" end else if kind = "TREE" then do if style~wordpos("TVS_CHECKBOXES") > 0 then ret = ret || " CHECKBOXES" if style~wordpos("TVS_DISABLEDRAGDROP") > 0 then ret = ret || " NODRAG" if style~wordpos("TVS_EDITLABELS") > 0 then ret = ret || " EDIT" if style~wordpos("TVS_FULLROWSELECT") > 0 then ret = ret || " FULLROWSELECT" if style~wordpos("TVS_HASBUTTONS") > 0 then ret = ret || " BUTTONS" if style~wordpos("TVS_HASLINES") > 0 then ret = ret || " LINES" if style~wordpos("TVS_INFOTIP") > 0 then ret = ret || " INFOTIP" if style~wordpos("TVS_LINESATROOT") > 0 then ret = ret || " ATROOT" if style~wordpos("TVS_NOHSCROLL") > 0 then ret = ret || " NOHSCROLL" if style~wordpos("TVS_NONEVENHEIGHT") > 0 then ret = ret || " NONEVENHEIGHT" if style~wordpos("TVS_NOSCROLL") > 0 then ret = ret || " NOSCROLL" if style~wordpos("TVS_NOTOOLTIPS") > 0 then ret = ret || " NOTOOLTIPS" if style~wordpos("TVS_RTLREADING") > 0 then ret = ret || " RTLREADING" if style~wordpos("TVS_SHOWSELALWAYS") > 0 then ret = ret || " SHOWSELALWAYS" if style~wordpos("TVS_SINGLEEXPAND") > 0 then ret = ret || " SINGLEEXPAND" if style~wordpos("TVS_TRACKSELECT") > 0 then ret = ret || " TRACKSELECT" if style~wordpos("WS_HSCROLL") > 0 then ret = ret || " HSCROLL" if style~wordpos("WS_VSCROLL") > 0 then ret = ret || " VSCROLL" if style~wordpos("WS_BORDER") = 0 then ret = ret || " NOBORDER" end else if kind = "UPDOWN" then do if style~wordpos("UDS_ALIGNLEFT") > 0 then ret = ret || " LEFT" if style~wordpos("UDS_ALIGNRIGHT") > 0 then ret = ret || " RIGHT" if style~wordpos("UDS_ARROWKEYS") > 0 then ret = ret || " ARROWKEYS" if style~wordpos("UDS_AUTOBUDDY") > 0 then ret = ret || " AUTOBUDDY" if style~wordpos("UDS_HORZ") > 0 then ret = ret || " HORIZONTAL" if style~wordpos("UDS_HOTTRACK") > 0 then ret = ret || " HOTTRACK" if style~wordpos("UDS_NOTHOUSANDS") > 0 then ret = ret || " NOTHOUSANDS" if style~wordpos("UDS_SETBUDDYINT") > 0 then ret = ret || " BUDDYINT" if style~wordpos("UDS_WRAP") > 0 then ret = ret || " WRAP" end if style~wordpos("WS_VSCROLL") > 0 then ret = ret || " VSCROLL" if style~wordpos("WS_HSCROLL") > 0 then ret = ret || " HSCROLL" if style~wordpos("WS_TABSTOP") = 0 then ret = ret || " NOTAB" return ret -- DEPRECATED (to end of file.) ::method addStatic external "LIBRARY oodialog dyndlg_createStatic" ::method addImage external "LIBRARY oodialog dyndlg_createStaticImage" ::method addButton external "LIBRARY oodialog dyndlg_addButton" ::method addRadioButton external "LIBRARY oodialog dyndlg_addRadioButton" ::method addCheckBox external "LIBRARY oodialog dyndlg_addRadioButton" ::method addGroupBox external "LIBRARY oodialog dyndlg_addGroupBox" ::method addScrollBar external "LIBRARY oodialog dyndlg_createScrollBar" ::method addEntryLine external "LIBRARY oodialog dyndlg_addEntryLine" ::method addPasswordLine external "LIBRARY oodialog dyndlg_addEntryLine" ::method addListBox external "LIBRARY oodialog dyndlg_addMethod" ::method addComboBox external "LIBRARY oodialog dyndlg_addMethod" ::method addTreeControl external "LIBRARY oodialog dyndlg_addMethod" ::method addListControl external "LIBRARY oodialog dyndlg_addMethod" ::method addProgressBar external "LIBRARY oodialog dyndlg_createProgressBar" ::method addSliderControl external "LIBRARY oodialog dyndlg_addMethod" ::method addTabControl external "LIBRARY oodialog dyndlg_addMethod" ::method addBitmapButton use strict arg id, x, y, cx = 0, cy = 0, text = "", msgToRaise = "", bmp, focus = "", sel = "", disabl = "", opts = "" return self~createBitmapButton(id, x, y, cx, cy, opts, text, msgToRaise, bmp, focus, sel, disabl) ::method addText use strict arg x, y, cx = 0, cy = 0, text = "", opts = "", id = (-1) return self~createStaticText(id, x, y, cx, cy, opts, text) ::method addWhiteRect use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createWhiteRect(id, x, y, cx, cy, opts) ::method addGrayRect use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createGrayRect(id, x, y, cx, cy, opts) ::method addBlackRect use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createBlackRect(id, x, y, cx, cy, opts) ::method addWhiteFrame use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createWhiteFrame(id, x, y, cx, cy, opts) ::method addGrayFrame use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createGrayFrame(id, x, y, cx, cy, opts) ::method addBlackFrame use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createBlackFrame(id, x, y, cx, cy, opts) ::method addEtchedFrame use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createEtchedFrame(id, x, y, cx, cy, opts) ::method addEtchedHorizontal use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createEtchedHorizontal(id, x, y, cx, cy, opts) ::method addEtchedVertical use strict arg x, y, cx, cy, opts = "", id = (-1) return self~createEtchedVertical(id, x, y, cx, cy, opts) ::method addCheckGroup forward message "CREATECHECKBOXGROUP" ::method addCheckBoxStem forward message "CREATECHECKBOXSTEM" ::method addRadioGroup forward message "CREATERADIOBUTTONGROUP" ::method addRadioStem forward message "CREATERADIOBUTTONSTEM" ::method addButtonGroup forward message "CREATEPUSHBUTTONGROUP" ::method addOkCancelRightBottom forward message 'CREATEOKCANCELRIGHTBOTTOM' ::method addOkCancelLeftBottom forward message 'CREATEOKCANCELLEFTBOTTOM' ::method addOkCancelRightTop forward message 'CREATEOKCANCELRIGHTTOP' ::method addOkCancelLeftTop forward message 'CREATEOKCANCELLEFTTOP' ::method addInput use strict arg id, attributeName = "", x, y, cx1 = 0, cx2, cy = 0, text, opts = "", idstat = (self~STATIC_ID) if attributeName == "" then attributeName = text return self~createEditInput(id, x, y, cx1, cx2, cy, text, opts, idstat, attributeName) ::method addInputGroup forward message "CREATEEDITINPUTGROUP" ::method addInputStem forward message "CREATEEDITINPUTSTEM" ::method addComboInput use strict arg id, attributeName = "", x, y, cx1 = 0, cx2, clines = 5, text, opts = "", idstat = (self~STATIC_ID) return self~createComboBoxInput(id, x, y, cx1, cx2, clines, text, opts, idstat, attributeName) ::method addIcon forward message "ADDICONRESOURCE"