Последние записи
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
10th
Дек
Как использовать цвета в массиве
Posted by Chas under Delphi
ПОдскажите можно ли в делфи цвету присвоить номер, что бы я мог использовать цвета в цикле и т.п.? Как это было в паскале. Например:
cvet:=1;
cvetnew:=cvet+1;
Serge_Bliznykov
вот заготовочка:
MaxColors = 16;
aColors : array[0..MaxColors-1] of TColor =
(clWhite,clBlack,clSilver,clGray,
clRed,clMaroon,clYellow,clOlive,
clLime,clGreen,clAqua,clTeal,
clBlue,clNavy,clFuchsia,clPurple);
....
var
cvet : integer;
на событии Form1 OnCreate:
begin
cvet := -1;
end;
в вашей процедуре:
if cvet < (MaxColors-1) then Inc(cvet) else cvet := 0;
Pen.Color:=aColors[cvet];
Brush.Color:=aColors[cvet];[/code]
идея, надеюсь, понятна?
тема на форуме
