Class: WR::FDMain

Inherits:

Form

Object
Data
RWin::Window
Window
Form
WR::FDMain

show all

Defined in:: lib/wrb/applications/frmdesigner/fdesign.rb,
lib/wrb/applications/frmdesigner/fddialogs.rb

Defined Under Namespace

Classes: ImageSizeInput

Constant Summary

Instance Attribute Summary collapse

#forms ⇒ Object readonly

Returns the value of attribute forms.
#frm ⇒ Object

Returns the value of attribute frm.
#modified ⇒ Object

Returns the value of attribute modified.
#selected_ctrl ⇒ Object readonly

Returns the value of attribute selected_ctrl.
#selected_cursor ⇒ Object readonly

Returns the value of attribute selected_cursor.
#selected_klass ⇒ Object

Returns the value of attribute selected_klass.
#selected_rs_klass ⇒ Object readonly

Returns the value of attribute selected_rs_klass.
#selected_rsc_cursor ⇒ Object readonly

Returns the value of attribute selected_rsc_cursor.

Attributes included from ModBaseWin

#_deny_font_inherit

Attributes included from ModCreateWin

#default_hfont

Instance Method Summary collapse

#add_resource2form ⇒ Object

def lvrs1_dblclk(*) add_resource2form() end def btrscadd_clicked(*) add_resource2form() klass = @lvrs1.data end.
#additem_clicked(idcmd, state) ⇒ Object
#additem_under_clicked ⇒ Object
#addnode_clicked ⇒ Object
#addnode_under_clicked ⇒ Object
#check_modified ⇒ Object
#check_winclassname(nm) ⇒ Object
#close_current_project ⇒ Object
#created ⇒ Object
#deleteitem2_clicked ⇒ Object
#deleteitem3_clicked ⇒ Object
#deleteitem_clicked ⇒ Object
#delfrm1_clicked ⇒ Object
#exit1_clicked ⇒ Object

; dp “@exit: hwnd=%#x”, _hwnd.
#get_attributes(ctrl, ar) ⇒ Object
#get_events(ctrl) ⇒ Object

dpp ctrl, ctrl.acceptable_events.
#get_styles(ctrl) ⇒ Object
#initialize ⇒ FDMain constructor

A new instance of FDMain.
#insdlg1_clicked ⇒ Object
#insert_toplevelwin(cname) ⇒ Object
#insertitem_clicked ⇒ Object
#insfrm1_clicked ⇒ Object
#load_controls ⇒ Object
#lvattr_click(nm) ⇒ Object

Show inplace editor.
#lvattr_itemchanged(nm) ⇒ Object
#lvcmn_click(nm) ⇒ Object
#lvevents_itemchanged(nmlv) ⇒ Object
#lvitems_click(nmia) ⇒ Object
#lvitems_itemchanged(nmlv) ⇒ Object
#lvitems_rclick(nmitem) ⇒ Object

; dpp nmitem.
#lvrs1_click(nm) ⇒ Object
#lvrs2_click(nmitem) ⇒ Object
#lvrs2_itemchanged(nmlv) ⇒ Object
#lvrs2_rclick(nmitem) ⇒ Object
#lvstd_click(nm) ⇒ Object
#lvstyles_itemchanged(nmlv) ⇒ Object
#modify_class_name(frm, newname) ⇒ Object
#newdialog1_clicked ⇒ Object
#newform1_clicked ⇒ Object
#open1(fname) ⇒ Object
#open1_clicked ⇒ Object
#parse_template4rd(ctrl, cmd, tp, defval = nil) ⇒ Object

; dpp cmd, atr, tp, defval.
#parse_template4wr(cmd, str, tp) ⇒ Object
#raise1_clicked ⇒ Object
#refrect2ctrl(lvitem) ⇒ Object
#reset_toplevelwin(newfrm, ctrl) ⇒ Object
#save1_clicked ⇒ Object
#saveas1_clicked ⇒ Object

need revise if exists file opned.
#self_activate(state, minimize, hwnd) ⇒ Object
#self_close ⇒ Object

; dp “@close: hwnd=%#x”, _hwnd.
#self_keydown(vk) ⇒ Object

; dpp vk.
#self_move ⇒ Object

; dpp self.x, self.y.
#self_resize ⇒ Object
#set_object2lvitems(obj) ⇒ Object
#tabs1_selchange(nmhdr) ⇒ Object
#tabs2_selchange(nmhdr) ⇒ Object
#tvhrc_rclick(nmhdr) ⇒ Object
#tvhrc_selchanged(nmtreeview) ⇒ Object
#tvhrc_select_ctrl(node = nil) ⇒ Object
#udhrc_deltapos(ud) ⇒ Object
#update_attributes(ctrl) ⇒ Object

; dpp ctrl, caller.
#update_hierarchy(ctrl = nil) ⇒ Object
#update_inpledit(lv, i, j) ⇒ Object
#update_lvrs2 ⇒ Object
#update_nested_hierarchy(node, ctrl) ⇒ Object
#windows1_clicked(id, st) ⇒ Object

Methods inherited from Form

#create

Methods included from ModToplevelWin

#MessageBox, #acceptable_events, #activate, #adjust_windowsize, #clientsize=, #get_toplevel_win, #icon=, included, #maximizebox, #maximizebox=, #minimizebox, #minimizebox=, #register_hotkey, #register_keyaccel, #sizebox, #sizebox=, #transparency, #transparency=, #transparentcolor, #transparentcolor=, #unregister_hotkey, #unregister_keyaccel

Methods included from ModParent

#__resize__, #controls, #create, #font=, #idcmd2ref, #inheritfont, #inheritfont=, #new_control_id

Methods included from RC

HIWORD, INDEXTOOVERLAYMASK, LOWORD, MAKELPARAM, MAKEROP4, RGB, SPLITPARAM, _I, _T, _X

Methods inherited from Window

#position, #position=, #size=

Methods included from ModBaseWin

#CancelDefWindowProc, #accept_events, #acceptable_events, #active?, #caption, #caption=, #classname, #clientpos, #exstyle, #exstyle=, #focused?, #font, #font=, #h, #h=, #hide, #inspect, #move, #parent, #parent=, #refresh, #resize, #setorder, #show, #showna, #size=, #style, #style=, #sym2exstyle, #sym2style, #visible, #visible=, #w, #w=, #windowsize, #x, #x=, #y, #y=

Methods included from ModCreateWin

#create

Methods included from ModAutoloading

included

Methods inherited from RWin::Window

#ClientToScreen, #DrawMenuBar, #GetWindowLong, #GetWindowRect, #PostMessage, #RegisterHotKey, #ReleaseCapture, #RemoveWindowSubclass, #ScreenToClient, #SendMessage, #SetCapture, #SetFocus, #SetMenu, #SetWindowLong, #SetWindowPos, #SetWindowSubclass, #ShowWindow, #TrackPopupMenu, #UnregisterHotKey, #_hwnd, #alive?, #caption, #caption=, #clientpos, #clientsize, #close, #create, #cursorPos, #event_registered?, #get_msgtranslator, #h, #h=, #idcmd, #idcmd=, #method_missing, #move, new_from_handle, #parent, #parent=, #redraw, #refresh, #register_event, #registered_messages, #resize, #screenpos, #set_accelerator, #set_msgtranslator, #setorder, #unregister_event, #visible, #visible=, #w, #w=, #windowsize, #x, #x=, #y, #y=

Constructor Details

#initialize ⇒ `FDMain`

Returns a new instance of FDMain.

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 13

def initialize()
  $fd_main_frm = self # Set only one global variable
  _<< Imagelist.new(:image0, 13, 13, true) << Bitmap.fromfile(FdDir+'/img13.bmp')
  @selected_cursor = Cursor.fromfile(FdDir+'/angle.cur')
  @selected_rsc_cursor = Cursor.fromfile(FdDir+'/angle2.cur')
