Posted: 22 Apr 2014 9:01
Which version?
Do you have an imageControl in your form?
Do you have an imageControl in your form?
Visual Prolog Discussion forums
https://discuss.visual-prolog.com/
Code: Select all
implement hicham
inherits formWindow
open core, vpiDomains
clauses
display(Parent) = Form :-
Form = new(Parent),
Form:show().
clauses
new(Parent):-
formWindow::new(Parent),
generatedInitialize(),
flipImage(true).
predicates
flipImage : (boolean Image).
clauses
flipImage(S) :-
if true=S then
imageControl_ctl:setImageFile(@"..\taskwindow\ProjectIcon.ico")
else
imageControl_ctl:setNoImage()
end if,
delayCall(300, { :- flipImage(boolean::logicalNot(S)) }).
Code: Select all
% This code is maintained automatically, do not update it manually. 11:50:14-24.4.2014
facts
ok_ctl : button.
cancel_ctl : button.
help_ctl : button.
imageControl_ctl : imagecontrol.
Code: Select all
/*****************************************************************************
Copyright (c) Prolog Development Center A/S
@short Image control is the control to draw images of various graphic formats.
@detail The set of supported graphic formats corresponds to the set of formats, supported
by GDI+.
@end
@control
******************************************************************************/
interface imageControl
supports control
open core
predicates from drawControlSupport
getBorder, setBorder
predicates
setImageFile : (string FileName).
% @short Loads the control image from the specified file.
% @detail Note that the specified file is loaded only when the control is show.
% @end
predicates
getImageFile : () -> string FileName.
% @short Returns the #FileName previously set by setImageFile predicate.
% @exception imageControl_exception::imageFileNotSet_exception is raised if no image file is set.
% @end
...