Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
alex198704
2 / 2 / 2
Регистрация: 10.02.2014
Сообщений: 79
#1

Закрашивание Image на форме в случайные цвета - Delphi

09.06.2015, 12:24. Просмотров 322. Ответов 1
Метки нет (Все метки)

помогите с такой задачкой, есть форма с image от 1 до 100, надо чтобы 10 случайных из 100 закрашивались в зеленый цвет, потом из оставшихся 90 5 закрашивались в красный цвет, не могу понять как это реализовать....
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2015, 12:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Закрашивание Image на форме в случайные цвета (Delphi):

Закрашивание с "неприкосновенностью" определённого цвета
Всем привет:) Имеется TImage, на канве которого разными цветами нарисовано...

Image на форме
Приветствую уважаемые форумчане. Можно ли сделать так, чтобы компонент image...

Перетаскивание Image по форме
Пишу мини игру, Вопрос такой как организовать проверку image стоит на своем...

Отображение image на прозрачной форме
Здравствуйте! Имеется форма, на которой расположены компоненты (image), в...

Движение компонента Image по форме
Помогите составить программу. Компонент Image(картинка) должна сама двигаться...

Перемещение Image по форме с ограничениями
Доброго времени суток! Подскажите пожалуйста, как лучше реализовать границы для...

1
Rasomaha
55 / 55 / 37
Регистрация: 11.05.2015
Сообщений: 196
09.06.2015, 12:57 #2
Лучший ответ Сообщение было отмечено alex198704 как решение

Решение

Можно так это сделать
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
var
  AImage: Array [1..100] of TImage;
...
procedure DrawColor(Ind: Byte; Color: TColor);
begin
With AImage[Ind].Canvas, AImage[Ind] do
begin
  Brush.Style:=bsSolid;
  Brush.Color:=Color;
  Pen.Style:=psSolid;
  Pen.Color:=Color;
  Rectangle(0,0,Width,Height);
end;
end;
 
procedure DrawImages;
var
Str: String;
Buf,i: Byte;
begin
Str:='';
Randomize;
For i:=1 to 10 do
begin
  Buf:=Random(100)+1;
  If Pos(ItnToStr(Buf),Str)=0 then
  begin
    DrawColor(Buf, clGreen);
    Str:=Str+IntToStr(Buf)+';';
  end;
end
For i:=1 to 5 do
begin
  Buf:=Random(100)+1;
  If Pos(IntToStr(Buf),Str)=0 then
  begin
    DrawColor(Buf, clRed);
    Str:=Str+IntToStr(Buf)+';';
  end;
end;
end;
Будут вопросы, задавай.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.06.2015, 12:57
Привет! Вот еще темы с решениями:

Анимация разных Image на одной форме
Добрый вечер. Прошу помощи с анимацией картинок на форме. Сама проблема: Есть...

Разработайте приложение, разместив на форме компонент Image
Запрограммируйте: перемещение курсора мыши по холсту Image, рисуя на его...

Надо что бы при нажатии на какой либо Image с картинкой, картинка перекидывалась в пусто Image, а Image на который нажали исчезал.
Имеется 4 Image в 3 из них находятся картинки, а 4 пустой. Надо что бы при...

Вывести на форме n отрезков разного цвета
помогите создать приложение,вывести на форме н отрезков разного цвета, кол-во...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru