Einzelnen Beitrag anzeigen

zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.633 Beiträge
 
Delphi 12 Athens
 
#1

FM keine Funktionalität bei Image Manipulation

  Alt 29. Dez 2013, 17:53
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.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat