how to insert images on a form?

marco62118 · Post by **marco62118** » 15 Mar 2011 22:31

Good evening
how to insert images on a form?

Steve Lympany · Post by **Steve Lympany** » 15 Mar 2011 22:32

Hi,
use
GDI:pictdraw()
cheers
Steve

marco62118 · Post by **marco62118** » 16 Mar 2011 8:12

hello,
can you give me an exemple, i want to insert a file .bmp on my dialog box

Steve Lympany · Post by **Steve Lympany** » 16 Mar 2011 8:30

Hi,
http://wiki.visual-prolog.com/index.php?title=Main_Page

See Visual Prolog for Tyros, chapter 8

cheers
Steve

Post by **Thomas Linder Puls** » 16 Mar 2011 11:21

imageControl is very simple to use (but it is only in the Commercial Edition).

mika0110 · Post by **mika0110** » 21 Mar 2011 3:15

Steve Lympany wrote:Hi,
use
GDI:pictdraw()
cheers
Steve

where use it?(x.pro? or ....)

Steve Lympany · Post by **Steve Lympany** » 21 Mar 2011 8:26

Hi,
In your form:

Code: Select all

predicates
    onPaint : drawWindow::paintResponder.
clauses
    onPaint(_Source, _Rectangle, GDI):-
        Pic=get_your_picture(),
        GDI:pictdraw(Pic,pnt(0,0),rop_SrcCopy),

The onPaint is called when the form is invalidate()ed. The onPaint predicate "skeleton" is inserted by the IDE - have you found that?

cheers
Steve

mika0110 · Post by **mika0110** » 23 Mar 2011 1:24

Steve Lympany wrote:Hi,
use
GDI:pictdraw()
cheers
Steve

Hi!
where i can store picture(path)? and how to use it with path?

hicham · Post by **hicham** » 14 Apr 2014 11:19

this is possible only if we want to insert on image in one form. But if we want 2 images in one form , how to do it?

Tonton Luc · Post by **Tonton Luc** » 15 Apr 2014 7:25

http://discuss.visual-prolog.com/viewto ... 0603#40603

hicham · Post by **hicham** » 18 Apr 2014 15:30

how to do 2 images switching?

Post by **Thomas Linder Puls** » 20 Apr 2014 19:31

This code flips between the project icon and nothing:

Code: Select all

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)) }).

hicham · Post by **hicham** » 21 Apr 2014 9:15

thanks , but i still have this error :

error c229 : Undeclared identifier 'setimagefile/1'

do i need to do sth?

thanks

Post by **Thomas Linder Puls** » 21 Apr 2014 10:07

In my example imageControl_ctl is assumed to be an imageControl.

However, the imageControl is only in the Commercial Edition. Do you use the Personal Edition?

hicham · Post by **hicham** » 22 Apr 2014 8:50

no i use commercial edition

Re:

Re:

help

ok