osgrideditor.pas

企业进销存管理系统

    procedure FormShow(Sender: TObject);
    procedure btCustomGridEditClick(Sender: TObject);
    procedure btEditCustomColPropertiesClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SplitterMoved(Sender: TObject);
    procedure edDefaultRowHeightExit(Sender: TObject);
    procedure edDefaultColWidthExit(Sender: TObject);
    procedure edDefaultColWidthKeyPress(Sender: TObject; var Key: Char);
    procedure edDefaultRowHeightKeyPress(Sender: TObject; var Key: Char);
    procedure tbLeftJustifyClick(Sender: TObject);
    procedure tbCenterJustifyClick(Sender: TObject);
    procedure tbRightJustifyClick(Sender: TObject);
    procedure tbDefaultJustifyClick(Sender: TObject);
    procedure sampleDbGridColMoved(Sender: TObject; ToDisplayCol,
      Count: Integer; ByUser: Boolean);
    procedure sampleDbGridMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cbMaskKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btEditMaskClick(Sender: TObject);
    procedure cbMaskClick(Sender: TObject);
    procedure cbMaskExit(Sender: TObject);
    procedure btCustomMasksClick(Sender: TObject);
    procedure AddCombo1Click(Sender: TObject);
    procedure RemoveCombo1Click(Sender: TObject);
    procedure lbCombosClick(Sender: TObject);
    procedure edDropDownColsChange(Sender: TObject);
    procedure edValueColChange(Sender: TObject);
    procedure edDropDownRowsChange(Sender: TObject);
    procedure chValueColSortedClick(Sender: TObject);
    procedure chAutoFillClick(Sender: TObject);
    procedure cbConvertCaseChange(Sender: TObject);
    procedure cbCompareTypeChange(Sender: TObject);
    procedure cbAutoSearchChange(Sender: TObject);
    procedure chAutoLookupClick(Sender: TObject);
    procedure cbDropDownStyleChange(Sender: TObject);
    procedure chComboStoreDataClick(Sender: TObject);
    procedure cbComboDataSourceClick(Sender: TObject);
    procedure gdComboDataCellLoaded(Sender: TObject; DataCol,
      DataRow: Integer; var Value: Variant);
    procedure gdComboDataColResized(Sender: TObject; RowColnr: Integer);
    procedure veComboPropertiesButtonClick(Sender: TObject; DataCol,
      DataRow: Integer);
    procedure veComboPropertiesEndCellEdit(Sender: TObject; DataCol,
      DataRow: Integer; var Cancel: Boolean);
    procedure veComboPropertiesComboDropDown(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer);
    procedure veComboPropertiesComboCellLoaded(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer; var Value: Variant);
    procedure veComboPropertiesComboGetValue(Sender: TObject;
      Combo: TtsComboGrid; GridDataCol, GridDataRow, ComboDataRow: Integer;
      var Value: Variant);
    procedure veComboPropertiesComboInit(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer);
    procedure pgComboChange(Sender: TObject);
    procedure btAddComboColumnClick(Sender: TObject);
    procedure lbAllComboFieldsClick(Sender: TObject);
    procedure lbComboFieldsClick(Sender: TObject);
    procedure lbAllComboFieldsDblClick(Sender: TObject);
    procedure btRemoveComboColumnClick(Sender: TObject);
    procedure lbComboFieldsDblClick(Sender: TObject);
    procedure udComboFieldsClick(Sender: TObject; Button: TUDBtnType);
    procedure gdComboDataEndCellEdit(Sender: TObject; DataCol,
      DataRow: Integer; var Cancel: Boolean);
    procedure tbOpenFileClick(Sender: TObject);
    procedure tbSaveFileClick(Sender: TObject);
    procedure veColEditorDblClick(Sender: TObject);
    procedure veComboPropertiesDblClick(Sender: TObject);
    procedure miAddColumnClick(Sender: TObject);
    procedure RemoveColumn1Click(Sender: TObject);
    procedure miClearAllColumnsClick(Sender: TObject);
    procedure edColsExit(Sender: TObject);
    procedure edRowsExit(Sender: TObject);
    procedure edColsKeyPress(Sender: TObject; var Key: Char);
    procedure edRowsKeyPress(Sender: TObject; var Key: Char);
    procedure udDefaultRowHeightClick(Sender: TObject; Button: TUDBtnType);
    procedure udDefaultColWidthClick(Sender: TObject; Button: TUDBtnType);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Exit(Sender: TObject);
    procedure gdComboDataInsertRow(Sender: TObject; DataRow: Integer;
      ByUser: Boolean);
    procedure sampleGridEndCellEdit(Sender: TObject; DataCol,
      DataRow: Integer; var Cancel: Boolean);
    procedure gdComboDataDeleteRow(Sender: TObject; DataRow: Integer;
      ByUser: Boolean);
    procedure btInsertFieldClick(Sender: TObject);
    procedure tsAdvancedResize(Sender: TObject);
    procedure Splitter1Moved(Sender: TObject);
    procedure cbMaskDropDown(Sender: TObject);
    procedure cbMaskCloseUp(Sender: TObject);
    procedure veRowEditorButtonClick(Sender: TObject; DataCol,
      DataRow: Integer);
    procedure sampleGridRowChanged(Sender: TObject; OldRow,
      NewRow: Integer);
    procedure veRowEditorComboCellLoaded(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer; var Value: Variant);
    procedure veRowEditorComboDropDown(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer);
    procedure veRowEditorComboGetValue(Sender: TObject;
      Combo: TtsComboGrid; GridDataCol, GridDataRow, ComboDataRow: Integer;
      var Value: Variant);
    procedure veRowEditorComboInit(Sender: TObject; Combo: TtsComboGrid;
      DataCol, DataRow: Integer);
    procedure veRowEditorDblClick(Sender: TObject);
    procedure veRowEditorEndCellEdit(Sender: TObject; DataCol,
      DataRow: Integer; var Cancel: Boolean);
    procedure btShowHiddenRowsClick(Sender: TObject);
    procedure sampleGridCellChanged(Sender: TObject; OldCol, NewCol,
      OldRow, NewRow: Integer);
    procedure sampleDbGridCellChanged(Sender: TObject; OldCol,
      NewCol: Integer; OldRow, NewRow: Variant);
    procedure sampleGridColMoved(Sender: TObject; ToDisplayCol,
      Count: Integer; ByUser: Boolean);
    procedure veCellEditorButtonClick(Sender: TObject; DataCol,
      DataRow: Integer);
    procedure veCellEditorComboCellLoaded(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer; var Value: Variant);
    procedure veCellEditorComboDropDown(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer);
    procedure veCellEditorComboGetValue(Sender: TObject;
      Combo: TtsComboGrid; GridDataCol, GridDataRow, ComboDataRow: Integer;
      var Value: Variant);
    procedure veCellEditorDblClick(Sender: TObject);
    procedure veCellEditorEndCellEdit(Sender: TObject; DataCol,
      DataRow: Integer; var Cancel: Boolean);
    procedure cbHeadingColorClick(Sender: TObject);
    procedure cbGridColorClick(Sender: TObject);
    procedure cbFocusColorClick(Sender: TObject);
    procedure cbFocusFontColorClick(Sender: TObject);
    procedure cbColorsClick(Sender: TObject);
    procedure sampleDbGridHeadingClick(Sender: TObject; DataCol: Integer);
    procedure sampleGridHeadingClick(Sender: TObject; DataCol: Integer);
    procedure tbSetPictureClick(Sender: TObject);
    procedure tbClearPictureClick(Sender: TObject);
    procedure chStoreDataClick(Sender: TObject);
    procedure chGridMenuClick(Sender: TObject);
    procedure chPrintTotalsClick(Sender: TObject);
    procedure veComboColEditorButtonClick(Sender: TObject; DataCol,
      DataRow: Integer);
    procedure lbColumns2Click(Sender: TObject);
    procedure veComboColEditorComboDropDown(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer);
    procedure veComboColEditorComboGetValue(Sender: TObject;
      Combo: TtsComboGrid; GridDataCol, GridDataRow, ComboDataRow: Integer;
      var Value: Variant);
    procedure veComboColEditorComboInit(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Integer);
    procedure veComboColEditorDblClick(Sender: TObject);
    procedure veComboColEditorEndCellEdit(Sender: TObject; DataCol,
      DataRow: Integer; var Cancel: Boolean);
    procedure chColPropertiesShortListClick(Sender: TObject);
    procedure miResetGridColumnsClick(Sender: TObject);
    procedure miSortedFieldListClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure sampleDbGridTopLeftChanged(Sender: TObject; OldCol: Integer;
      OldRow: Variant; NewCol: Integer; NewRow: Variant; ByUser: Boolean);
    procedure sampleGridTopLeftChanged(Sender: TObject; OldCol, OldRow,
      NewCol, NewRow: Integer; ByUser: Boolean);
    procedure veColEditorRowChanged(Sender: TObject; OldRow,
      NewRow: Integer);
    procedure veCellEditorRowChanged(Sender: TObject; OldRow,
      NewRow: Integer);
    procedure veRowEditorRowChanged(Sender: TObject; OldRow,
      NewRow: Integer);
    procedure chParentComboClick(Sender: TObject);
    procedure miAddRowClick(Sender: TObject);
    procedure miRemoveRowClick(Sender: TObject);
    procedure pmOptionsPopup(Sender: TObject);
    procedure sampleGridRowMoved(Sender: TObject; ToDisplayRow,
      Count: Integer; ByUser: Boolean);
    procedure lbFieldsClick(Sender: TObject);
    procedure tsComboColumnsResize(Sender: TObject);
    procedure UpDown2Changing(Sender: TObject; var AllowChange: Boolean);
    procedure gdComboDataKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

  private
    { Private declarations }
    FSelectedCol, FSelectedColProperty : Integer;
    FSelectedRow, FSelectedRowProperty, FSelectedCellProperty : Integer;
    FSelectedCombo : TtsCombo;
    FTargetGrid : TtsBaseGrid;
    FColumnsChanged, FColPropertiesRefresh, FRowPropertiesRefresh, FCellPropertiesRefresh : Boolean;
    FStartup, FBinding, FSelecting : Boolean;

    procedure OpenGridFile;
    procedure SaveGridFile;
    procedure ResetWindowState;
    procedure SaveWindowState;

    // Grid Routines
    procedure BindGridProperty(DataRow : Integer);
    procedure BindGridVarProperty(PropertyName : String; Value : Variant);
    procedure LoadCustomGridProperties;
    function  GetGridPropertyType(sPropName : String) : TosPropertyType;
    procedure GetDefaultExtendFilter(var DefaultExt: string; var Filter: string);
    procedure RefreshPropertyDisplay(DataRow : Integer);
    procedure UpdatePropertyFromEdit;
    procedure UpdatePropertyFromColor;
    procedure UpdatePropertyFromBoolean;
    procedure UpdatePropertyFromEnum;
    function  GetDataBound : Boolean;
    procedure SetupPropertyLists;
    function LoadEnumList(anObject : TPersistent; sProperty : String) : Integer;
    procedure GridModified;
    function  GetDemoGridPropertyValue(PropertyName : String) : Variant;
    procedure RefreshGridProperties;
    function GetGridPropertyValueText(forEditor : TtsGrid; AnObject: TComponent; PropertyName: String ) : String;
    procedure SetFieldSort(aValue : Boolean);
    function GetFieldSort : Boolean;
    function GetGridView : String;
    procedure SetGridView(aValue : String);
    function GetColumnView : String;
    procedure SetColumnView(aValue : String);

    // Test routines for property displays
    function TestGridPropertyView(sPropertyName : String) : Boolean;
    function TestGridColorProperty(PropertyName : String) : Boolean;
    function TestColPropertyView(sPropertyName : String) : Boolean;
    function TestComboPropertyView(sPropertyName : String) : Boolean;
    function TestColColorProperty(PropertyName : String) : Boolean;
    function TestGridBooleanProperty(PropertyName : String) : Boolean;
    function TestComboBooleanProperty(PropertyName : String) : Boolean;
    function TestColBooleanProperty(PropertyName : String) : Boolean;

    // Col and Field Routines
    function  GetSelectedtsCol : TtsCol;
    procedure LoadCustomColProperties;
    procedure BindColProperty(DataRow : Integer);
    procedure BindColVarProperty(PropertyName : String; Value : Variant);
    function  GetColPropertyValueText(PropertyName: String; forRow : Integer) : String;
    procedure UpdateColPropertyFromEnum;
    procedure HideColumn;
    procedure ShowColumn;
    procedure AddModifiedColProperty(sPropertyName : String);
    function  SourceColFor(aCol : TtsCol) : TtsCol;
    procedure SetColJustification;
    procedure SetColumnsProperty(sPropName : String; Value : Variant);
    procedure SetSelectedCol(Value : Integer);
    procedure AdustColumnButtons;
    procedure ClearFieldNames;
    procedure LoadFieldNames;
    procedure LoadSelectableFields;
    procedure ReloadSelectableFields;
    function  FieldInGrid(sFieldname : String) : Boolean;
    function  AddField : Boolean;
    function  InsertField : Boolean;
    function  FieldForName(sFieldName : String) : TField;
    procedure AddBlankColumn;
    procedure IncCols;    
    procedure RemoveCol;
    procedure RemoveSelectedCols;
    function  ReplaceDbField(sFieldName : String) : Boolean;
    function  GetColPropertyType(sPropName : String) : TosPropertyType;
    procedure RefreshColProperties;
    procedure SetSelectedColProperty(aValue : Integer);

    // Row Properties Routines
    procedure BindRowProperty(PropertyName : String; Value : Variant);
    function  GetRowProperty(PropertyName : String) : Variant;
    procedure RefreshRowProperties;
    procedure RefreshRowProperty(PropertyName : String);
    procedure SetSelectedRow(Value : Integer);
   // function  TextToButtonType(Value : String) : TtsButtonType;
    function  ButtonTypeToText(Value : TtsButtonType) : String;
   // function  TextToControlType(Value : String) : TtsControlType;
    function  ReadOnlyToText(Value : TtsReadOnly) : String;
    function  ControlTypeToText(Value : TtsControlType) : String;
    function  HorzAlignmentToText(Value : TtsHorzAlignment) : String;
    function  VertAlignmentToText(Value : TtsVertAlignment) : String;
    function  WordWrapToText(Value : TtsWordWrap) : String;
    function  DrawOptionToText(Value : TtsDrawOption) : String;
    function  DropDownStyleToText(Value : TtsDropDownStyle) : String;
    function  SpinOptionToText(Value : TtsSpinOptions) : String;
    procedure SetSelectedRowProperty(aValue : Integer);

    // Cell Properties Routines
    procedure AddCellCombo;
    procedure RemoveCellCombo;
    procedure RefreshCellProperties;
    procedure RefreshCellProperty(PropertyName : String);
    function  GetCellProperty(PropertyName : String) : Variant;
    procedure BindCellProperty(PropertyName : String; Value : Variant);
    function  ComboCellText : String;
    procedure SetEnablebutLoadPicture;
    function  CellType(DataCol: integer; DataRow: variant): TtsControlType;
    {$IFNDEF rtTest}
    procedure SetPicture;
    procedure ClearPicture;
    {$ENDIF}
    procedure SetSelectedCellProperty(aValue : Integer);

    // Combo procedures
    procedure BindComboProperty(DataRow : Integer);
    procedure SetSelectedCombo(Value : TtsCombo);
    function  GetSelectedCombo : TtsCombo;
    procedure RefreshComboProperties;
    function  GetComboPropertyValueText(PropertyName: String ) : String;
    procedure EnableComboControls(bEnabled : Boolean);
    procedure AddCombo(toCol : TtsCol);
    procedure RemoveCombo(toCol : TtsCol);
    procedure SelectItemCombo;
    procedure ExtractColRow(var DataCol, DataRow : Integer; CellText : String);
    procedure ResetComboGrid;
    procedure LoadComboDataSources;
    function  ComboIndex(aCol : TtsCol) : Integer;
    procedure AdjustComboProperties;
    function  GetFullName(aComponent : TComponent) : String;
    procedure ClearComboProperties;
    procedure EnsureCombos;
    procedure SetComboDataSource;
    procedure LoadComboDataBookmarks(fromDataSet : TDataSet);
    procedure ResetComboColumns;
    procedure CheckCombos;
    function  ComboLookupDataSet : TDataSet;
    procedure AdjustComboFieldButtons;
    procedure UpdateComboPropertyFromEnum;
    function  GetComboPropertyType(sPropName : String) : TosPropertyType;
    procedure ResetComboColProperties;
    procedure RefreshComboColProperties;
    function  TestComboColPropertyView(sPropName : String) : Boolean;
    function  GetComboColPropertyValueText(PropertyName: String ) : String;
    function  GetComboColPropertyType(sPropName : String) : TosPropertyType;
    procedure BindComboColProperty(DataRow : Integer);

    // General routines
    procedure Apply;
    procedure Initialize;
    procedure MoveTo(DataCol : Integer; DataRow : Variant);
    function  XforCol(DisplayCol : Integer) : Integer;
    procedure AdjustToolbar;
    procedure AdjustFieldButtons;
    procedure AdjustFocusColors;
    function  FontDisplay(aFont : TFont) : String;
    procedure AdjustCommonProperties;
    procedure SetTargetGrid(Value : TtsBaseGrid);
    procedure SetPropertyValueText(AnObject: TPersistent; PropertyName: String; value: variant);