Ich dachte, 628 Zeilen Quellcode sind zu viel ...
Hmm, die CControlData ist ein Typ von TControlData2, definiert in OleCtrls ...
Die ganze Funktion:
Delphi-Quellcode:
procedure TUSBLCDX.InitControlData;
const
CEventDispIDs: array [0..9] of DWORD = (
$000000C9, $000000CA, $000000CB, $000000CC, $000000CD, $000000CE,
$000000CF, $000000D0, $000000D1, $000000D2);
CTFontIDs: array [0..0] of DWORD = (
$FFFFFE00);
CControlData: TControlData2 = (
ClassID: '{32F7D76C-7571-4142-8C35-A78F5CCE120D}';
EventIID: '{CCA105D4-0627-49C3-8181-D097ED4B5A30}';
EventCount: 10;
EventDispIDs: @CEventDispIDs;
LicenseKey: nil (*HR:$00000000*);
Flags: $0000001D;
Version: 401;
FontCount: 1;
FontIDs: @CTFontIDs);
begin
ControlData := @CControlData;
TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnActivate) - Cardinal(Self);
end;
Im Anhang das Sample-Projekt für Delphi 5.
Mein Vorgehen für das neue Projekt:
VCL-Anwendung erstellt
ABACOM_USB_LCD_TLB.pas hinzugefügt und in die includes
die Includes des Sample Projects, welche bei mir nicht vorhanden waren, auch inkludiert
Soll ich sonst noch was uploaden?