XE5 Android Canvas und Bücher

[Rudirabbit]

Zitat von Union:

Der Parameter ist vom Typ TRectF !

stimmt - sorry nicht bemerkt

[Iatros]

Ok, danke. Bringt zumindest keinen Ferhler - malt aber auch nicht

Ich hab im Entwurf das Bild da rein geladen. Mit rect definier ich doch die Position, an der die Ellipse dann gezeichnet wird. Da ich das direkt im canvas des Image mache müsste er es doch anzeigen ?

Image.Canvas.Brush.Color gibt's nicht. Ich fummel mich da mal durch. Wär nur schön wenn ich zumindest drauf malen könnte.

[stahli]

So zeichne ich unter FMX (Win) Rechtecke auf einen Formularcanvas.
Vielleicht findest Du da einen Hinweis...

Delphi-Quellcode:

procedure PaintLayoutRects;
var
  I: Integer;
  iRegion: TssRegion;

  procedure FR(R: TssRect);
  begin
    PaintLayoutCanvas.FillRect(TRectF.Create(R.Left, R.Top, R.Width, R.Height),
      0, 0, [], 1, TCornerType.ctBevel);
  end;

  procedure PF;
  begin
    PaintLayoutCanvas.DrawRect(TRectF.Create(0, 0, PaintLayout.Width,
      PaintLayout.Height), 0, 0, [], 1, TCornerType.ctBevel);
  end;

  procedure PR(R: TssRect);
  begin
    PaintLayoutCanvas.DrawRect(TRectF.Create(R.Left, R.Top, R.Right, R.Bottom),
      0, 0, [], 1, TCornerType.ctBevel);
  end;

begin
  if (not Assigned(PaintLayout)) or (not Assigned(PaintLayoutCanvas)) then
    Exit;

  PaintLayoutCanvas.BeginScene;
  PaintLayoutCanvas.Clear(claWhitesmoke);
  PaintLayoutCanvas.Stroke.Kind := TBrushKind.bkSolid;
  PaintLayoutCanvas.Stroke.Color := claLime;
  PaintLayoutCanvas.StrokeThickness := 1;

  PF;
  for I := 0 to PaintLayout.Regions.Count - 1 do
  begin
    iRegion := PaintLayout.Regions.Items[I];
    PR(iRegion.NewRect);
  end;

  PaintLayoutCanvas.EndScene;
end;

Nachtrag: Ach so, Image ...
Das wird sicherlich ständig neu gezeichnet sobald eine Mausaktion triggert.
Insofern kann es sein, dass Deine Ellipse gezeichnet wird, dann aber sofort das Image (das Bild des Image) wieder neu dargestellt wird.
Auf einen Canvas zu zeichnen ist dem Fall nicht der richtige Weg.