Colors/ru: what changed
Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.
| Old | New | Line | |
|---|---|---|---|
| 1 | 1 | ## Обзор | |
| 2 | 2 | ||
| 3 | 3 | В [[LCL]] TColor - это стандартный тип цвета. Он совместим с TColor [[Delphi]]. TColor может представляться *как* в виде значения RGB (3x8bit), *так* и в виде **системного** цвета наподобие **clDefault**. LCL также может работать с системой fpImage, которая использует тип TFPColor (RGBA (4x16bit), а не RGB (3x8bit), как TColor). | |
| 4 | 4 | ||
| 5 | 5 | ### Преобразование значений между TColor и RGB | |
| 6 | 6 | ||
| 7 | 7 | [[Unit|Модуль]] **Graphics** предосталяет следующие [[Function|функции]]: | |
| 8 | 8 | ||
| 9 | 9 | ``` pascal | |
| 10 | 10 | function Blue(rgb: TColor): BYTE; // не работает с системным цветом | |
| 11 | 11 | function Green(rgb: TColor): BYTE; // не работает с системным цветом | |
| 12 | 12 | function Red(rgb: TColor): BYTE; // не работает с системным цветом | |
| 13 | 13 | function RGBToColor(R, G, B: Byte): TColor; | |
| 14 | 14 | procedure RedGreenBlue(rgb: TColor; out Red, Green, Blue: Byte); // не работает с системным цветом | |
| 15 | 15 | function FPColorToTColor(const FPColor: TFPColor): TColor; | |
| 16 | 16 | function TColorToFPColor(const c: TColor): TFPColor; // не работает с системным цветом | |
| 17 | 17 | function IsSysColor(AColor: TColorRef): Boolean; | |
| 18 | 18 | ``` | |
| 19 | 19 | ||
| 20 | 20 | ### Преобразование типа TColor в/из строки | |
| 21 | 21 | ||
| 22 | 22 | Функции для преобразования строк вроде "25500" или "[[Dollar sign|$AA]]0088" или "clNavy" в TColor: | |
| 23 | 23 | ||
| 24 | 24 | - StringToColor | |
| 25 | 25 | - StringToColorDef | |
| 26 | 26 | ||
| 27 | 27 | Чтобы преобразовать TColor в красивую строку, такую как "clNavy" или "\$AA0002": | |
| 28 | 28 | ||
| 29 | 29 | - ColorToString | |
| 30 | 30 | ||
| 31 | 31 | ### Преобразование типа TColor в/из HTML-строки \#rrggbb | |
| 32 | 32 | ||
| 33 | 33 | Смотрите код в [[Convert color to/from HTML|Преобразовать цвет в/из HTML]]. | |
| 34 | 34 | ||
| 35 | 35 | ## Таблица стандартных цветов | |
| 36 | 36 | ||
| 37 | 37 | Предусмотрено около 20 предопределенных цветовых [[Constant|Констант]], которые совместимы с Delphi: | |
| 38 | 38 | ||
| 39 | 39 | | Цветовая константа | Описание цвета | [[Hexadecimal/ru|Шестнадцатеричное]] представление для использования с TColor | Пример | | |
| 40 | 40 | |----|----|----|----| | |
| 41 | 41 | | clBlack | Черный | TColor(\$000000); | | | |
| 42 | 42 | | clMaroon | Темно-бордовый | TColor(\$000080); | | | |
| 43 | 43 | | clGreen | Зеленый | TColor(\$008000); | | | |
| 44 | 44 | | clOlive | Оливково-зеленый | TColor(\$008080); | | | |
| 45 | 45 | | clNavy | Темно-синий | TColor(\$800000); | | | |
| 46 | 46 | | clPurple | Темно-фиолетовый | TColor(\$800080); | | | |
| 47 | 47 | | clTeal | Сине-зеленый | TColor(\$808000); | | | |
| 48 | 48 | | clGray | Серый | TColor(\$808080); | | | |
| 49 | 49 | | clSilver | Серебристый | TColor(\$C0C0C0); | | | |
| 50 | 50 | | clRed | Красный | TColor(\$0000FF); | | | |
| 51 | 51 | | clLime | Салатовый | TColor(\$00FF00); | | | |
| 52 | 52 | | clYellow | Желтый | TColor(\$00FFFF); | | | |
| 53 | 53 | | clBlue | Синий | TColor(\$FF0000); | | | |
| 54 | 54 | | clFuchsia | Фуксия | TColor(\$FF00FF); | | | |
| 55 | 55 | | clAqua | Голубой | TColor(\$FFFF00); | | | |
| 56 | 56 | | clLtGray | Светло-серый | TColor(\$C0C0C0); | псевдоним для clSilver | | |
| 57 | 57 | | clDkGray | Темно-серый | TColor(\$808080); | псевдоним для clGray | | |
| 58 | 58 | | clWhite | Белый | TColor(\$FFFFFF); | | | |
| 59 | 59 | | clCream | Кремовый | TColor(\$F0FBFF); | Lazarus 1.2 и новее | | |
| 60 | 60 | | clMedGray | Средне-серый | TColor(\$A4A0A0); | Lazarus 1.2 и новее | | |
| 61 | 61 | | clMoneyGreen | Денежная зелень | TColor(\$C0DCC0); | Lazarus 1.2 и новее | | |
| 62 | 62 | | clSkyBlue | Небесно-голубой | TColor(\$F0CAA6); | Lazarus 1.2 и новее | | |
| 63 | 63 | ||
| 64 | 64 | ## Системные цвета | |
| 65 | 65 | ||
| 66 | 66 | ### Пример: clInfoBk, clInfoText | |
| 67 | 67 | ||
| 68 | 68 | Системные цвета - это цветовые константы с особым значением. Их реальное значение зависит от контекста и темы. Они не являются просто цветом. Например, **clInfoBk**: | |
| 69 | 69 | ||
| 70 | 70 | ``` pascal | |
| 71 | 71 | Form1.Canvas.Brush.Color:=clInfoBk; // используем цвет кисти по умолчанию для фона в окнах подсказок | |
| 72 | 72 | Form1.Canvas.FillRect(10,10,50,50); | |
| 73 | 73 | ``` | |
| 74 | 74 | ||
| 75 | 75 | Окно подсказок в MS Windows может иметь белый фон, поэтому вышеприведенный цвет будет отображаться белым. В Linux/gtk2 это может быть металлическая текстура, поэтому вышеприведенный будет рисовать текстуру. Если вы хотите поместить какой-либо текст в это окно, вам понадобится соответствующий контрастный цвет, например, **clInfoText**, иначе ваш текст может быть нечитаемым для пользователя. Например: | |
| 76 | 76 | ||
| 77 | 77 | ``` pascal | |
| 78 | 78 | Form1.Canvas.Brush.Color:=clInfoBk; // используем цвет кисти по умолчанию для фона в окнах подсказок | |
| 79 | 79 | Form1.Canvas.FillRect(10,10,50,50); | |
| 80 | 80 | Form1.Canvas.Font.Color:=clInfoText; // используем цвет текста по умолчанию в окнах подсказок | |
| 81 | 81 | Form1.Canvas.TextOut(10,10,'Hint'); | |
| 82 | 82 | ``` | |
| 83 | 83 | ||
| 84 | 84 | Системный цвет **clInfoBk** не может использоваться для Pen.Color и Font.Color. Если вы сделаете это, результат не определен и зависит от набора виджетов и пользовательской темы. То же самое для **clInfoText**: он может использоваться только как Font.Color. Использование его в качестве Brush.Color может не работать. На данный момент все виджеты позволяют использовать его как Pen.Color. | |
| 85 | 85 | ||
| 86 | 86 | ### Изменения темы | |
| 87 | 87 | ||
| 88 | 88 | Когда пользователь переключает тему, системные цвета меняются. **ClInfoBk** может измениться с белого на синий или с цвета на текстуру. Это изменение произойдет, когда вы назначите новый дескриптор кисти. Имейте в виду, что простое присвоение `Brush.Color:=clInfoBk` не назначает дескриптор кисти. Дескриптор кисти назначается в процессе использования. Например: | |
| 89 | 89 | ||
| 90 | 90 | ``` pascal | |
| 91 | 91 | Form1.Canvas.Brush.Color:=clInfoBk; // это не создаст новый дескриптор кисти | |
| 92 | 92 | Form1.Canvas.FillRect(10,10,50,50); // а это создаст дескриптор кисти с текущей активной кистью темы для окон подсказок | |
| 93 | 93 | ... | |
| 94 | 94 | // если тема меняется в этот момент, Brush.Handle все еще заполнен старыми значениями | |
| 95 | 95 | ... | |
| 96 | 96 | Form1.Canvas.FillRect(10,10,50,50); // это все еще будет рисоваться кистью старой темы | |
| 97 | 97 | Form1.Canvas.Brush.Color:=clInfoBk; // присвоение старого значения не создаст новый дескриптор кисти | |
| 98 | 98 | Form1.Canvas.FillRect(10,10,50,50); // это все еще будет рисоваться кистью старой темы | |
| 99 | 99 | Form1.Canvas.Brush.Color:=clRed; // присвоение нового цвета, старый Handle недействителен | |
| 100 | 100 | Form1.Canvas.Brush.Color:=clInfoBk; // присвоение нового цвета, старый Handle недействителен | |
| 101 | 101 | Form1.Canvas.FillRect(10,10,50,50); // это создаст новый дескриптор и нарисует новую тему | |
| 102 | 102 | ``` | |
| 103 | 103 | ||
| 104 | 104 | ### Таблица системных цветов | |
| 105 | 105 | ||
| 106 | 106 | В следующей таблице перечислены системные цвета и их значение. Использование их вне описанной области неоднозначно, и результат зависит от набора виджетов и темы. Например, **clDefault** - обычная кисть фона используемого контекста устройства. Если вы хотите рисовать элементы кнопок на своих собственных элементах управления, используйте функции рисования модуля **Themes**. | |
| 107 | 107 | ||
| 108 | - | ||
| 109 | - | ||
| 110 | - | ||
| 111 | - | ||
| 112 | - | ||
| 113 | - | ||
| 114 | - | ||
| 115 | - | ||
| 116 | - | ||
| 117 | - | ||
| 118 | - | ||
| 119 | - | ||
| 120 | - | ||
| 121 | - | ||
| 122 | - | ||
| 123 | - | ||
| 124 | - | ||
| 125 | - | ||
| 126 | - | ||
| 127 | - | ||
| 128 | - | ||
| 129 | - | ||
| 130 | - | ||
| 131 | - | ||
| 132 | - | ||
| 133 | - | ||
| 134 | - | ||
| 135 | - | ||
| 136 | - | ||
| 137 | - | ||
| 138 | - | ||
| 139 | - | ||
| 140 | - | ||
| 141 | - | ||
| 142 | - | ||
| 143 | - | ||
| 144 | - | ||
| 145 | - | ||
| 146 | - | ||
| 147 | - | ||
| 148 | - | ||
| 149 | - | ||
| 150 | - | ||
| 151 | - | ||
| 152 | - | ||
| 153 | - | ||
| 154 | - | ||
| 155 | - | ||
| 156 | - | ||
| 157 | - | ||
| 158 | - | ||
| 159 | - | ||
| 160 | - | ||
| 161 | - | ||
| 162 | - | ||
| 163 | - | ||
| 164 | - | ||
| 165 | - | ||
| 166 | - | ||
| 167 | - | ||
| 168 | - | ||
| 169 | - | ||
| 170 | - | ||
| 171 | - | ||
| 172 | - | ||
| 173 | - | ||
| 174 | - | ||
| 175 | - | ||
| 176 | - | ||
| 177 | - | ||
| 178 | - | ||
| 179 | - | ||
| 180 | - | ||
| 181 | - | ||
| 182 | - | ||
| 183 | - | ||
| 184 | - | ||
| 185 | - | ||
| 186 | - | ||
| 187 | - | ||
| 188 | - | ||
| 189 | - | ||
| 190 | - | ||
| 191 | - | ||
| 192 | - | ||
| 193 | - | ||
| 194 | - | ||
| 195 | - | ||
| 196 | - | ||
| 197 | - | ||
| 198 | - | ||
| 199 | - | ||
| 200 | - | ||
| 201 | - | ||
| 202 | - | ||
| 203 | - | ||
| 204 | - | ||
| 205 | - | ||
| 206 | - | ||
| 207 | - | ||
| 208 | - | ||
| 209 | - | ||
| 210 | - | ||
| 211 | - | ||
| 212 | - | ||
| 213 | - | ||
| 214 | - | ||
| 215 | - | ||
| 216 | - | ||
| 217 | - | ||
| 218 | - | ||
| 219 | - | ||
| 220 | - | ||
| 221 | - | ||
| 222 | - | ||
| 223 | - | ||
| 224 | - | ||
| 225 | - | ||
| 226 | - | ||
| 227 | - | ||
| 228 | - | ||
| 229 | - | ||
| 230 | - | ||
| 231 | - | ||
| 232 | - | ||
| 233 | - | ||
| 234 | - | ||
| 235 | - | ||
| 236 | - | ||
| 237 | - | ||
| 238 | - | ||
| 239 | - | ||
| 240 | - | ||
| 241 | - | ||
| 242 | - | ||
| 243 | - | ||
| 244 | - | ||
| 245 | - | ||
| 246 | - | ||
| 247 | - | ||
| 248 | - | ||
| 249 | - | ||
| 250 | - | ||
| 251 | - | ||
| 252 | - | ||
| 253 | - | ||
| 254 | - | ||
| 255 | - | ||
| 256 | - | ||
| 257 | - | ||
| 258 | - | ||
| 259 | - | ||
| 260 | - | ||
| 261 | - | ||
| 262 | - | ||
| 263 | - | ||
| 264 | - | ||
| 265 | - | ||
| 266 | - | ||
| 267 | - | ||
| 268 | - | ||
| 269 | - | ||
| 270 | - | ||
| 271 | - | ||
| 272 | - | ||
| 273 | - | ||
| 274 | - | ||
| 275 | - | ||
| 276 | - | ||
| 277 | - | ||
| 278 | - | ||
| 279 | - | ||
| 280 | - | ||
| 281 | - | ||
| 282 | - | ||
| 283 | - | ||
| 284 | - | ||
| 285 | - | ||
| 286 | - | ||
| 287 | - | ||
| 288 | - | ||
| 289 | - | ||
| 290 | - | ||
| 291 | - | ||
| 292 | - | ||
| 293 | - | ||
| 294 | - | ||
| 295 | - | ||
| 296 | - | ||
| 297 | - | ||
| 298 | - | ||
| 299 | - | ||
| 300 | - | ||
| 301 | - | ||
| 302 | - | ||
| 303 | - | ||
| 304 | - | ||
| 305 | - | ||
| 306 | - | ||
| 307 | - | ||
| 308 | - | ||
| 309 | - | ||
| 310 | - | ||
| 311 | - | ||
| 312 | - | ||
| 313 | - | ||
| 314 | - | ||
| 315 | - | ||
| 316 | - | ||
| 317 | - | ||
| 318 | - | ||
| 319 | - | ||
| 320 | - | ||
| 321 | - | ||
| 322 | - | ||
| 323 | - | ||
| 324 | - | ||
| 325 | - | ||
| 326 | - | ||
| 327 | - | ||
| 328 | - | ||
| 329 | - | ||
| 330 | - | ||
| 331 | - | ||
| 332 | - | ||
| 333 | - | ||
| 334 | - | ||
| 335 | - | ||
| 336 | - | ||
| 337 | - | ||
| 338 | - | ||
| 339 | - | ||
| 340 | - | ||
| 341 | - | ||
| 342 | - | ||
| 343 | - | ||
| 344 | - | ||
| 345 | - | ||
| 346 | - | ||
| 347 | - | ||
| 348 | - | ||
| 349 | - | ||
| 350 | - | ||
| 351 | - | ||
| 352 | - | ||
| 353 | - | ||
| 108 | + | **Константа** | |
| 109 | + | ||
| 110 | + | **Определение LCL** | |
| 111 | + | ||
| 112 | + | **Delphi notes** | |
| 113 | + | ||
| 114 | + | **Поддерживаемые наборы виджетов** | |
| 115 | + | ||
| 116 | + | clNone | |
| 117 | + | ||
| 118 | + | Обозначает «не раскрашивать». Использование его в качестве цвета элемента управления не определено. Элемент управления не станет прозрачным. | |
| 119 | + | ||
| 120 | + | \- | |
| 121 | + | ||
| 122 | + | все | |
| 123 | + | ||
| 124 | + | clDefault | |
| 125 | + | ||
| 126 | + | Означает, что применительно к кисти будет использоваться обычный фон целевого DC (контекст устройства). | |
| 127 | + | ||
| 128 | + | - На холсте формы *FillRect* закрашивает прямоугольную область, заполненную обычным фоном стандартного окна. Это то, что определяет набор виджетов и тема. Это может быть серый цвет, или градиент, или изображение. | |
| 129 | + | - Использование clDefault на холсте TListBox будет рисовать с нормальным фоном, который обычно белый в Windows. Таким образом, в TListBox clDefault совпадает с clWindow. | |
| 130 | + | - При использовании его в качестве цвета пера будет задействован цвет линии по умолчанию для контекста устройства. | |
| 131 | + | - При использование его в качестве цвета шрифта будет задействован обычный цвет текста контекста устройства. | |
| 132 | + | ||
| 133 | + | \| - | |
| 134 | + | ||
| 135 | + | все | |
| 136 | + | ||
| 137 | + | clScrollBar | |
| 138 | + | ||
| 139 | + | Тело полосы прокрутки | |
| 140 | + | ||
| 141 | + | \- | |
| 142 | + | ||
| 143 | + | все | |
| 144 | + | ||
| 145 | + | clBackground | |
| 146 | + | ||
| 147 | + | Цвет фона рабочего стола | |
| 148 | + | ||
| 149 | + | \- | |
| 150 | + | ||
| 151 | + | все | |
| 152 | + | ||
| 153 | + | clActiveCaption | |
| 154 | + | ||
| 155 | + | Строка заголовка активного окна | |
| 156 | + | ||
| 157 | + | \- | |
| 158 | + | ||
| 159 | + | никакой | |
| 160 | + | ||
| 161 | + | clInactiveCaption | |
| 162 | + | ||
| 163 | + | Строка заголовка неактивного окна | |
| 164 | + | ||
| 165 | + | \- | |
| 166 | + | ||
| 167 | + | никакой | |
| 168 | + | ||
| 169 | + | clMenu | |
| 170 | + | ||
| 171 | + | Обычный цвет пункта меню | |
| 172 | + | ||
| 173 | + | \- | |
| 174 | + | ||
| 175 | + | никакой | |
| 176 | + | ||
| 177 | + | clWindow | |
| 178 | + | ||
| 179 | + | Обычная фоновая кисть невыделенного текста. Определено для элементов управления, таких как TEdit, TComboBox, TMemo, TListBox, TTreeView. | |
| 180 | + | ||
| 181 | + | \- | |
| 182 | + | ||
| 183 | + | никакой | |
| 184 | + | ||
| 185 | + | clWindowFrame | |
| 186 | + | ||
| 187 | + | Цвет рамки вокруг окна | |
| 188 | + | ||
| 189 | + | \- | |
| 190 | + | ||
| 191 | + | никакой | |
| 192 | + | ||
| 193 | + | clMenuText | |
| 194 | + | ||
| 195 | + | Цвет шрифта для использования вместе с clMenu | |
| 196 | + | ||
| 197 | + | \- | |
| 198 | + | ||
| 199 | + | никакой | |
| 200 | + | ||
| 201 | + | clWindowText | |
| 202 | + | ||
| 203 | + | Цвет шрифта для использования вместе с clWindow | |
| 204 | + | ||
| 205 | + | \- | |
| 206 | + | ||
| 207 | + | никакой | |
| 208 | + | ||
| 209 | + | clCaptionText | |
| 210 | + | ||
| 211 | + | Цвет строки заголовка активного окна | |
| 212 | + | ||
| 213 | + | \- | |
| 214 | + | ||
| 215 | + | никакой | |
| 216 | + | ||
| 217 | + | clActiveBorder | |
| 218 | + | ||
| 219 | + | ? | |
| 220 | + | ||
| 221 | + | \- | |
| 222 | + | ||
| 223 | + | никакой | |
| 224 | + | ||
| 225 | + | clInactiveBorder | |
| 226 | + | ||
| 227 | + | ? | |
| 228 | + | ||
| 229 | + | \- | |
| 230 | + | ||
| 231 | + | никакой | |
| 232 | + | ||
| 233 | + | clAppWorkspace | |
| 234 | + | ||
| 235 | + | Фон формы MDIMain | |
| 236 | + | ||
| 237 | + | \- | |
| 238 | + | ||
| 239 | + | никакой | |
| 240 | + | ||
| 241 | + | clHighlight | |
| 242 | + | ||
| 243 | + | Цвет кисти выбранного элемента | |
| 244 | + | ||
| 245 | + | \- | |
| 246 | + | ||
| 247 | + | никакой | |
| 248 | + | ||
| 249 | + | clHighlightText | |
| 250 | + | ||
| 251 | + | Цвет шрифта выделенного текста (использовать вместе с clHighligh). | |
| 252 | + | ||
| 253 | + | \- | |
| 254 | + | ||
| 255 | + | никакой | |
| 256 | + | ||
| 257 | + | clBtnFace | |
| 258 | + | ||
| 259 | + | Фон кнопки | |
| 260 | + | ||
| 261 | + | \- | |
| 262 | + | ||
| 263 | + | никакой | |
| 264 | + | ||
| 265 | + | clBtnShadow | |
| 266 | + | ||
| 267 | + | Цвет тени кнопки (внизу справа), используемый для достижения эффекта 3D | |
| 268 | + | ||
| 269 | + | \- | |
| 270 | + | ||
| 271 | + | никакой | |
| 272 | + | ||
| 273 | + | clGrayText | |
| 274 | + | ||
| 275 | + | Цвет шрифта отключенного элемента | |
| 276 | + | ||
| 277 | + | \- | |
| 278 | + | ||
| 279 | + | никакой | |
| 280 | + | ||
| 281 | + | clBtnText | |
| 282 | + | ||
| 283 | + | Цвет шрифта кнопки для использования вместе с clBtnFace | |
| 284 | + | ||
| 285 | + | \- | |
| 286 | + | ||
| 287 | + | никакой | |
| 288 | + | ||
| 289 | + | clInactiveCaptionText | |
| 290 | + | ||
| 291 | + | Цвет текста заголовка неактивного окна | |
| 292 | + | ||
| 293 | + | \- | |
| 294 | + | ||
| 295 | + | никакой | |
| 296 | + | ||
| 297 | + | clBtnHighlight | |
| 298 | + | ||
| 299 | + | Цвет подсветки кнопки (вверху слева), используемый для достижения эффекта 3D | |
| 300 | + | ||
| 301 | + | \- | |
| 302 | + | ||
| 303 | + | никакой | |
| 304 | + | ||
| 305 | + | cl3DDkShadow | |
| 306 | + | ||
| 307 | + | ? | |
| 308 | + | ||
| 309 | + | \- | |
| 310 | + | ||
| 311 | + | никакой | |
| 312 | + | ||
| 313 | + | cl3DLight | |
| 314 | + | ||
| 315 | + | ? | |
| 316 | + | ||
| 317 | + | \- | |
| 318 | + | ||
| 319 | + | никакой | |
| 320 | + | ||
| 321 | + | clInfoText | |
| 322 | + | ||
| 323 | + | Цвет шрифта для окон с подсказками. Используется вместе с clInfoBk | |
| 324 | + | ||
| 325 | + | \- | |
| 326 | + | ||
| 327 | + | все | |
| 328 | + | ||
| 329 | + | clInfoBk | |
| 330 | + | ||
| 331 | + | Цвет кисти для окон с подсказками. Используется вместе с clInfoText | |
| 332 | + | ||
| 333 | + | \- | |
| 334 | + | ||
| 335 | + | все | |
| 336 | + | ||
| 337 | + | clHotLight | |
| 338 | + | ||
| 339 | + | ? | |
| 340 | + | ||
| 341 | + | \- | |
| 342 | + | ||
| 343 | + | никакой | |
| 344 | + | ||
| 345 | + | clGradientActiveCaption | |
| 346 | + | ||
| 347 | + | Второй цвет, используемый для создания градиента строки заголовка активного окна | |
| 348 | + | ||
| 349 | + | \- | |
| 350 | + | ||
| 351 | + | никакой | |
| 352 | + | ||
| 353 | + | clGradientInactiveCaption | |
| 354 | + | ||
| 355 | + | Второй цвет, используемый для создания градиента строки заголовка неактивного окна | |
| 356 | + | ||
| 357 | + | \- | |
| 358 | + | ||
| 359 | + | никакой | |
| 360 | + | ||
| 361 | + | clMenuHighlight | |
| 362 | + | ||
| 363 | + | Цвет фона выбранного пункта меню | |
| 364 | + | ||
| 365 | + | \- | |
| 366 | + | ||
| 367 | + | никакой | |
| 368 | + | ||
| 369 | + | clMenuBar | |
| 370 | + | ||
| 371 | + | Цвет фона строки меню | |
| 372 | + | ||
| 373 | + | \- | |
| 374 | + | ||
| 375 | + | никакой | |
| 376 | + | ||
| 377 | + | clForm | |
| 378 | + | ||
| 379 | + | ? | |
| 380 | + | ||
| 381 | + | \- | |
| 382 | + | ||
| 383 | + | никакой | |
| 384 | + | ||
| 385 | + | clColorDesktop | |
| 386 | + | ||
| 387 | + | ? | |
| 388 | + | ||
| 389 | + | \- | |
| 390 | + | ||
| 391 | + | никакой | |
| 392 | + | ||
| 393 | + | cl3DFace | |
| 394 | + | ||
| 395 | + | ? | |
| 396 | + | ||
| 397 | + | \- | |
| 398 | + | ||
| 399 | + | никакой | |
| 400 | + | ||
| 401 | + | cl3DShadow | |
| 402 | + | ||
| 403 | + | ? | |
| 404 | + | ||
| 405 | + | \- | |
| 406 | + | ||
| 407 | + | никакой | |
| 408 | + | ||
| 409 | + | cl3DHiLight | |
| 410 | + | ||
| 411 | + | ? | |
| 412 | + | ||
| 413 | + | \- | |
| 414 | + | ||
| 415 | + | никакой | |
| 416 | + | ||
| 417 | + | clBtnHiLight | |
| 418 | + | ||
| 419 | + | Такой же как у clBtnHighlight | |
| 420 | + | ||
| 421 | + | \- | |
| 422 | + | ||
| 423 | + | никакой | |
| 354 | 424 | ||
| 355 | 425 | ### Нахождение значений RGB системного цвета | |
| 356 | 426 | ||
| 357 | 427 | Используйте функцию `ColorToRGB` (в модуле `Graphics`), чтобы определить компоненты rgb системного цвета. Эта функция определяет, является ли цвет системным цветом, и, если это так, находится ли системный цвет в цветовой гамме текущей темы. Возвращаемое значение типа [[Longint]] можно понимать как обычный цвет: | |
| 358 | 428 | ||
| 359 | 429 | ``` pascal | |
| 360 | 430 | // в этом примере имеется TColorBox на форме и используется обработчик OnChange для TColorbox: | |
| 361 | 431 | procedure TForm1.ColorBox1Change(Sender: TObject); | |
| 362 | 432 | var | |
| 363 | 433 | c: TColor; | |
| 364 | 434 | begin | |
| 365 | 435 | c := ColorToRGB(ColorBox1.Selected); | |
| 366 | 436 | Caption := Format('R%d G%d B%d', [Red(c), Green(c), Blue(c)]); | |
| 367 | 437 | end; | |
| 368 | 438 | ``` | |
| 369 | 439 | ||
| 370 | 440 | ## Рисование элементов соответственно теме на ваших пользовательских элементах управления | |
| 371 | 441 | ||
| 372 | 442 | Модуль **Themes** предоставляет функции для рисования отдельных элементов стандартных элементов управления. Например, чтобы нарисовать знак раскрытия узла, например, [[TTreeView]], используйте следующий код: | |
| 373 | 443 | ||
| 374 | 444 | ``` pascal | |
| 375 | 445 | uses Themes; | |
| 376 | 446 | ||
| 377 | 447 | ... | |
| 378 | 448 | ||
| 379 | 449 | procedure TYourCustomControl.Paint; | |
| 380 | 450 | const | |
| 381 | 451 | PlusMinusDetail: array[Boolean {Hot}, Boolean {Expanded}] of TThemedTreeview = | |
| 382 | 452 | ( | |
| 383 | 453 | (ttGlyphClosed, ttGlyphOpened), | |
| 384 | 454 | (ttHotGlyphClosed, ttHotGlyphOpened) | |
| 385 | 455 | ); | |
| 386 | 456 | var | |
| 387 | 457 | Details: TThemedElementDetails; | |
| 388 | 458 | R: TRect; | |
| 389 | 459 | Collapse: boolean; | |
| 390 | 460 | begin | |
| 391 | 461 | ... | |
| 392 | 462 | //рисуем знак раскрытия узла дерева соответственно теме | |
| 393 | 463 | Details := ThemeServices.GetElementDetails(PlusMinusDetail[False, Collapse]); | |
| 394 | 464 | R := Rect(ALeft, ATop, ARight + 1, ABottom + 1); | |
| 395 | 465 | ThemeServices.DrawElement(Canvas.Handle, Details, R, nil); | |
| 396 | 466 | ... | |
| 397 | 467 | end; | |
| 398 | 468 | ``` | |
| 399 | 469 | ||
| 400 | 470 | ## См. также | |
| 401 | 471 | ||
| 402 | 472 | - [Цвета в Delphi](http://diversenok.ho.ua/articles/TColor) | |
| 403 | 473 | - [Таблица названий цветов в английском языке](http://www.falsefriends.ru/english-colors.htm) | |
| 404 | 474 | ||
| 405 | 475 | --- | |
| 406 | 476 | *From the Free Pascal wiki, page "Colors/ru", as it stood on 2020-06-03 after a change by Zoltanleo, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).* |
