Wo befindet sich die Grafik in der TImage?

[Uwe Raabe]

TImage hat eine function DestRect, die das effektive Rechteck der Grafik liefert. Die ist zwar protected, aber mit einem class helper kommt man da sehr einfach ran:

Delphi-Quellcode:

type
  TImageHelper = class helper for TImage
  private
    function GetGraphicPos: TPoint;
  public
    property GraphicPos: TPoint read GetGraphicPos;
  end;

function TImageHelper.GetGraphicPos: TPoint;
begin
  Result := DestRect.Location;
end;

...
var
  P: TPoint;
begin
...
  P := Image1.GraphicPos;
...

[himitsu]

Delphi-Quellcode:

type
  TImageAccess = class(TImage);  // Grund siehe Vererbungsleere und protected gegenüber strict protected

P := TImageAccess(Image1).DestRect.Location;

[KodeZwerg]

Für ältere Delphis wo es Eigenschaft "Location" noch nicht gibt muss man über Eigenschaft "TopLeft" gehen.

[bytecook]

Zitat von himitsu:

Delphi-Quellcode:

type
  TImageAccess = class(TImage);  // Grund siehe Vererbungsleere und protected gegenüber strict protected

P := TImageAccess(Image1).DestRect.Location;

This! Immer wieder ein Klassiker, diese Hyperraumumgehungsstraße ... äh UnitUmbiegeDeprotectionVariante