#      @selected_cursor = Cursor.loadb64( "AAAAQAAIACAQAEAYACAFgAAAAAtAEAUQCAgJgABBAQAAwIAgLgAAAAAAAAAA
#AAAAAAABAPp/v9/wH/gkA8IJgJAAAAAJAAAAAJAAAAAJCAhCfcAAACAguggI
#MIP+AYEEMX/BHB/v8AACAYoPgrgD3+AAAD3+AAAD3+AABAQkAB+FSAfAAAAE
#AhA=")
  self.caption = "FormDesigner"
  self.visible = false
  self.style &= ~WS_MAXIMIZEBOX
  self.size = 1100, 600
  self.font = Font['Yu Gothic UI', -12]
  self.inheritfont = :force
  _<< Menubar[:main1, Menu[:file1, 'File', Menu[:new1, "New", :newform1, "Form", :newdialog1, "Dialog"], :open1, "Open", :save1, "Save\tCtrl+S", :saveas1, "Save as", :sep, :exit1, "Exit"], Menu[:insert1, "Insert", :insdlg1, "Dialog", :insfrm1, "Form"], Menu[:window1, "Window", :sep, :delfrm1, "Delete this"], Menu[:prf1, "Preferences", MFT_RIGHTJUSTIFY, :raise1, "RaiseForTest"]]
  @spl1 = _<< Splitter[:spl1, 200, 224, 6, 6, :horiz, :dot]
  
  @tabs1 = @spl1.upper << Tabctrl[:tabs1, 0, 0, 200, 200, :mintabwidth=>0, :margin=>[0,0,0,0]]
  _tabs1[0, 0] = "Standard", "Common", "Resources", "Hierarchy"
  
  @stbr1 = _<< Statusbar[:stbr1, '', 0,0,0,0, :simple=>true]
  @lvstd = _tabs1[0] << Listview[:lvstd, 0, 0, 200, 200, :smalliconview, :margin=>[0,24,0,0]]
  @lvcmn = _tabs1[1] << Listview[:lvcmn, 0, 0, 200, 200, :smalliconview, :margin=>[0,24,0,0]]
  @spl2 = _tabs1[2] << Splitter[:spl2, 180, 24, 3, 3, :face=>:none, :margin=>[nil,24,100,0]]
  @lvrs1 = _tabs1._spl2.rl_pane << Listview[:lvrs1, 0, 0, 110, 200, :smalliconview, :margin=>[0,0,0,0], :visible=>false]
  @lvrs2 = _tabs1._spl2.lu_pane << Listview[:lvrs2, 0, 0, 100, 200, :smalliconview, :showselalways, :sortascending, :margin=>[0,0,0,0], :bkcolor=>0xf0f0f0, :textbkcolor=>0xf0f0f0, :visible=>false]
#       _tabs1._spl2.lu_pane <<  _tabs1._lvrs2
#       _tabs1._spl2.rl_pane <<  _tabs1._lvrs1
#      _tabs1[2] << Button[:btrscadd, '<', 96, 0, 16, 200, :margin=>[nil, 34, 100, 10]]
  @tvhrc = _tabs1[3] << Treeview[:tvhrc, 0, 0, 200, 200, :showselalways, :margin=>[0,24,20,0]]
  @udhrc = _tabs1[3] << Updown[:udhrc, 0, 0, 20, 50, :margin=>[nil, 24, 0, nil]]
  @tabs2 = @spl1.lower << Tabctrl[:tabs2, 0,0,200,200, :mintabwidth=>0, :margin=>[0,0,0,24]]
#      _tabs2 << ["Attributes", "Styles", "Events"]
  _tabs2[0, 0] = "Attributes", "Styles", "Events"
  @lvattr = _tabs2[0] << Listview[:lvattr, 0, 0, 200,200, :reportview, :nocolumnheader, :gridlines, :fullrowselect, :margin=>[0,24,0,0], :columns=>[['',116],['',144]],  :imagelist=>_image0]
  @lvstyles = _tabs2[1] << Listview[:lvstyles, 0, 0, 200,200,:listview, :checkboxes, :margin=>[0,24,0,0]]
  @lvevents = _tabs2[2] << Listview[:lvevents, 0, 0, 200,200, :listview, :checkboxes, :margin=>[0,24,0,0]]
  @lvitems = _tabs2[1] << Listview[:lvitems, 0,0, 100, 100, :listview, :gridlines,  :nocolumnheader, :fullrowselect, :margin=>[0, 24, 0, 0], :columns=>[['',120],['', 144]], :visible=>false]
  
  @ied1 = _<< Edit[:ied1, "", 0, 0, 80, 18, :autohscroll, :wantreturn, :visible=>false]
  @ied1.exstyle &= ~WS_EX_CLIENTEDGE
  @ied1.set_subclass.register_event WM_KEYDOWN, 'key_down', 'ii'
  class << @ied1
    attr_accessor :iitem, :isubitem
    def key_down(wp, lp)
      case wp
      when 13, 9
        $fd_main_frm.PostMessage(WM_KEYDOWN, wp, lp)
        CancelDefWindowProc
      when 38, 40
        parent.PostMessage(WM_KEYDOWN, wp, lp)
        CancelDefWindowProc
      end
    end
  end
  _<< Menu[:popup1]
  _<< Menu[:popup2, :deleteitem2, "Delete"]
  _<< Menu[:popup3, :deleteitem3, "Delete"]
#      _<< Menu[:popup3, :additem3, "Add", :deleteitem3, "Delete"]
#      _<< Menu[:popup4, :additem4, "Add Item", :addmenu4, "Add Menu", :sep, :deleteitem4, "Delete"]
#      _<< Menu[:popup5, :additemunder4, "Add Item under", :addmenuunder4, "Add Menu under",:additem4, "Add Item", :addmenu4, "Add Menu",  :sep, :deleteitem4, "Delete"]
  
  @forms = []
  @lvattr.events = :keydown
  @lvrs1.events = :dblclk
  @lvrs2.events = :rclick
  @lvitems.events = :rclick, :beginlabeledit, :endlabeledit
  @tvhrc.events = :rclick
  self.events = :keydown, :activate
  @selected_rs_klass = nil
  @selected_klass = nil
  @opend_file = nil
  @modified = nil
  load_controls
end

Dynamic Method Handling

This class handles dynamic methods through the method_missing method in the class RWin::Window

Instance Attribute Details

#forms ⇒ `Object` (readonly)

Returns the value of attribute forms.



11
12
13

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 11

def forms
  @forms
end

#frm ⇒ `Object`

Returns the value of attribute frm.



9
10
11

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 9

def frm
  @frm
end

#modified ⇒ `Object`

Returns the value of attribute modified.



9
10
11

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 9

def modified
  @modified
end

#selected_ctrl ⇒ `Object` (readonly)

Returns the value of attribute selected_ctrl.



10
11
12

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 10

def selected_ctrl
  @selected_ctrl
end

#selected_cursor ⇒ `Object` (readonly)

Returns the value of attribute selected_cursor.



10
11
12

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 10

def selected_cursor
  @selected_cursor
end

#selected_klass ⇒ `Object`

Returns the value of attribute selected_klass.



9
10
11

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 9

def selected_klass
  @selected_klass
end

#selected_rs_klass ⇒ `Object` (readonly)

Returns the value of attribute selected_rs_klass.



10
11
12

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 10

def selected_rs_klass
  @selected_rs_klass
end

#selected_rsc_cursor ⇒ `Object` (readonly)

Returns the value of attribute selected_rsc_cursor.



10
11
12

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 10

def selected_rsc_cursor
  @selected_rsc_cursor
end

Instance Method Details

#add_resource2form ⇒ `Object`

def lvrs1_dblclk(*)

  add_resource2form()
end
def btrscadd_clicked(*)
  add_resource2form()
        klass =  @lvrs1[@lvrs1.focused].data
end

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 900

