propertydescs.pas

企业进销存管理系统

unit propertyDescs;

interface    

function GetGridPropertyDesc(sPropertyName : String) : String;

implementation

function GetGridPropertyDesc(sPropertyName : String) : String;
begin
  if sPropertyName = 'Align' then
     Result := ''
  else if sPropertyName = 'AlwaysShowEditor' then
     Result := 'When AlwaysShowEditor is True, the grid always shows an editor in the current cell of the grid.' + #10#10 +
               'When it is False, an editor is only shown when the user clicks in the current cell, double clicks in another cell,' + #10#10 +
               ' or starts editing in the current cell. The editor will be automatically hidden again when the user moves to another cell, or presses Escape. Default, AlwaysShowEditor is True.' + #10#10 +
               'When the editor is not shown in the current cell, a focus rect is displayed in the cell. The editor will not be shown in readonly cells, or when the GridMode is gmListBox or gmBrowse.' + #10#10 +
               'See ShowEditor and HideEditor for showing and hiding the editor programmatically.'
  else if sPropertyName = 'AlwaysShowFocus' then
     Result := 'AlwaysShowFocus can be set if you want the grid to always display the focus for the current cell, even if the grid does not have the focus.' + #10#10 +
               'The focus will be displayed as either a focus rect, or by displaying the selected text in the current cell as highlighted. Default, AlwaysShowFocus is False.'  + #10#10 +
               'AlwaysShowFocus allows you to give the user constant visual feedback on where the current cell is in the grid, even when the grid does not have the focus.'  + #10#10 +
               'The grid''s focus rect can be customized with the FocusBorder, FocusColor and FocusFontColor properties. See these properties for more information.'
  else if sPropertyName = 'AlwaysShowScrollBar' then
     Result := 'When AlwaysShowScrollBar is turned on, a normal scrollbar is displayed when needed, and the scrollbar is disabled when it is not needed.' +
               'AlwaysShowScrollBar can be turned on for the horizontal, the vertical or both scrollbars. Default, AlwaysShowScrollBar is ssNone.'  + #10#10 +
               'AlwaysShowScrollBar only applies if the scrollbar is turned via the ScrollBars property.'  + #10#10 +
               'AlwaysShowScrollBar can take the following values:'  + #10#10 +
               'Value			Meaning'  + #10 +
               'ssNone			Both scrollbars are hidden when not needed.'  + #10 +
               'ssVertical		Only the vertical scrollbar is always shown.'  + #10 +
               'ssHorizontal		Only the horizontal scrollbar is always shown.' + #10 +
               'ssBoth			Both scrollbars are always shown.'
  else if sPropertyName = 'AutoInsert' then
     Result := 'AutoInsert specifies if a new insert row will be appended at the bottom of the grid when the user uses the arrow down key on the last record of the grid. The appended row can be ' +
               'used to insert a new record into the table. By default, AutoInsert is true, which this corresponds to the standard TDBGrid behaviour. If you set AutoInsert to false, the user cannot ' +
               'insert a record at the end of the grid with the arrow down key.'
  else if sPropertyName = 'AutoScale' then
     Result := 'Set AutoScale to True if you want the grid to automatically scale its row heights, column widths and font sizes when the grid itself is being scaled. Scaling occurs when the grid''s ScaleBy ' +
               'method is called, or when the form on which the grid resides has its Scaled property set to True and is being scaled to a new size. ' + #10#10 +
               'The AutoScale property does not control the scaling of the height and width of the grid itself. These are always set when the grid is being scaled. ' +
               'The AutoScale controls the scaling of the elements within the grid. These include the row heights, the column widths, the RowBarWidth, the HeadingHeight, and all grid, column, row and cell fonts.'
  else if sPropertyName = 'ButtonEdgeWidth' then
     Result := 'The ButtonEdgeWidth specifies the size of the border around a cell button, in pixels. It applies to all sides of the button, i.e. left, top, right and bottom.'
  else if sPropertyName = 'BookmarkCompareType' then
     Result := 'Normally, bookmarks are compared using the dataset''s CompareBookmarks function, which usually returns a result of -1, 0 or 1, indicating smaller, equal or larger. Some database drivers do not support the -1, 0' +
               ' and 1 return values for CompareBookmarks function, but just 0 and 1 for equal and non equal. The TopGrid will not operate correctly in that case. To overcome this, you can set the BookmarkComparisonType to bctAsString, ' +
               'which will compare bookmarks as plain strings. Default, BookmarkCompareType is bctDefault.' + #10#10 +
               'Normally, you do not need to set the BookmarkCompareType. You should also be careful in setting it to bctAsString, as most database drivers do not support this. It is provided as a solution for some database drivers which ' +
               ' do not support normal bookmark comparisons. The only currently known database driver to which it applies is Topaz. It might also apply to other lesser known drivers.' + #10#10 +
               'You should only use the BookmarkCompareType if row selections behave erratic. In that case, setting the BookmarkCompareType to bctAsString might resolve the problem. ' +
               'If the row selections do behave erratic, then always first set the BookmarkType property to bmtNonOrdered. If the selections are still erratic, then set the BookmarkCompareType to bctAsString.' + #10#10 +
               'Note: Always set the BookmarkType to bmtNonOrdered when setting the BookmarkCompareType to bctAsString.'
  else if sPropertyName = 'BookmarkRecordID' then
     Result := 'Use BookmarkRecordID to retrieve the record id for a given bookmark. DataRow is the bookmark of the record. Using the BookmarkRecordID causes the OnGetRecordID event to be activated in which event ' +
               'the record id should be supplied. Record ids can be used to set the properties for rows and cells in a DataBound TtsDBGrid as an alternative to using bookmarks for this purpose. See UseRecordIds for a descripton ' +
               'of using record ids instead of bookmarks.' + #10#10 +
               'BookmarkRecordID only applies when the TtsDBGrid is DataBound. the UseRecordIds property is set to true and an event handler is assigned to the OnGetRecordID event.'
  else if sPropertyName = 'CellSelectMode' then
     Result := 'Use the CellSelectMode to set or retrieve the range select mode for cells. If CellSelectMode is cmNone, no cells can be selected. When CellSelectMode is cmRange, a range of cells can be selected. The cells can be ' +
               ' selected with the mouse by the user or by calling the SelectCells method. (To select cells with the mouse, click in the left hand side of the cell with the left mouse button and drag the mouse).'
  else if sPropertyName = 'CenterPicture' then
     Result := 'Use CenterPicture to specify if pictures should be drawn in the center of cells or not. You can change CenterPicture in the OnCellLoaded event to customize the drawing for individual cells, or you can set it in advance ' +
               'to have all pictures drawn in the same way. CenterPicture only applies to cells of ControlType ctPicture. Default, CenterPicture is True.' + #10#10 +
               'CenterPicture specifies the default centering behaviour for pictures in the grid. Picture centering can also be set for individual columns, cells and rows using the column CenterPicture, RowCenterPicture and CellCenterPicture properties.'
  else if sPropertyName = 'CheckBoxStyle' then
     Result := 'Use CheckBoxStyle to set the default checkbox style. The style applies to all the checkboxes in the grid. CheckBoxOnBitmap, CheckBoxOffBitmap and CheckBoxGrayedBitmap can be used to customize the checkbox style by supplying custom bitmaps ' +
               'for the different check box states. Default, CheckBoxStyle is stCheck.'
  else if sPropertyName = 'CheckBoxValues' then
     Result := 'Use CheckBoxValues to specify string values that should be used as the checked, unchecked and grayed values for the grid''s check boxes. Using CheckBoxValues us useful when you want to use strings instead TCheckBoxState values for check boxes, ' +
               'for instance when using a check box with a string field from a database table that contains yes/no string values. Default, CheckBoxValues is an empty string.' + #10#10 +
               'CheckBoxValues should contain two or three values, separated by ''|''. The first value is the checked value, the second the unchecked value and the optional third value is the grayed value. Examples of CheckBoxValues are:' + #10#10 +
               '  Y|N' + #10 +
               '	Yes|No|Unknown'  + #10 +
               '	True|False|Null'  + #10#10 +
               'If no value is specified as the grayed value, then it will be an empty string. If ''Null'' is specified as the grayed value, then the Null variant value will be used.'
  else if sPropertyName = 'CheckMouseFocus' then
     Result := 'When the grid is clicked it, it sets the focus to itself. If CheckMouseFocus is True, the grid checks if it actually gains the focus before continuing with further processing. If the grid does not gain the focus, no further processing is carried ' +
               'out in the grid''s mouse down procedure. If CheckMouseFocus is False, no focus check is carried out, and the grid carries out its normal processing, whether it gained the focus or not. Default, CheckMouseFocus is True.' + #10#10 +
               'CheckMouseFocus is used to prevent the grid from carrying out its normal processing when clicked on if it does not get the focus. This is useful in situations where another control has the focus when the grid is clicked on, and does ' +
               'not want to give up the focus due to incorrect input for instance. By preventing the grid from carrying out its normal mouse down processing, it will not interfere with the ongoing editing.' + #10#10 +
               'It can be useful at times to still allow the grid to carry out its normal processing, even if it does not gain the focus in the mouse down. To allow this, set CheckMouseFocus to False.'
  else if sPropertyName = 'ColMoving' then
     Result := 'Use ColMoving to either allow or disallow the user from moving columns in the grid. A user can move columns by first selecting the columns with the mouse and then subsequently clicking on a selected column with the left mouse button and dragging ' +
               ' the mouse to a new position. (The ColSelectMode property indicates whether a user can select columns or not). If ColMoving is turned off, columns can still be moved by setting their DisplayCol or by setting the DisplayColnr.'
  else if sPropertyName = 'Cols' then
     Result := 'Use Cols to set or determine the number of columns in the grid. The number of columns does not include the rowbar, but does include the fixed columns. Cols should be equal to or larger than 0. Default, the value is 4.'
  else if sPropertyName = 'ColSelectMode' then
     Result := 'Use ColSelectMode to set the column selection mode. If it''s value is csNone, no columns can be selected, otherwise any combination of columns can be selected. A user can select columns with the mouse or columns can be ' +
               'selected by using either the column''s Selected property or the SelectCols method. See selecting columns on how to select columns with the mouse. Default, the ColSelectMode is csMulti.'
  else if sPropertyName = 'DefaultButtonHeight' then
     Result := 'Use DefaultButtonHeight to read and set the default height of a button in the grid. All default buttons will be drawn with this height. If you create your buttons with CreateButton, CreateDefaultCombo or CreateDefaultButton, ' +
               'the height of the button will be either the default height or the height of the button''s bitmap if this is larger.'
  else if sPropertyName = 'DefaultButtonWidth' then
     Result := 'Use DefaultButtonWidth to read and set the default width of a button in the grid. All default buttons will be drawn with this width. If you create your buttons with CreateButton, CreateDefaultCombo or CreateDefaultButton, the width of the button ' +
               'will be either the default width or the width of the button''s bitmap if this is larger.'
  else if sPropertyName = 'DefaultColWidth' then
     Result := 'Is the width that any newly added columns to the grid will be.'
  else if sPropertyName = 'DefaultRowHeight' then
     Result := 'Is the default row height for all rows - changing this will change all rows to be this height.'
  else if sPropertyName = 'EditColor' then
     Result := 'Use EditColor to set the background color of the text box in the current cell. EditColor allows you to set the color of the current text box to a different color than the rest of the cells in the grid. EditColor only applies if the ControlType of ' +
               'the cell''s column is ctText. When EditColor is clNone, no separate color is set for the text box. Default, the value is clNone.'
  else if sPropertyName = 'EditFontColor' then
     Result := 'Use EditFontColor to set the font color of the text box in the current cell. EditFontColor allows you to set the font color of the current text box to a different color than the rest of the cells in the grid. EditFontColor only applies if the ControlType ' +
               'of the cell''s column is ctText. When EditFontColor is clNone, no separate font color is set for the text box. Default, the value is clNone.'
  else if sPropertyName = 'FixedColCount' then
     Result := 'Use FixedColCount to set the number of fixed columns in the grid. A fixed column is positioned at the left hand side of the grid and stays in the same place when other columns are being scrolled. Apart from being fixed, fixed ' +
               ' columns are the same as any other ' +
               ' column. You can set all the properties you can normally set for columns. Default, FixedColCount is 0.'
  else if sPropertyName = 'FixedLineColor' then
     Result := 'You can use the FixedLineColor to set line color for the line drawn between fixed and non-fixed rows and columns. By specifying a different color than the normal grid LineColor, the fixed rows and columns can be visually separated' +
               ' from the non-fixed rows and columns.' +
               ' When FixedLineColor is clNone, the color of the fixed line defaults to LineColor. Default, FixedLineColor is clBlack.'
  else if sPropertyName = 'FixedRowCount' then