TImage.Refresh in Lazarus

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

[Captain Albern]

Entschuldigung, ich hoffe es nervt nicht zu sehr, aber die ganzen bisherigen Bemühungen haben nichts gebracht.

Kann bitte jemand einmal ein Code-Beispiel posten, wie mit Lazarus Rasterdaten in irgendeiner Form auf den Bildschirm gezeichnet werden. Und vor allem, wenn sie sich ändern auch aktualisiert dargestellt werden. Nach Möglichkeit ohne irgendwelche zusätzlichen Packages zu installieren.
Vielen Dank im Voraus !

Es sollte aber mit Lazarus funktionieren. Ich habe gerade kein Delphi installiert, aber ich bin mir fast sicher, dass es früher mit Delphi einfach mit einem Refresh ohne große Umstände funktioniert hat.

Gruß
C.A.

[hoika]

Hallo,
vielleicht hilft dir das?
http://forum.lazarus.freepascal.org/...?topic=40433.0

[matashen]

und evtl mal in die canvas.inc gucken, evtl hilft im Draw ein Changing und Changed wie im DrawFocusrect

Delphi-Quellcode:

Procedure TCanvas.Draw(X, Y: Integer; SrcGraphic: TGraphic);
var
  ARect: TRect;
begin
  if not Assigned(SrcGraphic) then exit;
  ARect:=Bounds(X,Y,SrcGraphic.Width,SrcGraphic.Height);
  StretchDraw(ARect,SrcGraphic);
end;

{-----------------------------------------------}
{--  TCanvas.DrawFocusRect --}
{-----------------------------------------------}
procedure TCanvas.DrawFocusRect(const ARect: TRect);
begin
  Changing;
  RequiredState([csHandleValid]);
  LCLIntf.DrawFocusRect(FHandle, ARect);
  Changed;
end;