def add_resource2form
  klass =  @selected_rs_klass
  @selected_rs_klass = nil
  @lvrs1[@lvrs1.focused].focused = false
  return unless klass.is_a?(Class)
  
  conf = klass::FDConfig
  defcap = klass.to_s.sub(/.*::/, '')
  capt = conf[:default_caption] || defcap
  name = conf[:default_name] || defcap.downcase
  name = @frm.suffixed_name(name + "1").intern
  ctls = @frm.controls
  if klass <= Imagelist
    iml = ImageSizeInput.open_modal(self, [klass, @frm])
    return unless iml
    iml.name = name
    ct = ctls << iml
    itemcap = "#{name} (#{w}, #{h})"
  else #; dpp @frm
    ct = ctls << klass.new(name, capt)
    itemcap = name.to_s
  end
  
  if (sz=ctls._size) > 1
    a_mnb = []; s_mnb = []
    a_mnu = []; s_mnu = []
    a_tim = []; s_tim = []
    a_iml = []; s_iml = []
    lns = @frm.__fd_src[:lines]
    sol = lns ? lns.size : 0
    ctls._size.times{|j| # Sort by priority
      i = sz-j-1; 
      c = ctls[i]
      if c.is_a?(Menubar)
        a_mnb << ctls._delete_at(i)
        if c.respond_to?(:__fd_src) && c.__fd_src
          l = lns.index(lsrc=c.__fd_src[2])
          sol = l if l && sol > l
          s_mnb << lns.delete(lsrc)
        end
      elsif c.is_a?(Menu)
        a_mnu << ctls._delete_at(i)
        if c.respond_to?(:__fd_src) && c.__fd_src
          l = lns.index(lsrc=c.__fd_src[2])
          sol = l if l && sol > l
          s_mnu << lns.delete(lsrc)
        end
      elsif c.is_a?(Timer)
        a_tim << ctls._delete_at(i)
        if c.respond_to?(:__fd_src) && c.__fd_src
          l = lns.index(lsrc=c.__fd_src[2])
          sol = l if l && sol > l
          s_tim << lns.delete(lsrc)
        end
      elsif c.is_a?(Imagelist)
        a_iml << ctls._delete_at(i)
        if c.respond_to?(:__fd_src) && c.__fd_src
          lsrc, lcount = c.__fd_src[2, 2]
          l = lns.index(lsrc)
          sol = l if l && sol > l
          if lcount
            ll = lns.index(lsrc)
            s_iml << lns.slice!(ll, lcount)
          else
            s_iml << lns.delete(lsrc)
          end #; dpp s_iml
        end
      end
    }
    
    ar = (a_mnb + a_mnu + a_tim + a_iml).compact
    ar.each{|c| ctls[0, 0] = c}
    if lns
      as = (s_iml + s_tim + s_mnu + s_mnb ).compact.flatten
      lns[sol, 0] = as
    end
  end
#      dpp ctls.map{|i| i.name}
  
  ct.extend(ModResourceHook)
  @tabs2.cursel = 0
  @lvattr.visible=true
  update_lvrs2
  @lvrs2.SetFocus
  selidx = @lvrs2.find(param: ct.__id__)
  @lvrs2.selections.clear
  @lvrs2[selidx].selected = true
  @lvrs2[selidx].focused = true
  set_object2lvitems(ct)
end

#additem_clicked(idcmd, state) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1120

def additem_clicked(idcmd, state)
  return unless so = @selected_object
  if so.respond_to?(:__fd_on_additem)
    so.__fd_on_additem(@lvitems, @lvitems.focused, _popup1, idcmd)
    return
  end
  so.class::FDConfig[:on_additem].call(so, @lvitems, @lvitems.focused, _popup1, idcmd)
end

#additem_under_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1136

def additem_under_clicked(*)
  return unless so = @selected_object
  if so.respond_to?(:__fd_on_additem_under)
    so.__fd_on_additem_under(@lvitems, @lvitems.focused)
    return
  end
  so.class::FDConfig[:on_additem_under].call(so, @lvitems, @lvitems.focused)
end

#addnode_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1144

def addnode_clicked(*)
  return unless so = @selected_object
  if so.respond_to?(:__fd_on_addnode)
    so.__fd_on_addnode(@lvitems, @lvitems.focused)
    return
  end
  so.class::FDConfig[:on_addnode].call(so, @lvitems, @lvitems.focused)
end

#addnode_under_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1152

def addnode_under_clicked(*)
  return unless so = @selected_object
  if so.respond_to?(:__fd_on_addnode_under)
    so.__fd_on_addnode_under(@lvitems, @lvitems.focused)
    return
  end
  so.class::FDConfig[:on_addnode_under].call(so, @lvitems, @lvitems.focused)
end

#check_modified ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 243

def check_modified()
  case msgbox("Would you like to save this project?", "FormDesigner", 0x23) # QUESTION + YESNOCANCEL
  when 6 # Yes
    return save1_clicked
  when 2 # Cancel
    return nil
  end if @modified
  true
end

#check_winclassname(nm) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 167

def check_winclassname(nm)
  base = nm.sub(/\d+$/, '')
  suffix = $~[0].to_i
  while
    @forms.find{|i| i.class.to_s.split('::').last == base+suffix.to_s}
    suffix += 1
  end
  base + suffix.to_s
end

#close_current_project ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 253

def close_current_project()
  @forms.each{|i| i.close if i.alive?}
  @forms.clear
  _main1.window1.clear
  GC.start
  @modified = nil
end

#created ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 122

def created()
  move(x+800, y, w-800, h).show
  register_hotkey(_main1.file1.save1.idcmd, 'Ctrl+S')
  @lvstd.imagelist = @imgstdctl
  @lvcmn.imagelist = @imgcmnctl
  @lvrs1.imagelist = @imgrscctl
  @lvrs2.set_subclass(true)
  @lvrs2.register_event(WM_SETCURSOR, 'lvrs2_setcursor', 'ih')
  class << @lvrs2
    def lvrs2_setcursor(hwnd, hittest, msg)
      return unless hittest == 1
      return unless $fd_main_frm.selected_rs_klass
      APP.SetCursor $fd_main_frm.selected_rsc_cursor
      CancelDefWindowProc
    end
  end
  @lvrs2.imagelist = @imgrscctl
  
  insert_toplevelwin('Form').move(self.x-800, self.y, 800, 600).show
  self.SetFocus
  accept_events :move, :resize, :close
  update_attributes(@frm)
  @ied1.parent = @lvattr
  update_hierarchy()
  @fdrscctls.each{|i| @lvrs1 << i}
  @fdstdctls.each{|i| @lvstd << i}
  @fdcmnctls.each{|i| @lvcmn << i}
  unless ARGV.empty?
    fname=ARGV.shift
    begin
      open1(fname)
    rescue => err
      STDERR.puts err
    end
  end
end

#deleteitem2_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1169

def deleteitem2_clicked(*)
  obj = @lvrs2[@lvrs2.focused].data
  obj.__fd_on_delete_this() if obj.respond_to?(:__fd_on_delete_this)
  @lvrs2[@lvrs2.focused].delete
  @frm.controls.delete(obj)
  @frm.SetMenu(nil) if obj.is_a?(Menubar)
  @lvrs2.selections.clear
  @lvrs2.clear
  update_lvrs2
end

#deleteitem3_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1206

def deleteitem3_clicked(*)
  @tvhrc.selection.data.delete
  @tvhrc.selection.delete
end

#deleteitem_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1160

def deleteitem_clicked(*)
  return unless so = @selected_object
  if so.respond_to?(:__fd_on_deleteitem)
    so.__fd_on_deleteitem(@lvitems, @lvitems.focused)
    return
  end
  so.class::FDConfig[:on_deleteitem].call(so, @lvitems, @lvitems.focused)
end

#delfrm1_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 212

def delfrm1_clicked(*)
  return msgbox("This form is last one.", "Formdesigner", 0x10) if @forms.size==1
  @forms.delete(@frm)
  classname = @frm.class.to_s.split("::").last
  _main1.window1.each{|i|
    if i.caption == classname
      i.delete
      break
    end
  } #; dpp @frm.__fd_src[:classname]
  unless  @frm.__fd_src.empty?
    lns = @frm.__fd_src[:lines]
    soc = ModFDCommon.index_of_src(lns, @frm.__fd_src[:classname][2])
    eoc = ModFDCommon.index_of_src(lns,@frm.__fd_src[:endofclass][2])
    while lns[eoc+=1] =~ /^\s*$/; end
    eoc -= 1
    lns.slice!(soc..eoc)
  end
  @frm.close
  @frm = @forms.last
  @modified = true
  update_attributes(@frm)
end

#exit1_clicked ⇒ `Object`

; dp “@exit: hwnd=%#x”, _hwnd

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 481

def exit1_clicked(*) #; dp "@exit: hwnd=%#x", _hwnd
  return unless check_modified
  @forms.each{|i| i.close if i.alive?}
  APP.quit!
end

#get_attributes(ctrl, ar) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 505

def get_attributes(ctrl, ar)
  ar.map{|i| 
    str, tp , defval = i #; dpp str, tp #, ctrl.__send__(str).to_s
    if atr=parse_template4rd(ctrl, str, tp, defval)
      [str + "\t" + atr, nil, nil, tp]
    end
  }.compact
end

#get_events(ctrl) ⇒ `Object`

dpp ctrl, ctrl.acceptable_events

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 585

