1object ReplaceFuncsForm: TReplaceFuncsForm 2 Left = 374 3 Height = 626 4 Top = 49 5 Width = 928 6 Caption = 'Functions to replace' 7 ClientHeight = 626 8 ClientWidth = 928 9 OnCreate = FormCreate 10 Position = poScreenCenter 11 LCLVersion = '0.9.31' 12 object ButtonPanel: TButtonPanel 13 Left = 6 14 Height = 34 15 Top = 586 16 Width = 916 17 OKButton.Name = 'OKButton' 18 OKButton.OnClick = OKButtonClick 19 HelpButton.Name = 'HelpButton' 20 CloseButton.Name = 'CloseButton' 21 CloseButton.Enabled = False 22 CancelButton.Name = 'CancelButton' 23 TabOrder = 0 24 ShowButtons = [pbOK, pbCancel, pbHelp] 25 end 26 object Grid: TStringGrid 27 AnchorSideLeft.Control = Splitter1 28 AnchorSideLeft.Side = asrBottom 29 AnchorSideBottom.Control = ButtonPanel 30 Left = 162 31 Height = 580 32 Top = 0 33 Width = 766 34 Anchors = [akTop, akLeft, akRight, akBottom] 35 ColumnClickSorts = True 36 Columns = < 37 item 38 Title.Caption = 'Category' 39 Width = 100 40 end 41 item 42 Title.Caption = 'Delphi Function' 43 Width = 150 44 end 45 item 46 Title.Caption = 'Replacement' 47 Width = 310 48 end 49 item 50 Title.Caption = 'Package' 51 Width = 90 52 end 53 item 54 Title.Caption = 'Unit' 55 Width = 90 56 end> 57 FixedCols = 0 58 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goAutoAddRows, goSmoothScroll] 59 PopupMenu = PopupMenu1 60 RowCount = 2 61 TabOrder = 1 62 OnPrepareCanvas = GridPrepareCanvas 63 ColWidths = ( 64 100 65 150 66 310 67 90 68 90 69 ) 70 end 71 object CategoryListBox: TCheckListBox 72 AnchorSideTop.Control = CategoriesLabel 73 AnchorSideTop.Side = asrBottom 74 AnchorSideRight.Control = Splitter1 75 AnchorSideBottom.Control = ButtonPanel 76 Left = 0 77 Height = 553 78 Top = 27 79 Width = 157 80 Anchors = [akTop, akLeft, akRight, akBottom] 81 BorderSpacing.Top = 5 82 ItemHeight = 0 83 OnClickCheck = CategoryListBoxClickCheck 84 TabOrder = 2 85 end 86 object Splitter1: TSplitter 87 Left = 157 88 Height = 270 89 Top = 0 90 Width = 5 91 Align = alNone 92 end 93 object CategoriesLabel: TLabel 94 Left = 6 95 Height = 14 96 Top = 8 97 Width = 110 98 BorderSpacing.Right = 6 99 Caption = 'Categories to convert:' 100 ParentColor = False 101 ParentFont = False 102 end 103 object PopupMenu1: TPopupMenu 104 OnPopup = PopupMenu1Popup 105 left = 248 106 top = 152 107 object InsertRow1: TMenuItem 108 Caption = 'Insert Row' 109 OnClick = InsertRow1Click 110 end 111 object DeleteRow1: TMenuItem 112 Caption = 'Delete Row' 113 OnClick = DeleteRow1Click 114 end 115 end 116end 117