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

[Serge_Bliznykov]

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

Я хотел прокачать свой скилл и написать эту программу без формы, без конструктора, своими руками. У меня ничего не получилось.

непонятно, честно говоря, почему не получилось, ибо для отправки на принтер форма не нужна.
Ну так я не про это спрашивал:

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

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

Зачем Вы хотите сократить размер программы?
Это принципиально?
какая разница будет размер EXE программы 12 килобайт, 50 килобайт, 2 мегабайта, 10 или 50 мегабайт?! Место на диске критично? Собираетесь её раздавать через веб?
В чём смысл этих манипуляций?!

p.s. если был бы смысл в том, чтобы уменьшить размеры программы, то я бы посоветовал Вам взять старый компилятор Delphi + библиотеку KOL & MCK.
Там, например, EXE с формой и с RichEdit на форме занимает 12.8 Кб - https://github.com/rofl0r/KOL/tree/m...demos/richedit

Но это всё неактуально и никому не нужно.
Сейчас банальный PDF вьювер может сто мегабайт "весить". И никого это не пугает и не останавливает.

ОМГ!
я же совсем забыл, что это была ваша тема Размер программы assembler'a или какой мусор добавляют компиляторы других языков? на 6 страниц.
Эта же всё ваша идея-фикс, насчёт "лишнего" в EXE. И Вы всё продолжаете бороться с "ветряными мельницами".
Желаю успехов в вашем безнадёжном деле!

[Alar]

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

ветряными мельницами"

прикольно почитал.
При наличае свободного времени под экономию, нужно заняться бухгалтерией и экономить деньги, путём оптимизации расходов ) Но это опять же при наличие свободного времени )

Переименовал немного тему, по хорошему нужно ещё пример вывода введите ваше имя, шоумессадже хеллоу ваше имя без формы ))

[xwicked]

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

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

Спасибо. 2.26МБ. Не буду заморачиваться. В визуальном компоненте за секунду настраивается шрифт и выравнивание.

[Serge_Bliznykov]

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

Не буду заморачиваться. В визуальном компоненте за секунду настраивается шрифт и выравнивание.

Вот. Именно так. Слова не мальчика, а мужа!

[xwicked]

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

В QT тоже не уверен что заведётся.

#include <QApplication>
#include <QTextEdit>
#include <QPrinter>
#include <QPrintDialog>

int main(int argc, char *argv[])
{
     QApplication app(argc, argv);
     QPrinter printer;
     QPrintDialog *pPrintDialog = new QPrintDialog(&printer);
     QString sPrint = "Go on 15 minutes";
     QTextEdit *textDoc = new QTextEdit;
     textDoc->setHtml(sPrint);
     textDoc->print(&printer);
     delete textDoc;
     delete pPrintDialog;
     return app.exec();
}

Qt более правилен и гибок. Размер екзешника 48 КБ, но к нему идут либы Qt-шные на 14.2МБ, так что Delphi создаёт меньший код, но косолап в плане проектирования программ.

[Pavia]

На том же QT минимальный проект можно сделать в пару килобайт. Когда как в Delphi он будет по более. Вот к примеру 11 кб.

program Project2;

uses
  SysUtils, Dialogs;

var InputString: string;
var today : TDateTime;
begin
  today := Time;
  InputString:= InputBox('Внимание!', 'Эта редиска отошла на 15 минут в ' , TimeToStr(today));
end.