TImage.Refresh in Lazarus

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

Delphi-Quellcode:

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 :-D

Delphi-Quellcode:

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

Vielen Dank nochmal für Eure Hilfe !

Gruß
C.A.