Alpha Video Training
Results 1 to 5 of 5

Thread: image file reference right click menu

  1. #1
    VAR
    Real Name
    Cheryl Lemire
    Join Date
    Jul 2003
    Location
    Pembroke Pines, FL
    Posts
    2,914

    Default image file reference right click menu

    Hi everyone,

    I am working with image file reference fields for the first time. I have a simple image table with only three fields: recid_img (unique identifier field), recid_proj (linking field to projects table), and proj_img, image file reference, 10.

    When adding a new record to the table, via a form, in order to enter an image file reference in the proj_img field object, the user is forced to 'right click' on the object ... which of course opens the right click menu and gives them their options.

    What I would like to do, is automatically run the command to 'change image filename' when the user clicks on the add new record button on the form. I have searched the predefined menus and cannot find the right click menu for image file reference fields.

    Does anybody know where this menu is located, or what the command is for 'change image filename'?

    Thanks
    Cheryl

  2. #2
    "Certified" Alphaholic Stan Mathews's Avatar
    Real Name
    Stan Mathews
    Join Date
    Apr 2000
    Location
    Bowling Green, KY
    Posts
    25,119

    Default

    If you can't find the menu you can

    display a ui_get_file() restricted to bitmaps and jpgs
    let the user select an image
    write the selection to the image reference field form object name's value

  3. #3
    VAR
    Real Name
    Cheryl Lemire
    Join Date
    Jul 2003
    Location
    Pembroke Pines, FL
    Posts
    2,914

    Default

    Thanks Stan. That has given me a start. I am getting the screen to select my image when the new record button is pressed by using the ui_get_file() ... but it does not seem to be copying to the proj_img field object as I would like it to. I am sure this has something to do with the file format, ie getting the image I set as a character .... but what in the world do I do for the proj_image field format? Here is the code I have used:

    Code:
    dim image_to_copy as c
    image_to_copy = ""
    
    image_to_copy = ui_get_file("Select Image to Copy", "Image(*.JPG)|Image(*.BMP)", "","")
    
    if (image_to_copy = "") then
    
        end
    
        else
        parentform:proj_image.value = image_to_copy
    
    end if
    Cheryl

  4. #4
    "Certified" Alphaholic Stan Mathews's Avatar
    Real Name
    Stan Mathews
    Join Date
    Apr 2000
    Location
    Bowling Green, KY
    Posts
    25,119

    Default

    Apparently just setting the form object name's value doesn't cause the image to be re-referenced, if you will. I made this work on a button (test is the image reference field name).

    Code:
    tst = ui_get_file("Set image","Bitmap(*.bmp)|Jpeg(*.jpg)","","X")
    if tst <> ""
    	tbl = table.current()
    	tbl.change_begin()
    	tbl.test = tst
    	tbl.change_end(.t.)
    	parentform.resynch()
    end if
    You would have to commit your new record and then have this code.

  5. #5
    VAR
    Real Name
    Cheryl Lemire
    Join Date
    Jul 2003
    Location
    Pembroke Pines, FL
    Posts
    2,914

    Default

    Hi Stan,

    While you were working on that, I have been reading extensive forum posts and found one that amazingly enough found an action script that does exactly what I was looking for:

    http://msgboard.alphasoftware.com/al...file+reference

    Code:
    'Action Scripting - Set Image File Name in Linked Image Field
    
    'Set filename for an Image File Reference field: 'Proj_image' in  current window.
    ImageFilename = ui_get_image_filename()    
    If ImageFilename = "" then 
        'user selected cancel, so end script
        end 
    end if 
        
    Dim TempObj as p
    dim readonly_flag as l    
    'Get a pointer to the Object on the Form/Browse that has the image file ref field.
    TempObj = obj(parentform.name(16)+":"+"Proj_image")
    'Check if the image field is readonly
    readonly_flag = TempObj.field.readonly
    if readonly_flag = .t. then 
        ui_msg_box("Error","Cannot change image in Image field '"+"Proj_image"+"' because it is read-only",UI_STOP_SYMBOL)
        end 
    else
        dim Tbl as p 
        'Get a pointer to the table for the image field
        Tbl = tempobj.Field_Get().table_get()
        dim Fld as p 
        'Get a pointer to the image field
        Fld = tempobj.field_get()
        
        'If the table is in View mode, put it in change mode
        If tbl.mode_get() = 0 then 
            tbl.change_begin()
            fld.value_put(image_filename_encode(ImageFileName))
            tbl.change_end(.t.)
        else
            fld.value_put(image_filename_encode(ImageFileName))
        end if 
        
        'now refresh the object
        tempObj.refresh()
        
        
    end if
    I definitely like the ui_get_image_filename() over the ui_get_file() as it is specific to image file reference fields, however, I could not find that reference in the help files no matter what I searched on. It is in the help files however, once I found out what it was called I could search on it and find it.

    Unfortunately the help files that pull up for image file reference fields do not provide any links to action scripting options or ui_ functions.

    Anyway, I got it working using the action scripting code referenced above. Thanks for all of your time Stan ... you definitely pointed me in the right direction as I was at a loss.

    Cheryl

    Edited Note: I would still like to know where to find the right click menu for the image file reference fields :)

Similar Threads

  1. Bitmap, JPEG Image, or Image File Reference?
    By Elke in forum Alpha Five Version 6
    Replies: 4
    Last Post: 02-09-2005, 04:38 AM
  2. image file reference
    By John Haytko in forum Web Application Server v6
    Replies: 1
    Last Post: 01-09-2005, 04:58 PM
  3. Image Reference Field - right click?
    By kevin waggitt in forum Alpha Five Version 6
    Replies: 2
    Last Post: 08-27-2004, 07:10 AM
  4. Right Click menue of Image Reference Field
    By Claudio Pilustrelli in forum Alpha Five Version 5
    Replies: 10
    Last Post: 12-24-2003, 12:10 AM
  5. Image File Reference
    By Neil Terry in forum Alpha Five Version 5
    Replies: 2
    Last Post: 10-23-2002, 11:15 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •