TExpander unter Delphi 10.4.2 Fehler

[skoschke]

Hallo,

ich belege per Code einen Expander mit Controls und male auch darauf

Delphi-Quellcode:

  with ExpanderDokumente.Canvas do
  begin
    BeginScene();
    py := 30; 
    br := ExpanderDokumente.Width - 10;
    Font.Family := 'Arial';
...
    EndScene();

Das funktionierte unter Delphi 10.3 problemlos, jetzt bekomme ich bei EndScene die Meldung:
"Kein Eigentümer der Objektsperre"

Was ist denn da schon wieder passiert?

Ciao
Stefan

[TiGü]

Probiere mal testweise das with aufzulösen, indem du stattdessen eine kurze lokale Variable für den Canvas nimmst.
BeginScene hat auch ein boolschen Rückgabewert, den du vor dem Zeichnen prüfen kannst.

Delphi-Quellcode:

 if MyCanvasVariable.BeginScene then
begin
  //...Drawing...
  MyCanvasVariable.EndScene;
end;

[skoschke]

Danke, den Ansatz werde ich mal ausprobieren

Ciao
Stefan

[skoschke]

Hallo,

ich habe mal in die Richtung umgebaut:

Delphi-Quellcode:

  c := ExpanderDokumente.Canvas;
  if c.BeginScene then
  begin
    py := 30; // oberste zeichenposition
    br := ExpanderDokumente.Width - 10;
    c.Font.Family := 'Arial';
    c.Font.Size := 12;
    ...

und der if c.BeginScene then Zweig wird nicht durchlaufen, BeginScene scheint also fehlzuschlagen, warum?

Auch in folgendem Code greift BeginScene nicht:

Delphi-Quellcode:

  b := TBitmap.Create;
  if b.Canvas.BeginScene then
  begin
    i := 4;

    b.canvas.EndScene;
  end;

Und ein abgewandeltes Beispiel aus der Embarcadero Doku ebenfalls nicht

Delphi-Quellcode:

  b := TImage.Create(self);
  if b.Bitmap.Canvas.BeginScene then
  begin
    i := 4;

    b.canvas.EndScene;
  end;

Ciao
Stefan

[skoschke]

Und hier nun Original Embarcadero:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  // sets the circumscribed rectangle of the ellipse
  MyRect := TRectF.Create(50, 40, 200, 270);
  // draws the ellipse on the canvas
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
  Image1.Bitmap.Canvas.EndScene;
end;

Und wieder "Kein Eigentümer der Objektsperre"

Ciao
Stefan

[TiGü]

Sind andere Threads im Spiel?
Lass dir den BeginSceneCount ausgeben.
Wenn sonst noch keiner BeginScene gerufen hat, dann müsste der ja 0 davor und 1 danach sein.
http://docwiki.embarcadero.com/Libra...eginSceneCount

[TiGü]

Sind TCanvas.Width und TCanvas.Height größer null?

[TigerLilly]

Image1 hat einen Parent?

[Michael II]

Zitat:

Zitat von skoschke (Beitrag 1485482)

Und hier nun Original Embarcadero:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  // sets the circumscribed rectangle of the ellipse
  MyRect := TRectF.Create(50, 40, 200, 270);
  // draws the ellipse on the canvas
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
  Image1.Bitmap.Canvas.EndScene;
end;

Und wieder "Kein Eigentümer der Objektsperre"

Ciao
Stefan

Steht das echt genau so bei Embarcadero? Da wurde doch vergessen, das Bitmap zu erzeugen und diesem eine Grösse zuzuweisen (?).
Funktioniert dies (Code unten) bei dir auch: (?)

Delphi-Quellcode:

...
  MyRect: TRectF;
...
  MyRect := TRectF.Create(0, 0, 200, 200);
  Image1.Bitmap := TBitmap.create;
  Image1.Bitmap.Width := trunc(Image1.Width);
  Image1.Bitmap.Height := trunc(Image1.Height);
...
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
  Image1.Bitmap.Canvas.EndScene;
...

In deinem Beispiel wird FBeginSceneCount beim EndScene dekrementiert, beim BeginScene jedoch nicht inkrementiert. FBeginSceneCount wird dadurch -1 und die Sache fällt dann so richtig auf in:

Delphi-Quellcode:

function TMonitor.CheckOwningThread: TThreadID;
begin
  Result := FOwningThread;  // ist dann 0
  if Result <> GetCurrentThreadId then
    Error(reMonitorNotLocked) // => Fehler
