Ładny brzuch
Mam taki oto kod:
Textarea.SelText := '<FONT SIZE='+IntToStr(OknoFont.Font.Size)+ ' COLOR='
Co powinienem wpisa dalej aby otrzyma nazw angielska koloru, ale uzyskana wczeniej z okna dialogowego font??
np:
OknoFont.Font.Color ; jakiej funkcji musze uzy, aby mc wyswietli jego angielska nazw lub okreslic go w skali RGB????
Prosze o pomoc!!!
function color2html(color: tcolor): string; begin Result:='#' + IntToHex(GetRValue(color), 2) + IntToHex(GetGValue(color), 2) + IntToHex(GetBValue(color), 2); end;
Nie programuje w delphi ale wydaje mi si e do konwersji TColor na RGB suy funkcja ColorToRGB().
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Textarea.SelText := '<FONT SIZE='+IntToStr(OknoFont.Font.Size)+ ' COLOR='
Co powinienem wpisa dalej aby otrzyma nazw angielska koloru, ale uzyskana wczeniej z okna dialogowego font??
np:
OknoFont.Font.Color ; jakiej funkcji musze uzy, aby mc wyswietli jego angielska nazw lub okreslic go w skali RGB????
Prosze o pomoc!!!
function color2html(color: tcolor): string; begin Result:='#' + IntToHex(GetRValue(color), 2) + IntToHex(GetGValue(color), 2) + IntToHex(GetBValue(color), 2); end;
Nie programuje w delphi ale wydaje mi si e do konwersji TColor na RGB suy funkcja ColorToRGB().