object rsDefPack: TrsDefPack Left = 282 Top = 297 Width = 664 Height = 340 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object vtfDataList: TVisionToolForm Tag = 2 Left = 232 Top = 112 Width = 169 Height = 36 DataGrid = gpDataListList OnShow = vtfListShow OnClose = vtfListClose OnSizing = vtfListSizing OnKeyDown = vtfListKeyDown object gpDataListList: TDBGridPro Tag = 2 Left = 0 Top = 0 Width = 169 Height = 36 Align = alClient ParentColor = False TabOrder = 0 TabStop = True BorderStyle = bsNoBorder AutoColumnFit = True UniqueFields = '_Key' ShowTitles = False HideSelection = False OptionsVisual = [gvoNoEndEllipsis] OptionsBehavior = [gboSmartSizing] OptionsPickup = [gpoReturnKey, gpoClick, gpoMouseTrack, gpoCaptureRecord] ReadOnly = True CursorType = gctInsensitiveID Designer = dsgDataList Columns = <> end end object vtfCalendar: TVisionToolForm Left = 232 Top = 4 Width = 169 Height = 89 ActiveControl = calCalendar Options = [tfoFocusable, tfoFixedWidth, tfoFixedHeight] OnShow = vtfCalendarShow OnPostChanges = vtfCalendarPostChanges object calCalendar: TProdiCalendar Left = 0 Top = 0 Width = 140 Height = 130 ParentColor = False TabOrder = 0 TabStop = True BorderStyle = bsNoBorder Date = 37162.000000000000000000 ShowTodayButton = False OnChange = calCalendarChange OnPickup = calCalendarPickup end end object vtfBlobPicker: TVisionToolForm Left = 232 Top = 156 Width = 169 Height = 105 ActiveControl = pnBlobPickerBG Options = [tfoFocusable, tfoNoAutoPost] OnShow = vtfBlobPickerShow OnPostChanges = vtfBlobPickerPostChanges OnClose = vtfBlobPickerClose OnShortCut = vtfBlobPickerShortCut OnEditAction = vtfBlobPickerEditAction object pnBlobPickerCtrl: TPanel Left = 0 Top = 73 Width = 169 Height = 32 Align = alBottom BevelOuter = bvNone TabOrder = 0 object bvBlobPickerBevel: TBevel Left = 0 Top = 0 Width = 169 Height = 2 Align = alTop Shape = bsBottomLine Style = bsRaised end object pnBlobPickerCtrl2: TPanel Left = 33 Top = 2 Width = 136 Height = 30 Align = alRight BevelOuter = bvNone TabOrder = 0 object btnBlobPickerOK: TButton Left = 8 Top = 4 Width = 60 Height = 22 Caption = '&OK' Default = True TabOrder = 0 OnClick = btnBlobPickerOKClick end object btnBlobPickerCancel: TButton Left = 72 Top = 4 Width = 60 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 end end end object pnBlobPickerBG: TPanel Left = 0 Top = 0 Width = 169 Height = 73 Align = alClient BevelOuter = bvNone Color = clWindow FullRepaint = False TabOrder = 1 end end object vtfCalculator: TVisionToolForm Left = 412 Top = 4 Width = 204 Height = 144 Color = clBtnFace Options = [tfoFocusable, tfoFixedWidth, tfoFixedHeight] OnPaint = vtfCalculatorPaint OnShow = vtfCalculatorShow OnClose = vtfCalculatorClose OnKeyDown = vtfCalculatorKeyDown OnKeyPress = vtfCalculatorKeyPress object sbCalcNum0: TSpeedButton Left = 44 Top = 116 Width = 28 Height = 24 Caption = '0' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum1: TSpeedButton Tag = 1 Left = 44 Top = 88 Width = 28 Height = 24 Caption = '1' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum2: TSpeedButton Tag = 2 Left = 76 Top = 88 Width = 28 Height = 24 Caption = '2' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum3: TSpeedButton Tag = 3 Left = 108 Top = 88 Width = 28 Height = 24 Caption = '3' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum4: TSpeedButton Tag = 4 Left = 44 Top = 60 Width = 28 Height = 24 Caption = '4' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum5: TSpeedButton Tag = 5 Left = 76 Top = 60 Width = 28 Height = 24 Caption = '5' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum6: TSpeedButton Tag = 6 Left = 108 Top = 60 Width = 28 Height = 24 Caption = '6' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum7: TSpeedButton Tag = 7 Left = 44 Top = 32 Width = 28 Height = 24 Caption = '7' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum8: TSpeedButton Tag = 8 Left = 76 Top = 32 Width = 28 Height = 24 Caption = '8' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcNum9: TSpeedButton Tag = 9 Left = 108 Top = 32 Width = 28 Height = 24 Caption = '9' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcSign: TSpeedButton Tag = 10 Left = 76 Top = 116 Width = 28 Height = 24 Caption = '+/-' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcDecSep: TSpeedButton Tag = 11 Left = 108 Top = 116 Width = 28 Height = 24 Caption = ',' Flat = True OnClick = sbCalcNumBtnClick end object sbCalcBS: TSpeedButton Tag = 3 Left = 96 Top = 4 Width = 32 Height = 24 Caption = 'BS' Flat = True OnClick = sbCalcSysOpBtnClick end object sbCalcCE: TSpeedButton Tag = 2 Left = 132 Top = 4 Width = 32 Height = 24 Caption = 'CE' Flat = True OnClick = sbCalcSysOpBtnClick end object sbCalcC: TSpeedButton Tag = 1 Left = 168 Top = 4 Width = 32 Height = 24 Caption = 'C' Flat = True OnClick = sbCalcSysOpBtnClick end object sbCalcDiv: TSpeedButton Tag = 1 Left = 140 Top = 32 Width = 28 Height = 24 Caption = '/' Flat = True OnClick = sbCalcOpBtnClick end object sbCalcMul: TSpeedButton Tag = 2 Left = 140 Top = 60 Width = 28 Height = 24 Caption = '*' Flat = True OnClick = sbCalcOpBtnClick end object sbCalcMinus: TSpeedButton Tag = 3 Left = 140 Top = 88 Width = 28 Height = 24 Caption = '-' Flat = True OnClick = sbCalcOpBtnClick end object sbCalcPlus: TSpeedButton Tag = 4 Left = 140 Top = 116 Width = 28 Height = 24 Caption = '+' Flat = True OnClick = sbCalcOpBtnClick end object sbCalcSqrt: TSpeedButton Tag = 5 Left = 172 Top = 32 Width = 28 Height = 24 Flat = True Glyph.Data = { 4E010000424D4E01000000000000760000002800000012000000120000000100 040000000000D800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777770000007777777777777777770000007777777777777777770000007777 7487777777777700000077774487777487748700000074744748777748487700 0000774477487777748777000000774777487777748777000000777777487777 4848770000007777777487748774870000007777777487777777770000007777 7774877777777700000077777774877777777700000077777777487777777700 0000777777774444444447000000777777777777777777000000777777777777 777777000000777777777777777777000000} OnClick = sbCalcOpBtnClick end object sbCalcPercent: TSpeedButton Tag = 6 Left = 172 Top = 60 Width = 28 Height = 24 Caption = '%' Flat = True OnClick = sbCalcOpBtnClick end object sbCalc1divX: TSpeedButton Tag = 7 Left = 172 Top = 88 Width = 28 Height = 24 Caption = '1/x' Flat = True OnClick = sbCalcOpBtnClick end object sbCalcIs: TSpeedButton Left = 172 Top = 116 Width = 28 Height = 24 Caption = '=' Flat = True OnClick = sbCalcIsClick end object sbCalcMC: TSpeedButton Tag = 1 Left = 4 Top = 32 Width = 28 Height = 24 Caption = 'MC' Flat = True OnClick = sbCalcMemOpBtnClick end object sbCalcMR: TSpeedButton Tag = 2 Left = 4 Top = 60 Width = 28 Height = 24 Caption = 'MR' Flat = True OnClick = sbCalcMemOpBtnClick end object sbCalcMS: TSpeedButton Tag = 3 Left = 4 Top = 88 Width = 28 Height = 24 Caption = 'MS' Flat = True OnClick = sbCalcMemOpBtnClick end object sbCalcMplus: TSpeedButton Tag = 4 Left = 4 Top = 116 Width = 28 Height = 24 Caption = 'M+' Flat = True OnClick = sbCalcMemOpBtnClick end object pnCalcMemory: TPanel Left = 4 Top = 4 Width = 84 Height = 24 Alignment = taLeftJustify BevelOuter = bvLowered Font.Charset = RUSSIAN_CHARSET Font.Color = clGrayText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 end end object DsgnViewSimple: TLiteDesigner FocusRectKind = frcNone CellMargins.TopMargin = 1 CellMargins.BottomMargin = 1 HiddenSelection = clNone SelectedCellFill = False VertLines = clSilver HorizLines = clSilver ShowLines = False Left = 88 Top = 136 end object DsgnList: TLiteDesigner CellMargins.TopMargin = 1 CellMargins.BottomMargin = 1 VertLines = clSilver HorizLines = clSilver ShowLines = False Left = 120 Top = 136 end object TitleSurface: TStandardVision Description = 'Determines 3D style of the cell.' ReadOnly = True OnDraw = TitleSurfaceDraw Left = 8 Top = 8 end object DsgnListActive: TLiteDesigner FocusRectKind = frcPersistentRow CellMargins.TopMargin = 1 CellMargins.BottomMargin = 1 SelectedRowFill = True VertLines = clSilver HorizLines = clSilver CellSeparator = clNone ShowLines = False Left = 152 Top = 136 end object DsgnListNormal: TLiteDesigner HiddenSelection = clNone VertLines = clSilver HorizLines = clSilver Left = 8 Top = 136 end object DsgnListFlat: TLiteDesigner HiddenSelection = clNone VertLines = clSilver HorizLines = clSilver TitleStyle = ltsFlat Left = 40 Top = 136 end object Calendar: TDateVision Description = 'Calendar control with buttons.' Left = 40 Top = 40 end object CalendarSimple: TDateVision Description = 'Calendar control without buttons.' Buttons = [] Left = 72 Top = 40 end object CheckBoxBool: TCheckBoxVision Description = 'Switch control for logical fields.' Left = 8 Top = 104 end object CheckBoxInt: TCheckBoxVision Description = 'Switch control for integer fields. 0 - off, 1 - on.' ValueChecked = '1' ValueUnChecked = '0' Left = 40 Top = 104 end object visImagedText: TLiteVision Tag = -1 OnDraw = visImagedTextDraw Left = 240 Top = 116 end object NumericDef: TNumericVision Description = 'Number format, two digits after decimal separator.' DisplayFormat = '0.00' DropDownKind = ndkCustom Left = 40 Top = 72 end object NumericDefSep: TNumericVision Description = 'Number format, two digits after decimal separator, thousand sepa' + 'rator.' DisplayFormat = '0.00,' DropDownKind = ndkCustom Left = 72 Top = 72 end object Numeric: TNumericVision Description = 'Dsiplays and edits data as number.' DropDownKind = ndkCustom Left = 8 Top = 72 end object Date: TDateVision Description = 'Displays and edits data as date.' EnableButton = False Left = 8 Top = 40 end object DsgnListClassic: TLiteDesigner VertLines = clSilver HorizLines = clSilver Left = 193 Top = 137 end object NumericSpin: TNumericVision Description = 'Number format, spin buttons are available.' ButtonStyle = pbsSpin EnableButton = True DropDownKind = ndkCustom Left = 104 Top = 72 end object dsgDataList: TLiteDesigner Tag = -1 FocusRectKind = frcNone CellMargins.TopMargin = 1 CellMargins.BottomMargin = 1 SelectedCellFill = False SelectedRowFill = True VertLines = clSilver HorizLines = clNone ShowLastLine = False Left = 272 Top = 116 end object BlobContextMenu: TPopupMenu OnPopup = BlobContextMenuPopup Left = 8 Top = 184 object miCutBlob: TMenuItem Tag = 1 Caption = 'Cut' ImageIndex = 0 OnClick = miBlobContextClick end object miCopyBlob: TMenuItem Tag = 2 Caption = 'Copy' ImageIndex = 1 OnClick = miBlobContextClick end object miPasteBlob: TMenuItem Tag = 3 Caption = 'Paste' ImageIndex = 2 OnClick = miBlobContextClick end object miClearBlob: TMenuItem Tag = 4 Caption = 'Clear' ImageIndex = 3 OnClick = miBlobContextClick end object miInOutBlob: TMenuItem Caption = '-' end object miLoadBlob: TMenuItem Tag = 5 Caption = 'Load...' ImageIndex = 4 OnClick = miBlobContextClick end object miSaveToBlob: TMenuItem Tag = 6 Caption = 'Save to...' ImageIndex = 5 OnClick = miBlobContextClick end object miPreviewBlobSep: TMenuItem Caption = '-' end object miPreviewBlob: TMenuItem Tag = 7 Caption = 'Preview' ImageIndex = 6 OnClick = miBlobContextClick end end object PictureContextMenu: TPopupMenu OnPopup = PictureContextMenuPopup Left = 40 Top = 184 object miCutPicture: TMenuItem Tag = 1 Caption = 'Cut' ImageIndex = 0 OnClick = miPictureContextClick end object miCopyPicture: TMenuItem Tag = 2 Caption = 'Copy' ImageIndex = 1 OnClick = miPictureContextClick end object miPastePicture: TMenuItem Tag = 3 Caption = 'Paste' ImageIndex = 2 OnClick = miPictureContextClick end object miClearPicture: TMenuItem Tag = 4 Caption = 'Clear' ImageIndex = 3 OnClick = miPictureContextClick end object miInOutPictureSep: TMenuItem Caption = '-' end object miLoadPicture: TMenuItem Tag = 5 Caption = 'Load...' ImageIndex = 4 OnClick = miPictureContextClick end object miSaveToPicture: TMenuItem Tag = 6 Caption = 'Save to...' ImageIndex = 5 OnClick = miPictureContextClick end object miPreviewPictureSep: TMenuItem Caption = '-' end object miPreviewPicture: TMenuItem Tag = 7 Caption = 'Preview' ImageIndex = 6 OnClick = miPictureContextClick end end object Memo: TMemoVision EditWordWrap = False EditScrollBars = ssNone Left = 8 Top = 224 end object ColorPicker: TStandardVision Alignment = talLeftJustify Images = NullImageList SkipCharValidation = True OnDblClick = ColorPickerDblClick OnGetText = ColorPickerGetText OnDraw = ColorPickerDraw OnDrawEdit = ColorPickerDrawEdit BeforePost = ColorPickerBeforePost Left = 8 Top = 264 end object NullImageList: TImageList Left = 40 Top = 264 end object Image: TImageVision Left = 40 Top = 224 end object Time: TTimeVision EnableButton = False EditFormatKind = tefDefault Left = 104 Top = 40 end object TimeShort: TTimeVision DisplayFormatKind = dfkShort Left = 136 Top = 40 end object Calculator: TNumericVision ButtonStyle = pbsDropDown EnableButton = True DropDownKind = ndkCalculator Left = 136 Top = 72 end end