I want to make a program to go through all my wife's phone images, and let her keep her craft photos in one directory, family in another and delete the rest. So I have been playing with the below code just to understand how to show the image. It works okay, but the image does not show up until I do a mouse click outside the graphics window?? Kudos to Joshy Peters for both FBImage and MultiPut and all the FLTK work.
Thanks,
Darren
Code: Select all
#include once "FBImage.bi"
#include once "MultiPut.bi"
' MultiPut [destination],[xmidpos],[ymidpos], source,[xScale],[yScale],[Trans]
chdir exepath()
screenres 1280,1024,32
dim as single scale = 0.25
dim as string fnam = "C:\Users\Darrren\Pictures\temp2\IMG_7658.jpg"
var img = LoadRGBAFile(fnam)
Multiput ,640,512,img,scale,scale
WindowTitle "FreeBASIC example program"
dim as integer res = ScreenSync ' this does not help
print "File: ";fnam
sleep
ImageDestroy img