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

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

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

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

Нарисовать круг
помогите нарисовать круг

TShape Нарисовать пульсирующий круг
Всем доброго времени суток! У меня есть задание: Нарисовать пульсирующий круг...

Нарисовать по точкам круг в TChart
Подскажите как нарисовать круг по точкам. Использую Point Series. Координаты x...

Как нарисовать на экране круг нужным радиусом?
Как нарисовать на экране круг нужным радиусом? Напр., user вводит в Edit1 число...

Дан круг с центром O(Xc,Yc) и радиусом R. Определить лежит точка M(x,y) в круге или снаружи. Нарисовать
Дан круг с центром O(Xc,Yc) и радиусом R. Определить лежит точка M(x,y) в круге...

1
Puporev
Модератор
55456 / 42567 / 29417
Регистрация: 18.05.2008
Сообщений: 100,703
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.06.2015, 13:45

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

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

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


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

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

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