• lima200 (17.04.17 22:50) [0]
    есть разные экранные линейки, ну поиском найдете, сайтов давать не буду, дам картинки: http://tagilnext.ru/images/forum/web/mysize_6.png , https://blogosoft.com/wp-content/uploads/2014/07/lineyka.png

    Вопросы:

    как это на дельфи сделать, самый простой вариант - вер.\гориз. положение (можно по переключателю), точность мм, растягиваемость, нестандартность формы

    спасибо

    d10,starter
  • Игорь Шевченко © (17.04.17 22:54) [1]
  • lima200 (17.04.17 22:57) [2]
    спасиб.
    :) я даже скачивать оттуда не буду, т.к. потом модуль подгонять до d10 опупеешь. вы там версии смотрели? все ниже D Xe. уже проходили.
  • Rouse_ © (17.04.17 23:06) [3]
    Ответы:
    Ручками на канвасе, более подробно Игорь ответил выше
  • Inovet © (17.04.17 23:07) [4]
    > [0] lima200   (17.04.17 22:50)
    > как это на дельфи сделать, самый простой вариант


    > [2] lima200   (17.04.17 22:57)
    > я даже скачивать оттуда не буду, т.к. потом модуль подгонять
    > до d10 опупеешь

    Так всё-таки: как сделать или готовое, и что бы скачал кто-нибудь и установил.
  • Плохиш © (17.04.17 23:11) [5]
    Программиста нанять надобно-с
  • dmk © (17.04.17 23:14) [6]
    У меня так сделано (кусок из горизонтальной линейки):

     //Рисуем деления по горизонтали
     //Цикл по минимальным шагам X
     for lpX := CX to (NumVpDivsX + CX) do
     begin
       //Позиция начала изображения по X
       DestX := Round(RealX) + vpX;
       //Короткий отрезок
       DrawLen := ShortSize;
       //Каждое пятое деление удлиненное
       if ((lpX mod 5) = 0) and (not ShowFrac) then DrawLen := MiddleSize;
       //Каждое десятое деление самое длинное и с текстом
       if ((lpX mod 10) = 0) then
       begin
         DrawLen := LongSize;
         t := (lpX * OneUnit * UnitsInPixel);
         if ShowFrac then
           AStr := ChangeToPoint(FloatToStrR(t, NumFracDigits, true)) else
           AStr := IntToStr(Round(t));
         DrawHText(DestX + 2, 2, hR, AStr, clWhite, 255, 255);
       end;
       //Вертикальное деление
       FHRule.VLineAA(DestX, sY - DrawLen, DrawLen, PenColor, Alpha, Opacity);

       //Следующий шаг
       RealX := (RealX + OneUnit);
     end;//for lpX


    Вот сама линейка:
    https://hostingkartinok.com/show-image.php?id=20e076880fc4f3a1228874e3e3fce81c

    Переключается между пикселами, миллиметрами, сантиметрами, дюймами, пунктами и т.п. можно любые величины сделать.
  • kilkennycat © (18.04.17 06:54) [7]

    > ну поиском найдете

    да, уже бегу искать.
    С таким оформлением вопроса вызывает желание лишь пинка дать.
  • Игорь Шевченко © (18.04.17 10:19) [8]
    lima200   (17.04.17 22:57) [2]

    Извиняюсь, не понял, что это заказ на разработку. Я бы взялся, но боюсь, у вас денег банально не хватит.
  • sniknik © (18.04.17 10:49) [9]
    не, это не заказ, он просто хочет ее... ну, типа мечты, а если вдруг сделает, то как же после жить без мечты??!! :)
  • kilkennycat © (18.04.17 12:33) [10]

    > sniknik ©   (18.04.17 10:49) [9]

    не помню фамилию, но один психолог(?) довольно-таки молодой, написав книжку о мужиках и бабах, покончил с собой. Тут можно также.
  • lima200 (24.04.17 22:46) [11]
    dmk спасибо, вы с картинкой не попутали?

    2 Rouse_
    >> Ручками на канвасе, более подробно Игорь ответил выше
    что он ответил? ссылку дал что в гугле вижу - кучу компонент половину платных, половину неработающих?

    2 all
    я в ваших ответах вижу только злость, и не понятно почему. я вроде спрашиваю то, для чего этот форум сделан. если сказать нечего - не мусорите его не нужными ответами.
  • Игорь Шевченко © (24.04.17 23:00) [12]
Есть новые Нет новых   [118488   +59][b:0][p:0]