Создание визуальных компонентов вне формы. Печать на принтере без формы - Printer.BeginDoc.

[xwicked]

Приветствую! Помогите новичку.

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var today : TDateTime;
begin
  today := Time;
  RichEdit1.Paragraph.Alignment := taCenter;
  RichEdit1.Lines.add('Отошёл на 15 минут в ' + TimeToStr(today));
  RichEdit1.Print('');
end;

end.

Написал программу "Отошёл на 15 минут". Я часто работаю в офисе, в котором сижу один. Возникает необходимость отойти в магазин или банкомат на 15 минут. Программа при нажатии на кнопку печатает на принтере "Отошёл на 15 минут + текущее время", чтобы народ знал, что я уже подхожу или только отошёл и чтобы не звонили лишний раз.
В таком виде она занимает конские 2.35МБ.
Переписал вот так

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes, Vcl.ComCtrls, Vcl.Dialogs, Vcl.Forms;
var RichEdit1: TRichEdit;
var today : TDateTime;
var taCenter: TAlignment;
var form1: TForm;
begin
  try
    today := Time;
    form1 := TForm.Create(nil);
    RichEdit1 := TRichEdit.Create(nil);
    RichEdit1.Parent := form1;
    RichEdit1.Paragraph.Alignment := taCenter;
    RichEdit1.Lines.add('Отошёл на 15 минут в ' + TimeToStr(today));
    RichEdit1.Print('');
    RichEdit1.Destroy;
    form1.Destroy;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Опять используется форма и остаются конские 2.30МБ.
Я пробовал писать на C++ с Qt-библиотекой, там компоненты создаются все отдельно сами по себе. То есть тотже rechEdit может работать без формы-родителя. Возможно ли такое сделать или это ограничение Delphi?
Версия Delphi 10.3 Community.

Благодарю за ответы!

[Pavia]

А почему бы не сделать прозрачную форму? Тем более прозрачность врубается мышкой настройками. И рамка так же убирается настройками.

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

В таком виде она занимает конские 2.35МБ.

Пишите на WinAPI, выкинте отладочную информацию, упакуйте EXE в сжатий вид.

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

Я пробовал писать на C++ с Qt-библиотекой, там компоненты создаются все отдельно сами по себе. То есть тотже rechEdit может работать без формы-родителя.

Не может, это ограничения VCL. В QT тоже не уверен что заведётся.

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

Возможно ли такое сделать или это ограничение Delphi?

Да можно рисовать без формы, я же вам показывал. Вот создаёте свой компонент. Только вот что-бы получить сообщение на перерисовку он всё-таки должен быть оформлен формой это ограничения виндоуса. Хотя его тоже можно обойти поставить таймер, а далее путём перебора всех форм и посылки им сообщений на перерисовку. И далее рисовать своё поверх.

[xwicked]

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

А почему бы не сделать прозрачную форму? ...

Мне нужно сократить размер программы. Переписывать на WinAPI программу в 3 строчки? Позвольте! Это будет слишком жирно... При подключении Vcl.Dialogs, Vcl.Forms размер программы растёт. Хотя наверное я откажусь от этой затеи потому как в Qt это возможно благодаря тому, что подключается библиотека QtGui целиком. Исполняемый файл 100кб например, а QtGui 25МБ, так что те 2.35 МБ которые получается - это меньше чем у Qt, так как этот екзешник автономен.

[Serge_Bliznykov]

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

Мне нужно сократить размер программы.

Зачем?!!

[digitalis]

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

Переписывать на WinAPI программу в 3 строчки?

Ну так тем более труда не составит.

[xwicked]

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

Зачем?!!

Я хотел прокачать свой скилл и написать эту программу без формы, без конструктора, своими руками. У меня ничего не получилось. Как выяснилось это невозможно. Поэтому теряется смысл в написании таких программ руками. Если будет всё равно подключаться форма, то можно просто обработать другие события или сделать форму прозрачной, как Pavia посоветовал.

[Аватар]

На принтер можно и без визуального компонента. И на экран тоже )

[Alar]

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

программу без формы

без формы можно было сделать даже в делфи 6. Описание объектов не забывай объявлять.

[xwicked]

Сообщение от Аватар

На принтер можно и без визуального компонента. И на экран тоже )

В 3 строчки?
Без

PixelsX:=GetDeviceCaps(printer.Handle, LogPixelsX);
  PixelsY:=GetDeviceCaps(printer.Handle, LogPixelsY);

?

[Аватар]

Printer.BeginDoc;
Printer.Canvas.ТехtOut(0,0,'Буду через 5 минут');
Printer.EndDoc;