Was mache ich falsch? Es wird die falsche Eigenschaft aufgerufen

[jaenicke]

Ein Getter sollte auch nur als Getter fungieren.

Du könntest z.B. eine Funktion GenerateBitmap verwenden oder so ähnlich.

[Alallart]

Ich habe den Tipp von Gausi umgesetzt, der Code sieht nun so aus (bzw. die Erweiterung):

Delphi-Quellcode:

type
  TTest = class
    FBmp: TBitmap;
    FIndex: Integer;
    function GetBmp: TBitmap;
    procedure SetTransparent(Value: Boolean); //<<<<<<< neu dazugekommen
  public
    constructor Create;
    destructor Destroy; override;
    property Transparent: Boolean write SetTransparent;
    property Bmp: TBitmap read GetBmp;
  end;

implementation

{$R *.dfm}

//...

procedure TTest.SetTransparent(Value: Boolean); //<<<<<<< neu dazugekommen
begin
  FBmp.Transparent := Value;
end;

Es funktioniert. GetBmp wird so nicht aufgerufen, womit das Problem gelöst scheint.

Trotzdem gefällt mir der Weg nicht. Ich empfinde das nicht als elegant. Ich verstehe auch was jaenicke sagt: "Ein Getter sollte auch nur als Getter fungieren", aber wenn da eine Eigenschaft ist, die Bitmap ausgibt, dann besteht immer die Gefahr, dass einer so zugreift wie ich. Ich dachte, dass read ausreicht, damit das nicht passiert. Ich denke ich muss noch etwas nachdenken wie ich es anders löse.

[KodeZwerg]

Zitat von Alallart:

Ich dachte, dass read ausreicht, damit das nicht passiert.

read bedeutet in Deinem Fall, von außerhalb hat man auf dein FBmp keinen Schreibzugriff, da Du aber intern darauf zugreifst, stehst Du Dir hier selbst im Weg
alternative Lösung: nutze doch einfach 2 FBmps, eins hat die Transparenz Eigenschaft und das andere nicht, dem FIndex ist es Wurst von wo aus er hochgezählt wird.

[KodeZwerg]

Oder vielleicht so?

Delphi-Quellcode:

type
  TTest = class
    strict private
      FBmp: TBitmap;
      FIndex: Integer;
    private
      procedure GenerateBmp;
      function GetSolid: TBitmap;
      function GetTransparent: TBitmap;
    public
      constructor Create;
      destructor Destroy; override;
    public
      property Solid: TBitmap read GetSolid;
      property Transparent: TBitmap read GetTransparent;
      property Index: Integer read FIndex write FIndex;
    end;

implementation

constructor TTest.Create;
begin
  inherited Create;
  FBmp := TBitmap.Create;
  FBmp.Width := 32;
  FBmp.Height := 32;
  FIndex := 0;
end;

destructor TTest.Destroy;
begin
  FBmp.Free;
  inherited Destroy;
end;

procedure TTest.GenerateBmp;
begin
  FBmp.Canvas.TextOut(0, 0, IntToStr(FIndex));
  FBmp.Dormant;
  FBmp.FreeImage;
  Inc(FIndex);
end;

function TTest.GetSolid: TBitmap;
begin
  FBmp.Transparent := False;
  GenerateBmp;
  Result := FBmp;
end;

function TTest.GetTransparent: TBitmap;
begin
  FBmp.Transparent := True;
  GenerateBmp;
  Result := FBmp;
end;

// updated, jaenickes Vorschlag integriert.

[himitsu]

Hier mußt du bedenken, dass wenn Zwei "gleichzeitig" sich ein transparentes und ein untransparentes Bild holen, dass du dann das Bild des Ersten mit änderst.

function GenerateTransparent: TBitmap;
und
function GenerateSolid: TBitmap;

Darin wird jeweil eine neue TBitmap-Instanz erstellt und FBmp draufgemalt (oder ohne FBmp und jedes Mal neu gemalt, also GenerateBmp zählt nur hoch und die Anderen malen).

Natürlich muß dann jeder, der sich ein Bitmap holt, es auch selber wieder freigeben.





Oder zwei FBmp's intern (transparent sowie untransparent)