Шкала/линейка

[mutabor]

Как по умному сделать линейку (горизонтальную и вертикальную), подобную тем, что в программах типа CorelDraw и т.п.?

[Alex Cones]

На чем? На TImage?

For Y := 0 To TImage.Height Div Zoom Do
 For X := 0 To TImage.Width Div Zoom Do
  TImage.Canvas.MoveTo(X * Zoom, Y * Zoom);
  TImage.Canvas.LineTo(X * Zoom + 5, Y * Zoom);

И т.д.

[mutabor]

Сообщение от Alex Cones

На чем? На TImage?

For Y := 0 To TImage.Height Div Zoom Do
 For X := 0 To TImage.Width Div Zoom Do
  TImage.Canvas.MoveTo(X * Zoom, Y * Zoom);
  TImage.Canvas.LineTo(X * Zoom + 5, Y * Zoom);

И т.д.

Я и спрашиваю. На чем?
Этот способ мне известен. Какие еще есть?

[Ecosasha]

Drawing Engine v.2.00
скачать можно здесь, вроде там и исходники есть, можно посмотреть как реализовано:
http://www.torry.net/pages.php?id=196

[Kotofff]

Посмотри вот.

[Ins]

Я в своем проекте сделал примерно так:
1. Обрабатываем WM_NCCALCSIZE окна, возвращая там область (неклиентскую) под линейку
2. Обрабатываем WM_NCPAINT, чтобы линейку нарисовать
3. Для перерисовки SetWindowPos с флагом SWP_DRAWFRAME
4. Нужно учесть PixelsPerInch, иначе откуда узнаешь сколько пикселей в сантиметре/миллиметре/дюйме?

[mutabor]

Спасибо ребята, как раз вовремя тему подняли, сегодня собирался этим заняться
Мне ближе реализация rsruler, у них там от TGraphicControl унаследовано, мне так легче, на низком уровне в работе с Виндой (как Ins предлагает) я не очень силен. Я примерно так и думал делать, посмотрю как у них сделано, может почерпну что-то для себя, в чистом виде она мне не очень подходит, у меня немного нестандартная задача, мне соотношение с экранными пикселями не нужно, есть свои правила по переводу в мм, но в целом это то что нужно, буду пробовать.