end;

Es wäre gut, wenn dich Delphi bereits in Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40); darauf aufmerksam machen würde, dass dein Bitmap (ich nehm's mal an...) gar keinen Speicher reserviert hat für deinen Kreis.

Und es wäre natürlich auch schön, wenn FBeginSceneCount in einem solchen Problemfall (BitMap leer) korrekt zählen würde.

Letztendlich solltest du es aber mit korrektem Code schaffen, den Kreis ohne Fehler auszugeben.

[skoschke]

Delphi-Quellcode:

...
  MyRect: TRectF;
...
  MyRect := TRectF.Create(0, 0, 200, 200);
  Image1.Bitmap := TBitmap.create;
  Image1.Bitmap.Width := trunc(Image1.Width);
  Image1.Bitmap.Height := trunc(Image1.Height);
...
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
  Image1.Bitmap.Canvas.EndScene;

Dein Beispiel mit dem TImage funktioniert, nur bkomme ich es nicht hin, dem TExpander Canvas ein Bitmap zu erzeugen :-(

Delphi-Quellcode:

ExpanderDokumente.Canvas.Bitmap.Width:=100;

funktioniert nicht da das ExpanderDokumente.Canvas = Nil und ExpanderDokumente.Canvas.BitMap = Nil ist, ExpanderDokumente.Canvas.Bitmap kann ich nichts zuweisen weil es eine "nur Lesen" Eigenschaft ist...

Ciao
Stefan

[Michael II]

Hallo Stefan

ich habe rasch (geht ohne eine Zeile Code zu schreiben) TExpander auf TForm geklickt. In TExpander habe ich ein TImage reingesetzt. Im Objektinspektor (oder über Struktur) unter TImage finde ich die Eigenschaft Multiresbitmap. Ich klick drauf, lade ein Bild und lass das Programm laufen.

Expander wird angezeigt, ich expandiere, sehe das Bild. Funktioniert.

Dann sollte es doch via Code auch funktionieren?

[TiGü]

Welchen TCanvas-Nachfahren verwendest du denn? Default unter Windows ist ja TCanvasD2D.

[Harry Stahl]

Natürlich funktioniert Dein Code hier nicht:

Delphi-Quellcode:

 b := TBitmap.Create;
  if b.Canvas.BeginScene then
  begin
    i := 4;

    b.canvas.EndScene;
  end;

geenauowenig wie Dein anderes Beispiel:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  // sets the circumscribed rectangle of the ellipse
  MyRect := TRectF.Create(50, 40, 200, 270);
  // draws the ellipse on the canvas
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
  Image1.Bitmap.Canvas.EndScene;
end;

Dein Bitmap hat immer die Größe 0,0.

Auf welchen Canvas willst Du dann auf welcher Postion malen?
Logischerweise funktioniert dann auch kein Canvas.beginscene....

Mit anderen Worten: Das funktioniert:

Delphi-Quellcode:

b := TBitmap.Create (300,300);
  if b.Canvas.BeginScene then
  begin
    i := 4;

    b.canvas.EndScene;
  end;

[Harry Stahl]

Ach ja und ergänzend zu meiner vorherigen Antwort:

WANN willst Du auf den Canvas "des Expanders" zeichnen?

Anders als in der VCL hat in der FMX nicht jedes Control einen eigenen Canvas, sondern es existiert nur ein großer Canvas der Form, der von den einzelnen Controls verwendet wird.

D.H. Du kannst nicht einfach irgendwann auf den Canvas zeichnen.
Sondern Du machst es in den Events, wenn der Expander gezeichnet werden soll, also z.B:

Delphi-Quellcode:

procedure TForm38.Expander1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin

end;

Dann hast Du einen Canvas, der in diesem Moment frei ist und auch den Canvas-Bereich, der für dieses Control gilt.

[Michael II]

Zitat:

Zitat von skoschke (Beitrag 1485496)

funktioniert nicht da das ExpanderDokumente.Canvas = Nil und ExpanderDokumente.Canvas.BitMap = Nil ist, ExpanderDokumente.Canvas.Bitmap kann ich nichts zuweisen weil es eine "nur Lesen" Eigenschaft ist...

Ciao
Stefan

Es geht schon auch; so wie ich im Kurztest #11 gezeigt hatte: In der IDE: Nimm deinen TExpander, klick ein TImage rein und setze Align von image1 auf Client. Nun hast du über TImage deinen Canvas.

Dann kannst du exakt den gleichen Code verwenden wie in #9.