TImage.Refresh in Lazarus

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

[Captain Albern]

Ich möchte nicht wieder voreilig sein, aber ich glaube, es funktioniert jetzt.

In Graphics.pp habe ich folgenden Hinweis gefunden:
property ScanLine[Row: Integer]: Pointer read GetScanLine; platform; // Use only when wrpped by a begin/endupdate Und wenn ich jetzt das Kopieren in die Scanlines tatsächlich innerhalb von TBitmap.BeginUpdate und TBitmap.EndUpdate ausführe, wird das Bild aktualisiert ausgegeben.

Nebenbei habe ich Folgendes in win32object.inc gefunden

Delphi-Quellcode:

procedure TWin32WidgetSet.DCRedraw(CanvasHandle: HDC);
begin
  // TODO: implement me!
end;

Vielen Dank nochmal für Eure Hilfe !

Gruß
C.A.