Bacterius
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
10
4 oct. 2008 à 15:51
F0xi, j'ai fait ton truc, même problème :(
J'ai pris tes 2 .inc, j'ai fait mon unité ComponentReg : voilà son contenu :
unit ComponentReg;
interface
{.$DEFINE DESIGNNEEDED}
uses
BactBar, BactFileInfo, BactMasterVolume, BactMonitor,
BactReg, BactSound, BactSystemInfo, BactURL, BactWallPaper, DirectoryDlg,
SpecialFolders, SwitchLed, WinRun,
Classes {$IFDEF DESIGNNEEDED }{$I as_designlib.inc}{$ENDIF};
procedure Register;
implementation
procedure Register;
begin
{Components Registering}
RegisterComponents('Bacterius VCL', [
TBactBar,
TSwitchLed,
TBactURL
]);
RegisterComponents('Bacterius CL', [
TBactFileInfo,
TBactMasterVolume,
TBactMonitor,
TBactReg,
TBactSound,
TBactSystemInfo,
TBactReg,
TBactWallPaper,
TDirectoryDlg,
TSpecialFolders,
TWinRun
]);
{Properties Editors }
//RegisterPropertyEditor(TypeInfo(...), nil, '', ...);
//RegisterPropertyEditor(TypeInfo(...), nil, '', ...);
{Components Editors }
//RegisterComponentEditor( ... );
//RegisterComponentEditor( ... );
end;
end.
Et voilà ce qu'il m'envoie dans la palette :
[Onglet Bacterius]
DirectoryDlg, SwitchLed, WinRun, SpecialFolders, BactBar, BactMonitor, BactReg, BactSound, BactURL, BactSystemInfo;
[Onglet Bacterius CL]
BactFileInfo, BactMasterVolume, BactWallPaper
[Pas d'onglet Bacterius VCL]
Bizarre non ?
Au fait, je n'ai jamais réussi à accéder à l'unité DsgnIntf (Design Interface).
Cordialement, Bacterius !