Problem with class VO.Console

[leon-ts]

Robert,

Yes, I will be very glad to help. I will try to find the time either tonight or on the weekend (if this suits you).

Best regards,
Leonid

[leon-ts]

Robert,

Updates in the attachment.

Best regards,
Leonid

[leon-ts]

The code in the attachment implies that we do not know the values of the ConsoleColor enum and the numeric values of the attributes of the console text in win32. But if you make conditional assumptions, the code will be even simpler:

Code: Select all

PROPERTY TextAttribute AS WORD
    GET
        RETURN (WORD)System.Console.ForegroundColor | (WORD)(System.Console.BackgroundColor) << 4
    END GET
    SET
        System.Console.ForegroundColor := (ConsoleColor) (WORD)(VALUE & 0x000F)
        System.Console.BackgroundColor := (ConsoleColor) (WORD)((VALUE >> 4) & 0x000F)
    END SET
END PROPERTY

and nothing changes in the constructor.

Best regards,
Leonid

[robert]

Leonid,

I think I like this one better.
I'll also add the FOREGROUND_ and BACKGROUND_ defines to the Console classes so no reference to Win32 is needed anymore.

Robert