Screen-Canvas nur über form refreshen

[_frank_]

danke bitsetter.
wenn man das ganze noch rekursiv baut funktioniert es auch super:

Delphi-Quellcode:

procedure InvalidateControl(control:TWincontrol);
var i:integer;
begin
  control.Invalidate;
  for i:=0 to control.ControlCount-1 do
    if (control.Controls[i] is TWinControl) then
      InvalidateControl(control.Controls[i] as TWinControl);
end;

procedure TForm_DFMPreview.SizeCtrl1EndSizeMove(Sender: TObject;
  State: TSCState);
var r:Trect;
begin
  if cfg.DrawAlignGrid then
  begin
    invalidateControl(self);
  end;
end;

Gruß Frank