Habe noch ein seltsames problem
Meine Funktion
Delphi-Quellcode:
procedure GetInfo;
var
r, r2 : Trect;
StrPos : String;
begin
if SoInfo.Title <> '' then
begin
r := Rect(5, VisInfo^.h -15, VisInfo^.w-100, VisInfo^.h);
DrawText(VisInfo^.VisDC, PChar(SoInfo.Title),
Length(SoInfo.Title), r, DT_BOTTOM or DT_END_ELLIPSIS);
StrPos := GetSongPosStr(SoInfo.Pos);
StrPos := StrPos + '' + GetSongPosStr(1000 * SoInfo.Len);
r2 := Rect(VisInfo^.w-96, VisInfo^.h -15, VisInfo^.w, VisInfo^.h);
DrawText(VisInfo^.VisDC, PChar(StrPos),
Length(StrPos), r2, DT_BOTTOM or DT_END_ELLIPSIS);
end;
end;
Diese zeichnet jetzt den Titel und die Zeit Informationen auf das
DC
Es ist aber nicht alles in Ordnung der Text wird verändert .. Bilder im Anhang
Delphi-Quellcode:
SetBkMode(VisInfo^.VisDC, TRANSPARENT);
//SetBkColor(VisInfo^.VisDC, rgb(0,0,0));
SetTextColor(VisInfo^.VisDC,
RGB(255,255,255));
Font := CreateFont(8, 0, 0, 0, 0, 0, 0, 0,
ANSI_CHARSET,
OUT_DEFAULT_PRECIS,
CLIP_DEFAULT_PRECIS,
DEFAULT_QUALITY,
DEFAULT_PITCH, '
MS Sans Serif');
OldFont := SelectObject(VisInfo^.VisDC, Font);
Das ist aber nur bei SetBkMode TRANSPARENT
Ist der hintergrund schwarz tritt das problem nicht auf.
Kann ich aber nicht lassen da es beschi... aus sieht.
Was gibt es da für eine möglichkeit um das zu unterbinden ?
gruss Emil