Hallo,

ich verwende Graphics32 unter D6/Enterprise und seit dem Umstieg auf die aktuelle Version 1-8-3 treibt mich eine ständige Exception zum Wahnsinn.

Die Exception EAccessViolation wird immer ausgelöst, wenn ich einen Mausklick auf ein TImgView32 ausführe. (Auch bei allen Beispielprojekten von Graphics32.)

Inzwischen habe ich alle BPL's und DCU's bereinigt/aktualisiert, ausserdem habe ich in der G32.inc die XPTHEMES ausgeklammert:

(*
{$DEFINE XPTHEMES} // enable support for windows xp themes
*)

Hier einmal die Debuggerinfo aus Delphi:
---
Im Projekt ImgView_Layers_Ex.exe ist eine Exception der Klasse EAccessViolation aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 00494B98 in Modul 'ImgView_Layers_Ex.exe'. Lesen von Adresse 00000023'. Prozeß wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---

Das Problem liegt in dem Unit G32_Layers.pas unter TLayerCollection.MouseDown. Anscheinend ist hier Result.FLayerOptions nicht definiert.

Hat jemand eine Idee, wo ich noch nach der Ursache suchen könnte?

Gruss, Ralle

Hi,

ist mir gerade auch passiert
Es knallt bei MouseDown und MouseUp.
Wäre schon interessant zu erfahren warum das passiert.

Meine Lösung bis jetzt ist diese:

markieren

Code:

function TLayerCollection.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer): TCustomLayer;
begin
  if Assigned(MouseListener) then
    Result := MouseListener
  else
    Result := FindLayerAtPos(X, Y, LOB_MOUSE_EVENTS);

  // ##########################################################################
  // Start Modified
  // ##########################################################################

//  if (Result <> MouseListener) and ((Result = nil) or ((Result.FLayerOptions and LOB_NO_CAPTURE) = 0)) then
//    MouseListener := Result; // capture the mouse

  if (Result <> MouseListener) then begin
    if ((Result = nil) or ((Result.FLayerOptions and LOB_NO_CAPTURE) = 0)) then MouseListener := Result; // capture the mouse
  end;

  // ##########################################################################
  // End Modified
  // ##########################################################################
 
  if Assigned(MouseListener) then
  begin
    Include(MouseListener.FLayerStates, CStateMap[Button]);
    MouseListener.MouseDown(Button, Shift, X, Y);
  end;
end;

und

markieren

Code:

function TLayerCollection.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer): TCustomLayer;
begin
  Result := MouseListener;
  if Result = nil then Result := FindLayerAtPos(X, Y, LOB_MOUSE_EVENTS);

  if Assigned(Result) then
  begin
    Exclude(Result.FLayerStates, CStateMap[Button]);
    Result.MouseUp(Button, Shift, X, Y);
  end;

  // ##########################################################################
  // Start Modified
  // ##########################################################################

//  if Assigned(MouseListener) and
//    (MouseListener.FLayerStates *
//      [lsMouseLeft, lsMouseRight, lsMouseMiddle] = []) then
//    MouseListener := nil; // reset mouse capture

  if Assigned(MouseListener) then
    if (MouseListener.FLayerStates * [lsMouseLeft, lsMouseRight, lsMouseMiddle] = []) then MouseListener := nil; // reset mouse capture

  // ##########################################################################
  // End Modified
  // ##########################################################################

end;

Sind wir die einzigsten mit diesem Problem???