[rasvprolog]

Hello To Visual Prolog Community,

I am trying to change the message window's font. I use the following clause:

Code: Select all

clauses
   onShow(_, _CreationData):-
    This:setState([wsf_maximized]),
    This:setFont(vpi::fontCreateByName("Tahoma", 14)),
   _MessageForm = messageForm::display(This),writef("Instructions").

I don't get any error message but the font remains unchanged (the default font).

I would appreciate your feedback.

[Thomas Linder Puls]

You will have to set the font on the messageControl that is inside the messageForm:

Code: Select all

clauses
    onShow(_, _CreationData) :-
        MessageForm = messageForm::display(This),
        MC = MessageForm:getMessageControl(),
        MC:setFont(vpi::fontCreateByName("Tahoma", 14)),
        ...

[rasvprolog]

Thanks Thomas.