Canvas.Draw klappt nicht

[implementation]

Beim folgenden Quelltext wird immer an der Stelle

Delphi-Quellcode:

Sessions[0].Control := TControl.Create(0,0,100,100);

eine Zugriffsverletzung (EAccessViolation) ausgelöst.
Woher kommt das?

Delphi-Quellcode:

interface

type TWdControl = class
  public
    Bitmap: TBitmap;
    X, Y, W, H: DWord;
    procedure Paint;dynamic;
  published
    constructor Create(X, Y, W, H: DWord);
end;

type TSession = packed record
  Control: TControl;
end;
type TSessions = packed array[0..1023] of TSession;

var Sessions: TSessions;

implementation

constructor TControl.Create(X, Y, W, H: DWord);
begin
  inherited Create;
  Self.X := X;
  Self.Y := Y;
  Self.W := W;
  Self.H := H;
  Paint;
end;


procedure TControl.Paint;
begin
  Bitmap.Canvas.Pen.Color := Windesk.Colors.LightGreen;
  Bitmap.Canvas.Brush.Color := Windesk.Colors.WorkSpace;
  Bitmap.Canvas.Rectangle(0,0,W,H);
end;

procedure DrawOnForm;
begin
  Sessions[0].Control := TControl.Create(0,0,100,100);
  AScreen^.Canvas.Draw(0,0,Sessions[0].Control.Bitmap);
end;

[Uwe Raabe]

Was passiert denn in TControl.Create?

[SirThornberry]

wie bereits erwähnt, du erzählst uns das beim Aufruf des Constructors eine Zugriffsverletzung kommt aber zeigst uns diesen nicht. Dann können wir doch auch schlecht den Fehler finden oder?

[Uwe Raabe]

Zitat:

Zitat von SirThornberry

wie bereits erwähnt, du erzählst uns das beim Aufruf des Constructors eine Zugriffsverletzung kommt aber zeigst uns diesen nicht. Dann können wir doch auch schlecht den Fehler finden oder?

Vielleicht will er uns testen :?:

[Dunkel]

btw. TControl existiert schon in der RTL, was zu Komplikationen und Fehlern führen kann. Nenn Deine Klasse besser anders.

[implementation]

Sorry, hab vergessen den Constructor mit hinzuschreiben
hol ich jetzt nach

zum Namen: ich benutze im ganzen projekt keine vcl - und auch ihre basisklassen nicht - daher ist das egal
ich kann die klasse aber trotzdem umbenennen

----------------------------------------------------
Jetzt als ich mir den Constructor noch mal angeguckt habe, fällt mir schon mein erster Fehler auf:

Delphi-Quellcode:

constructor TWdControl.Create(X, Y, W, H: DWord);
begin
  inherited Create;
  Bitmap := TBitmap.Create;   // ich hab vergessen die Bitmap zu erstelln
  Bitmap.Width := W;          // hier Breite
  Bitmap.Height := H;         // und Höhe
  Self.X := X;
  Self.Y := Y;
  Self.W := W;
  Self.H := H;
  Paint;
end;

(dies ist die korrigierte Form)
Nun gibt es zumindest keine Zugriffsverletzung mehr.
Aber das gezeichnete Rechteck ist immernoch nicht sichtbar.
Daher habe ich das Thema umbenannt.

[sx2008]

Der Aufruf von Paint im Konstruktor eines TControls ist streng verboten!!!
Grund: ein Control darf erst dann gezeichnet werden, wenn die VCL es ihm sagt.
Ausserdem kann Paint() erst dann funkionieren, wenn das Property Parent gesetzt wird.
Parent wird aber erst viel später, also nach dem Aufruf des Konstruktors gesetzt.

[turboPASCAL]

Zitat:

Ausserdem kann Paint() erst dann funkionieren, wenn das Property Parent gesetzt wird.

Jupp.

[implementation]

Warum?
Es handelt sich hier nicht um eine tatsächliche VCL-Komponente.
In Paint wird nur in eine Bitmap gezeichnet.
Wofür wird dann ein Parent benötigt

Schaut euch den Quelltext an: Mein "TWdControl" ist nur eine Klasse, die von TObject abgeleitet wurde.
Das hat mit der VCL überhaupt nichts zu tun

Das Zeichnen aufs Formular (in diesem Fall ein Zeiger auf ein Formular) passiert erst hier:

Delphi-Quellcode:

AScreen^.Canvas.Draw(0,0,Sessions[0].Control.Bitmap);

Daher habe ich den Thread auch nicht ins Thema VCL geschrieben

[sx2008]

Zitat:

Zitat von implementation

Es handelt sich hier nicht um eine tatsächliche VCL-Komponente.

Du hättest deine Klasse nicht TWdControl nennen sollen und später heisst sie auch noch TControl.
Hast du den Sourcecode von Hand abgeschrieben? (Besser Copy & Paste)
Also deine Klasse hat nichts mit einem VCL-Control zu tun; es ist am Besten das Wort Control komplett zu streichen.
Du solltest einfach mal mit Worten erklären, was deine Klasse tun soll.
Angenommen die Klasse soll irgendwelche Informationen visualisieren.
Dann wäre es nicht schlecht, wenn die Klasse einfach ein TCanvas-Property bekommt, anstatt selbst ein TBitmap bereitzustellen.
Genaueres lässt sich aber erst dann sagen, wenn der Hintergrund, also die Aufgabenstellung bekannt ist.