has worked for years - but not in v12 - any ideas?

[martinwcole]

FUNCTION prtscr AS L (fr_width as n)
ui_bitmap_create_from_screen("test", 0, 0, 16.50, 10.5)
vBlob = ui_bitmap_save("test")
t=table.open("cscreen")
t.change_begin()
t.cscreen=vblob
t.change_end(.t.)
t.close()
report.preview("cscreen")
ui_bitmap_drop("test")
delete vblob
end
END FUNCTION

[MoGrace]

Re: has worked for years - but not in v12 - any ideas?

I had this happen recently when trying to change a table record without fetching it first. Other than that you might want to be sure all your vars are dimmed. Where is fr_width used in this function?

[martinwcole]

Re: has worked for years - but not in v12 - any ideas?

thanks - will try
I used to pass the width, then changed to fixed

[martinwcole]

Re: has worked for years - but not in v12 - any ideas?

well ... doesn't work in V10 either
if I go to design, and change from stretch to best fit or absolute, it shows up in design, but when I save and close and then preview it is blank!!

[Tom Cone Jr]

Re: has worked for years - but not in v12 - any ideas?

Martin,

is the image being saved to the table?

is it possible the "preview" is running before the "save" has completed ?

Does the report work?

I guess I'm asking you to elaborate on "exactly" what you mean when you say "... it doesn't work".

There are several points of possible failure:
- image isn't being created
- image isn't being saved to table
- report is defective or corrupt
- timing problems - might have to use two functions, one to save the image, one to preview - your script will not wait to preview while disk activity is ongoing

[martinwcole]

Re: has worked for years - but not in v12 - any ideas?

Thanks Tom,

The image is being created and saved - it is a one record table
I have made 3 new reports - but they all show a blank page, either in preview or print
The only way I can see an image is if I go to design and change from one style to another (stretch, best fit, absolute) - but only while in design

here is the current function that is called from a form from the onkey event
if a_user.key.value="{PRNT SCRN}" 'see code archive for sample adb using this
a_user.key.handled=.t.
prtscr(1)
end
end if

Unless you see what the issue is I will send you what you need to test it yourself

'Date Created: 27-May-2010 02:58:53 PM
'Last Updated: 08-May-2016 01:09:47 AM
'Created By : martin cole
'Updated By : MARTIN
FUNCTION prtscr AS L (fr_width as n)
on error goto errors
ui_bitmap_create_from_screen("test", 0, 0, 11, 8)
vBlob = ui_bitmap_save("test")
t=table.open("cscreen")
t.change_begin()
t.cscreen=vblob 't.cscreen is a bitmap field
t.change_end(.t.)
t.close()
xbasic_wait_for_idle()
report.preview("cscreen")
ui_bitmap_drop("test")
delete vblob
end
errors:
err_msg = error_text_get(error_code_get())
line = error_line_number_get()
script = error_script_get()
ui_msg_box("Error", err_msg+" Error occurred at line "+alltrim(str(line,4,0))+ " in script: "+script)
end
END FUNCTION

[martinwcole]

Re: has worked for years - but not in v12 - any ideas?

figured it out - I deleted the table and recreated - all is well, so I guess the table was corrupted