Forum: Cross-Platform-Entwicklung
Delphi
by Matima,
15. Apr 2023
Ich habe das Problem gelöst.
Es geht über das Bitmap von Image:
procedure TForm5.Button2Click(Sender: TObject);
var
BMP: TBitmap;
MyRect: TRectF;
begin
BMP := TBitmap.Create;
BMP.SetSize(400, 400);
Forum: Cross-Platform-Entwicklung
Delphi
by Matima,
14. Apr 2023
Kannst du bitte ein Beispielcode senden?
Vielen Dank
Forum: Cross-Platform-Entwicklung
Delphi
by Matima,
14. Apr 2023
Ich habe das Linienzeichnen jetzt in der OnPaint Methode gemacht.
Jetzt bleibt die Linie!
procedure TForm4.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
var Brush: TStrokeBrush;
begin
Brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Black);
PaintBox1.Canvas.BeginScene;
PaintBox1.Canvas.Stroke.Kind := TBrushKind.bkSolid;
Forum: Cross-Platform-Entwicklung
Delphi
by Matima,
14. Apr 2023
Habe ich beides probiert.
Reagiert genau gleich.
Kann es an meinem Handy und Android 10 liegen?
Forum: Cross-Platform-Entwicklung
Delphi
by Matima,
14. Apr 2023
Vielen Dank,
ich habe das Programm erweitert:
procedure TForm2.Button1Click(Sender: TObject);
var Brush :TStrokeBrush;
begin
Brush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Black);
Panel1.Canvas.BeginScene;
Forum: Cross-Platform-Entwicklung
Delphi
by Matima,
14. Apr 2023
Hallo, ich bin Firemonkey Anfänger und möchte auf Canvas unter Android Zeichnen.
Wenn ich bei folgendem Programm auf den Button clicke flackert die Linie kurz auf und verschwindet dann wieder.
Unter Windows als Zielplattform bleibt die Linie.
Was mache ich falsch?
procedure TForm2.Button1Click(Sender: TObject);
begin
Panel1.Canvas.BeginScene;
Panel1.Canvas.Stroke.Color :=...