serial TTreeViewExCNTs Default %Library.TMFormClass 0 %Library.TMForm %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMOpenDialog %TMShape %TMButton %TMButton %TMButton %TMButton %TMButton %TMButton %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckBox %TMCheckListBox %TMCheckListBox %TMLabel %TMPaintBox %TMEdit %TMEdit initvalue:%String 0 %Status 0 0 initvalue:%String 0 MApplication 0 "_ $$$bnCollapseBtn3D) Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\TreeView\miniCollapsed.bmp->"_ $$$bnCollapseBtn) Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\TreeView\miniExpanded 3D.bmp->"_ $$$bnExpandBtn3D) Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\TreeView\miniExpanded.bmp->"_ $$$bnExpandBtn) Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\Folders\BlueFolderClosed.bmp->BMP_FolderClosed") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\Folders\BlueFolderOpened.bmp->BMP_FolderOpened") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\CollapseArrow.bmp->BMP_CollapseArrow") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\ExpandArrow.bmp->BMP_ExpandArrow") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\ExpandSpace.bmp->BMP_ExpandSpace") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\File\FileSave.bmp->BMP_FileSave") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\File\FileOpen.bmp->BMP_FileOpen") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\File\FileNew.bmp->BMP_FileNew") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\Color\File\FileDelete.bmp->BMP_FileDelete") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\16x16 C\tplus1.bmp->BMP_Plus") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\16x16\16x16 C\tmin1.bmp->BMP_Min") ;ICONs Do ..clbImportList.Items.Add("") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Checked1.ico->ICON_Checked1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Error1.ico->ICON_Error1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Information1.ico->ICON_Information1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\LightOn1.ico->ICON_LightOn1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\LightOff1.ico->ICON_LightOff1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\NoAccess1.ico->ICON_NoAccess1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Question1.ico->ICON_Question1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Question2.ico->ICON_Question2") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Unchecked1.ico->ICON_Unchecked1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Warning1.ico->ICON_Warning1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\IP.ICO->ICON_IP") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\JOB.ICO->ICON_JOB") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\IPERR.ICO->ICON_IP_ERROR") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\FRM.ICO->ICON_FORM") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\OWNIP.ICO->ICON_IP_SELF") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\FingerPoint01.ICO->ICON_FingerPoint01") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\FolderOpenedBlue.ico->ICON_FolderOpenedBlue") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\FolderClosedBlue.ico->ICON_FolderClosedBlue") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\ArrowSmallDown.ico->ICON_ArrowSmallDown") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\ArrowSmallUp.ico->ICON_ArrowSmallUp") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\BtnArrowDown.ico->ICON_BtnArrowDown") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\BtnArrowLeft.ico->ICON_BtnArrowLeft") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\BtnMin3D.ico->ICON_BtnMin3D") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\BtnMinTransparent.ico->ICON_BtnMinTransparent") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\BtnPlus3D.ico->ICON_BtnPlus3D") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\BtnPlusTransparent.ico->ICON_BtnPlusTransparent") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\W95MBX01.ico->ICON_ErrorBig1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\W95MBX02.ico->ICON_QuestionBig1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\W95MBX03.ico->ICON_WarningBig1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\W95MBX04.ico->ICON_InformationBig1") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\INFONOTE.ico->ICON_INFONOTE") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\CLOSESPECS.ico->ICON_CLOSESPECS") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\ERROR_NEW_BIG.ico->ICON_ErrorBig2") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\QUESTION_NEW_BIG.ico->ICON_QuestionBig2") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\INFORMATION_NEW_BIG.ico->ICON_InformationBig2") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\ERROR_NEW_SMALL.ico->ICON_Error2") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\QUESTION_NEW_SMALL.ico->ICON_Question3") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\INFORMATION_NEW_SMALL.ico->ICON_Information2") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\List.ico->ICON_PiecesList") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Pattern.ico->ICON_Pattern") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Boolean.ico->ICON_Boolean") Do ..clbImportList.Items.Add("C:\Program Files\Extra\Icons\Rest.ico->ICON_Rest") /* Do ..clbImportList.Items.Add("C:\Program Files\Icons\BtnPlusGreen.ico->ICON_BtnPlusGreen") Do ..clbImportList.Items.Add("C:\Program Files\Icons\FolderClosed.ico->ICON_FolderClosed") Do ..clbImportList.Items.Add("C:\Program Files\Icons\FolderClosed1.ico->ICON_FolderClosed1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\FolderItem.ico->ICON_FolderItem") Do ..clbImportList.Items.Add("C:\Program Files\Icons\FolderOpen.ico->ICON_FolderOpen") Do ..clbImportList.Items.Add("C:\Program Files\Icons\FolderOpen1.ico->ICON_FolderOpen1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\Indicator1.ico->ICON_Indicator1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\LightGreen1.ico->ICON_LightGreen1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\LightOrange1.ico->ICON_LightOrange1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\LightRed1.ico->ICON_LightRed1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\LightOff1.ico->ICON_LightOff1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\PacmanCollapsed.ico->ICON_PacmanCollapsed") Do ..clbImportList.Items.Add("C:\Program Files\Icons\PacmanExpanded.ico->ICON_PacmanExpanded") Do ..clbImportList.Items.Add("C:\Program Files\Icons\Star1.ico->ICON_Star1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\Warning2.ico->ICON_Warning2") Do ..clbImportList.Items.Add("C:\Program Files\Icons\WarningGray1.ico->ICON_WarningGray1") Do ..clbImportList.Items.Add("C:\Program Files\Icons\Windows1.ico->ICON_Windows1") */ Quit ]]> 0 initvalue:%String 0 %Library.Status Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 ",1) .. Set ..txtBlobName.Text=$P(Line,"->",2) .. Do ..btnImportClick(Args) Set ..clbImportList.ItemIndex=..clbImportList.Tag Set ..txtFile.Text=..txtFile.Tag Set ..txtBlobName.Text=..txtBlobName.Tag ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 Args:%String 0 ",1) Set ..txtBlobName.Text=$P(Line,"->",2) Do:(..chkAutoPreview.Checked="True") ..btnPreviewClick(Args) ;End of user code s Args=$lb(Sender) q ]]> Args:%String 0 %Library.CacheSerialState list Address Form Button1 txtBlobName txtFile Button2 Memo1 OpenDialog Label1 Label2 btnBrowse btnImport chkConfirmOverwrite Label3 CheckListBox1 clbImportList chkSelectAll btnImportSelected Label4 Shape1 btnPreview pbPreview chkAutoPreview lblSpecs btnAvailableBlobs CheckBox1 Label5 clbBlobs chkSelectAllBlobs btnDeleteChecked chkAutoPreviewBlob chkIsIcon