Maximized message window
Posted: 18 Dec 2019 10:29
Hi,
Is it possible to maximized dynamically the message window ?
Is it possible to maximized dynamically the message window ?
Visual Prolog Discussion forums
https://discuss.visual-prolog.com/
Code: Select all
facts
msgForm: messageForm := erroneous.
predicates
onShow : window::showListener.
clauses
onShow(_, _CreationData) :-
This:setClientSize(1000, 700), % make the application client window a little smaller
center(), % center on desktop
MessageForm = messageForm::display(This),
msgForm := MessageForm, % save for access elsewhere
MessageForm:setVerticalSize(messageForm::parentRelative(0.97)), % 97% of parent window
MsgControl = MessageForm:getMessageControl(),
MsgControl:setLines(5000), % so don't lose early lines when writing to the Messages form
MsgControl:setFont(vpi::fontCreateByName("Consolas", 10)).
Code: Select all
messageForm:setState([wsf_maximized])