SetOLEPicture bug?

From: Eric (seric[remove_this)
Date: 04/25/04

  • Next message: Evil miniFAQ Boss: "FAQ: comp.lang.pascal.delphi.misc miniFAQ (short version)" 
    Date: Sun, 25 Apr 2004 09:25:44 +0930

    Hi,

    I'm working on ActiveForm (containing TImage) which is going to be
    used as a Visual Basic control. One of the properties of my form is
    'Picture' - it is supposed to connect TImage on my form with
    PictureBox control on VB form. The property is implemented as:

    function Tacett.Get_Picture: IPictureDisp;
    begin
     GetOLEPicture(Image1.Picture, Result);
    end;

    procedure Tacett.Set_Picture(const Value: IPictureDisp);
    begin
      SetOLEPicture(Image1.Picture, Value);
    end;

    The 'get' part works fine and the picture box on VB form is updated
    with contents of TImage and both are identical. However, the 'set'
    part is doing something strange: TImage is updated with contents of
    picture box, but the image is smaller than its VB counterpart. Any
    ideas what is going on and how to fix it? Using D5 Ent and VB 6 Ent on
    Win2000.

    Thanks
    Eric

  • Next message: Evil miniFAQ Boss: "FAQ: comp.lang.pascal.delphi.misc miniFAQ (short version)"

    Relevant Pages

    • Help needed with SetOLEPicture
      ... I'm working on ActiveForm (containing TImage) which is going to be ... used as a Visual Basic control. ... The 'get' part works fine and the picture box on VB form is updated ... Using D5 Ent and VB 6 Ent on Win2000. ...
      (comp.lang.pascal.delphi.misc)
    • Help needed with SetOLEPicture
      ... I'm working on ActiveForm (containing TImage) which is going to be ... used as a Visual Basic control. ... The 'get' part works fine and the picture box on VB form is updated ... Using D5 Ent and VB 6 Ent on Win2000. ...
      (alt.comp.lang.borland-delphi)
    • Re: Help needed with SetOLEPicture
      ... is the image cut off or resized? ... > used as a Visual Basic control. ... > The 'get' part works fine and the picture box on VB form is updated ... > with contents of TImage and both are identical. ...
      (comp.lang.pascal.delphi.misc)
    • Re: Help needed with SetOLEPicture
      ... is the image cut off or resized? ... > used as a Visual Basic control. ... > The 'get' part works fine and the picture box on VB form is updated ... > with contents of TImage and both are identical. ...
      (alt.comp.lang.borland-delphi)
    • Re: Help needed with SetOLEPicture
      ... aspect ratios and seems that result is consistently smaller by factor ... Regards ... >> The 'get' part works fine and the picture box on VB form is updated ... >> with contents of TImage and both are identical. ...
      (comp.lang.pascal.delphi.misc)