Canvas. Отрисовка заданного количества вертикальных линий с определенным шагом

@Softvok · Регистрация: 04.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите разобраться с проблемой. Есть таблица StringGrid1. В ней будет определенное количество строк. Каждый раз разное. К примеру 10 записей. Необходимо отрисовать графически промежутки между этим количеством строк. Если записей 10, то соответственно промежутков между ними на 1 меньше (9 шт).
Я сначала получаю количество участков с таблицы:

Delphi

1	k:=Form1.StringGrid1.RowCount-2;

Затем получаю пропорциональное расстояние, на каком будут эти разделители отрисовываться на Image1:

Delphi

1	l:=Image1.Width/k;

На канве рисую сначала горизонтальные линии: верх и низ, начало, конец. Затем необходимо нарисовать начиная с начала координат гор. линий - вертикальные. Их высота 40 пикселей. количество промежутков между верт линиями = количеству промежутков между записями в таблице.

Delphi

procedure TUklonForm.BitBtn1Click(Sender: TObject);
var
k:integer;
l:extended;
begin
k:=Form1.StringGrid1.RowCount-2;
l:=Image1.Width/k;
//меняем цвет линии
Image1.Canvas.Pen.Color:=clRed;
//меняем толщину линии
Image1.Canvas.Pen.Width:=2;
//чертим линию
//гор верх
Image1.Canvas.MoveTo(10,50);
Image1.Canvas.LineTo(Image1.Width-10,50);
 //гор низ
Image1.Canvas.MoveTo(10,90);
Image1.Canvas.LineTo(Image1.Width-10,90);
 //верт первая
Image1.Canvas.MoveTo(10,50);
Image1.Canvas.LineTo(10,90);
   //верт последняя
 Image1.Canvas.MoveTo(Image1.Width-10,50);
Image1.Canvas.LineTo(Image1.Width-10,90);
end;

Благодарю всех кто поможет!

@Softvok · 04.11.2013, 11:43 **[ТС]**

Вот картинка для наглядности

@Valenth · 04.11.2013, 13:07

А в чём проблема-то? Отрисовать вертикальные линии с определённым шагом? Так пройдитесь циклом, к примеру так:

Delphi

for i:=0 to k-1 do
begin
Image1.Canvas.MoveTo(i*l, 0);
Image1.Canvas.LineTo(i*l, 40);
end;

Если честно, постановка задачи не совсем ясна.

@Softvok · 04.11.2013, 23:14 **[ТС]**

Вот такая задача и есть. Спасибо! Но есть проблема при умножении i*l:
i:integer;
l:extended;
Если при умножении округлить trunc(l), то сбивается сам промежуток.

04.11.2013, 23:17

Сообщение от Softvok

Если при умножении округлить trunc(l)

Round, Ceil, Floor - выбирай по вкусу.

@Softvok · 04.11.2013, 23:41 **[ТС]**

Благодарю. Округляя с помощью Round, Ceil, Floor - я теряю (или же добавляю) доли этих самых пикселей. вроде как 0,5 пикселей немного, но если участков 30, то 0,5*30=15. Итого накапливается потеря 15 пикселей.

@Valenth · 04.11.2013, 23:44

Сообщение от Softvok

Итого накапливается потеря 15 пикселей.

Ничего там не накапливается, поверьте. Просто длина некоторых промежутков будет +/-1.

@Softvok · 05.11.2013, 00:52 **[ТС]**

Запутался я наверное. Все равно не выходит путное.

Delphi

procedure TUklonForm.BitBtn1Click(Sender: TObject);
var
i,k:integer;
l:extended;
begin
k:=Form1.StringGrid1.RowCount-2;
l:=(Image1.Width-20)/k;
//меняем цвет линии
Image1.Canvas.Pen.Color:=clBlack;
//меняем толщину линии
Image1.Canvas.Pen.Width:=1;
//рисуем вертикальные линии
for i:=0 to k-1 do
begin
Image1.Canvas.MoveTo((i*Ceil(l))+10, 140);
Image1.Canvas.LineTo((i*Ceil(l))+10, 180);
end;
//чертим линию
//гор верх
Image1.Canvas.MoveTo(10,140);
Image1.Canvas.LineTo(Image1.Width-10,140);
 //гор низ
Image1.Canvas.MoveTo(10,180);
Image1.Canvas.LineTo(Image1.Width-10,180);
end;

В итоге получается такая вот картинка(13 участков):

05.11.2013, 00:58

Участков 13, но линий 14.

Delphi

for i := 0 to k do
begin
  Image1.Canvas.MoveTo((i * Ceil(l)) + 10, 140);
  Image1.Canvas.LineTo((i * Ceil(l)) + 10, 180);
