TImage.Refresh in Lazarus

[Captain Albern]

Guten Morgen,

ich verwende ein TImage um Bilddaten anzuzeigen, die ich in TImage.Picture.Bitmap.ScanLine kopiere. Wenn das Kopieren fertig ist, führe ich TImage.Refresh aus, damit es angezeigt wird.

Das hat mit Delphi immer funktioniert. Mit Lazarus werden die Bilddaten erst dann aktualisiert angezeigt, wenn der Benutzer das Fenster und damit das TImage in seiner Größe ändert. Auch Repaint funktioniert nicht.

Was mache ich falsch ?

Gruß
C.A.

[Captain Albern]

Ergänzung. Ich habe ein neues Test-Projekt mit einem TImage und einem Button angelegt und führe folgenden Code aus. Es wird ein buntes Rauschen erzeugt, wenn man auf den Knopf drückt. Allerdings nur beim ersten Mal, danach wird das Bild nicht aktualisiert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var y,x                         : Integer;
    Line                        : Array [0..959] of Byte;
begin
  Randomize;
  Image1.Width:=320;
  Image1.Height:=240;
  Image1.Picture.Bitmap.Width:=320;
  Image1.Picture.Bitmap.Height:=240;
  image1.Picture.Bitmap.PixelFormat:=pf24Bit;
  for y := 0 to 239 do begin
    for x := 0 to 959 do
      Line[x]:=Random($FF);
    Move(Line[0],Image1.Picture.Bitmap.ScanLine[y]^,960);
  end;
  Image1.Refresh;
end;

[Luckie]

Randomize bitte nur einmal beim Start des Programms aufrufen!

[hoika]

Hallo,
nimm doch Invalidate.

[Captain Albern]

Vielen Dank für die Mühe, aber beides funktioniert nicht.

Randomize ist nicht das Problem. Es funktioniert auch mit anderen Daten, die sich eindeutig ändern nicht.

Ich habe es mit Refresh, Repaint und Invalidate versucht, sowohl vom Image als auch vom Form. Das Bitmap wird nur einmalig aktualisiert.

Ich habe nochmal einen Counter eingefügt und das Bild bei jedem Mal drücken um einen Pixel breiter gemacht. Dann wird es komplett aktualisiert und das Rauschen wird auch neu zufällig dargestellt.

Gibt es vielleicht eine andere Möglichkeit (außer OpenGL und DirectX), Bitmapdaten mit Lazarus schnell und effizient auf dem Bildschirm anzuzeigen ? Ich brauche auch kein Scaling, keine Transparenz, nix, einfach nur Bitmapdaten 1:1 auf den Bildschirm. Danke !

[Captain Albern]

PS: Folgender Code funktioniert (eine neue Zeile). Sieht dämlich aus, ist aber so.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var       y,x                         : Integer;
          Line                        : Array [0..959] of Byte;
begin
  Image1.Width:=320;
  Image1.Height:=240;
  Image1.Picture.Bitmap.Width:=319;//Neu eingefügt, eigentlich nutzlos
  Image1.Picture.Bitmap.Width:=320;
  Image1.Picture.Bitmap.Height:=240;
  image1.Picture.Bitmap.PixelFormat:=pf24Bit;
  for y := 0 to 239 do begin
    for x := 0 to 959 do
      Line[x]:=Random($FF);
    Move(Line[0],Image1.Picture.Bitmap.ScanLine[y]^,960);
  end;
  Image1.Refresh;
end;