def get_events(ctrl) #dpp ctrl, ctrl.acceptable_events
#      ctrl.class::FDConfig[:events] || ctrl.class::PreDefinedEvents.keys #rescue nil
  ctrl.class::FDConfig[:events] || ctrl.acceptable_events.keys
end

#get_styles(ctrl) ⇒ `Object`



581
582
583

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 581

def get_styles(ctrl)
  ctrl.class::FDConfig[:styles] || ctrl.class::WinStyles.keys.map{|i| i.to_s}
end

#insdlg1_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 201

def insdlg1_clicked(*)
  dlg = insert_toplevelwin('Dialog')
  dlg.show.move(x-dlg.w, y)
end

#insert_toplevelwin(cname) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 177

def insert_toplevelwin(cname)
  nm = check_winclassname(cname + '1')
  @frm = WR.module_eval(
  "class #{nm}<#{cname};
     if defined? FDConfig 
       FDConfig.clear
     else
       FDConfig={}
     end
     def initialize();end
   end;
   #{nm}.new"
  )
  @frm.visible = false
#      @frm.size = 640, 480
  @frm.extend(ModToplevelHook).create
  @forms << @frm
  _main1.window1.insert(_main1.window1.count-2, [:windows1, nm])
  update_attributes(@frm)
  update_hierarchy
  @modified = true if @forms.size > 1
  @frm
end

#insertitem_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1128

def insertitem_clicked(*)
  return unless so = @selected_object
  if so.respond_to?(:__fd_on_insertitem)
    so.__fd_on_insertitem(@lvitems, @lvitems.focused)
    return
  end
  so.class::FDConfig[:on_insertitem].call(so, @lvitems, @lvitems.focused)
end

#insfrm1_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 206

def insfrm1_clicked(*)
  _x, _y = self.position
  frm = insert_toplevelwin('Form')
  frm.show.move(_x-640, _y, 640, 480)
end

#load_controls ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 90

def load_controls()
  @imgstdctl = Imagelist.new(20, 20, true)
  @imgcmnctl = Imagelist.new(20, 20, true)
  @imgrscctl = Imagelist.new(20, 20, true)
  @fdstdctls = [['Unselect', 0]]
  @fdcmnctls = [['Unselect', 0]]
  @fdrscctls = [['Unselect', 0]]
  dir = FdDir + '/controls/'
  @imgstdctl << Bitmap.fromfile(dir+'unselect.bmp')
  @imgcmnctl << Bitmap.fromfile(dir+'unselect.bmp')
  @imgrscctl << Bitmap.fromfile(dir+'unselect.bmp')
  istd = icmn = irsc = 0
  Dir.glob(dir+"*.rb"){|i|
    next unless File.basename(i) =~ /^[A-Z]/
    load i
    klassname = File.basename(i, '.rb')
    klass = WR.module_eval(klassname)
    case klass::FDConfig[:classify]
    when :commonctrl
      @imgcmnctl << klass::FDConfig[:bitmap]
      @fdcmnctls << [klassname, icmn+=1, 0, klass]
    when :resources
      @imgrscctl << klass::FDConfig[:bitmap]
      @fdrscctls << [klassname, irsc+=1, 0, klass]
    else
      @imgstdctl << klass::FDConfig[:bitmap]
      @fdstdctls << [klassname, istd+=1, 0, klass]
    end
  }
  @imgstdctl << Bitmap.fromfile(dir + 'default.bmp')
end

#lvattr_click(nm) ⇒ `Object`

Show inplace editor

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 809

def lvattr_click(nm) # Show inplace editor
  return if API.uint2int(nm.iItem) < 0
  update_inpledit(@lvattr, nm.iItem, 1)
end

#lvattr_itemchanged(nm) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 814

def lvattr_itemchanged(nm)
  if nm.uOldState == LVIS_FOCUSED
    lvitem = @lvattr[nm.iItem]
    lvitem[1] = @ied1.caption #; dpp lvitem[1]
    return if !lvitem.data || lvitem[1].empty?
    refrect2ctrl(lvitem)
  elsif nm.uNewState == LVIS_FOCUSED | LVIS_SELECTED
    update_inpledit(@lvattr, nm.iItem, 1)
  end
end

#lvcmn_click(nm) ⇒ `Object`



496
497
498

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 496

def lvcmn_click(nm)
  @selected_klass = @lvcmn[nm.iItem].data
end

#lvevents_itemchanged(nmlv) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1293

def lvevents_itemchanged(nmlv)
  return if @_lvevents_updating
  win = (@selected_ctrl || @frm)
  case nmlv.uNewState >> 12
  when 1 # not checked
    if win.class::DefaultEvents.index(@lvevents[nmlv.iItem].text.intern)
      @lvevents[nmlv.iItem].checked = true
    else
      win.__fd_events.delete(@lvevents[nmlv.iItem].text.intern)
    end
  when 2 # checkd
    win.__fd_events << @lvevents[nmlv.iItem].text.intern
    win.__fd_events.uniq!
  end
end

#lvitems_click(nmia) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1226

def lvitems_click(nmia)
  if @ied1.iitem && @ied1.isubitem &&
    (nmia.iItem==@ied1.iitem && nmia.iSubItem!=@ied1.isubitem)
    so = @selected_object
    update_inpledit(@lvitems, nmia.iItem, nmia.iSubItem)
    if so.respond_to?(:__fd_edit_item)
      so.__fd_edit_item(@lvitems, nmia.iItem, nmia.iSubItem, @ied1)
    elsif prc=so.class::FDConfig[:edit_item]
      prc.call(so, @lvitems, nmia.iItem, nmia.iSubItem, @ied1)
    end
  else
    update_inpledit(@lvitems, nmia.iItem, nmia.iSubItem)
  end
  @lvitems_cursubitem = nmia.iSubItem
end

#lvitems_itemchanged(nmlv) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1242

def lvitems_itemchanged(nmlv)
  if nmlv.uOldState == LVIS_FOCUSED
    so = @selected_object
    lvitem = @lvitems[nmlv.iItem]
    @lvitems[nmlv.iItem][@lvitems_cursubitem] = @ied1.caption
    if so.respond_to?(:__fd_edit_item)
      so.__fd_edit_item(@lvitems, nmlv.iItem, @lvitems_cursubitem, @ied1)
    elsif prc=so.class::FDConfig[:edit_item]
      prc.call(so, @lvitems, nmlv.iItem, @lvitems_cursubitem, @ied1)
    end
  elsif nmlv.uNewState == LVIS_FOCUSED | LVIS_SELECTED
    update_inpledit(@lvitems, nmlv.iItem, @lvitems_cursubitem)
  end
end

#lvitems_rclick(nmitem) ⇒ `Object`

; dpp nmitem

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1211

def lvitems_rclick(nmitem) #; dpp nmitem
  @ied1.visible = false
  so = @selected_object || @selected_ctrl
  idx = nmitem.iItem #; dpp so, idx
  if so.respond_to?(:__fd_on_lv_rclick) #; dpp so, _popup1, _popup1.count
    _popup1.clear
    r = so.__fd_on_lv_rclick(@lvitems, idx)#; dpp idx, r
    _popup1[0, 0] = r
  else
    _popup1.clear[0, 0] = so.class::FDConfig[:on_lv_rclick].call(so, @lvitems, idx)
  end
  cx, cy = ScreenToClient(*APP.GetCursorPos)
  TrackPopupMenu(_popup1, cx, cy)
end

#lvrs1_click(nm) ⇒ `Object`



500
501
502

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 500

def lvrs1_click(nm)
  @selected_rs_klass = @lvrs1[nm.iItem].data
end

#lvrs2_click(nmitem) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1079

def lvrs2_click(nmitem)
  return add_resource2form() if @selected_rs_klass
#      @selected_rs_klass = nil
  obj = @lvrs2[nmitem.iItem].data
  @frm.TrackPopupMenu(obj, 0,0) if obj.is_a?(Menu) && !obj.is_a?(Menubar)
end

#lvrs2_itemchanged(nmlv) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1086

def lvrs2_itemchanged(nmlv)
  return if nmlv.uNewState & LVIS_FOCUSED == 0
  obj = @lvrs2[nmlv.iItem].data
  update_attributes(obj)
  set_object2lvitems(obj)
end

#lvrs2_rclick(nmitem) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1115

def lvrs2_rclick(nmitem)
  cx, cy = nmitem.ptAction.to_a
  TrackPopupMenu(_.popup2, @lvrs2.x + cx, @lvrs2.y + cy)
