i want to change the background color of standard dialog without making custom control
the following is dialog. pro contents
what should i write to change background color and where to write it ?????
Code: Select all
implement color_dialog inherits dialog
open core, vpiDomains
clauses
display(Parent) = Dialog :-
Dialog = new(Parent),
Dialog:show().
clauses
new(Parent) :-
dialog::new(Parent),
generatedInitialize().
% This code is maintained automatically, do not update it manually.
facts
ok_ctl : button.
cancel_ctl : button.
help_ctl : button.
predicates
generatedInitialize : ().
clauses
generatedInitialize() :-
setText("color_dialog"),
setRect(rct(50, 40, 290, 160)),
setModal(true),
setDecoration(titlebar([frameDecoration::closeButton])),
ok_ctl := button::newOk(This),
ok_ctl:setText("&OK"),
ok_ctl:setPosition(48, 98),
ok_ctl:setSize(56, 16),
ok_ctl:defaultHeight := false,
ok_ctl:setAnchors([control::right, control::bottom]),
cancel_ctl := button::newCancel(This),
cancel_ctl:setText("Cancel"),
cancel_ctl:setPosition(112, 98),
cancel_ctl:setSize(56, 16),
cancel_ctl:defaultHeight := false,
cancel_ctl:setAnchors([control::right, control::bottom]),
help_ctl := button::new(This),
help_ctl:setText("&Help"),
help_ctl:setPosition(176, 98),
help_ctl:setSize(56, 16),
help_ctl:defaultHeight := false,
help_ctl:setAnchors([control::right, control::bottom]).
% end of automatic code
end implement color_dialog