end;

@Softvok · 05.11.2013, 01:17 **[ТС]**

Да, пробовал и такое. Помогает при 14 линиях. Но при 22 линиях и for i := 0 to k do выходит:

05.11.2013, 01:34

А так, рисование на канве формы (без TImage)

Delphi

procedure TForm1.Button4Click(Sender: TObject);
var
  I, K : Integer;
  L : Extended;
begin
  K := StringGrid1.RowCount - 2;
  L := (ClientWidth - 20) / k;
  // меняем цвет линии
  Canvas.Pen.Color := clBlack;
  // меняем толщину линии
  Canvas.Pen.Width := 1;
  // рисуем вертикальные линии
  for I := 0 to k do
  begin
    Canvas.MoveTo((I * Round(L)) + 10, 140);
    Canvas.LineTo((I * Round(L)) + 10, 180);
  end;
  // чертим линию
  // гор верх
  Canvas.MoveTo(10, 140);
  Canvas.LineTo(Round(L * K), 140);
  // гор низ
  Canvas.MoveTo(10, 180);
  Canvas.LineTo(Round(L * K), 180);
end;

@Softvok · 05.11.2013, 02:07 **[ТС]**

А так отлично, только в конце еле заметный пиксель или два пустоты. И отчего же на TImage не получается нормально, а на форме почти что отлично?

05.11.2013, 02:12

И на TImage будет так же, мне лень было на форму кидать.

Пустота из-за того, что

Delphi

1	Canvas.LineTo((I * Round(L)) + 10, 180);

The LineTo function draws a line from the current position up to, but not including, the specified point.

исправь на

Delphi

1	Canvas.LineTo((I * Round(L)) + 10, 181);

@Softvok · 05.11.2013, 02:29 **[ТС]**

Благодарю) Насчет 180 на 181 - не совсем понял, ведь это будет координата по игреку, то есть вертикали. А пустой пиксель вылазит по горизонтали. Утром уже буду разбираться дальше)

05.11.2013, 02:32

Когда указывается 180, реально рисуется до 179. Не хочешь по Y, исправь по X

Delphi

1	Canvas.LineTo(Round(L * K), 181);

@Softvok 1 / 1 / 1 Регистрация: 04.10.2012 Сообщений: 45
	04.11.2013, 11:43 [ТС]	2
	Вот картинка для наглядности Миниатюры 0

@Softvok 1 / 1 / 1 Регистрация: 04.10.2012 Сообщений: 45
	04.11.2013, 23:14 [ТС]	4
	Вот такая задача и есть. Спасибо! Но есть проблема при умножении i*l: i:integer; l:extended; Если при умножении округлить trunc(l), то сбивается сам промежуток. 0

angstrom
	04.11.2013, 23:17	5
	Сообщение от Softvok Если при умножении округлить trunc(l) Round, Ceil, Floor - выбирай по вкусу.

@Softvok 1 / 1 / 1 Регистрация: 04.10.2012 Сообщений: 45
	04.11.2013, 23:41 [ТС]	6
	Благодарю. Округляя с помощью Round, Ceil, Floor - я теряю (или же добавляю) доли этих самых пикселей. вроде как 0,5 пикселей немного, но если участков 30, то 0,5*30=15. Итого накапливается потеря 15 пикселей. 0

@Valenth 120 / 110 / 19 Регистрация: 04.11.2013 Сообщений: 471
	04.11.2013, 23:44	7
	Сообщение от Softvok Итого накапливается потеря 15 пикселей. Ничего там не накапливается, поверьте. Просто длина некоторых промежутков будет +/-1. 0

@Softvok 1 / 1 / 1 Регистрация: 04.10.2012 Сообщений: 45
	05.11.2013, 01:17 [ТС]	10
	Да, пробовал и такое. Помогает при 14 линиях. Но при 22 линиях и for i := 0 to k do выходит: Миниатюры 0

@Softvok 1 / 1 / 1 Регистрация: 04.10.2012 Сообщений: 45
	05.11.2013, 02:07 [ТС]	12
	А так отлично, только в конце еле заметный пиксель или два пустоты. И отчего же на TImage не получается нормально, а на форме почти что отлично? Миниатюры 0

@Softvok 1 / 1 / 1 Регистрация: 04.10.2012 Сообщений: 45
	05.11.2013, 02:29 [ТС]	14
	Благодарю) Насчет 180 на 181 - не совсем понял, ведь это будет координата по игреку, то есть вертикали. А пустой пиксель вылазит по горизонтали. Утром уже буду разбираться дальше) 0