Einzelnen Beitrag anzeigen

Benutzerbild von TERWI
TERWI

Registriert seit: 29. Mär 2008
Ort: D-49626
381 Beiträge
 
Delphi 11 Alexandria
 
#20

AW: Bitmap.Canvas -> Form.Canvas ... nix zu sehen

  Alt 11. Jul 2018, 15:28
Hölle - es funzt !
Delphi-Quellcode:
procedure TForm_OSD.Update(BitMap : TBitMap);
begin
  if Assigned(Bitmap) then
  begin
    Image.Picture.Bitmap.Assign(BitMap);
// Image.Repaint;
  end;
end;
Allerdings: Es flackert deutlich sichtbar (nervig) in diesen o.g. unrythmischen ABständen, zu denen die Anzeige vorher völlig verschwand.
Spielt dabei anscheinend keine Rolle, ob Image.Repaint ausmarkiert ist oder nicht.
... wenn das flaclern nun noch zu beseitigen wäre ... Hauptgewinn !

@ TiGü:
Logo spielt da ein Thread mit, sonst wäre das alles ein Glücksspiel, bzw. Bild/Ton würden je nach "Abfrage-Umfang" ewig stottern...
Mache ich etwa wie folgt:
- Mein DS-Sink-Filter schickt TS-Datenblöcke (i.d.r. hier 512KB je ca. 0.5s) an alle "zuhörenden OnTsReceive" Methoden.
- Jeder TS-Block wird in eigene Puffer kopiert und dann je ein Thread gestartet, der die Daten auswertet und ggf. anzeigt (Ziel: Anzeige auch eigener Fred).

Geändert von TERWI (11. Jul 2018 um 15:31 Uhr)
  Mit Zitat antworten Zitat