Преобразование названия цветов

← →
Fenix © (2006-03-10 16:22) [0]

Доброе время суток.
Меня интересует возможно ли преобразовать например clBlack в соответствующий ему #000000? Так мне надо сделать для всех цветов палитры....

← →
Сергей М. © (2006-03-10 16:25) [1]

showmessage("#" + inttohex(integer(clBlack), 8));

← →
Ega23 © (2006-03-10 16:26) [2]

unit Graphics; {$P+,S-,W-,R-,T-,X+,H+} {$C PRELOAD} interface uses Windows, SysUtils, Classes; { Graphics Objects } type PColor = ^TColor; TColor = -$7FFFFFFF-1..$7FFFFFFF; {$NODEFINE TColor} (*$HPPEMIT "namespace Graphics"*) (*$HPPEMIT "{"*) (*$HPPEMIT " enum TColor {clMin=-0x7fffffff-1, clMax=0x7fffffff};"*) (*$HPPEMIT "}"*) const clScrollBar = TColor(COLOR_SCROLLBAR or $80000000); clBackground = TColor(COLOR_BACKGROUND or $80000000); clActiveCaption = TColor(COLOR_ACTIVECAPTION or $80000000); clInactiveCaption = TColor(COLOR_INACTIVECAPTION or $80000000); clMenu = TColor(COLOR_MENU or $80000000); clWindow = TColor(COLOR_WINDOW or $80000000); clWindowFrame = TColor(COLOR_WINDOWFRAME or $80000000); clMenuText = TColor(COLOR_MENUTEXT or $80000000); clWindowText = TColor(COLOR_WINDOWTEXT or $80000000); clCaptionText = TColor(COLOR_CAPTIONTEXT or $80000000); clActiveBorder = TColor(COLOR_ACTIVEBORDER or $80000000); clInactiveBorder = TColor(COLOR_INACTIVEBORDER or $80000000); clAppWorkSpace = TColor(COLOR_APPWORKSPACE or $80000000); clHighlight = TColor(COLOR_HIGHLIGHT or $80000000); clHighlightText = TColor(COLOR_HIGHLIGHTTEXT or $80000000); clBtnFace = TColor(COLOR_BTNFACE or $80000000); clBtnShadow = TColor(COLOR_BTNSHADOW or $80000000); clGrayText = TColor(COLOR_GRAYTEXT or $80000000); clBtnText = TColor(COLOR_BTNTEXT or $80000000); clInactiveCaptionText = TColor(COLOR_INACTIVECAPTIONTEXT or $80000000); clBtnHighlight = TColor(COLOR_BTNHIGHLIGHT or $80000000); cl3DDkShadow = TColor(COLOR_3DDKSHADOW or $80000000); cl3DLight = TColor(COLOR_3DLIGHT or $80000000); clInfoText = TColor(COLOR_INFOTEXT or $80000000); clInfoBk = TColor(COLOR_INFOBK or $80000000); 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); clNone = TColor($1FFFFFFF); clDefault = TColor($20000000);

?

← →
MBo © (2006-03-10 16:28) [3]

StringToColor

> Преобразование названия цветов

StringToColor

Преобразование названия цветов Найти похожие ветки