[delphix] ctrl-alt-del fehler canvas does not allow drawing

[mikeSK]

Code ist sehr einfach. Aber die Nachricht "canvas does not allow drawing" ist schrecklich. Alle Demo Beispiele reagieren auf ctlr+alt+del mit diesem DialogBox.

Delphi-Quellcode:

procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer);
begin
  if not DXDraw.CanDraw then exit;

  DXDraw.Surface.Fill(0);

  with DXDraw.Surface.Canvas do
  begin
    Brush.Style := bsClear;
    Font.Color := clWhite;
    Font.Size := 30;

    if not dxdraw.CanDraw then exit;
      Textout(30, 30, DateTimeToStr(Now));

    Release; {  Indispensability  }
  end;

  DXDraw.Flip;
end;

Ich versuchte auch:

Delphi-Quellcode:

try
  textout...
except
end;

funcioniert nicht

canvas.lock hilft auch nicht

auch Andorra hat diese Probleme (ohne Dialog box, aber the Screen (form) ist schwarz ohne Update)

[edit=SirThornberry]Delphi-Tags gesetzt - nächstes mal bitte selbst machen Mfg, SirThornberry[/edit]