delphi 控制 fpspread

hu0829 2017-06-17 06:14:09

我從spread7升級到spread8
但是接口文件我都不知道怎麼改太複雜了

那個有spread8的接口.pas文件給一個吧

procedure TfpSpread.InitControlData;

const

  CEventDispIDs: array [0..67] of DWORD = (

    $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,

    $00000007, $00000009, $0000000A, $0000000B, $0000000C, $0000000D,

    $0000000E, $0000000F, $00000010, $00000011, $00000012, $00000013,

    $00000014, $00000015, $00000016, $00000017, $00000018, $00000019,

    $0000001A, $0000001B, $0000001C, $0000001D, $0000001E, $0000001F,

    $00000020, $00000021, $00000022, $00000023, $00000024, $00000025,

    $00000026, $00000027, $00000028, $00000029, $00000065, $00000066,

    $00000067, $00000068, $00000069, $0000006A, $0000006B, $0000006C,

    $0000006D, $0000006E, $0000006F, $00000070, $00000071, $00000072,

    $00000073, $00000075, $00000076, $00000077, $00000078, $00000079,

    $0000007A, $0000007B, $0000007C, $0000007D, $0000007E, $0000007F,

    $00000080, $00000081);

  CLicenseKey: array[0..27] of Word = ( $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020, $0028

    , $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0046, $0061

    , $0072, $0050, $006F, $0069, $006E, $0074, $0000);

  CTFontIDs: array [0..1] of DWORD = (

    $00000180, $FFFFFE00);

  CTPictureIDs: array [0..3] of DWORD = (

    $000000D5, $000000B2, $00000087, $00000088);

  CControlData: TControlData2 = (

    ClassID: '{7114683A-020D-4D16-80FD-6ACE384B66DF}';

    EventIID: '{71146836-020D-4D16-80FD-6ACE384B66DF}';

    EventCount: 68;

    EventDispIDs: @CEventDispIDs;

    LicenseKey: @CLicenseKey;

    Flags: $0000002F;

    Version: 401;

    FontCount: 2;

    FontIDs: @CTFontIDs;

    PictureCount: 4;

    PictureIDs: @CTPictureIDs);

begin

  ControlData := @CControlData;

  TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnAdvance) - Cardinal(Self);

end;