FM keine Funktionalität bei Image Manipulation

[zeras]

Ich habe nun ein ASUS Tablet Online und will nun die ersten Versuche starten.
Dabei hapert es aber schon an einer einfachen Image Manipulation.
Man sieht einfach nichts, was sich ändert.
Zum Test habe ich mal eine FM Desktopanwendung erstellt mit folgenden Code. Da wird das Image aber auch nicht eingefärbt.
Was mache ich falsch?

Delphi-Quellcode:

unit Unit13;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects,

  System.UIConsts, FMX.Colors;

type
  TForm13 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    ColorBox1: TColorBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form13: TForm13;

implementation

{$R *.fmx}

procedure TForm13.Button1Click(Sender: TObject);
begin
  Image1.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Clear(claLime);
  Image1.Canvas.EndScene;
end;

procedure TForm13.Button2Click(Sender: TObject);
begin
  Image1.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Clear(claBlack);
  Image1.Canvas.EndScene;
end;

end.

[Volker Z.]

Hallo,

so sollte es tun:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Clear (claLime);
  Image1.Bitmap.Canvas.EndScene;
end;

Gruß

[zeras]

Ich habe das nun als komplettes Projekt und trotzdem ändert sich nichts, wenn ich auf den Button klicke. Es kann doch nicht sein, dass ich an den Basics scheitere oder doch?

Delphi-Quellcode:

unit Unit14;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Objects,

  System.UIConsts;


type
  TForm14 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form14: TForm14;

implementation

{$R *.fmx}

procedure TForm14.Button1Click(Sender: TObject);
begin
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.Clear (claLime);
  Image1.Bitmap.Canvas.EndScene;

end;

end.

[Mavarik]

Windows oder Android?

[zeras]

Zitat von Mavarik:

Windows oder Android?

Ich möchte eine App schreiben für ein ASUS Tablet. Da dort keine Linien etc. gezeichnet wurden (TLabel ging aber), habe ich auf Grund besserer Testmöglichkeiten ein neues Projekt für Windows angefangen, um überhaupt mal mit FM anzufangen. Da ist das Ergebnis bisher.
Also eigentlich Android, aber zum Test hier erstmal unter Windows.

[Mavarik]

Zitat von zeras:

Zitat von Mavarik:

Windows oder Android?

Ich möchte eine App schreiben für ein ASUS Tablet. Da dort keine Linien etc. gezeichnet wurden (TLabel ging aber), habe ich auf Grund besserer Testmöglichkeiten ein neues Projekt für Windows angefangen, um überhaupt mal mit FM anzufangen. Da ist das Ergebnis bisher.
Also eigentlich Android, aber zum Test hier erstmal unter Windows.

Also FMX rendert Images (so weit ich weis) als DirectX Texturen. Daher auch die Größenbeschränkung.

Die Bitmap im Image wird aber nicht erzeugt durch ein Klick eines Images auf das Formular. (Wenn leer)

Ich mache daher immer:

Delphi-Quellcode:

Var 
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create(Image1.width,Image1.Height);
  Image1.Bitmap.Assign(BMP);
end;

Und schon geht "alles".

Wenn das Bitmap innerhalb des Images keine Dimension hat, wird auch kein Canvas erzeugt.
(Soweit ich mich erinnern kann)

Mavarik

[zeras]

Zitat von Mavarik:

Ich mache daher immer:

Delphi-Quellcode:

Var 
  Bmp : TBitmap;
begin
  Bmp := TBitmap.Create(Image1.width,Image1.Height);
  Image1.Bitmap.Assign(BMP);
end;

Wenn ich das in meinem leere Projekt ändere, kommt folgende Meldung:

[DCC Fehler] HeaderFooterTemplate.pas(36): E2250 Es gibt keine überladene Version von 'Create', die man mit diesen Argumenten aufrufen kann

[mkinzler]

Was für ein Typ hat Image1?

[zeras]

Zitat von mkinzler:

Was für ein Typ hat Image1?

Ich habe das immer in das obige Projekt reinkopiert.
Typ ist Image1: TImage;

[Mavarik]

Zitat von mkinzler:

Was für ein Typ hat Image1?

Aus welchem Grund die Frage?