Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 5 827

Раздел: Delphi » Работа с компонентами и библиотеками
/ вопрос открыт /

Здравствуйте, уважаемые эксперты!

Меня немного заклинило, прошу вашей помощи. Не могу свойства установить правильные

Дело вот в чем. использую TAdvStringGrid от TMSSoftware

Мне нужно в тех ячейках, которые я могу редактировать, порядок ввода был аналогичный экселевскому, т.е. если стать на ячейку и начать вводить данные, то данные будут вводится новые (старые стираются), а если двойным кликом, то выделяются старые данные (формат Inplace Edit насколько я понимаю), которые можно редактировать в обычном режиме.

Сейчас если стать мышкой на ячейку, то часто бывают случаи, когда значения вводятся к уже существующим

В приложении свойства объекта

Спасибо

Приложение:
  1. object DistanceGrid: TAdvStringGrid
  2. Left = 0
  3. Top = 124
  4. Width = 857
  5. Height = 309
  6. Cursor = crIBeam
  7. Align = alClient
  8. ColCount = 3
  9. DrawingStyle = gdsClassic
  10. Font.Charset = RUSSIAN_CHARSET
  11. Font.Color = clWindowText
  12. Font.Height = -15
  13. Font.Name = 'Calibri'
  14. Font.Style = []
  15. Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goEditing, goTabs]
  16. ParentFont = False
  17. PopupMenu = GridPopupMenu
  18. ScrollBars = ssNone
  19. TabOrder = 1
  20. OnKeyDown = DistanceGridKeyDown
  21. OnSetEditText = DistanceGridSetEditText
  22. ActiveRowShow = True
  23. ActiveRowColor = clCream
  24. OnGetCellColor = DistanceGridGetCellColor
  25. OnGetAlignment = DistanceGridGetAlignment
  26. OnGridHint = DistanceGridGridHint
  27. OnDblClickCell = DistanceGridDblClickCell
  28. OnIsFixedCell = DistanceGridIsFixedCell
  29. OnCellValidate = DistanceGridCellValidate
  30. OnGetEditorType = DistanceGridGetEditorType
  31. ActiveCellShow = True
  32. ActiveCellFont.Charset = DEFAULT_CHARSET
  33. ActiveCellFont.Color = clWindowText
  34. ActiveCellFont.Height = -11
  35. ActiveCellFont.Name = 'Tahoma'
  36. ActiveCellFont.Style = [fsBold]
  37. ControlLook.FixedGradientHoverFrom = 13619409
  38. ControlLook.FixedGradientHoverTo = 12502728
  39. ControlLook.FixedGradientHoverMirrorFrom = 12502728
  40. ControlLook.FixedGradientHoverMirrorTo = 11254975
  41. ControlLook.FixedGradientDownFrom = 8816520
  42. ControlLook.FixedGradientDownTo = 7568510
  43. ControlLook.FixedGradientDownMirrorFrom = 7568510
  44. ControlLook.FixedGradientDownMirrorTo = 6452086
  45. ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET
  46. ControlLook.DropDownHeader.Font.Color = clWindowText
  47. ControlLook.DropDownHeader.Font.Height = -11
  48. ControlLook.DropDownHeader.Font.Name = 'Tahoma'
  49. ControlLook.DropDownHeader.Font.Style = []
  50. ControlLook.DropDownHeader.Visible = True
  51. ControlLook.DropDownHeader.Buttons = <>
  52. ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET
  53. ControlLook.DropDownFooter.Font.Color = clWindowText
  54. ControlLook.DropDownFooter.Font.Height = -11
  55. ControlLook.DropDownFooter.Font.Name = 'Tahoma'
  56. ControlLook.DropDownFooter.Font.Style = []
  57. ControlLook.DropDownFooter.Visible = True
  58. ControlLook.DropDownFooter.Buttons = <>
  59. ExcelStyleDecimalSeparator = True
  60. Filter = <>
  61. FilterDropDown.Font.Charset = DEFAULT_CHARSET
  62. FilterDropDown.Font.Color = clWindowText
  63. FilterDropDown.Font.Height = -11
  64. FilterDropDown.Font.Name = 'Tahoma'
  65. FilterDropDown.Font.Style = []
  66. FilterDropDownClear = '(All)'
  67. FixedColWidth = 35
  68. FixedRowHeight = 22
  69. FixedFont.Charset = ANSI_CHARSET
  70. FixedFont.Color = clWindowText
  71. FixedFont.Height = -15
  72. FixedFont.Name = 'Arial'
  73. FixedFont.Style = [fsBold]
  74. FloatFormat = '%.2f'
  75. FloatingFooter.CalculateHiddenRows = False
  76. FloatingFooter.FooterStyle = fsColumnPreview
  77. Look = glSoft
  78. MouseActions.AllRowSize = True
  79. MouseActions.CaretPositioning = True
  80. MouseActions.ColSelect = True
  81. MouseActions.DirectEdit = True
  82. MouseActions.RangeSelectAndEdit = True
  83. MouseActions.SizeFixedCol = True
  84. MouseActions.SizeFixedRow = True
  85. Navigation.AlwaysEdit = True
  86. Navigation.AdvanceDirection = adTopBottom
  87. Navigation.AllowClipboardShortCuts = True
  88. Navigation.AllowClipboardAlways = True
  89. Navigation.AllowClipboardRowGrow = False
  90. Navigation.AllowClipboardColGrow = False
  91. Navigation.HomeEndKey = heFirstLastRow
  92. PrintSettings.DateFormat = 'dd/mm/yyyy'
  93. PrintSettings.Font.Charset = DEFAULT_CHARSET
  94. PrintSettings.Font.Color = clWindowText
  95. PrintSettings.Font.Height = -11
  96. PrintSettings.Font.Name = 'Tahoma'
  97. PrintSettings.Font.Style = []
  98. PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
  99. PrintSettings.FixedFont.Color = clWindowText
  100. PrintSettings.FixedFont.Height = -11
  101. PrintSettings.FixedFont.Name = 'Tahoma'
  102. PrintSettings.FixedFont.Style = []
  103. PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
  104. PrintSettings.HeaderFont.Color = clWindowText
  105. PrintSettings.HeaderFont.Height = -11
  106. PrintSettings.HeaderFont.Name = 'Tahoma'
  107. PrintSettings.HeaderFont.Style = []
  108. PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
  109. PrintSettings.FooterFont.Color = clWindowText
  110. PrintSettings.FooterFont.Height = -11
  111. PrintSettings.FooterFont.Name = 'Tahoma'
  112. PrintSettings.FooterFont.Style = []
  113. PrintSettings.PageNumSep = '/'
  114. SearchFooter.Color = clBtnFace
  115. SearchFooter.FindNextCaption = 'Find &next'
  116. SearchFooter.FindPrevCaption = 'Find &previous'
  117. SearchFooter.Font.Charset = DEFAULT_CHARSET
  118. SearchFooter.Font.Color = clWindowText
  119. SearchFooter.Font.Height = -11
  120. SearchFooter.Font.Name = 'Tahoma'
  121. SearchFooter.Font.Style = []
  122. SearchFooter.HighLightCaption = #1042#1099#1076#1077#1083#1080#1090#1100
  123. SearchFooter.HintClose = #1047#1072#1082#1088#1099#1090#1100
  124. SearchFooter.HintFindNext = #1053#1072#1081#1090#1080' '#1089#1083#1077#1076#1091#1102#1097#1077#1077' '#1074#1093#1086#1078#1076#1077#1085#1080#1077
  125. SearchFooter.HintFindPrev = #1053#1072#1081#1090#1080' '#1087#1088#1077#1076#1099#1076#1091#1097#1077#1077' '#1074#1093#1086#1078#1076#1077#1085#1080#1077
  126. SearchFooter.HintHighlight = 'Highlight occurences'
  127. SearchFooter.MatchCaseCaption = 'Match case'
  128. SearchFooter.SearchFixedCells = True
  129. SelectionColor = clHighlight
  130. SelectionTextColor = clCream
  131. ShowModified.Enabled = True
  132. SortSettings.Show = True
  133. SortSettings.IndexShow = True
  134. SortSettings.IndexColor = clGreen
  135. SortSettings.IgnoreBlanks = True
  136. SortSettings.BlankPos = blLast
  137. SortSettings.FixedCols = True
  138. SortSettings.UndoSort = True
  139. Version = '5.3.0.1'
  140. ColWidths = (
  141. 35
  142. 64
  143. 64)
  144. end
  145.  


Aндрей Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Aндрей (статус: 1-ый класс)
Вопрос отправлен: 19 декабря 2011, 12:06
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2023
Текущее время: 20 марта 2023, 16:26
Выполнено за 0.02 сек.
Рейтинг@Mail.ru