Einzelnen Beitrag anzeigen

Benutzerbild von TERWI
TERWI

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

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

  Alt 18. Jul 2018, 16:56
Nachtrag: .... die Welt ist doch noch nicht untergegangen.
Das o.g. noch mal in meine Update-Methode eingebaut:
Delphi-Quellcode:
procedure TTeletext.UpdateOSD();
var
  ID1, ID2 : cardinal;
begin
  ID1 := MainThreadID;
  ID2 := GetCurrentThreadId; // TThread.CurrentThread.ThreadId;
  if ID1 = ID2 then
    LOG('UpdateOSD', 'Ich bin im Hauptthread')
  else
    LOG('UpdateOSD', 'Ich bin in einen anderen Thread Context:' + IntToStr(ID2));
  if NOT FShowTTxt then exit;
  if NOT Assigned(FOSD) then exit;
  FOutputCS.Enter;
  try
    FOSD.OSDupdate(FBMOSD);
  finally
    FOutputCS.Leave;
  end;
end;
Dazu sagt der LOGGER (bei jedem Aufruf):
Code:
[17:49:36:178] [TTXT - UpdateOSD]: Ich bin in einen anderen Thread Context: 1572
Aha ! Bin ich also doch nicht völlig verkalkt.

Geändert von TERWI (18. Jul 2018 um 16:59 Uhr)
  Mit Zitat antworten Zitat