Sharfik
См статью
Добавлено спустя 5 минут 4 секунды:
... Иначе у типа Currency тоже большие проблемы были бы.
Не совсем. Тип Currency является вещественным типом данных с фиксированной точкой (4 десятичных знака после точки), представляющий значения в диапазоне от -922337203685477.5808 до ...
Найдено 66 результатов
- 17.05.2020 20:03:02
- Форум: Free Pascal Compiler
- Тема: Опять плавающая запятая
- Ответы: 8
- Просмотры: 9658
- 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 ...
var
wPlacement: TWindowPlacement;
wRect: TRect;
wTop, wLeft: Integer;
begin
// получение информации об окне
wPlacement.Length := SizeOf(wPlacement);
if GetWindowPlacement(TCustomForm(Owner).Handle, @wPlacement) then begin
wRect := TCustomForm ...
- 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/
Одна из проблем - Lazarus использует строки UTF-8
Быстрее будет не компилировать, а переносить. При этом заменять компоненты Delphi на компоненты Lazarus.
Если каких-то не хватает, то можно установить прямо из Lazarus или воспользоваться https://sourceforge.net/projects/lazarus-ccr/
- 19.01.2020 21:46:32
- Форум: Lazarus
- Тема: TStringGrid - перехват изменения текста ячейки
- Ответы: 5
- Просмотры: 4547
Re: TStringGrid - перехват изменения текста ячейки
Awkward писал(а):Ну, образец в Grids.pas самом же есть, как исправить, но патч для LCL делать и посылать... а можно как-то попроще?
Исправляете Grid.pas и пересобираете Lazarus. Желательно сохранить оригинальный файл, чтобы при следующем обновлении Lazarus мучительно не вспоминать, что же было изменено
- 15.12.2019 12:19:51
- Форум: Разработки на нашем сайте
- Тема: Расчёт зарплаты предприятия
- Ответы: 16
- Просмотры: 63933
Re: Расчёт зарплаты предприятия
Посмотрел, я на DCL5 делал круче.
Ну да. Выше нас только горы, круче нас только яйца
Во-первых, речь идёт о разработке на Lazarus
Во-вторых, и это более принципиально, представлено универсальное решение с гибкой настройкой (а не вшитыми в ПО правилами расчёта заточенными на конкретное ...
Ну да. Выше нас только горы, круче нас только яйца
Во-первых, речь идёт о разработке на Lazarus
Во-вторых, и это более принципиально, представлено универсальное решение с гибкой настройкой (а не вшитыми в ПО правилами расчёта заточенными на конкретное ...
- 08.01.2019 18:36:01
- Форум: Разработки на нашем сайте
- Тема: JCL
- Ответы: 61
- Просмотры: 98305
Re: JCL
Чем предложенный вариант отличается от https://sourceforge.net/projects/lazaru ... es/jvcllaz?
Меня интересовала реализация JvInterpreter - но её нет в обоих вариантах (когда-то делал свой велосипед на основе RaLib)
Меня интересовала реализация JvInterpreter - но её нет в обоих вариантах (когда-то делал свой велосипед на основе RaLib)
- 29.12.2018 22:31:58
- Форум: Lazarus
- Тема: Внесение данных в StringGrid
- Ответы: 23
- Просмотры: 16107
Re: Внесение данных в StringGrid
skobanev писал(а):DrawGrid я попробую.
Если всё устаивает с StringGrid, то как вариант сделать свой компонент по аналогии, но "заточенный" на ваши данные.
PS.Cвой Grid, ориентированный на тонкую БД, делал по образу DbGrid
- 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 ...
"Так можно таскать мышкой TPanel по форме в run-time'е.
Поместите на форму TPanel и напишите обработчик события OnMauseDown,
запустите программу и задвинте эту панель подальше.
procedure TForm1.Panel1MouseDown ...
- 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
timeSetEvent, timeKillEvent
Пример использования, офрмленный в виде компонента
http://www.programmersforum.ru/showpost.php?p=1158557&postcount=7
- 22.05.2018 10:40:40
- Форум: Разработки на нашем сайте
- Тема: Расчёт зарплаты предприятия
- Ответы: 16
- Просмотры: 63933
Re: Расчёт зарплаты предприятия
Обновлениа программа - версия 8.01 от 07.05.2018 года
База ФИАС по состоянию на 17.05.2018 года
Для обновления программы с сохранением ранее введённых данных нужно распаковать архив в новое место и выполнить действия, указанные в файле update.txt
База ФИАС по состоянию на 17.05.2018 года
Для обновления программы с сохранением ранее введённых данных нужно распаковать архив в новое место и выполнить действия, указанные в файле update.txt
- 12.03.2018 01:06:31
- Форум: Разработки на нашем сайте
- Тема: Учёт ТМЦ (склад)
- Ответы: 12
- Просмотры: 29812
Re: Учёт ТМЦ (склад)
Версия обновлена: 5.01 от 11.03.2018 года
- 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, создаём свой тип с заменой ...
На основе variant из исходников 32-битного FPC, создаём свой тип с заменой ...
- 28.02.2018 22:58:32
- Форум: Lazarus
- Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
- Ответы: 24
- Просмотры: 30626
Re: LibreOffice-DELPHI-Lazarus-OpenOffice
Возможно поможет uOpenOffice и обсуждение
Как правильно писали выше, OLE хорош для небольших отчётов. При формировании отчёта листов на 400-500 (например расчётные листки) будут серьёзные проблемы
Как правильно писали выше, OLE хорош для небольших отчётов. При формировании отчёта листов на 400-500 (например расчётные листки) будут серьёзные проблемы
- 18.02.2018 16:45:15
- Форум: Lazarus
- Тема: LibreOffice-DELPHI-Lazarus-OpenOffice
- Ответы: 24
- Просмотры: 30626
Re: LibreOffice-DELPHI-Lazarus-OpenOffice
... Вот и пришлось изучать другие технологии
Для формирования отчётов в своих проектах использую RTF, как обычный текстовый файл. Если не сильно заморачиваться с оформлением, то можно генерировать непосредственно в программе. Для вариантов без возможности исправления шаблонов отчётов ...
Для формирования отчётов в своих проектах использую RTF, как обычный текстовый файл. Если не сильно заморачиваться с оформлением, то можно генерировать непосредственно в программе. Для вариантов без возможности исправления шаблонов отчётов ...
- 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;
procedure DLLShowMes(fm:Pointer);
var EXEProc:TProcImp_MyShowMes;
begin
EXEProc:=TProcImp_MyShowMes(GetProcAddress(GetModuleHandle(nil), 'Imp_MyShowMes'));
EXEProc(fm, 'Привет из ДЛЛЛ'); какая из fm используется и инициализирована ли она
end;
