I want to assign the Icon property (THIS-OBJECT:Icon) of a form at run time.
The method GetStoredImage below returns a System.Drawing.Image but I get an assigment type mismatch error when I assign the return value to the Icon prop.
Any ideas on how to do this?
METHOD PUBLIC System.Drawing.Image GetStoredImage
( cImageType AS CHARACTER,
cImageName AS CHARACTER ):
DEFINE VARIABLE curImage AS System.Drawing.Image NO-UNDO.
DEFINE VARIABLE cTmpchar AS CHARACTER NO-UNDO.
cTmpChar = STRING(cImageType + "|" + cImageName).
curImage =
CAST(ImageListCollection:Item[cTmpChar],System.Drawing.Image)
NO-ERROR.
IF VALID-OBJECT(curImage) THEN
RETURN curImage.
ELSE
RETURN ImageDefault.
END METHOD. /* GetStoredImage */
System.Drawing.Icon:FromHandle(CAST(myImage,System.Drawing.Bitmap):GetHicon())
Thanks - works perfectly