TImage.Refresh in Lazarus

[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;

[Captain Albern]

Ich bin's nochmal.

der letzte Code, den ich gepostet habe funktioniert zwar, ist aber nicht nur eine grauenhafte Umgehungslösung, sondern auch noch sehr langsam. Beim Ändern der Größe wird Speicher neu allokiert und das dauert.

Ich habe gemessen: Für ein Bild mit knapp 2MPixeln dauert das Kopieren der Daten 0,8ms, das Refreshen inkl. Größenänderung dauert >280ms. Das kann keine Lösung sein. Ich würde mich mit 10ms zufrieden geben, wobei ich glaube, dass auch das nicht Stand der Technik ist.

Ich glaube langsam, dass eine Komponente einen Bug hat. Dass es irgendwo ein changed-Flag gibt, das anzeigt, ob das Bild wirklich geändert ist und neu gezeichnet werden soll. Und da stimmt irgendwas nicht. Ich bin mal mit dem Debugger Schritt für Schritt durch Refresh gesteppt, aber da werden soviele administrative Dinge erledigt, da sehe ich nicht durch.

[matashen]

Hi,

schonmal im lcl\include graphic.inc geguckt ob die changed(self) alle sauber drin sind wo es bei dir hakt.
Bin mir nicht sicher ob in dem Code das repaint / refresh sitzt, aber einfach mal durch die includes durchhangeln

[Captain Albern]

Zwischendurch habe ich gedacht, es würde funktionieren, wenn ich ein TBitmap ohne TImage erzeuge, und dieses mit Form.Canvas.Draw direkt auf das Form zeichne. Aber auch das funktioniert nur einmal und aktualisiert dann nicht mehr.

Also habe ich weiter verfolgt, was beim Draw Passiert. Jede Menge administratives Zeug und letztendlich der Aufruf von Windows.BitBlt. Also habe ich das versucht und es gibt immer noch das gleiche Ergebnis: Einmaliges Update.

Mit dem BitBlt habe ich gelernt, dass TBitmap selbst ein TCanvas besitzt und dieses Canvas auf die Ziel-Canvas kopiert wird. Also habe ich mal versucht, nicht nur die Scanlines mit Daten zu füllen, sondern auf dem TBitmap.Canvas etwas zu zeichnen. Und siehe da: DIESE Änderungen werden tatsächlich aktualisiert dargestellt. Es muss also daran liegen, dass das TBitmap die Informationen aus den Scanlines nicht auf das eigene Canvas überträgt. Folgender Beispielcode ändert sowohl die Scanlines und malt ein sich änderndes Rechteck. Selbst wenn die Random jedes Mal die gleichen Daten liefern würden, müssten sie hinter dem Rechteck wieder zum Vorschein kommen, da sie jedes Mal wieder neu in die Scanlines kopiert werden. Das Rechteck wächst aber...

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  B:=TBitmap.Create;
  B.Width:=320;
  B.Height:=240;
  B.PixelFormat:=pf24Bit;
  Counter:=1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var       x,y,w,h : Integer;
          Line    : Array of Record b,g,r : Byte;end;
begin
  Counter:=Counter+1;
  w:=B.Width;
  h:=B.Height;
  SetLength(Line,W);
  for y := 0 to H-1 do begin
    for x := 0 to W-1 do begin
      Line[x].r:=Random($FF);
      Line[x].g:=Random($FF);
      Line[x].b:=Random($FF);
    end;
    Move(Line[0],B.ScanLine[y]^,3*W);
  end;
  SetLength(Line,0);
  B.Canvas.FillRect(10,10,20+Counter,20);
  Canvas.Draw(0,0,B); //die gleiche Wirkung hat...
//  BitBlt(Canvas.Handle, 0, 0, W, H, B.Canvas.Handle, 0, 0, SRCCOPY);
end;