Ik kwam erachter dat als je met NLDMSNP de session.messagefont.color op blauw zet je bij de M$ messenger de text in het rood ontvangt. En bij meer kleuren is dit zo.
Dit komt omdat blijkbaar M$ messenger niet de kleuren in RGB(roodgroenblauw) inleest maar in BGR(blauwgroenrood)
Je verzend blauw in RGB = 0000FF en M$ maakt er rood van wat RGB = FF0000;
Dus hij draait de boel om maar daar waren we al achter.
Oplossing is simpel:
Code:
function TMSNSession.FontColorToStr(Color: TColor): String;
begin
Result := Format('%.2x%.2x%.2x', [GetRValue(Color), GetGValue(Color),
GetBValue(Color)]);
end;
Wordt:
Code:
function TMSNSession.FontColorToStr(Color: TColor): String;
begin
Result := Format('%.2x%.2x%.2x', [GetBValue(Color), GetGValue(Color),
GetRValue(Color)]);
end;
Zo eindelijk zelf eens een probleempje opgelost
Gr. Erwin
Bookmarks