| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Fenix ©   (2006-03-10 16:22:00) 

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

---

Fenix   (2006-03-10 19:41:00) [1]

> Сергей М. ©   (10.03.06 16:25) [1]
>
> showmessage('#' + inttohex(integer(clBlack), 8));

Спасиобо все работает :)

---

begin...end   (2006-03-10 16:31:00) [2]

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

StringToColor

---

MBo   (2006-03-10 16:28:00) [3]

StringToColor

---

Ega23   (2006-03-10 16:26:00) [4]


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);


?

---

Сергей М.   (2006-03-10 16:25:00) [5]

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

---

Наверх