tseditor.pas

企业进销存管理系统

      var Component: TPersistent);
    procedure ceGridGetComponentListChanged(Sender: TObject;
      CurComponenListId: TStringList; var Changed: Variant);
    procedure ceColumnGetComponentListChanged(Sender: TObject;
      CurComponenListId: TStringList; var Changed: Variant);
    procedure ceRowGetComponentListChanged(Sender: TObject;
      CurComponenListId: TStringList; var Changed: Variant);
    procedure ceCellGetComponentListChanged(Sender: TObject;
      CurComponenListId: TStringList; var Changed: Variant);
    procedure butStopClick(Sender: TObject);
    procedure ScanObjects(ce: TtsComponentEditor; lbl: string;
      State: tsScanObjectsState; Writing: Boolean; Count: Integer;
      var Cancel: Boolean);
    procedure ceGridGetComponentSelectionChanged(Sender: TObject;
      CurSelection: Pointer; var Changed: Boolean);
    procedure ceGridGetComponentSelection(Sender: TObject;
      var ComponentSelection: Pointer; var ComponentCount: Integer);
    procedure ceCellGetComponentSelection(Sender: TObject;
      var ComponentSelection: Pointer; var ComponentCount: Integer);
    procedure GetGridSelection(SenderEditor: TEditor; var ComponentSelection: PtsGridSelection);
    procedure ceColumnGetComponentSelection(Sender: TObject;
      var ComponentSelection: Pointer; var ComponentCount: Integer);
    procedure ceRowGetComponentSelection(Sender: TObject;
      var ComponentSelection: Pointer; var ComponentCount: Integer);
    procedure ceRowScanObjects(Sender: TObject; State: tsScanObjectsState;
      Writing: Boolean; Count: Longint; var Cancel: Boolean);
    procedure ceCellScanObjects(Sender: TObject;
      State: tsScanObjectsState; Writing: Boolean; Count: Longint;
      var Cancel: Boolean);
    procedure ceColumnScanObjects(Sender: TObject;
      State: tsScanObjectsState; Writing: Boolean; Count: Longint;
      var Cancel: Boolean);
    procedure ceGridGetComponentId(Sender: TObject; Component: TPersistent;
      var ComponentId: String);
    procedure ceColumnGetComponentId(Sender: TObject;
      Component: TPersistent; var ComponentId: String);
    procedure ceRowGetComponentId(Sender: TObject; Component: TPersistent;
      var ComponentId: String);
    procedure ceCellGetComponentId(Sender: TObject; Component: TPersistent;
      var ComponentId: String);
    procedure ceGridGetComponentWithId(Sender: TObject;
      ComponentId: String; var Component: TPersistent);
    procedure ceColumnGetComponentWithId(Sender: TObject;
      ComponentId: String; var Component: TPersistent);
    procedure ceRowGetComponentWithId(Sender: TObject; ComponentId: String;
      var Component: TPersistent);
    procedure ceCellGetComponentWithId(Sender: TObject;
      ComponentId: String; var Component: TPersistent);
    procedure butAllClick(Sender: TObject);
    procedure butUnselectedClick(Sender: TObject);
    procedure grdDatafieldsCellLoaded(Sender: TObject; DataCol,
      DataRow: Longint; var Value: Variant);
    procedure grdDatafieldsDblClickCell(Sender: TObject; DataCol,
      DataRow: Longint; Pos: TtsClickPosition);
    procedure butAddSelectedClick(Sender: TObject);
    procedure butAddAllClick(Sender: TObject);
    procedure grdColumnsCellLoaded(Sender: TObject; DataCol,
      DataRow: Longint; var Value: Variant);
    procedure grdColumnsDblClickCell(Sender: TObject; DataCol,
      DataRow: Longint; Pos: TtsClickPosition);
    procedure grdColumnsDeleteRow(Sender: TObject; DataRow: Longint;
      ByUser: Boolean);
    procedure grdColumnsEndCellEdit(Sender: TObject; DataCol,
      DataRow: Longint; var Cancel: Boolean);
    procedure grdColumnsRowCountChanged(Sender: TObject; OldCount,
      NewCount: Longint);
    procedure grdColumnsRowMoved(Sender: TObject; ToDisplayRow,
      Count: Longint; ByUser: Boolean);
    procedure butAddClick(Sender: TObject);
    procedure butRemoveClick(Sender: TObject);
    procedure cmbFieldStateChange(Sender: TObject);

    procedure SetGridsDisplayProp;
    procedure SetFieldName(DataCol: Integer; FieldName: string);
    procedure InitCustomizeColumns;
    procedure grdColumnsKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure grdExampleInsertRow(Sender: TObject; DataRow: Variant;
      ByUser: Boolean);
    procedure grdExampleRowChanged(Sender: TObject; OldRow,
      NewRow: Variant);
    procedure grdExampleCellLoaded(Sender: TObject; DataCol: Longint;
      DataRow: Variant; var Value: Variant);
    procedure grdExampleCellEdit(Sender: TObject;
      DataCol: Longint; DataRow: Variant; ByUser: Boolean);
    procedure grdExampleStartCellEdit(Sender: TObject; DataCol: Longint;
      DataRow: Variant; var Cancel: Boolean);
    procedure grdExampleGetDrawInfo(Sender: TObject; DataCol: Longint;
      DataRow: Variant; var DrawInfo: TtsDrawInfo);

    procedure grdExampleColMoved(Sender: TObject; ToDisplayCol,
      Count: Longint; ByUser: Boolean);
    procedure grdExampleRowMoved(Sender: TObject; ToDisplayRow,
      Count: Longint; ByUser: Boolean);
    procedure grdExampleColResized(Sender: TObject; RowColnr: Longint);
    procedure grdExampleColChanged(Sender: TObject; OldCol,
      NewCol: Longint);
    procedure grdExampleGridStatusChanged(Sender: TObject; OldStatus,
      NewStatus: TtsGridStatus);
    procedure grdExampleInsertCol(Sender: TObject; DataCol: Longint;
      ByUser: Boolean);
    procedure grdExampleMouseStatusChanged(Sender: TObject; OldStatus,
      NewStatus: TtsMouseStatus);
    procedure grdExampleExit(Sender: TObject);
    procedure grdExampleKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure grdExampleKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure grdExampleMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure grdExampleMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure grdExampleComboDropDown(Sender: TObject;
      Combo: TtsDBComboGrid; DataCol: Longint; DataRow: Variant);
    procedure grdExampleComboRollUp(Sender: TObject; Combo: TtsDBComboGrid;
      DataCol: Longint; DataRow: Variant);
    procedure grdExampleDblClickCell(Sender: TObject;
      DataCol: Longint; DataRow: Variant; Pos: TtsClickPosition);

    procedure grdExampleDblClickCell_Unbound(Sender: TObject; DataCol,
      DataRow: Longint; Pos: TtsClickPosition);
    procedure grdExampleInsertRow_Unbound(Sender: TObject; DataRow: Longint;
      ByUser: Boolean);
    procedure grdExampleRowChanged_Unbound(Sender: TObject; OldRow,
      NewRow: Longint);
    procedure grdExampleCellLoaded_Unbound(Sender: TObject; DataCol: Longint;
      DataRow: Longint; var Value: Variant);
    procedure grdExampleCellEdit_Unbound(Sender: TObject; DataCol,
      DataRow: Longint; ByUser: Boolean);
    procedure grdExampleStartCellEdit_Unbound(Sender: TObject; DataCol: Longint;
      DataRow: Longint; var Cancel: Boolean);
    procedure grdExampleComboDropDown_Unbound(Sender: TObject; Combo: TtsComboGrid;
      DataCol, DataRow: Longint);
    procedure grdExampleComboRollUp_Unbound(Sender: TObject; Combo: TtsComboGrid;
      DataCol, DataRow: Longint);
    procedure grdExampleGetDrawInfo_Unbound(Sender: TObject; DataCol,
      DataRow: Longint; var DrawInfo: TtsDrawInfo);


    procedure pnlCustomizeColumnsResize(Sender: TObject);
    procedure InitgrdHeading;
    procedure grdHeadingComboInit(Sender: TObject; Combo: TtsComboGrid;
      DataCol, DataRow: Longint);
    procedure grdHeadingComboCellLoaded(Sender: TObject;
      Combo: TtsComboGrid; DataCol, DataRow: Longint; var Value: Variant);
    procedure grdHeadingComboRollUp(Sender: TObject; Combo: TtsComboGrid;
      DataCol, DataRow: Longint);
    procedure grdHeadingCellLoaded(Sender: TObject; DataCol,
      DataRow: Longint; var Value: Variant);
    procedure mnuInsColumnsClick(Sender: TObject);
    procedure mnuDelColumnsClick(Sender: TObject);
    procedure AddNewColumn(Inserting: Boolean);
    procedure grdInspectorColResized(Sender: TObject; RowColnr: Longint);
    procedure grdHeadingColResized(Sender: TObject; RowColnr: Longint);
    procedure SetToGridEditor;
    procedure SetToComboEditor(DataCol: LongInt; DataRow: Variant);
    function  SendersEditor(Sender: TObject): TEditor;
    procedure ceComboGridGetComponentInfo(Sender: TObject;
      DisplayMode: TtsGroupElement);
    procedure RemoveRowChangedUpdates;
    procedure ceRowGetComponentInfo(Sender: TObject;
      DisplayMode: TtsGroupElement);
    procedure NumberofToggleValuesChanged(Sender: TObject);
    procedure NumberofInvisibleValuesChanged(Sender: TObject);
    procedure SetEnableDesignBehaviour;
    procedure SetEnableInvisible;
    procedure ceComboColumnGetComponentInfo(Sender: TObject;
      DisplayMode: TtsGroupElement);
    procedure grdHeadingClickCell(Sender: TObject; DataColDown,
      DataRowDown, DataColUp, DataRowUp: Longint; DownPos,
      UpPos: TtsClickPosition);
    procedure grdInspectorSelectChanged(Sender: TObject;
      SelectType: TtsSelectType; ByUser: Boolean);
    procedure mnuResetClick(Sender: TObject);
    function ResetProperty(Component: TPersistent; Row: integer): Boolean;
    function GetDefaultComponent: TPersistent;
    function GetDefaultGrid: TPersistent;
    function GetDefaultCol: TPersistent;
    function GetDefaultRow: TPersistent;
    function GetDefaultCell: TPersistent;
    function GetComboDefaultGrid: TPersistent;
    function GetComboDefaultCol: TPersistent;
    function GetComboDefaultRow: TPersistent;
    function GetComboDefaultCell: TPersistent;
    procedure mnuAddColumnClick(Sender: TObject);
    procedure mnuInsRowClick(Sender: TObject);
    procedure mnuAddRowClick(Sender: TObject);
    procedure AddNewRow(Inserting: Boolean);
    procedure mnuDelRowsClick(Sender: TObject);
    procedure pmnGridPopup(Sender: TObject);
    function ValidDataRow(DataRow: Variant; DataBound: Boolean): Boolean;
    procedure butOKClick(Sender: TObject);
    procedure butCancelClick(Sender: TObject);
    procedure SetgrdExampleWidthAndHeight;
    procedure pnlGrdExampleResize(Sender: TObject);
    procedure grdExampleColCountChanged(Sender: TObject; OldCount,
      NewCount: Longint);
    procedure grdExampleRowCountChanged(Sender: TObject; OldCount,
      NewCount: Longint);
    procedure UnassignComponent(Editor: TEditor);
    procedure grdInspectorResize(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure chkDesignBehaviourClick(Sender: TObject);
    procedure chkInvisibleRowsColsClick(Sender: TObject);
    procedure ComboRollUp(DataCol: Longint; DataRow: Variant);
    procedure grdExampleRowResized(Sender: TObject; RowColnr: Longint);
    procedure SetActualValuesGrid;
    procedure SetActualValuesCombo;
    function HasReadOnlyCol(grd: TtsBaseGrid): Boolean;
    function HasReadOnlyRow(grd: TtsBaseGrid): Boolean;
    procedure ceGridSetValues(Sender: TObject; State: tsScanObjectsState;
      Component: Tpersistent; PropertyElement: TtsPropertyElement;
      strValue: String; Value: Variant; ValueSource: tsValueSource;
      FirstSet: Boolean; var Cancel: Boolean);
    procedure ChangeCols(Sender: TObject; PropertyElement: TtsPropertyElement; NewCols: integer);
    procedure ChangeRows(Sender: TObject; PropertyElement: TtsPropertyElement; NewRows: integer);
    procedure FreeActualValuesGrid;
    procedure FreeActualValuesCombo;
    procedure FormCreate(Sender: TObject);
    procedure ceCellGetComponentInfo(Sender: TObject;
      DisplayMode: TtsGroupElement);
    procedure ceComboCellGetComponentInfo(Sender: TObject;
      DisplayMode: TtsGroupElement);
    procedure ShowMoreButtonsWarning(DataCol: LongInt; DataRow: Variant);
    procedure InitVars;
    procedure FreeAll;
    procedure ceComboRowGetComponentInfo(Sender: TObject;
      DisplayMode: TtsGroupElement);
    procedure ceGridGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure ceComboGridGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure ceColumnGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure ceComboColumnGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure ceRowGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure ceComboRowGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure ceCellGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure ceComboCellGetPropertiesComponent(Sender: TObject;
      var Component: TPersistent);
    procedure grdExampleEnter(Sender: TObject);
    procedure grdInspectorEnter(Sender: TObject);
    procedure grdHeadingEnter(Sender: TObject);
    procedure tabInspectorEnter(Sender: TObject);
    procedure grdExampleCellChanged_Unbound(Sender: TObject; OldCol, NewCol,
      OldRow, NewRow: Longint);
    procedure grdExampleCellChanged(Sender: TObject; OldCol,
      NewCol: Longint; OldRow, NewRow: Variant);
    procedure butNewClick(Sender: TObject);
    procedure ResetGrid;
    procedure SetEnablebutLoadPicture;
    procedure butLoadPictureClick(Sender: TObject);
    procedure SetPicture;
    procedure butClearPictureClick(Sender: TObject);
    procedure ClearPicture;
    procedure Panel8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure butOpenClick(Sender: TObject);
    procedure butSaveClick(Sender: TObject);
    procedure GetDefaultExtandFilter(var DefaultExt: string; var Filter: string);
    procedure ceComponentSetValues(Sender: TObject; State: tsScanObjectsState;
      Component: TPersistent; PropertyElement: TtsPropertyElement;
      strValue: String; Value: Variant; ValueSource: tsValueSource;
      ValueSet: Boolean; var Cancel: Boolean);
    procedure grdInspectorGetDrawInfo(Sender: TObject; DataCol,
      DataRow: Longint; var DrawInfo: TtsDrawInfo);
    procedure grdInspectorKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    function GetHelpKey: string;
    procedure butHelpClick(Sender: TObject);
    procedure ceColumnDestroyComponentSelection(Sender: TObject;
      ComponentSelection: Pointer);
    procedure ceRowDestroyComponentSelection(Sender: TObject;
      ComponentSelection: Pointer);
    procedure ceCellDestroyComponentSelection(Sender: TObject;
      ComponentSelection: Pointer);
  private
    FShowDesignValueGrid: tsShowPropertyValueSet;
    FShowDesignValueCombo: tsShowPropertyValueSet;
    FUserShowOptions: tsUserShowOptions;
    FShowAlwaysStateGrid: Boolean;
    FShowAlwaysStateCombo: Boolean;
    procedure SetShowDesignValueGrid;
    procedure SetShowDesignValueCombo;
    procedure ApplyShowDesignValueGrid;
    procedure ApplyShowDesignValueCombo;
    procedure CheckInsertRow(Grid: TtsBaseGrid);
    procedure SetUserShowOptions(Value: tsUserShowOptions);
    procedure SetShowAlwaysStateGrid(Value: Boolean);
    procedure SetShowAlwaysStateCombo(Value: Boolean);

    property  ShowDesignValueGrid: tsShowPropertyValueSet read FShowDesignValueGrid write FShowDesignValueGrid;
    property  ShowDesignValueCombo: tsShowPropertyValueSet read FShowDesignValueCombo write FShowDesignValueCombo;
    property  UserShowOptions: tsUserShowOptions read FUserShowOptions write SetUserShowOptions;
    property  ShowAlwaysStateGrid: Boolean read FShowAlwaysStateGrid write SetShowAlwaysStateGrid;
    property  ShowAlwaysStateCombo: Boolean read FShowAlwaysStateCombo write SetShowAlwaysStateCombo;
  public
    { Public declarations }
  end;


const
    BoundValue = '       Y';
    BoundValueDouble  = '       Y*';
    UnBoundValue = '       N';
    UnBoundValueDouble = '       N*';

var
    frmInspector: TfrmInspector;
    CurGrid: TtsBaseGrid = nil;
    CurGridName: string;
    CurGridWidth: integer;
    CurGridHeight: integer;
    CurGridVisible: Boolean;
    StartedFromDesigntime: Boolean = False;
    ButtonedExit: Boolean = False;
    SaveResult: Boolean = False;
    ChangesMade: Boolean;

    InitHeightgrdColumns: Integer;
    InitHeightpnlCustomizeColumns: Integer;
    MoveComboBack: Boolean = False;
    InspectorLastUpdated: integer = 0;
    grdInspectorAllRowsSelected: Boolean = False;
    FirstActivate: Boolean = True;

    sepSizerWidthDif: integer = -1;
    TotalWidthGridsDif: integer = -1;
    grdDataFieldsWidthShare: Single = -1;
    grdColumnsDif: integer = -1;
    butRemoveDif: integer = -1;
    lblFieldStateDif: integer = -1;
    grdColumnsFirstColShare: Single = -1;
    grdInspectorFirstColShare: Single = -1;
    pnlInspectorGridAutoWidthMax: integer = -1;

    DisplayModeNames: array[0..MaxDisplayModeIndex] of string;
    CurDisplayModeName: string = 'Structured';
    PrevDisplayModeName: string;

    GridEditor: TEditor;
    ComboEditor: TEditor;
    CurEditor: TEditor; //Contains a pointer to either GridEditor or ComboEditor

    CurGridColor: TColor;
    Resetting: Boolean = False;

    //Components used for retrieving default values for properties:
    grdDefault: TtsBaseGrid = nil;
    grdComboDefault: TtsBaseGrid = nil;
    ColDefault: TPersistent = nil;
    ColComboDefault: TPersistent = nil;
    CellDefault: TPersistent = nil;
    CellComboDefault: TPersistent = nil;
    RowDefault: TPersistent = nil;