Proszę o pomoc w rozwiązaniu problemu
Użytkownicy standardowego GG, mogą między sobą wysyłać wiadomości tekstowe z możliwością zmiany charakteru czcionki. W tym miejscu chodzi mi o taki charakter czcionki jak bold, italic, underline.
Moje pytanie brzmi. Czy jest możliwość przesyłania za pomocą komponentu THGG wiadomości do standardowego Gadu-Gadu, wiadomości wpisanych w komponencie RichEdit Delphi tak, aby powyższe: bold, italic, underline były widoczne u użytkowników standardowego GG ?
No i oczywiście miałoby to działać w drugą stronę. Czy jak użytkownicy standardowego GG prześlą wiadomość tekstową z wyborem czcionki bold, italic, underline, czy będzie to widoczne w RichEdit Delphi - programie stowrzonym na komponencie THGG ?
Poniższe kody nie wystarczają do tego, aby w standardowym GG pojawiła się czcionka bold, italic, underline.
{FSBold}
if Richedit1.SelAttributes.Style=Richedit1.SelAttributes.Style+[fsbold] then
Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style-[fsbold]
else
Richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsbold]
{FSItalic}
if Richedit1.SelAttributes.Style=Richedit1.SelAttributes.Style+[fsitalic] then
Richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsitalic]
else
Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsitalic]
{FSUnderline}
if Richedit1.SelAttributes.Style=Richedit1.SelAttributes.Style+[fsunderline] then
Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style-[fsunderline]
else
Richedit1.SelAttributes.Style:=Richedit1.SelAttributes.Style+[fsunderline]
{FSStrikeout}
if richedit1.SelAttributes.Style=richedit1.SelAttributes.Style+[fsstrikeout] then
richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style-[fsstrikeout]
else
richedit1.SelAttributes.Style:=richedit1.SelAttributes.Style+[fsstrikeout]
Kolejne pytanko pomocnicze. Czy da się obsłużyć funkcję, której nie przewiduje wersja gg61, chodzi mianowicie o Strikeout ?
Z góry dziękuję ;) .