7.3 The OLE-CONTROL-FRAMEWORK module

OLE-util-translate-color

Function

Summary

Translates an ambient property color value to a Win32 color code.

Signature

OLE-util-translate-color obj ambient-color => color-ref

Arguments

obj: An instance of your subclass of
<OLE-control-framework>.
ambient-color: An instance of <object>.

Values

color-ref: An instance of <integer>.

Library

OLE-Control-Framework

Module

OLE-Control-Framework

Description

This should be used for converting the value of the ambient properties for foreground or background color to a Win32 color value. For example:

define method OLE-part-set-ambient-property 
  (obj :: <my-object-class>, 
   disp-id == $DISPID-AMBIENT-FORECOLOR, 
   value :: <object>) => ()
  let color = OLE-util-translate-color(obj, value);

...