{@@IuWFNg̒l𓾂邱@@}
    case propTag of
        //*\ʒuɊւݒ
        //=X, e, XW̎w,rw
            //-S
        //=Y, e, YW̎w,rw
            //-S
        //=W, e, IuWFNg̕,rw
            //-S
        //=H, e, IuWFNg,rw
            //-S
        //=, e, IuWFNg̕,rw
            //-S
        //=, e, IuWFNg̍,rw
            //-S
        //=TCY, "(e,e,e,e)", "(X1,Y1,X2,Y2)ōƉE̍Ww肵ĕĩTCYw肷",rw
            //-S
        //=ʒu, "(e,e)", "(X,Y)ŁAIuWFNg̍Ww肷",rw
            //-S
        //=E, "(e,e)", IuWFNg̉EW, r
            //-S
        //=, "(e,e)", IuWFNg̉W,r
            //-S
        //=|Pbg, s, Rȕ␔lۑĂ̈,rw
            //-S
        propW, propW2:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                if obj.oTypeTag = gForm then
                    Result := IntToStr(TForm(obj.obj).ClientWidth)
                else
                    Result := IntToStr(TControl(obj.obj).Width) ;
            end;
        propH, propH2:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                if obj.oTypeTag = gForm then
                    Result := IntToStr(TForm(obj.obj).ClientHeight)
                else
                    Result := IntToStr(TControl(obj.obj).Height) ;
            end;
        propX:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                Result := IntToStr(TControl(obj.obj).Left) ;
            end;
        propY:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then noProperty ;
                Result := IntToStr(TControl(obj.obj).Top) ;
            end;
        propXY: getLeftTop;
        propSize: getSize;
        propRightXY:
            begin
                ValueType := 's';
                if obj.oTypeTag = gMenu then noProperty ;
                con := TControl(obj.obj);
                Result := Format('(%d,%d)',[(con.Left + Trunc(con.Width + StrToIntDef(HiBase.GuiPartsSpace.value,8))),con.Top]);
            end;
        propBottomXY:
            begin
                ValueType := 's';
                if obj.oTypeTag = gMenu then noProperty ;
                con := TControl(obj.obj);
                Result := Format('(%d,%d)',[con.Left,(con.Top + Trunc(con.Height + StrToIntDef(HiBase.GuiPartsSpace.value,8)))]);
            end;
        propPocket:
            begin
                Result := obj.pocket;
            end;

        //=^Cg, s, tH[̃^Cg,rw
        //-,tH[,uEU
        propTitle:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gForm: Result := TForm(obj.obj).Caption ;
                    gBrowser: Result := TUIWebBrowser(obj.obj).LocationName;//Result := TUIWebBrowser(obj.obj).OleObject.Document.Title;
                else
                    Result := node.value;
                end;
            end;

        //=eLXg, s, IuWFNg̃eLXg,rw
        //-,{^,R{,Xg,,GfB^,Obh,x,`FbN,j[,tH[,pl,TGfB^,uEU,WI,^uy[W,b`GfB^,Xe[^Xo[
        propText:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gButton: if obj.obj.ClassType = TButton then Result := TButton(obj.obj).Caption else Result := TBitBtn(obj.obj).Caption ;
                    gCombo:Result := TComboBox(obj.obj).Text ;
                    gList:
                        begin
                            i := TListBox(obj.obj).ItemIndex ;
                            if i>=0 then
                            begin
                              if TListBox(obj.obj).MultiSelect then
                              begin
                                Result := '';
                                for j := 0 to TListBox(obj.obj).Count - 1 do
                                begin
                                  if TListBox(obj.obj).Selected[j] then
                                    Result := Result + TListBox(obj.obj).Items.Strings[j] + #13#10;
                                end;
                              end else
                              begin
                                Result := TListBox(obj.obj).Items.Strings[i];
                              end;
                            end else
                                Result := '';
                        end;
                    gRadio:
                        begin
                            i := TRadioGroup(obj.obj).ItemIndex ;
                            if i>=0 then
                                Result := TRadioGroup(obj.obj).Items.Strings[i]
                            else
                                Result := '';
                        end;
                    gMemo:Result := TMemoXP(obj.obj).Text ;
                    gRichEdit:Result := TRichEdit(obj.obj).Text ;
                    gEdit:Result := TEdit(obj.obj).Text ;
                    gStatusBar: Result := TStatusBar(obj.obj).SimpleText ;
                    gGrid:getGrid(TStringGrid(obj.obj), Result);
                    gLabel:Result := TLabel(obj.obj).Caption ;
                    gCheck:Result := TCheckBox(obj.obj).Caption ;
                    gMenu:Result := TMenuItem(obj.obj).Caption;
                    gForm: Result := TForm(obj.obj).Caption ;
                    gPanel:Result := TPanel(obj.obj).Caption ;
                    gTEditor: Result := TEditor(obj.obj).Lines.Text ;
                    gBrowser:
                      begin
                        Result := TUIWebBrowser(obj.obj).LocationURL;
                      end;
                    gTabPage:
                      begin
                        Result := '';
                        for i:=0 to TPageControl(obj.obj).PageCount -1 do
                        begin
                          Result := Result + TPageControl(obj.obj).Pages[i].Caption + #13#10;
                        end;
                      end;
                else
                    Result := node.value;
                end;
            end;
        //=O, s, IuWFNg̖O,r
        //-S
        propKeyName:
            begin
                Result := obj.name ;
            end;
        //=t@Chbv, ?(I|It), t@ChbvǂI,w
        //-S
        propFileDrop :
            begin
                Result := '';
            end;
        //=, s, IuWFNg̎, r
        //-S
        propType:
            begin
                Result := guiName[ obj.oTypeTag ];
            end;
        //=nh, e, IuWFNg̃nh𓾂,r
        //-S
        propHandle:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gForm:  Result := IntToStr(TForm(obj.obj).Handle);
                gImage: Result := IntToStr( TImage(obj.obj).Canvas.Handle );
                else
                    begin
                    try
                        Result := IntToStr( TWinControl(obj.obj).Handle );
                    except
                        Result := '0';
                    end;
                    end;
                end;
            end;
        //*L
        //=, ?(I|It), IuWFNg\(Visible)̉̐ݒ,rw
            //-S
        //=L, ?(I|It), IuWFNgp̗L(Enabled)̐ݒ,rw
            //-S
        //=|bvAbv, o,|bvAbvj[̎w,w
        //-x,tH[, , {^, Xg, R{, Obh, pl, ^uy[W, C[W, c[, , GfB^, TGfB^
        propVisible:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gMenu then
                begin
                    if TMenuItem(obj.obj).Visible then
                        Result := '1'
                    else
                        Result := '0';
                end else
                begin
                    if TControl(obj.obj).Visible then
                        Result := '1'
                    else
                        Result := '0';
                end;
            end;
        propEnabled:
            begin
                try
                    ValueType := 'e';
                    if obj.oTypeTag = gMenu then
                    begin
                        if TMenuItem(obj.obj).Enabled then
                            Result := '1'
                        else
                            Result := '0';
                    end else
                    begin
                        if TControl(obj.obj).Enabled then
                            Result := '1'
                        else
                            Result := '0';
                    end;
                except
                    Result := '0';
                end;
            end;
        //*eIuWFNgƂ̐ݒ荀
        //=TCY,?(I|It), tH[̑傫̕ύXǂ,rw
        //-tH[,
        propResize:
            begin
                ValueType := 'e';
                if obj.oTypeTag = gForm then
                begin
                    if TForm(obj.obj).BorderStyle = bsSingle then Result := '0' else Result := '1';
                end else
                    Result := '0';
                getCanvasSetting ;
            end;
        //=ACe, s, IuWFNg̑Iڂz`œ,rw
        //-Xg, R{, Obh,WI, pl, tH[, ^uy[W, XN[, , c[
        propItem:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gList:  Result := TListBox(obj.obj).Items.Text;
                    gCombo: Result := TComboBox(obj.obj).Items.Text;
                    gGrid:  Result := getGridText;
                    gRadio: Result := TRadioGroup(obj.obj).Items.Text ;
                    gPanel, gForm, gTabPage, gScroll: getChildItemControl;
                    gTree:  Result := getTreeView;
                    else
                        Result := '';
                end;
            end;
        //=ҏW,?(I|It),GfB^ȂǂŕҏW\ɂ邩ǂݒ,rw
        //-Obh,GfB^,,R{,c[,TGfB^,b`GfB^
        propCanEdit:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gGrid:
                        begin
                            Result := IntToStr(Ord(TStringGrid(obj.obj).EditorMode));
                        end;
                    gEdit:     Result := IntToStr(Ord(not TEdit(obj.obj).ReadOnly));
                    gTEditor:  Result := IntToStr(Ord(not TEditor(obj.obj).ReadOnly));
                    gRichEdit: Result := IntToStr(Ord(not TRichEdit(obj.obj).ReadOnly));
                    gMemo:     Result := IntToStr(Ord(not TMemoXP(obj.obj).ReadOnly));
                    gTree:     Result := IntToStr(Ord(not TTreeView(obj.obj).ReadOnly));
                    gCombo:
                        if TComboBox(obj.obj).Style = csDropDownList then
                            Result := '0'
                        else
                            Result := '1';
                    else
                        noProperty ;
                end;
            end;
        //=I, ?(I|It), XgŕIǂݒ, rw
        //-Xg
        propMultiSelect:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gList: Result := IntToStr(Ord(TListBox(obj.obj).MultiSelect));
                end;
            end;
        //=CAEg, s, CAEg̎(|E|||S|Ȃ), rw
        //-S
        propAlign:
          begin
            try
              ValueType := 's';
              case TControl(obj.obj).Align of
                alNone:  Result := 'Ȃ';
                alTop:   Result := '';
                alRight: Result := 'E';
                alLeft:  Result := '';
                alBottom:Result := '';
                alClient:Result := 'S';
              end;
            except
              Result := '';
            end;
          end;
        //=ʉ, f, IuWFNǧʉ𓾂,rw
        //-Aj
        propEffect:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gAnime:  Result := TAnimeBox(obj.obj).WaveFile;
                    else
                        Result := '';
                end;
            end;
        //=JԂ, e, AǰJԂ񐔂𓾂,rw
        //-Aj
        propRepeatTime:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gAnime:  Result := IntToStr(TAnimeBox(obj.obj).RepeatTime);
                end;
                if Trim(Result)='' then Result := '0';
            end;
        //={^@\, ?(I|It|2), Aj̃{^ނݒ肷,rw
        //-Aj
        propButton:
            begin
                case obj.oTypeTag of
                    gAnime:
                        begin
                            if(TAnimeBox(obj.obj).UseButton2=False)and(TAnimeBox(obj.obj).UseButton=True) then Result :='1'
                            else if(TAnimeBox(obj.obj).UseButton2=True)and(TAnimeBox(obj.obj).UseButton=False) then Result :='2'
                            else Result :='0';
                        end;
                    else
                        noProperty;
                end;
            end;
        //=l, e, IuWFNg̑Iꂽl(CfbNX)𓾂,rw
        //-o[,Xg,R{,Obh,`FbN,j[,Aj,WI,^uy[W,vOXo[
        propValue:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gBar:   Result := IntToStr(TScrollBar(obj.obj).Position) ;
                    gProgBar:   Result := IntToStr(TProgressBar(obj.obj).Position) ;
                    gList:  Result := IntToStr(TListBox(obj.obj).ItemIndex);
                    gRadio: Result := IntToStr(TRadioGroup(obj.obj).ItemIndex);
                    gCombo: Result := IntToStr(TComboBox(obj.obj).ItemIndex);
                    gGrid:  Result := IntToStr(TStringGrid(obj.obj).Row);
                    gCheck:   if TCheckBox(obj.obj).Checked then Result := '1' else Result := '0';
                    gMenu:    if TMenuItem(obj.obj).Checked then Result := '1' else Result :='0';
                    gAnime:   Result := IntToStr(TAnimeBox(obj.obj).Interval);
                    gTabPage: Result := IntToStr(TPageControl(obj.obj).ActivePageIndex) ;
                else
                    Result := '0';
                end;
            end;
        //=V[gJbgL[, s, j[̃V[gJbgL[ݒ,rw
        //-j[
        propShortcut:
            begin
                ValueType := 's';
                if (obj.oTypeTag=gMenu) then
                begin
                    Result := ShortCutToText( TMenuItem( obj.obj ).ShortCut );
                end else
                    Result := '';
            end;
        //=摜, f, 摜t@C𓾂,rw
        //-C[W,Aj,,{^
        propImage:
            begin
                ValueType := 's';
                Result := node.value ;
            end;
        //=ǉ摜, f, AjiɃC[Wǉ,rw
        //-Aj
        propAddImage:
            begin
                ValueType := 's';
                Result := node.value ;
            end;
        //=g@\, ?(͂|),摜̊g@\gǂw,rw
        //-C[W,Aj,tH[,
        propStretch:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gImage: Result := IntToStr( Ord(TImage(obj.obj).Stretch = True) );
                    gAnime: Result := IntToStr( Ord(TAnimeBox(obj.obj).Stretch = True) );
                    gForm: Result := IntToStr( Ord(getformImageObject(obj.obj).Stretch = True) );
                end;
            end;
        //=IME, ?(IMEI|IMEIt|IMEЂ炪|IMEJ^Ji|IMEpJ^Ji), IMȄԂݒ肷,rw
        //-,GfB^,R{,TGfB^,b`GfB^
        propIME:
            begin
                ValueType := 'e'; Result := '0';
                case obj.oTypeTag of
                gMemo:
                    begin
                        case TMemo(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gEdit:
                    begin
                        case TEdit(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gRichEdit:
                    begin
                        case TRichEdit(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gTEditor:
                    begin
                        case TEditor(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                gCombo:
                    begin
                        case TComboBox(obj.obj).ImeMode of
                            imOpen: Result := '1';
                            imHira: Result := '2';
                            imKata: Result := '3';
                            imSKata: Result := '4';
                        else
                            Result := '0';
                        end;
                    end;
                end;
            end;
        //=ől, e, o[̍ől,rw
        //-o[,vOXo[
        propMax:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gBar:     Result := IntToStr(TScrollBar(obj.obj).Max) ;
                gProgBar: Result := IntToStr(TProgressBar(obj.obj).Max) ;
                else Result := '0';
                end;
            end;
        //=ŏl, e, o[̍ŏl,rw
        //-o[,vOXo[
        propMin:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gBar:     Result := IntToStr(TScrollBar(obj.obj).Min) ;
                gProgBar: Result := IntToStr(TProgressBar(obj.obj).Min) ;
                else Result := '0';
                end;
            end;
        //=, ?(c|), o[̌ݒ,rw
        //-o[
        propMuki:
            begin
                ValueType := 's';
                if obj.oTypeTag <> gBar then noProperty;
                if TScrollBar(obj.obj).Kind = sbVertical then
                    Result := 'c'
                else
                    Result := '' ;
            end;
        //=XN[o[, ?(c|||), ̃XN[o[̌ݒ,rw
        //-,b`GfB^
        propScrBar:
            begin
                valueType := 's';
                if obj.oTypeTag = gMemo then
                begin
                    if TMemo(obj.obj).ScrollBars = ssVertical then Result := 'c'
                    else if TMemo(obj.obj).ScrollBars = ssHorizontal then Result := ''
                    else if TMemo(obj.obj).ScrollBars = ssBoth then Result := ''
                    else Result :='';
                end else
                if obj.oTypeTag = gRichEdit then
                begin
                    if TRichEdit(obj.obj).ScrollBars = ssVertical then Result := 'c'
                    else if TRichEdit(obj.obj).ScrollBars = ssHorizontal then Result := ''
                    else if TRichEdit(obj.obj).ScrollBars = ssBoth then Result := ''
                    else Result :='';
                end else
                    noProperty ;
            end;
        //=, e, J[\̗,rw
        //-,Obh,TGfB^,b`GfB^
        propCol:
            begin
                case obj.oTypeTag of
                    gMemo:  Result := IntToStr(TMemoXP(obj.obj).CaretPos.X);
                    gRichEdit:  Result := IntToStr(TRichEdit(obj.obj).CaretPos.X);
                    gGrid:  Result := IntToStr(TStringGrid(obj.obj).Col);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).Col);
                    else noProperty;
                end;
            end;
        //=s, e, J[\̍s,rw
        //-,Obh,TGfB^,b`GfB^
        propRow:
            begin
                case obj.oTypeTag of
                    gMemo:  Result := IntToStr(TMemoXP(obj.obj).CaretPos.Y);
                    gRichEdit:  Result := IntToStr(TRichEdit(obj.obj).CaretPos.Y);
                    gGrid:  Result := IntToStr(TStringGrid(obj.obj).Row);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).Row);
                    else noProperty;
                end;
            end;
        //=tHg, s, tHg𓾂,rw
        //-,GfB^,Xg,R{,x,Obh,{^,`FbN,b`GfB^
        propFont:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                gMemo: Result := TMemo(obj.obj).Font.Name ;
                gEdit: Result := TEdit(obj.obj).Font.Name ;
                gRichEdit: Result := TRichEdit(obj.obj).Font.Name ;
                gList: Result := TListBox(obj.obj).Font.Name ;
                gCombo: Result := TComboBox(obj.obj).Font.Name ;
                gLabel: Result := TLabel(obj.obj).Font.Name ;
                gGrid: Result := TStringGrid(obj.obj).Font.Name ;
                gButton:
                  begin
                    if obj.obj.ClassType = TButton then Result := TButton(obj.obj).Font.Name
                                                   else Result := TBitBtn(obj.obj).Font.Name ;
                  end;
                gCheck: Result := TCheckBox(obj.obj).Font.Name ;
                else
                    Result := '';
                end;
            end;
        //=tHgTCY, e, tHgTCY𓾂,rw
        //-,GfB^,Xg,R{,x,Obh,{^,`FbN,b`GfB^
        propFontSize:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gMemo: Result := IntToStr(TMemo(obj.obj).Font.Size) ;
                gEdit: Result := IntToStr(TEdit(obj.obj).Font.Size) ;
                gRichEdit: Result := IntToStr(TRichEdit(obj.obj).Font.Size) ;
                gList: Result := IntToStr(TListBox(obj.obj).Font.Size) ;
                gCombo: Result := IntToStr(TComboBox(obj.obj).Font.Size) ;
                gLabel: Result := IntToStr(TLabel(obj.obj).Font.Size) ;
                gGrid: Result := IntToStr(TStringGrid(obj.obj).Font.Size) ;
                gButton: if obj.obj.ClassType = TButton then Result := IntToStr(TButton(obj.obj).Font.Size) else Result := IntToStr(TBitBtn(obj.obj).Font.Size);
                gCheck: Result := IntToStr(TCheckBox(obj.obj).Font.Size) ;
                else
                    Result := '0';
                end;
            end;
        //=tHgF, c, tHgF𓾂,rw
        //-,GfB^,Xg,R{,x,Obh,{^,`FbN,b`GfB^
        propFontColor:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gMemo: Result := IntToStr(TMemo(obj.obj).Font.Color) ;
                gRichEdit: Result := IntToStr(TRichEdit(obj.obj).Font.Color) ;
                gEdit: Result := IntToStr(TEdit(obj.obj).Font.Color) ;
                gList: Result := IntToStr(TListBox(obj.obj).Font.Color) ;
                gCombo: Result := IntToStr(TComboBox(obj.obj).Font.Color) ;
                gLabel: Result := IntToStr(TLabel(obj.obj).Font.Color) ;
                gGrid: Result := IntToStr(TStringGrid(obj.obj).Font.Color) ;
                gButton: if obj.obj.ClassType = TButton then Result := IntToStr(TButton(obj.obj).Font.Color) else Result := IntToStr(TBitBtn(obj.obj).Font.Color) ;
                gCheck: Result := IntToStr(TCheckBox(obj.obj).Font.Color) ;
                else
                    Result := '0';
                end;
            end;
        //=I𕶎, s, GfB^Ȃǂ̑I𕶎𓾂,rw
        //-,GfB^,Xg,R{,TGfB^,c[,b`GfB^
        propSelText:
            begin
                ValueType := 's';
                case obj.oTypeTag of
                    gEdit: Result := TEditXP(obj.obj).SelText;
                    gMemo: Result := TMemoXP(obj.obj).SelText;
                    gRichEdit: Result := TRichEdit(obj.obj).SelText;
                    gTEditor: Result := TEditor(obj.obj).SelText;
                    gList:
                        begin
                            with TListBox(obj.obj) do begin
                                if ItemIndex >= 0 then
                                    Result := Items.Strings[TListBox(obj.obj).ItemIndex]
                                else
                                    Result := '';
                            end;
                        end;
                    gCombo: Result := TComboBox(obj.obj).SelText;
                    gTree:
                        begin
                          if TTreeView(obj.obj).Selected <> nil then
                            Result := TTreeView(obj.obj).Selected.Text
                          else
                            Result := '';
                        end;
                    else
                        Result := '';
                end;
            end;
        //=Iʒu, e, GfB^Ȃǂ̃J[\ʒu𓾂,rw
        //-GfB^,,R{,TGfB^,c[,b`GfB^
        propSelStart:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gEdit: Result := IntToStr(TEdit(obj.obj).SelStart);
                    gMemo: Result := IntToStr(TMemoXP(obj.obj).SelStart);
                    gRichEdit: Result := IntToStr(TRichEdit(obj.obj).SelStart);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).SelStart);
                    gCombo: Result := IntToStr(TComboBox(obj.obj).SelStart);
                    gTree:
                      begin
                        if TTreeView(obj.obj).Selected <> nil then
                        begin
                          Result := IntToStr(TTreeView(obj.obj).Selected.AbsoluteIndex);
                        end else
                          Result := '-1';
                      end;
                    else
                        Result := '0';
                end;
            end;
        //=I𕶎, e, GfB^Ȃǂ̑I𕶎𓾂,rw
        //-GfB^,,R{,TGfB^,b`GfB^
        propSelLength:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gEdit: Result := IntToStr(TEdit(obj.obj).SelLength);
                    gMemo: Result := IntToStr(TMemoXP(obj.obj).SelLength);
                    gRichEdit: Result := IntToStr(TRichEdit(obj.obj).SelLength);
                    gTEditor: Result := IntToStr(TEditor(obj.obj).SelLength);
                    gCombo: Result := IntToStr(TComboBox(obj.obj).SelLength);
                    else
                        Result :='0';
                end;
            end;
        //=wiF, c, IuWFNg̔wiF𓾂,rw
        //-, ,GfB^,Xg,R{,x,tH[,TGfB^,Obh,`FbN,Aj,pl,XN[,b`GfB^,gbN
        propBackgroud:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gMemo:     Result := IntToStr(TMemoXP(obj.obj).Color) ;
                    gRichEdit: Result := IntToStr(TRichEdit(obj.obj).Color) ;
                    gEdit:     Result := IntToStr(TEdit(obj.obj).Color) ;
                    gList:   Result := IntToStr(TListBox(obj.obj).Color) ;
                    gCombo:  Result := IntToStr(TComboBox(obj.obj).Color) ;
                    gLabel:  Result := IntToStr(TLabel(obj.obj).Color) ;
                    gForm:   Result := IntToStr(TForm(obj.obj).Color) ;
                    gTEditor:Result := IntToStr(TEditor(obj.obj).Color) ;
                    gGrid:   Result := IntToStr(TStringGrid(obj.obj).Color) ;
                    gCheck:  Result := IntToStr(TCheckBox(obj.obj).Color) ;
                    gAnime:  Result := IntToStr(TAnimeBox(obj.obj).Color) ;
                    gPanel:  Result := IntToStr(TPanel(obj.obj).Color);
                    gScroll: Result := IntToStr(TScrollBox(obj.obj).Color);
                    gTrack:  Result := IntToStr(TTrackBox(obj.obj).TrackColor);
                    else
                        Result := '0';
                end;
            end;
        //=ߏ, ?(I|It), IuWFNg̓ߏ̃IIt,rw
        //-x,C[W,Aj,tH[,
        propTransparent:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                gLabel: Result := IntToStr(Ord(TLabel(obj.obj).Transparent = True)) ;
                gImage: Result := IntToStr(Ord(TImage(obj.obj).Transparent = True)) ;
                gAnime: Result := IntToStr(Ord(TAnimeBox(obj.obj).Transparent = True)) ;
                gForm: Result := IntToStr(Ord(getformImageObject(obj.obj).Transparent = True)) ;
                else
                    Result := '0';
                end;
            end;
        //=URL, s, uEUŁA\URLw,rw
        //-uEU
        propURL:
            begin
                ValueType := 's';
                if obj.oTypeTag = gBrowser then
                begin
                    Result := TUIWebBrowser(obj.obj).LocationURL ;
                end else
                begin
                    Result := '';
                end;
            end;
        //=X^C, ?(gȂ|gŒ|g|_CAOX^C), tH[̃X^Cݒ肷,rw
        //-tH[,,pl,GfB^,
        propStyle:
            begin
                ValueType := 'e';

                case obj.oTypeTag of
                gForm:  Result := IntToStr( Ord(TForm(obj.obj).BorderStyle) );
                gPanel: Result := IntToStr( Ord(TPanel(obj.obj).BevelOuter) );
                gEdit:  Result := IntToStr( Ord(TEdit(obj.obj).BorderStyle) );
                gMemo:  Result := IntToStr( Ord(TMemo(obj.obj).BorderStyle) );
                else
                  noProperty ;
                end;


                if (obj.oTypeTag = gForm) then
                    Result := IntToStr( Ord(TForm(obj.obj).BorderStyle) )
                else
                    Result :='0';
            end;
        //=qg, s, qgic[`bvj\, rw
        //-S
        propHint:
            begin
                ValueType := 's';
                try
                  Result := TControl(obj.obj).Hint;
                except
                  Result := '';
                end;
            end;
        //=܂Ԃ, e, ^uy[W̐܂Ԃ邩ǂ, rw
        //-,TGfB^[,b`GfB^,^uy[W
        propOrikaesi:
            begin
                ValueType := 'e';
                case obj.oTypeTag of
                    gMemo    : if TMemo(obj.obj).ScrollBars = ssVertical then Result :='1' else Result := '0';
                    gTEditor : if TEditor(obj.obj).ScrollBars = ssVertical then Result :='1' else Result := '0';
                    gRichEdit: if TRichEdit(obj.obj).ScrollBars = ssVertical then Result :='1' else Result := '0';
                    gTabPage : Result := IntToStr(ord(TPageControl(obj.obj).MultiLine));
                    else noProperty;
                end;
            end;

        //*Cxg
        //=Cxg, l, W̃CxgĂяo,w
        //-S
        propEvent:
            begin
                CallEvent;
            end;
        {lFW̃CxgȊÕCxǵACxg̊֌WGȂ̂ŁAĂׂȂdlƂ}

        //=NbN, l, NbÑCxg,w
        //-{^,GfB^,C[W,R{,Xg,,Obh,x,pl,`FbN,gbN,Aj,tH[,,TGfB^,WI,Xe[^Xo[
        //=_uNbN, l, _uNbÑCxg,w
        //-GfB^,C[W,R{,Xg,,Obh,x,pl,gbN,Aj,tH[,,TGfB^,Xe[^Xo[
        //=}EX, l, }EX{^̃Cxg,w
        //-{^,GfB^,C[W,Xg,,Obh,x,pl,gbN,Aj,tH[,,TGfB^,c[,vOXo[,Xe[^Xo[
        //=}EX, l, }EX𓮂̃Cxg,w
        //-{^,GfB^,C[W,Xg,,Obh,x,pl,`FbN,gbN,Aj,tH[,,TGfB^,c[,vOXo[,Xe[^Xo[
        //=}EX, l, }EX{^𗣂̃Cxg,w
        //-{^,GfB^,C[W,Xg,,Obh,x,pl,`FbN,gbN,Aj,tH[,,TGfB^,c[,vOXo[,Xe[^Xo[
        //=L[, l, L[̃Cxg,w
        //-GfB^,C[W,Xg,,Obh,`FbN,tH[,,TGfB^
        //=L[, l, L[𗣂̃Cxg,w
        //-GfB^,Xg,,Obh,`FbN,tH[,,TGfB^
        //=ύX, l, i̓eύXꂽ̃Cxg,w
        //-GfB^,o[,R{,,gbN,tH[,,TGfB^,uEU
        //=t@Chbv, l, t@Chbvꂽ̃Cxg,w
        //-{^,GfB^,C[W,R{,,Obh,x,pl,`FbN,gbN,Aj,tH[,,TGfB^
        //=, l, tH[ȂǂɃCxgĂяo, w
        //-tH[,
        //=J, l, tH[AuEUȂǂJɃCxgĂяo, w
        //-tH[,uEU
        //=tH[JX, l, tH[JX𓾂ɌĂ΂Cxg,w
        //-uEU,TGfB^,{^,GfB^,Xg,c[,o[,R{,WI,,b`GfB^,Obh,pl,`FbN,^uy[W
        //=tH[JXOꂽ, l, tH[JXOꂽɌĂ΂Cxg,w
        //-uEU,TGfB^,{^,GfB^,Xg,c[,o[,R{,WI,,b`GfB^,Obh,pl,`FbN,^uy[W
        {@@IuWFNg̒l𓾂邱܂@@}