EAccessViolationエラーを解消するには？ (ID:5638)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ありがとうございます。
しかし、まだ、解決できていません。
IODisplayの定義部分を見てみました。
Imageプロパティは普通のものとちょっと違うんでしょうか？
以下に定義部分を示してみます。
ヅラヅラ記載してすみません。
アドバイスを宜しくお願いします。

定義部
  TIODisplay = class(TOleControl)
  private
    FOnMouseDownImage: TIODisplayMouseDownImage;
    FOnMouseMoveImage: TIODisplayMouseMoveImage;
    FOnMouseUpImage: TIODisplayMouseUpImage;
    FOnAnnotationToolAction: TIODisplayAnnotationToolAction;
    FOnScrolled: TNotifyEvent;
    FOnMouseWheelRotateImage: TIODisplayMouseWheelRotateImage;
    FIntf: IIODisplay;
    function  GetControlInterface: IIODisplay;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function  Get_Image: IDispatch;
    procedure Set_Image(const Image: IDispatch);
    function  Get_Acquire: IDispatch;
    procedure Set_Acquire(const Acquire: IDispatch);
    function  Get_Overlay: IDispatch;
    procedure Set_Overlay(const Overlay: IDispatch);
    function  Get_AnnotationTool: IDispatch;
    procedure Set_AnnotationTool(const AnnotationTool: IDispatch);
    function  Get_Annotations: IDispatch;
    procedure Set_Annotations(const Annotations: IDispatch);
    function  Get_DisplayOrigin: IDispatch;
    procedure Set_DisplayOrigin(const DisplayOrigin: IDispatch);
    function  Get_Color(pixelValue: Double): OLE_COLOR;
    procedure Set_Color(pixelValue: Double; result: OLE_COLOR);
    procedure Set_ColorRange(startPixelValue: Double; endPixelValue:
Double; Param3: OLE_COLOR);
  public
    procedure Refresh;
    function  Snap: WordBool;
    function  Paint(var deviceContext: OLE_HANDLE; imageLeft: Integer;
imageTop: Integer;
                    imageWidth: Integer; imageHeight: Integer;
paintLeft: OLE_XPOS_PIXELS;
                    paintTop: OLE_YPOS_PIXELS; paintWidth:
OLE_XSIZE_PIXELS;
                    paintHeight: OLE_YSIZE_PIXELS): WordBool;
    procedure UpdateWindow;
    procedure DoClick;
    function  PaintDisplay(var deviceContext: OLE_HANDLE; left:
OLE_XPOS_PIXELS;
                           top: OLE_YPOS_PIXELS; width:
OLE_XSIZE_PIXELS; height: OLE_YSIZE_PIXELS): WordBool;
    function  CopyToClipboard: WordBool;
    procedure AboutBox;
    property  ControlInterface: IIODisplay read GetControlInterface;
    property  DefaultInterface: IIODisplay read GetControlInterface;
    property Window: Integer index -515 read GetIntegerProp;
    property Image: IDispatch index 1011 read GetIDispatchProp write
SetIDispatchProp;
    property Acquire: IDispatch index 1012 read GetIDispatchProp write
SetIDispatchProp;
    property Overlay: IDispatch index 1013 read GetIDispatchProp write
SetIDispatchProp;
    property AnnotationTool: IDispatch index 1015 read GetIDispatchProp
write SetIDispatchProp;
    property Annotations: IDispatch index 1016 read GetIDispatchProp
write SetIDispatchProp;
    property DisplayOrigin: IDispatch index 1017 read GetIDispatchProp
write SetIDispatchProp;
    property Color[pixelValue: Double]: OLE_COLOR read Get_Color write
Set_Color;
    property ColorRange[startPixelValue: Double; endPixelValue: Double]:
OLE_COLOR write Set_ColorRange;
    property SnapComplete: WordBool index 1024 read GetWordBoolProp;
  published
    property  ParentColor;
    property  TabStop;
    property  Align;
    property  DragCursor;
    property  DragMode;
    property  ParentShowHint;
    property  PopupMenu;
    property  ShowHint;
    property  TabOrder;
    property  Visible;
    property  OnDragDrop;
    property  OnDragOver;
    property  OnEndDrag;
    property  OnEnter;
    property  OnExit;
    property  OnStartDrag;
    property  OnKeyUp;
    property  OnKeyPress;
    property  OnKeyDown;
    property  OnDblClick;
    property  OnClick;
    property BackColor: TColor index -501 read GetTColorProp write
SetTColorProp stored False;
    property BorderStyle: Integer index -504 read GetIntegerProp write
SetIntegerProp stored False;
    property BorderVisible: WordBool index -519 read GetWordBoolProp
write SetWordBoolProp stored False;
    property Appearance: Smallint index -520 read GetSmallintProp write
SetSmallintProp stored False;
    property MousePointer: Integer index -521 read GetIntegerProp write
SetIntegerProp stored False;
    property Zoom: Single index 1010 read GetSingleProp write
SetSingleProp stored False;
    property ForceBackgroundPalette: WordBool index 1001 read
GetWordBoolProp write SetWordBoolProp stored False;
    property RangeMaximum: Double index 1002 read GetDoubleProp write
SetDoubleProp stored False;
    property RangeMinimum: Double index 1003 read GetDoubleProp write
SetDoubleProp stored False;
    property Live: WordBool index 1014 read GetWordBoolProp write
SetWordBoolProp stored False;
    property LiveUpdate: WordBool index 1004 read GetWordBoolProp write
SetWordBoolProp stored False;
    property OverlayColor: TColor index 1005 read GetTColorProp write
SetTColorProp stored False;
    property DisplayMode: TOleEnum index 1006 read GetTOleEnumProp write
SetTOleEnumProp stored False;
    property RenderMode: TOleEnum index 1007 read GetTOleEnumProp write
SetTOleEnumProp stored False;
    property RangeMode: TOleEnum index 1008 read GetTOleEnumProp write
SetTOleEnumProp stored False;
    property SnapMode: TOleEnum index 1025 read GetTOleEnumProp write
SetTOleEnumProp stored False;
    property BufferMode: TOleEnum index 1026 read GetTOleEnumProp write
SetTOleEnumProp stored False;
    property OnMouseDownImage: TIODisplayMouseDownImage read
FOnMouseDownImage write FOnMouseDownImage;
    property OnMouseMoveImage: TIODisplayMouseMoveImage read
FOnMouseMoveImage write FOnMouseMoveImage;
    property OnMouseUpImage: TIODisplayMouseUpImage read FOnMouseUpImage
write FOnMouseUpImage;
    property OnAnnotationToolAction: TIODisplayAnnotationToolAction read
FOnAnnotationToolAction write FOnAnnotationToolAction;
    property OnScrolled: TNotifyEvent read FOnScrolled write
FOnScrolled;
    property OnMouseWheelRotateImage: TIODisplayMouseWheelRotateImage
read FOnMouseWheelRotateImage write FOnMouseWheelRotateImage;
  end;

←解決時は質問者本人がここをチェックしてください。

戻る