object ReplaceFuncsForm: TReplaceFuncsForm Left = 374 Height = 626 Top = 49 Width = 928 Caption = 'Functions to replace' ClientHeight = 626 ClientWidth = 928 OnCreate = FormCreate Position = poScreenCenter LCLVersion = '0.9.31' object ButtonPanel: TButtonPanel Left = 6 Height = 34 Top = 586 Width = 916 OKButton.Name = 'OKButton' OKButton.OnClick = OKButtonClick HelpButton.Name = 'HelpButton' CloseButton.Name = 'CloseButton' CloseButton.Enabled = False CancelButton.Name = 'CancelButton' TabOrder = 0 ShowButtons = [pbOK, pbCancel, pbHelp] end object Grid: TStringGrid AnchorSideLeft.Control = Splitter1 AnchorSideLeft.Side = asrBottom AnchorSideBottom.Control = ButtonPanel Left = 162 Height = 580 Top = 0 Width = 766 Anchors = [akTop, akLeft, akRight, akBottom] ColumnClickSorts = True Columns = < item Title.Caption = 'Category' Width = 100 end item Title.Caption = 'Delphi Function' Width = 150 end item Title.Caption = 'Replacement' Width = 310 end item Title.Caption = 'Package' Width = 90 end item Title.Caption = 'Unit' Width = 90 end> FixedCols = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goAutoAddRows, goSmoothScroll] PopupMenu = PopupMenu1 RowCount = 2 TabOrder = 1 OnPrepareCanvas = GridPrepareCanvas ColWidths = ( 100 150 310 90 90 ) end object CategoryListBox: TCheckListBox AnchorSideTop.Control = CategoriesLabel AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Splitter1 AnchorSideBottom.Control = ButtonPanel Left = 0 Height = 553 Top = 27 Width = 157 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Top = 5 ItemHeight = 0 OnClickCheck = CategoryListBoxClickCheck TabOrder = 2 end object Splitter1: TSplitter Left = 157 Height = 270 Top = 0 Width = 5 Align = alNone end object CategoriesLabel: TLabel Left = 6 Height = 14 Top = 8 Width = 110 BorderSpacing.Right = 6 Caption = 'Categories to convert:' ParentColor = False ParentFont = False end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup left = 248 top = 152 object InsertRow1: TMenuItem Caption = 'Insert Row' OnClick = InsertRow1Click end object DeleteRow1: TMenuItem Caption = 'Delete Row' OnClick = DeleteRow1Click end end end