But I don't know how to change interface file too complicated
The spread8 interface. Pas files to a
procedure TfpSpread. InitControlData;
Const
CEventDispIDs: array [0.. 67] of DWORD=(
$00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
$00000007, $00000009, $0000000 a, $0000000 b, c $0000000, $0000000 d,
E $0000000, $0000000 f, $00000010, $00000011, $00000012, $00000013,
$00000014, $00000015, $00000016, $00000017, $00000018, $00000019,
$0000001 at $0000001 a, b, c $0000001, $0000001 d, e, $0000001, $0000001 f,
$00000020, $00000021, $00000022, $00000023, $00000024, $00000025,
$00000026, $00000027, $00000028, $00000029, $00000065, $00000066,
$00000067, $00000068, $00000069, $0000006 a, $0000006 b, c $0000006,
$0000006 $0000006 $0000006 d, e, f, $00000070, $00000071, $00000072,
$00000073, $00000075, $00000076, $00000077, $00000078, $00000079,
$0000007 at $0000007 a, b, c $0000007, $0000007 d, e, $0000007, $0000007 f,
$00000080, $00000081);
CLicenseKey: array [0.. 27] of Word=($0043, $006 f, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020, $0028
, $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0046, $0061
, $0072, $0050, $006 f, $0069, $006 e, $0074, $0000);
CTFontIDs: an array of [0.. 1] DWORD=(
$00000180, $FFFFFE00);
CTPictureIDs: array [0.. 3] of DWORD=(
D5 $000000, $000000 b2, $00000087, $00000088);
CControlData: TControlData2=(
Every: '{7114683 a fd d16-80-020 - d - 4-6 ace384b66df}';
EventIID: '{71146836-020 - d - 4 d16-80 fd - 6 ace384b66df}';
EventCount: 68;
EventDispIDs: @ CEventDispIDs;
LicenseKey: @ CLicenseKey;
Flags: $0000002 f;
Version: 401;
FontCount: 2;
FontIDs: @ CTFontIDs;
PictureCount: 4;
PictureIDs: @ CTPictureIDs);
The begin
ControlData:=@ CControlData;
TControlData2 (CControlData). FirstEventOfs:=Cardinal (@ @ FOnAdvance) - Cardinal (Self);
end;