Canvas.draw problem

[cherry]

Hi

Bin an ner eigenen Komponente. (abgeleitet von TCustomControl)
Will ne neue Property: Graphic...

Okay so weit so gut.
Zeichne ich das ausgewählte Bild (jpg,bmp..) mit Canvas.draw(0,0,FGraphic)
aud die Komponente(Zu Designzeit), gibts ne Zugriffsverletzung!?

Die Zugriffsverletzung kommt aber erst nach dem das Bild gedrawt wurde. Es wir also
gezeichnet, leider aber eben mit mehreren Zugriffsverletzungen.

Wo kommen die her?
Ne noch besser wie mache ich ne property Bild ( Da kann ich easy n Bild auswählen )
und wie krieg ich dass dann auf die Canvas???

Bitte helft mir... bin im stress... :wall:

Danke

[Namenloser]

Ohne Code kann dir keiner helfen :roll:

[mkinzler]

Warum der Fehler kommt, kann man die nur sagen wenn du uns Code lieferst.[Edit wie namenlozer schon schrieb]
Für die Property brauchst du ne private Eigenschaft, einen setter und halt die Property und mußt Draw überladen.

[cherry]

Okay.. sorry...

hier is grad die Datei.. hängt vielleicht mit was anderem zusammen.
Wie ich mus Draw überladen?! könnte da der Fehler sein

[ste_ett]

Bei mir gehts. :)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  EButton := TEButton.Create(nil);
  EButton.Width := 100;
  EButton.Height := 25;
  EButton.Top := 100;
  EButton.Left := 100;
  EButton.Graphic := TBitmap.Create;
  EButton.Graphic.LoadFromFile('bild1.bmp'); // 100x25 Pixel 24bit Bitmap
  EButton.Parent := Form1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  EButton.Graphic.Free; // evtl. im destructor erledigen  /  Assigned()
  EButton.Free;
end;

[Muetze1]

Der Inspektor sollte auch mit der Eigenschaft klarkommen, wenn du die Instanz von Graphic in der Komponente erzeugst und beim Setter der Eigenschaft darauf achtest, dass du dir die interne Instanz nicht überschreibst, sondern dass diese mit Assign() die zugewiesene Instanz inhaltlich übernimmt.

Nochmal im Detail:

1. Im Constructor alle Instanzen von TGraphic erzeugen

Delphi-Quellcode:

FGraphic := TGraphic.Create;
FGraphicOver := TGraphic.Create;
FGraphicDown := TGraphic.Create;

2. In den Setter mit Assign() arbeiten damit du deine Instanz behälst.

Delphi-Quellcode:

procedure TEButton.SetGraphic(const Value: TGraphic);
begin
  FGraphic.Assign(Value);
  RePaint;  
end;

3. Im Destruktor die Instanzen wieder freigeben

Bug! Du löscht die Region nach der Übergabe der Region an SetWindowRgn(). Ich empfehle die MSDN zu konsultieren:

Zitat:

Zitat von MSDN: SetWindowRgn()

After a successful call to SetWindowRgn, the system owns the region specified by the region handle hRgn. The system does not make a copy of the region. Thus, you should not make any further function calls with this region handle. In particular, do not delete this region handle. The system deletes the region handle when it no longer needed.

Also unbedingt und sofort das DeleteObject(Rgn) danach rausschmeissen.

Nach weiteren Dingen habe ich nun nicht mehr geschaut...

[cherry]

:oops: ...
trotzdem, sowie ich das mache gibts beim kompilieren der Komponente folgende Warnungen:

Delphi-Quellcode:

[Warnung] EButton.pas(307): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.LoadFromStream' wird angelegt
[Warnung] EButton.pas(307): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.SaveToStream' wird angelegt
[Warnung] EButton.pas(307): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.LoadFromClipboardFormat' wird angelegt
[Warnung] EButton.pas(307): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.SaveToClipboardFormat' wird angelegt

Natürlich kann ich die Komponente dann auch nicht verwenden. Abstrakter Fehler.
Irgendwie wird das zeuchs nicht richtig created, instanziert...

was ist nun mein Problem?

[ste_ett]

Erstelle statt einer TGraphic-Instanz einfach eine TBitmap-Instanz. :)

s. mein Beispiel

[cherry]

...
Welche Klasse muss ich da bei uses angeben?

[ste_ett]

Die Unit Graphics.
Sollte aber schon standardmäßg bei einem neuen Formular drinstehen.