Найдено 66 результатов

LearnMagic
17.05.2020 20:03:02
Форум: Free Pascal Compiler
Тема: Опять плавающая запятая
Ответы: 8
Просмотры: 9658

Re: Опять плавающая запятая

Sharfik
См статью

Добавлено спустя 5 минут 4 секунды:
... Иначе у типа Currency тоже большие проблемы были бы.
Не совсем. Тип Currency является вещественным типом данных с фиксированной точкой (4 десятичных знака после точки), представляющий значения в диапазоне от -922337203685477.5808 до ...
LearnMagic
11.05.2020 15:06:00
Форум: Lazarus
Тема: TForm Maximized предыдущие позиция и размер форм
Ответы: 2
Просмотры: 3407

Re: TForm Maximized предыдущие позиция и размер форм

Если для Windows, то
var
wPlacement: TWindowPlacement;
wRect: TRect;
wTop, wLeft: Integer;
begin
// получение информации об окне
wPlacement.Length := SizeOf(wPlacement);
if GetWindowPlacement(TCustomForm(Owner).Handle, @wPlacement) then begin
wRect := TCustomForm ...
LearnMagic
19.01.2020 21:52:53
Форум: Lazarus
Тема: Возможность компиляции Delphi2 проекта в Lazarus?
Ответы: 26
Просмотры: 20707

Re: Возможность компиляции Delphi2 проекта в Lazarus?

Будет проблематично.
Одна из проблем - Lazarus использует строки UTF-8
Быстрее будет не компилировать, а переносить. При этом заменять компоненты Delphi на компоненты Lazarus.
Если каких-то не хватает, то можно установить прямо из Lazarus или воспользоваться https://sourceforge.net/projects/lazarus-ccr/
LearnMagic
19.01.2020 21:46:32
Форум: Lazarus
Тема: TStringGrid - перехват изменения текста ячейки
Ответы: 5
Просмотры: 4547

Re: TStringGrid - перехват изменения текста ячейки

Awkward писал(а):Ну, образец в Grids.pas самом же есть, как исправить, но патч для LCL делать и посылать... а можно как-то попроще?

Исправляете Grid.pas и пересобираете Lazarus. Желательно сохранить оригинальный файл, чтобы при следующем обновлении Lazarus мучительно не вспоминать, что же было изменено
LearnMagic
15.12.2019 12:19:51
Форум: Разработки на нашем сайте
Тема: Расчёт зарплаты предприятия
Ответы: 16
Просмотры: 63933

Re: Расчёт зарплаты предприятия

Посмотрел, я на DCL5 делал круче.
Ну да. Выше нас только горы, круче нас только яйца
Во-первых, речь идёт о разработке на Lazarus
Во-вторых, и это более принципиально, представлено универсальное решение с гибкой настройкой (а не вшитыми в ПО правилами расчёта заточенными на конкретное ...
LearnMagic
08.01.2019 18:36:01
Форум: Разработки на нашем сайте
Тема: JCL
Ответы: 61
Просмотры: 98305

Re: JCL

Чем предложенный вариант отличается от https://sourceforge.net/projects/lazaru ... es/jvcllaz?
Меня интересовала реализация JvInterpreter - но её нет в обоих вариантах (когда-то делал свой велосипед на основе RaLib)
LearnMagic
29.12.2018 22:31:58
Форум: Lazarus
Тема: Внесение данных в StringGrid
Ответы: 23
Просмотры: 16107

Re: Внесение данных в StringGrid

skobanev писал(а):DrawGrid я попробую.

Если всё устаивает с StringGrid, то как вариант сделать свой компонент по аналогии, но "заточенный" на ваши данные.
PS.Cвой Grid, ориентированный на тонкую БД, делал по образу DbGrid
LearnMagic
16.12.2018 00:38:05
Форум: Lazarus
Тема: Перетаскивание объектов по форме
Ответы: 8
Просмотры: 6758

Re: Перетаскивание объектов по форме

http://www.delphisources.ru/pages/faq/base/panel_mouse_move.html
"Так можно таскать мышкой TPanel по форме в run-time'е.
Поместите на форму TPanel и напишите обработчик события OnMauseDown,
запустите программу и задвинте эту панель подальше.
procedure TForm1.Panel1MouseDown ...
LearnMagic
09.12.2018 20:53:39
Форум: Free Pascal Compiler
Тема: Время работы программы
Ответы: 22
Просмотры: 18624

Re: Время работы программы

Для Linux не подскажу, а для Windows можно посмотреть в сторону мультимедийного таймера.
timeSetEvent, timeKillEvent
Пример использования, офрмленный в виде компонента
http://www.programmersforum.ru/showpost.php?p=1158557&postcount=7
LearnMagic
22.05.2018 10:40:40
Форум: Разработки на нашем сайте
Тема: Расчёт зарплаты предприятия
Ответы: 16
Просмотры: 63933

Re: Расчёт зарплаты предприятия

Обновлениа программа - версия 8.01 от 07.05.2018 года
База ФИАС по состоянию на 17.05.2018 года

Для обновления программы с сохранением ранее введённых данных нужно распаковать архив в новое место и выполнить действия, указанные в файле update.txt
LearnMagic
12.03.2018 01:06:31
Форум: Разработки на нашем сайте
Тема: Учёт ТМЦ (склад)
Ответы: 12
Просмотры: 29812

Re: Учёт ТМЦ (склад)

Версия обновлена: 5.01 от 11.03.2018 года
LearnMagic
01.03.2018 21:19:55
Форум: Free Pascal Compiler
Тема: Прочесть variant из потока (i386>x86_64)
Ответы: 8
Просмотры: 8805

Re: Прочесть variant из потока (i386>x86_64)

Вопрос . В потоке (TFileStream или TMemoryStream) размещена переменная тип Variant, записанная там из кода, скомпилированного в 32-битном режиме FPC. Как прочесть этот же блок памяти из под 64-битного кода FreePascal.

На основе variant из исходников 32-битного FPC, создаём свой тип с заменой ...
LearnMagic
28.02.2018 22:58:32
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30626

Re: LibreOffice-DELPHI-Lazarus-OpenOffice

Возможно поможет uOpenOffice и обсуждение
Как правильно писали выше, OLE хорош для небольших отчётов. При формировании отчёта листов на 400-500 (например расчётные листки) будут серьёзные проблемы
LearnMagic
18.02.2018 16:45:15
Форум: Lazarus
Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
Ответы: 24
Просмотры: 30626

Re: LibreOffice-DELPHI-Lazarus-OpenOffice

... Вот и пришлось изучать другие технологии
Для формирования отчётов в своих проектах использую RTF, как обычный текстовый файл. Если не сильно заморачиваться с оформлением, то можно генерировать непосредственно в программе. Для вариантов без возможности исправления шаблонов отчётов ...
LearnMagic
09.02.2018 19:11:28
Форум: Lazarus
Тема: DLL, string и sharemem
Ответы: 7
Просмотры: 7505

Re: DLL, string и sharemem

var fm:Pointer;

procedure DLLShowMes(fm:Pointer);
var EXEProc:TProcImp_MyShowMes;
begin
EXEProc:=TProcImp_MyShowMes(GetProcAddress(GetModuleHandle(nil), 'Imp_MyShowMes'));
EXEProc(fm, 'Привет из ДЛЛЛ'); какая из fm используется и инициализирована ли она
end;