Ragionare a plug in e non monolitico.
Ma quello quando hai implementato tutte le cose che ti frullano per la testa :D
in effetti ho in previsione di usare le shared object (.DLL per i windowsiani) per rendere modulare il tutto
ma è ancora presto :P
Spostare tutto in un datamodel in modo che possa essere applicato anche a form che non estendono "la superdotata" ma possa essere applicata anche a form esistenti ;)
Magari facendo implementare una interfaccia. :D
in effetti l'uso delle interfacce potrebbe essere un'alternativa
ma in questo modo la cosa si fa comunque e senza cambiare una riga di codice nelle form esistenti
basta cambiare la classe da cui ereditare, da
a
TForm1 = class(TBaseForm)
e si può premere F9 :)
Edit:
vabbè, il "si può premere F9" è realistico ma va preso con beneficio d'inventario ;)
TUserPermissions = class
end;
TPermission = class
property Action : TAction;
procedure handle;
end;
Così a sentimento ;)
Poi la configurazione è da db.
Stilgar
in TBaseForm.FormCreate
c'è il seguente codice
Translations.TranslateUnitResourceStrings(
'uBaseForm',
'/media/dati/dev/llab/BaseForm/po/TestBaseForm.%s.po',
Lang,
FallbackLang);
non l'ho parametrizzato in quanto mi serviva lasciarlo esplicito per l'articolo :P
cambia la path e mettici la tua, vedrai che dopo funziona ;)