元件顏色顯示問題 |
|
尚未結案
|
|
blanka
一般會員   發表：7 回覆：7 積分：2 註冊：2003-01-03 發送簡訊給我 |
|
|
deity
尊榮會員  發表：90 回覆：876 積分：678 註冊：2003-05-09 發送簡訊給我 |
|
|
Fishman
尊榮會員  發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
Hi blanka, 先看看關於 Color 的定義
clBlack = TColor($000000); clMaroon = TColor($000080); clGreen = TColor($008000); clOlive = TColor($008080); clNavy = TColor($800000); clPurple = TColor($800080); clTeal = TColor($808000); clGray = TColor($808080); clSilver = TColor($C0C0C0); clRed = TColor($0000FF); clLime = TColor($00FF00); clYellow = TColor($00FFFF); clBlue = TColor($FF0000); clFuchsia = TColor($FF00FF); clAqua = TColor($FFFF00); clLtGray = TColor($C0C0C0); clDkGray = TColor($808080); clWhite = TColor($FFFFFF); StandardColorsCount = 16; clMoneyGreen = TColor($C0DCC0); clSkyBlue = TColor($F0CAA6); clCream = TColor($F0FBFF); clMedGray = TColor($A4A0A0); ExtendedColorsCount = 4; clNone = TColor($1FFFFFFF); clDefault = TColor($20000000); procedure TForm1.Button1Click(Sender: TObject); begin Self.Font.Color := TColor($006B71); end;
------
Fishman |
|
wameng
版主 發表：31 回覆：1336 積分：1188 註冊：2004-09-16 發送簡訊給我 |
TColor 與 HTML COLOR 是不對等的！ TColor 的格式為 $00BBGGRR，而 HTMLCOLOR 為 #RRGGBB。
如：
TColor = $000000FF --> HTML = #FF0000 以下是寫好的轉換函數。
function ColorToHtmlColor(AColor:TColor):string;
var
tmpRGB : TColorRef;
begin
tmpRGB := ColorToRGB(AColor) ;
Result:=Format('#%.2x%.2x%.2x',
[GetRValue(tmpRGB),
GetGValue(tmpRGB),
GetBValue(tmpRGB)]) ;
end;
function HtmlColorToColor(HtmlColor :String):TColor;
begin
if (Length(HtmlColor)=7) and (HtmlColor[1]='#')
then Result := RGB(Strtoint('$' Copy(HtmlColor,2,2))
,Strtoint('$' Copy(HtmlColor,4,2))
,Strtoint('$' Copy(HtmlColor,6,2)));
end;
|
|
blanka
一般會員 發表：7 回覆：7 積分：2 註冊：2003-01-03 發送簡訊給我 |
|
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
發表時間：2005-01-30 23:35:58
IP:61.230.xxx.xxx 未訂閱
系統時間：2024-11-23 12:32:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |