Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Графика, звук, видео
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
BetaSanta
0 / 0 / 0
Регистрация: 13.04.2015
Сообщений: 1
1

Нарисовать на DrawGrid маленький круг в центре ячейки

21.06.2015, 12:14. Просмотров 1001. Ответов 1
Метки нет (Все метки)

Здравствуйте, помогите пожалуйста как можно нарисовать небольшой(маленький) круг в центре ячейки на DrawGrid?
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.06.2015, 12:14
Ответы с готовыми решениями:

Окрашенные ячейки drawgrid
Пытаюсь сделать небольшую игру, возникла проблемка Например закрашиваю ячейку в черный цвет ...

Программный выбор ячейки в DrawGrid
Привет всем! Как программно поместить "пунктирный прямоугольничек" на новую ячейку в DrawGrid? Я...

Круг с цифрой в центре
Подскажите пожалуйста как нарисовать круг с цифрой в центре.

Круг в центре формы
Напишите приложение, которое в заголовке формы выводит ее размеры и координаты на экране, а по...

Получить координаты отдельной ячейки DrawGrid?
Как получить координаты отдельной ячейки DrawGrid?

1
Puporev
Модератор
57476 / 43828 / 30283
Регистрация: 18.05.2008
Сообщений: 104,620
21.06.2015, 13:45 2
Лучший ответ Сообщение было отмечено BetaSanta как решение

Решение

Например так.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.DrawGrid1Click(Sender: TObject);
var d:TRect;
begin
d:=DrawGrid1.CellRect(1,1);//выбираем ячейку для рисования
with DrawGrid1.Canvas do
 begin
  Pen.Color :=clRed;
  with d do
  Ellipse(Left+(Right-Left) div 2-10,Top+(Bottom-Top) div 2-10,
          Left+(Right-Left) div 2+10,Top+(Bottom-Top) div 2+10)
 end;
end;
Добавлено через 6 минут
Или так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
    d:TRect;
begin
with DrawGrid1 do
 begin
  for i:=0 to rowcount-1 do
  for j:=0 to colcount-1 do
   begin
    d:=CellRect(j,i);//выбираем ячейку для рисования
    with Canvas do
     begin
      Pen.Color :=clRed;
      with d do
      Ellipse(Left+(Right-Left) div 2-10,Top+(Bottom-Top) div 2-10,
              Left+(Right-Left) div 2+10,Top+(Bottom-Top) div 2+10)
     end;
   end;
 end;
end;
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2015, 13:45

Как через DrawGrid() нарисовать пять клеток?
Интересует как нарисовать пять клеток подряд, чтобы можно было по ним кликать и менять цвет, пока...

Перемещать круг по периметру расположенного в центре экрана прямоугольника
Перемещать круг по периметру расположенного в центре экрана прямоугольника. Помогите написать...

Перемещать круг по периметру расположенного в центре экрана прямоугольника
Перемещать круг по периметру расположенного в центре экрана прямоугольника


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

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

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