end

#lvstd_click(nm) ⇒ `Object`



492
493
494

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 492

def lvstd_click(nm)
  @selected_klass = @lvstd[nm.iItem].data
end

#lvstyles_itemchanged(nmlv) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1257

def lvstyles_itemchanged(nmlv)
  return if @_lvstyles_updating
  win = (@selected_ctrl || @frm)
  nm = @lvstyles[nmlv.iItem].text.intern
  st = win.class::WinStyles[nm]
  altmask = win.class::FDConfig[:altanate_mask]
  m = altmask.find{|i| i&st > 0 || (i&1>0 && st==0)} if altmask # check LSB of mask
  mm = win.class::WinStyles.inject([]){|r, v|
    r << v[0] if (v[1]&m > 0) || (v[1]==0 && m&1==1)
    r
  } if m
  case nmlv.uNewState >> 12
  when 1 # not checked
    win.style &= ~st
  when 2  # checked
    if m
      mm.each{|i|
        if (fi=@lvstyles.find(string: i.to_s)) >= 0 && i != nm
          @_lvstyles_updating = true
          @lvstyles[fi].checked = false
          @_lvstyles_updating = nil
        end
      }
      win.style = (win.style & ~m) | st
    else
      win.style |= st
    end
  end
  if win.respond_to?(:__fd_recreate_this)
    @selected_ctrl = win.__fd_recreate_this()
  elsif win.class::FDConfig[:need_recreate]
    @selected_ctrl = win.__fd_recreate
  end
  win.refresh
end

#modify_class_name(frm, newname) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 739

def modify_class_name(frm, newname)
  mod, oldname = frm.class.to_s.split('::')
  newname = newname.split('::').last.to_s
