|
Вопрос закрыт.
Код можно получить так конвертиров OLE_COLOR в Variant (integer):
Variables:
VariantVal : Variant
Script: Automation 'Microsoft Script Control 1.0'.ScriptControl"
ColorDialog: OCX 'Microsoft Common Dialog Control, version 6.0'"
Код:
CREATE(Script);
Script.Language := 'VBScript';
VariantVal := Script.*evаl*(ColorDialog.Color);
CLEAR(Script);
|