Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3890933 Mon, 15 May 2023 16:45:40 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3890933 Цитата ЫукпШ @
Эта книга может быть интересна для решения такой задачи:
Том 4

А теперь тоже самое, но под Lazarus на Linux.]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3890919 Mon, 15 May 2023 10:21:40 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3890919 macomics, можно попытаться использовать
эти функции:
PhysicalToLogicalPointForPerMonitorDPI
LogicalToPhysicalPointForPerMonitorDPI
PhysicalToLogicalPoint
LogicalToPhysicalPoint
Эта книга может быть интересна для решения такой задачи:
Том 4]]> ЫукпШ Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889254 Sat, 08 Apr 2023 07:20:49 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889254
    object Form1: TForm1
      Left = 192
      Top = 124
      Width = 570
      Height = 463
      Caption = 'Form1'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      OldCreateOrder = False
      OnCreate = FormCreate
      OnPaint = FormPaint
      PixelsPerInch = 96
      TextHeight = 13
      object ScrollBar1: TScrollBar
        Left = 160
        Top = 8
        Width = 385
        Height = 17
        LargeChange = 10
        Max = 385
        Min = 1
        PageSize = 0
        Position = 1
        TabOrder = 0
        TabStop = False
        OnScroll = ScrollBar2Scroll
      end
      object ScrollBar2: TScrollBar
        Left = 160
        Top = 32
        Width = 17
        Height = 385
        Kind = sbVertical
        LargeChange = 10
        Max = 385
        Min = 1
        PageSize = 0
        Position = 10
        TabOrder = 1
        TabStop = False
        OnScroll = ScrollBar2Scroll
      end
    end

    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ScktComp, Menus, StdCtrls;
     
    type
      TForm1 = class(TForm)
        ScrollBar1: TScrollBar;
        ScrollBar2: TScrollBar;
        procedure FormPaint(Sender: TObject);
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.dfm}
     
    procedure TForm1.FormCreate(Sender: TObject);
    var
       SDC: HDC;
    begin
       SDC := GetDC(0);
       ScrollBar1.Position := Round(10 * GetDeviceCaps(SDC, LOGPIXELSX) / 25.4);
       ScrollBar2.Position := Round(10 * GetDeviceCaps(SDC, LOGPIXELSY) / 25.4);
    end;
     
    procedure TForm1.FormPaint(Sender: TObject);
    begin
       with Canvas do begin
          MoveTo(10, 10);
          LineTo(10 + ScrollBar1.Position, 10);
          MoveTo(20, 20);
          LineTo(20, 20 + ScrollBar2.Position);
       end;
    end;
     
    procedure TForm1.ScrollBar2Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    begin
       Repaint;
    end;
     
    end.
]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889251 Fri, 07 Apr 2023 21:49:31 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889251 macomics, я даже не могу нагуглить как вручную откалибровать монитор свой, а уж тем паче как это делать через дельфик... :(
Вот, к примеру, как люди "развлекаются" с калибровкой через переустановку драйверов. О каком тут взаимодействии с пользователем может идти речь?..]]> The_Immortal Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889249 Fri, 07 Apr 2023 20:02:37 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889249 Цитата Majestio @
предусмотри свою калибровку!

Поддерживаю. Сделать это не так сложно, но придётся взаимодействовать с пользователем. Иначе не узнать истинный размер.]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889243 Fri, 07 Apr 2023 14:53:29 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889243 Цитата The_Immortal @
Ну DPI и размеры можно же узнавать?

DPI корректны исключительно из технических характеристик матриц, а не то, что отображает венда.
При этом следует понимать, что монитор/дисплей/панель/возможно смартфон - не обязаны работать в предопределенным оптимальном заводском видио-режиме. Андестенд?

P.S. В свое дело я было занялся идентификацией CPU ... но вовремя бросил это неблагодарное дело, когда список CPU превысил 30шт.
P.PS. Если тебе нужен "строгий" сантиметр сетки на экране - предусмотри свою калибровку! Самый надёжный варик - имхо.]]> Majestio Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889207 Fri, 07 Apr 2023 07:20:10 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889207 Majestio,
Цитата Majestio @
Это зависит от заявленной DPI и физических размеров отображаемой области экрана
Ну DPI и размеры можно же узнавать? Касательно DPI, кстати, тоже проблема - Венда всегда возвращает значением 96, такой некий baseline. Как узнать это значение реальное - не ясно.]]> The_Immortal Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889200 Fri, 07 Apr 2023 07:10:10 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889200 Цитата The_Immortal @
Проблема ж, как я понимаю, в невозможности определить размер экрана?

Все упирается в вопрос определения размеров "пикселя". Это зависит от заявленной DPI и физических размеров отображаемой области экрана. По-скольку мы имеем дело с дискретными сущностями, о строгой точности можно забыть. А если принять за экран, к примеру, рекламное табло 20м x 6м, то может и о точности можно забыть, ибо там размер "пикселя" размеру размеру светодиода (а возможно и трех).]]> Majestio Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889198 Fri, 07 Apr 2023 06:18:11 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889198 macomics, мне кажется, дело не в калибровке. Да и как на ноуте калибровать монитор?)
Кстати, у Вас на Lazarus почему-то подлиннее вышло, но у меня все равно это не см.]]> The_Immortal Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889196 Thu, 06 Apr 2023 22:08:13 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889196
Как по горизонтали так и по вертикали. Как на Lazarus под Linux, так и на Delphi7 под Windows 7 на VirtualBox под Linux.
Скрытый текст

VirtualBox Win7
Screenshot_20230407_005539.png (, : 109)

Скрытый текст
Linux wine
Screenshot_20230407_005716.png (, : 98)

Скрытый текст
Linux lazarus
Screenshot_20230407_010547.png (, : 116)
]]> macomics Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889195 Thu, 06 Apr 2023 19:20:27 +0000 Как нарисовать сантиметр https://forum.sources.ru/index.php?showtopic=434221&view=findpost&p=3889195
Рубрика глупых вопросов продолжается. Подскажите, пожалуйста, возможно ли на TImage нарисовать линию длиною ровно одим см, чтобы этот см. соответствовал через экран реальному 1см? При этом, чтобы это был см. на любом мониторе? Как я понимаю, Windows в 100% масштабе возвращает 96 DPI и с этим ничего не поделать? Проблема ж, как я понимаю, в невозможности определить размер экрана?

user posted image]]> The_Immortal Delphi: Общие вопросы