#      newname.split('::').last
  
  unless newname =~ /[A-Z]\w*/
    return msgbox "Invalid class name: #{newname}", "FormDesigner", 0x10
  end
  return if oldname == newname #; dpp frm, newname
  if @forms.find{|i| i.class.to_s.split('::').last == newname}
    return msgbox "#{newname} is already exists.", "FormDesigner", 0x10
  end
  superclass = frm.class.ancestors[1].to_s
  newfrm = WR.module_eval("
class #{mod}::#{newname}<#{superclass}
   FDConfig={} unless defined? FDConfig
   def intialize();end
 end
#{newname}.new")
  newfrm.extend(ModToplevelHook)
  newfrm.move(@frm.x, @frm.y, @frm.w, @frm.h)
  newfrm.__fd_attributes__.each{|k, v| next if k=='class' || k=='clientsize'
    newfrm.__send__((k+"=").intern, @frm.__send__(k.intern))
  }
  newfrm.__fd_src.update(@frm.__fd_src)
  oldfrm = @frm
  newfrm.create
  oldfrm.controls.each{|i|
    reset_toplevelwin(newfrm, i) if i.is_a?(Window)
    newfrm.controls[newfrm.controls.count, 0] = i
    if i.is_a?(Menubar)
      oldfrm.SetMenu(nil)
      i.parent = newfrm
      newfrm.SetMenu(i)
    end
  }
  oldfrm.close
  idx = @forms.index(oldfrm)
  @selected_ctrl = @frm = newfrm
  @forms[idx] = @frm
  _main1.window1[idx].caption = newname
  GC.start
end

#newdialog1_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 271

def newdialog1_clicked(*)
  return unless check_modified
  close_current_project
  dlg = insert_toplevelwin('Dialog')
  dlg.show.move(x-dlg.w, y)
  _main1.window1 << [:sep, [:delfrm1, "Delete this"]]
end

#newform1_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 261

def newform1_clicked(*)
  return unless check_modified
  _x, _y = self.position
  close_current_project
  @binded_files = nil
  insert_toplevelwin('Form')
  frm.show.move(_x-800, _y, 800, 600)
  _main1.window1 << [:sep, [:delfrm1, "Delete this"]]
end

#open1(fname) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 286

def open1(fname)
  current_src = open(fname){|f| f.read}
  Dir.chdir(File.dirname(fname))
  src = FDParseForm.new(current_src, fname)
  src.parse
  res = src.result #; PP.pp res, STDERR, 95
  return MessageBox("No Form class in this file.", "FormDesigner", 0x10) if res.empty?
  close_current_project
  
  lines = current_src.lines
  res.reverse_each{|fm|
    classname = fm.shift #; dpp classname
    WR.module_eval(classname +
    ";defined?(FDConfig) ? FDConfig.clear : FDConfig={};def initialize();end;end\n")
    klass = WR.module_eval(classname.sub(/class\s+(\w+).*/m, '\1'))
    frm = klass.new
    frm.extend(ModToplevelHook)
    frm.__fd_src[:filename] = fname
    frm.__fd_src[:lines] = lns = lines
    frm.__fd_src[:classname] = classname.column, classname.size, lns[classname.line]
    endline = fm.pop
    frm.__fd_src[:endofclass] = endline.column, endline.size, lns[endline.line]
    
    thickframeP = frm.style & WS_THICKFRAME
    contexthelpP = frm.style & 0x00000002
    frm.style |= WS_THICKFRAME
    frm.style &= ~0x00000002
#        if frm.is_a?(Dialog)
#          frm.move self.x-(frm.w||800), self.y, frm.w||400, frm.h||300
#        else
#          frm.move self.x-(frm.w||800), self.y, frm.w||800, frm.h||600
#        end
    
    self_x = self.x
    self_y = self.y
    frm.create
    
    fm.each{|i|
      ln = i.line
      cl = i.column
      lsrc = lns[ln].extend(ModFDSrcLine)
      asrc = [cl, i.size, lsrc]
      if i =~ /^\s*self\.(\w+)\s*\=/
        k = $1
        next if !ModToplevelHook::FDAttributes.index{|i| i[0]==k} &&
        k!='events' && k!='style'
        k.extend(ModFDAttrSrcLine)
        frm.__fd_src[k] = [cl, i.size, lsrc]
        k.__fd_src = [cl, i.size, lsrc]
        lsrc.binded_obj = k
        if k=='events'
          frm.__fd_events.clear
          if (evs=eval(i.sub(/^\s*self\.\w+\s*\=/,''))).is_a?(Array)
            frm.__fd_events.concat(evs)
          else
            frm.__fd_events << evs
          end
        elsif k=='style'
          frm.style = eval(i.sub(/^\s*self\.\w+\s*\=/,''))
        else
          frm.instance_eval(i)
        end
      elsif i=~/^(s*[a-z_][\w\.\[\]]*\.?)\s*<<(.+)/m
        lcount = $~.to_s.lines.size
        begin
          sobj = $1
          sln = $~.to_s
          sobj.sub!(/\.$/, '')
          obj = frm.instance_eval(sobj)
          ct = frm.instance_eval(sln)
        rescue => err
          MessageBox "At line#{ln}: #{err} (Skipped)", "FormDesigner", 0x10
          next
        end
        lsrc.binded_obj = ct
        if ct.is_a?(Window)
          ct.class.module_eval "FDConfig={} unless defined?(FDConfig);" # for unregisterd
          ct.extend(ModControlHook) unless ct.respond_to?(:__fd_destroy)
          ct.__fd_src = [cl, i.size, lsrc, lcount]
          i.match(/:events=>\[(.+?)\]/);
          if evs=$1
            ar = evs.split(',').map{|i| i.strip.tr(':', '').intern}
            ct.__fd_events.concat(ar)
          end
        elsif ct.is_a?(Menu) || ct.is_a?(Timer)
          ct.extend(ModResourceHook)
          ct.__fd_src = [cl, i.size, lsrc]
        elsif ct.is_a?(Imagelist)
          ct.extend(ModResourceHook)
          class << ct
            attr_accessor :__fd_bindedfile, :__fd_toplevelwin
          end
          if i =~ /.*Imagelist.fromfile\W/
            bf = i.split(",")
            ct.__fd_bindedfile = bf.last.tr(' "()\'', '') if bf
          end
          ct.__fd_toplevelwin = frm
          ct.__fd_src = [cl, i.size, lsrc, lcount]
        else #if ct.is_a?(Array)#; dpp ln, i, ct # have items # obj is child
          ct.each{|j|
            (j.extend(ModControlHook) rescue nil) if j.is_a?(WinControl)
          } if ct.respond_to?(:each)
          if obj.is_a?(WinControl)
            robj = obj
            obj.__fd_item_loaded(ct, asrc) if obj.respond_to?(:__fd_item_loaded)
          elsif obj.is_a?(Menu)
            obj.extend(ModResourceHook)
            obj.__fd_src = [cl, i.size, lsrc]
            sobj.match(/^((:?_|_.|controls\.)\w+)\./)
            owner = frm.instance_eval($1)
            owner.__fd_item_loaded(ct, asrc) if obj.respond_to?(:__fd_item_loaded)
          elsif obj.respond_to?(:owner)
            obj.extend ModFDItemsSrcLine
            obj.owner.__fd_item_loaded(ct, asrc) if obj.owner.respond_to?(:__fd_item_loaded)
          else
            dp "@%s", "At line #{ln}: \"#{i}\" was igonored."
          end
        end
      else
        dp "@%s", "At line #{ln}: \"#{i}\" was igonored."
      end
    }

    frm.style &= ~WS_THICKFRAME if thickframeP==0
    frm.style |= contexthelpP
    frm.SendMessage(WM_SIZE, 0, MAKELPARAM(*frm.clientsize))
    frm.refresh
    if frm.is_a?(Dialog)
      frm.move self_x-(frm.w||800), self_y, frm.w||400, frm.h||300
    else
      frm.move self_x-(frm.w||800), self_y, frm.w||800, frm.h||600
    end
    @forms << frm
    _main1.window1 << [:windows1, klass.to_s.split('::')[1]]
  }
  _main1.window1 << [:sep, [:delfrm1, "Delete this"]]
  @binded_files = {fname=>lines}
  @frm = @forms[0]
  @frm.activate
  _tabs1.cursel = 0
  _tabs2.cursel = 0
  update_attributes(@frm)
  update_hierarchy
  self.caption = File.basename(fname)
end

#open1_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 279

def open1_clicked(*)
  return unless check_modified
  if fname = OpenFileNameDlg.show(self, caption: "Please select file")
    open1(fname)
  end
end

#parse_template4rd(ctrl, cmd, tp, defval = nil) ⇒ `Object`

; dpp cmd, atr, tp, defval

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 514

def parse_template4rd(ctrl, cmd, tp, defval=nil) #; dpp cmd, atr, tp, defval
  begin
    atr = ctrl.__send__(cmd)
  rescue => err #; dpp err if err
    if cmd=ctrl.class::FDConfig[(cmd+"_get").intern]
      (atr = cmd.call(ctrl, atr)) rescue return nil
    else
      return nil
    end
  end
  return atr.to_s unless tp
  return '' if atr == defval
  
  tps = tp.split(',') #; dpp cmd, atr, tps[0]
  atr = atr.to_a if tps[0].size>1 && atr.respond_to?(:to_a)
  
#      if atr.is_a?(Array)
#        tp = tps[0]
#      elsif atr.is_a?(Margin)
#        tp = tps[0]
#        atr = atr.to_a
  if atr.is_a?(RWin::Font)
    tp = tps[0]
    atr = [atr.facename, atr.height, atr.attrstr]
    atr.delete("")
  else
    if (c=@selected_ctrl.class) < WinControl && (f=c::FDConfig["#{cmd}_get".intern])
      r = f.call(@selected_ctrl, atr)
      return r && r.to_s.tr('"', '')
    end
    tp = tps.last
    case tp
    when 'h'
      return atr ? sprintf("%#x", atr) : ''
    when 'n'
      return atr.respond_to?(:name) ? atr.name.to_s : atr.to_s
    when 't'
      return atr.nil? ? '' : sprintf("%p", atr).tr(':"', '')
    else
      return atr.to_s
    end if tp.size==1
  end #; dpp cmd, tp
  res = []
  [tp.size, atr.size].min.times{|i| #dpp i, tp[i], ar[i]
    if (c=@selected_ctrl.class) < WinControl && (f=c::FDConfig["#{cmd}_get".intern])
      break res << f.call(@selected_ctrl, atr).to_s.tr('":', '')
    end
    case tp[i]
    when 'h' # parse as Hex
      res << sprintf("%#x", atr[i])
    when 'i', 'b' # parse as Integer or  true / false / nil
      res << sprintf("%p", atr[i])
#        when 's', 'm' # parse as  cmdid or Symbol
#          res << atr[i].to_s
    when 'n'# parse as control's name
      res << (atr[i].respond_to?(:name) ? atr[i].name : (atr[i] ? atr[i].to_s : 'nil'))
    when 't' # parse as 3 state value
      res << (atr[i].nil? ? '' : sprintf("%p", atr[i]).tr(':"', ''))
    when 'a'
      break res << atr.to_s
    else
      res << atr[i].to_s
    end
  }
  res.size > 1 ? "[#{res.join(', ')}]" : res[0].to_s
end

#parse_template4wr(cmd, str, tp) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 679

def parse_template4wr(cmd, str, tp)
  tps = tp.split(',')
  ar = str.sub(/^\[(.*)\]$/,'\1').split(',').map{|i| i.strip}
  if ar.empty?
    return tp=='s' ? '' : nil
  end

  tp = tps.find{|i| i.size==ar.size} || tps[0]
  res = []
  [tp.size, ar.size].min.times{|i| #dpp i, tp[i], ar[i]
    if (c=@selected_ctrl.class)<WinControl && (f=c::FDConfig["#{cmd}_set".intern])
      begin
        res << f.call(@selected_ctrl, ar[i, ar.size-i])
      rescue => err
        MessageBox "#{err}", "FormDesigner", 0x10
      end
      break
    end
    case tp[i]
    when 'h', 'i' # parse as Integer with prefix
      res << (ar[i].nil?||ar[i]=='nil'||ar[i]=='n'||ar[i].empty? ? nil : ar[i].to_i(0))
    when 's' # parse as  String
      res << ar[i].to_s
    when 'm' # parse as  Symbol
      res << ar[i].intern
    when 'b' # parse as  true or false
      res << (ar[i].empty?||ar[i]=='false'||ar[i]=='nil'||ar[i]=='f'||ar[i]=='n' ? false : true)
    when 'n' # parse as control's name
      res << (@frm.controls.__send__(ar[i]) if !ar[i].nil? && ar[i]!='nil' rescue nil)
    when 't' # parse as 3 state value and :parent
      res << case ar[i]
      when 'false', 'f'
        false
      when 'nil', 'n', '', nil
        nil
      when 'parent', 'p'
        :parent
      when 'force'
        :force
      else
        true
      end
    when 'a'
      res.concat ar[i, ar.size-i]
      break
    else
      raise "Unknown template '#{tp[i]}'"
    end
  }
  res.size==1 ? res[0] : res
end

#raise1_clicked ⇒ `Object`



1309
1310
1311

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1309

def raise1_clicked(*)
  raise
end

#refrect2ctrl(lvitem) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 783

def refrect2ctrl(lvitem)
  cmd = (lvitem[0] + "=").intern
  template = lvitem.data #; dpp cmd, template
  return if template.nil?
  return modify_class_name(@selected_ctrl, lvitem[1]) if cmd == :class= && template == 'c'
  return unless @selected_ctrl.respond_to?(cmd)
  args = parse_template4wr(lvitem[0], lvitem[1], template) #; dpp cmd, args
  begin
    @selected_ctrl.__send__(cmd, args) #; dpp @selected_ctrl.__send__(lvitem[0].intern)
  rescue => err
    MessageBox "#{err}\n#{cmd}, #{args}", 'FormDesigner error', 0x10
  end
  if @selected_ctrl.is_a?(Window)
    if @selected_ctrl.respond_to?(:_toplevelwin)
      @selected_ctrl._toplevelwin.move_end
    else
      @selected_ctrl.move_end
    end
  elsif @selected_ctrl.is_a?(Dialog)
    @selected_ctrl.x = self.x - @selected_ctrl.w
    update_lvrs2()
  else
    update_lvrs2()
  end
end

#reset_toplevelwin(newfrm, ctrl) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 731

def reset_toplevelwin(newfrm, ctrl)
  ctrl.parent = newfrm
  ctrl._toplevelwin = newfrm
  ctrl.controls.each{|i| reset_toplevelwin(newfrm, i)} if ctrl.respond_to?(:controls)
end

#save1_clicked ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 432

def save1_clicked(*)
  return saveas1_clicked unless @binded_files # if new file
  insert_point = nil
  lns = nil
  indentlevel = ['  ', 0]
  @forms.each{|frm|
    if frm.__fd_src.empty? # Newly added form/dialog
      frm.__fd_src[:lines] = lns
      ar = frm.__fd_frm2str(indentlevel)
      lns[insert_point, 0] = ar + [indentlevel[0] * indentlevel[1] + "\n"]
      lns.flatten
    else
      frm.__fd_modify_src
      lns = frm.__fd_src[:lines]
      lsrc = frm.__fd_src[:classname][2]
      insert_point = ModFDCommon.index_of_src(lns, lsrc)
    end
  }
  @binded_files.each{|fname, lns| open(fname, 'w'){|f| f.write(lns.join)}}
  @modified = nil
  true
end

#saveas1_clicked ⇒ `Object`

need revise if exists file opned

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 455

def saveas1_clicked(*) # need revise if exists file opned
  return unless fname = SaveFileNameDlg.show(self, caption: "Save as",
                                                   flags: OFN_OVERWRITEPROMPT)
  if @binded_files
    k = @binded_files.keys[0]
    @binded_files[fname] = @binded_files.delete(k)
    save1_clicked
  else  # new file
    indentlevel = ['  ', 0]
    lns = ["require 'wrb'\n", "module WR\n"]
    @forms.reverse_each{|frm|
      ar = frm.__fd_frm2str(indentlevel, frm==@forms[0])
      frm.__fd_src[:lines] = lns
      frm.__fd_src[:filename] = fname
      lns.concat(ar)
      lns << "#{indentlevel[0]*indentlevel[1]}\n" unless frm==@forms[0]
      indentlevel[1] -= 1
    }
    lns << "end\n"
    open(fname, 'w'){|f| f.write(lns.join)}
    @binded_files = {fname=>lns}
    @modified = nil
  end
  true
end

#self_activate(state, minimize, hwnd) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 825

def self_activate(state, minimize, hwnd)
  return if state!=2
  return unless @frm
#      @frm.setorder(self)
#      setorder(@frm)
end

#self_close ⇒ `Object`

; dp “@close: hwnd=%#x”, _hwnd

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 487

def self_close(*) #; dp "@close: hwnd=%#x", _hwnd
  return CancelDefWindowProc unless check_modified
  @forms.each{|i| i.close if i.alive?}
end

#self_keydown(vk) ⇒ `Object`

; dpp vk

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 832

def self_keydown(vk, *) #; dpp vk
  case vk
  when 13 # LF
    lv = @lvitems.visible ?  @lvitems : @lvattr
    lvitem = lv[f=@ied1.iitem]
    itm, subitm = lv.hittest(@ied1.x, @ied1.y)
    lvitem[subitm] = @ied1.caption
    if @lvitems.visible
      so = @selected_object
      if so.respond_to?(:__fd_edit_item)
        so.__fd_edit_item(@lvitems, itm, subitm, @ied1)
      else
        so.class::FDConfig[:edit_item].call(so, @lvitems, itm, subitm, @ied1)
      end
    else
      refrect2ctrl(lvitem)
    end
    lv[f].focused = true
    update_inpledit(lv, f, subitm)
  when 9 # TAB
  end
end

#self_move ⇒ `Object`

; dpp self.x, self.y



159
160
161

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 159

def self_move(*) #; dpp self.x, self.y
  @forms.each{|i| i.move(self.x-i.w, self.y) unless i.active?}
end

#self_resize ⇒ `Object`



163
164
165

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 163

def self_resize(*)
  @forms.each{|i| i.move(self.x-i.w, self.y) unless i.active?}
end

#set_object2lvitems(obj) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1093

def set_object2lvitems(obj)
  @ied1.visible = false
  @ied1.caption = ''
  if obj.respond_to?(:__fd_set_lvitem)
    @selected_object = obj
    @frm.select_control_from_main(nil) unless obj.is_a?(Window)
    obj.__fd_set_lvitem(@lvitems, _image0)
  elsif setobject=obj.class::FDConfig[:setobject]
    @selected_object = obj
    @frm.select_control_from_main(nil) unless obj.is_a?(Window)
    setobject.call(obj, @lvitems, _image0) if setobject
  else
    return
  end
  case @tabs2.cursel
  when 0
    @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class
  when 1
    @stbr1.caption = "Right click to add an item."
  end
end

#tabs1_selchange(nmhdr) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 991

def tabs1_selchange(nmhdr)
  @selected_rs_klass = nil
  @selected_klass = nil
  case @tabs1.cursel
  when 0
    @lvstd.clear
    @fdstdctls.each{|i| @lvstd << i}
  when 1
    @lvcmn.clear
    @fdcmnctls.each{|i| @lvcmn << i}
  when 2
    @lvrs1.clear
    @fdrscctls.each{|i| @lvrs1 << i}
    update_lvrs2
  when 3
    update_hierarchy()
    tvhrc_select_ctrl()
  end
end

#tabs2_selchange(nmhdr) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1011

def tabs2_selchange(nmhdr)
  @ied1.visible = false
  @ied1.caption = ''
  obj = @selected_ctrl
  case @tabs2.cursel
  when 0
    @ied1.parent = @lvattr
    @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class.to_s
  when 1
    if @tabs2[1].text != "Styles"
      @ied1.parent = @lvitems
      @stbr1.caption = "Right click to add an item."
      if obj.respond_to?(:__fd_update_lv)
        obj.__fd_update_lv(@lvitems)
      else
        (prc=obj.class::FDConfig[:update_lv]) && prc.call(obj, @lvitems)
      end
    else
      @ied1.hide
      @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class.to_s
    end
  when 3
    @ied1.parent = @lvitems
    @stbr1.caption = "Right click to add an item."
    if obj.respond_to?(:__fd_update_lv)
      obj.__fd_update_lv(@lvitems)
    else
      (prc=obj.class::FDConfig[:update_lv]) && prc.call(obj, @lvitems)
    end
  when 4
    @lvitems.show
    @ied1.parent = @lvitems
    @stbr1.caption = "Right click to add an item."
#        (prc=obj.class::FDConfig[:update_lv_alt]) && prc.call(obj, @lvitems)
    obj.__fd_update_lv_alt(@lvitems)
  else
    @ied1.hide
    @stbr1.caption = obj.respond_to?(:name) ? "#{obj.class}: #{obj.name}" : obj.class.to_s
  end
end

#tvhrc_rclick(nmhdr) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1180

def tvhrc_rclick(nmhdr)
  cx, cy = @tvhrc.ScreenToClient(*APP.GetCursorPos)
  if caret = @tvhrc.hittest(cx, cy)
    caret.select
    TrackPopupMenu(_popup3, cx, cy) if caret.data != @frm
  end
end

#tvhrc_selchanged(nmtreeview) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 873

def tvhrc_selchanged(nmtreeview)
  ctrl = @tvhrc.hitem2ref(nmtreeview.itemNew.hItem).data
  @frm.select_control_from_main(ctrl) if ctrl != @selected_ctrl
end

#tvhrc_select_ctrl(node = nil) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 878

def tvhrc_select_ctrl(node=nil)
  if node
    node.each{|i|
      if i.data == (@selected_ctrl || @frm)
        return i.select
      elsif i.count>0
        tvhrc_select_ctrl(i)
      end
    }            
  else
    tvhrc_select_ctrl(@tvhrc.root)
  end
end

#udhrc_deltapos(ud) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1188

def udhrc_deltapos(ud)
  ctl = @tvhrc.selection.data
  return if !ctl || ctl==@frm
  ctls = ctl.parent.controls
  idx = ctls.index(ctl)
  if ud.iDelta < 0 # UP
    return if idx == 0
    ctls.delete_at(idx)
    ctls[idx-1, 0] = ctl
  else             # DOWN
    ctls.delete_at(idx)
    ctls[idx+1, 0] = ctl
  end
  ctls.compact!
  update_hierarchy()
  tvhrc_select_ctrl()
end

#update_attributes(ctrl) ⇒ `Object`

; dpp ctrl, caller

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 590

def update_attributes(ctrl) #; dpp ctrl, caller[0]
  attrs = ctrl.__fd_attributes__
  cursel = @tabs2.cursel
  @tabs2.tabs = ctrl.class::FDConfig[:attr_tabs] || ['Attributes', 'Styles', 'Events']
  @tabs2.tabs.each{|i| i.controls.clear}
  @tabs2.controls.each{|i| i.hide}
  @tabs2[0] << @lvattr
  case @tabs2.count
  when 2
    @tabs2[1] << @lvitems
  when 3
    @tabs2[1] << @lvstyles
    @tabs2[2] << @lvevents
  when 4, 5
    @tabs2[1] << @lvstyles
    @tabs2[2] << @lvevents
    @tabs2[3] << @lvitems
    set_object2lvitems(ctrl)
  end
  @tabs2.cursel = cursel
  tabs2_selchange(nil)
  
  if ctrl.is_a?(RWin::Window)
    @lvrs2.selections.clear
    @lvrs2.focused = nil
    @lvstyles.clear
    if as = get_styles(ctrl)
      @_lvstyles_updating = true
      @lvstyles[0, 0] = as 
      ass = ctrl.style2symbols
      @lvstyles.each{|i| i.checked = true if ass.index(i.text.intern)}
      @_lvstyles_updating = nil
    end

    @lvevents.clear
    if ev = get_events(ctrl)
      @_lvevents_updating = true
      ev.each_with_index{|v, i|
        @lvevents << v.to_s
        @lvevents[i].checked = true if ctrl.__fd_events && ctrl.__fd_events.index(v.intern)
      }
       @_lvevents_updating = nil
    end
  end
  @stbr1.caption = if ctrl.respond_to?(:name) 
    "#{ctrl.class}: #{ctrl.name}" 
  else
    "#{ctrl.class} < #{ctrl.class.ancestors[1].to_s.split('::')[1]}"
  end
  @selected_ctrl = ctrl
  @lvattr.clear
  @ied1.visible = false
  @lvattr[0, 0] = get_attributes(ctrl, attrs)
  tvhrc_select_ctrl()
end

#update_hierarchy(ctrl = nil) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 863

def update_hierarchy(ctrl=nil)
  @tvhrc.clear.root << [@frm.class.to_s.sub(/^.*::/, ''), nil, nil, @frm]
  @frm.controls.each{|i|
    @tvhrc.root[0] <<  [i.name.to_s, nil, nil, i] if i.is_a?(WinControl)
    update_nested_hierarchy(@tvhrc.root[0].last, i) if i.respond_to?(:controls)
  }
  @tvhrc.root.each{|i| i.expand}
  tvhrc_select_ctrl
end

#update_inpledit(lv, i, j) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 646

def update_inpledit(lv, i, j)
  l, t, r, b = lv[i].rect
  cw0 = lv.columns[0].width
  cw1 = lv.columns[1].width
  cw2 = lv.columns[2].width
  cw3 = lv.columns[3].width
  cw4 = lv.columns[4].width
  @ied1.iitem = i
  @ied1.isubitem = j
  @ied1.visible = true
  @ied1.show
  @ied1.font = lv.font #; dpp @ied1.visible, @ied1.caption, @ied1.position, @ied1.size
  case j
  when 0
    offset = 4 + 13 + lv[i].indent*13 # Bad magic numbers...
    @ied1.move(offset, t+2, cw0-offset, b-t-4)
  when 1
    @ied1.move(cw0+5, t+2, cw1-5, b-t-4)
  when 2
    @ied1.move(cw0+cw1+5, t+2, cw2-5, b-t-4)
  when 3
    @ied1.move(cw0+cw1+cw2+5, t+2, cw3-5, b-t-4)
  when 4
    @ied1.move(cw0+cw1+cw2+cw3+5, t+2, cw4-5, b-t-4)
  else
    return @ied1.visible = false
  end
  @ied1.caption = lv[i][j]
  @ied1.selection = 0, @ied1.length;
  @ied1.readonly = lv[i].data ? false : true if lv==@lvattr
  @ied1.SetFocus
end

#update_lvrs2 ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 1052

def update_lvrs2()
  selidx = @lvrs2.focused
  @lvrs2.clear
  @frm.controls.each{|i|
    unless i.is_a?(Window)
      if i.is_a?(Menubar)
        nm = i.name
        img = 3
      elsif i.is_a?(Menu)
        nm = i.name
        img = 2
      elsif i.is_a?(Imagelist)
        w, h =  i.iconsize
        nm = "#{i.name} (#{w}, #{h})"
        img = 1
      elsif i.is_a?(Timer)
        nm = i.name
        img = 4
      end #;dpp [nm, img, nil, i]
      @lvrs2 << [nm.to_s, img, nil, i]
    end
  }
  return if selidx < 0
  @lvrs2[selidx].focused = true
  @lvrs2[selidx].selected = true
end

#update_nested_hierarchy(node, ctrl) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 855

def update_nested_hierarchy(node, ctrl)
  ctrl.controls.each{|i|
    node << [i.name.to_s, nil, nil, i] if i.is_a?(WinControl)
    node.expand
    update_nested_hierarchy(node.last, i) if i.respond_to?(:controls)
  }
end

#windows1_clicked(id, st) ⇒ `Object`

# File 'lib/wrb/applications/frmdesigner/fdesign.rb', line 236

def windows1_clicked(id, st)
  if @frm!=@forms[_main1.window1.index(id)]
    (@frm=@forms[_main1.window1.index(id)]).activate
    update_attributes(@frm)
  end
end

Class: WR::FDMain

Defined Under Namespace

Constant Summary

Constants inherited from Form

Constants included from ModToplevelWin

Constants included from ModParent

Constants included from RC

Constants included from ModBaseWin

Instance Attribute Summary collapse

Attributes included from ModBaseWin

Attributes included from ModCreateWin

Instance Method Summary collapse

Methods inherited from Form

Methods included from ModToplevelWin

Methods included from ModParent

Methods included from RC

Methods inherited from Window

Methods included from ModBaseWin

Methods included from ModCreateWin

Methods included from ModAutoloading

Methods inherited from RWin::Window

Constructor Details

#initialize ⇒ FDMain

Dynamic Method Handling

Instance Attribute Details

#forms ⇒ Object (readonly)

#frm ⇒ Object

#modified ⇒ Object

#selected_ctrl ⇒ Object (readonly)

#selected_cursor ⇒ Object (readonly)

#selected_klass ⇒ Object

#selected_rs_klass ⇒ Object (readonly)

#selected_rsc_cursor ⇒ Object (readonly)

Instance Method Details

#add_resource2form ⇒ Object

#additem_clicked(idcmd, state) ⇒ Object

#additem_under_clicked ⇒ Object

#addnode_clicked ⇒ Object

#addnode_under_clicked ⇒ Object

#check_modified ⇒ Object

#check_winclassname(nm) ⇒ Object

#close_current_project ⇒ Object

#created ⇒ Object

#deleteitem2_clicked ⇒ Object

#deleteitem3_clicked ⇒ Object

#deleteitem_clicked ⇒ Object

#delfrm1_clicked ⇒ Object

#exit1_clicked ⇒ Object

#get_attributes(ctrl, ar) ⇒ Object

#get_events(ctrl) ⇒ Object

#get_styles(ctrl) ⇒ Object

#insdlg1_clicked ⇒ Object

#insert_toplevelwin(cname) ⇒ Object

#insertitem_clicked ⇒ Object

#insfrm1_clicked ⇒ Object

#load_controls ⇒ Object

#lvattr_click(nm) ⇒ Object

#lvattr_itemchanged(nm) ⇒ Object

#lvcmn_click(nm) ⇒ Object

#lvevents_itemchanged(nmlv) ⇒ Object

#lvitems_click(nmia) ⇒ Object

#lvitems_itemchanged(nmlv) ⇒ Object

#lvitems_rclick(nmitem) ⇒ Object

#lvrs1_click(nm) ⇒ Object

#lvrs2_click(nmitem) ⇒ Object

#lvrs2_itemchanged(nmlv) ⇒ Object

#lvrs2_rclick(nmitem) ⇒ Object

#lvstd_click(nm) ⇒ Object

#lvstyles_itemchanged(nmlv) ⇒ Object

#modify_class_name(frm, newname) ⇒ Object

#newdialog1_clicked ⇒ Object

#newform1_clicked ⇒ Object

#open1(fname) ⇒ Object

#open1_clicked ⇒ Object

#parse_template4rd(ctrl, cmd, tp, defval = nil) ⇒ Object

#parse_template4wr(cmd, str, tp) ⇒ Object

#raise1_clicked ⇒ Object

#refrect2ctrl(lvitem) ⇒ Object

#reset_toplevelwin(newfrm, ctrl) ⇒ Object

#save1_clicked ⇒ Object