Probleme mit TBitmap und Größenänderung

[janjan]

Delphi-Quellcode:

unit TestBox;

interface

uses
   Classes,
   ExtCtrls,
   Graphics;

type
  TTestBox = class(TPaintBox)
  private
    { Private-Deklarationen }
  protected
    Background: TBitMap;
    first: boolean;
    { Protected-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   paint; override;
    procedure   Resize; override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TTestBox.Resize;
begin
  Background.Width:=Width;
  Background.Height:=Height;
  background.Canvas.Ellipse(0,0,Width,Height);
  inherited Resize;
end;

constructor TTestBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Background:= tbitmap.Create;
  Background.Width:=Width;
  Background.Height:=Height;
  background.Canvas.Ellipse(0,0,Width,112);
end;

procedure TTestBox.Paint;
begin
  inherited paint;
  canvas.Draw(0,0,background);
end;

destructor TTestBox.Destroy;
begin
  background.Free;
  inherited Destroy;
end;

procedure Register;
begin
  RegisterComponents('Beispiele', [TTestBox]);
end;

end.

Warum kann ich das Bitmap beim Create verändern, im Resize-Ereigniss nicht? Da stegt er jedesmal mit einer "Zugriffsverletzung bei Adresse..." aus. :(

[sakura]

Mal ehrlich, dass es überhaupt jemals gut geht ist schon verwunderlich, sorry. :) Folgender Abschnitt:

Delphi-Quellcode:

constructor TTestBox.Create(AOwner: TComponent); 
begin 
  inherited Create(AOwner); 
  Background:= tbitmap.Create; 
  Background.Width:=Width; 
  Background.Height:=Height; 
  background.Canvas.Ellipse(0,0,Width,112); 
end;

Als erstes rufst Du bereits inherited... auf, was eigentlich okay ist, aber intern wird auch sofort Resize aufgerufen. Dein Resize nutzt dann background, was noch nicht initialisiert ist (also nil) -> Zugriffsverletzung,

Delphi-Quellcode:

procedure TTestBox.Resize; 
begin 
  Background.Width:=Width; 
  Background.Height:=Height; 
  background.Canvas.Ellipse(0,0,Width,Height); 
  inherited Resize; 
end;

Ändere Dein Create wie folgt, und alles sollte laufen

Delphi-Quellcode:

constructor TTestBox.Create(AOwner: TComponent);
begin
  Background:= tbitmap.Create;
  inherited Create(AOwner);
end;

...:cat:...

[janjan]

thx, es klappt :) und dabei wollt ich mich doch nur an die hilfe halten:

Delphi-Quellcode:

constructor TWrapMemo.Create(AOwner: TComponent);*****{ Dies kommt nach der Implementierung }
begin
  **inherited Create(AOwner);***************************{ Diesen Schritt IMMER zuerst! } 
  **WordWrap := False;**********************************{ Neuen Wert setzen }

*end;

[sakura]

Einige Sachen muss man halt etwas salzen, bevor diese genießbar sind :D

...:cat:...