FreePascal.ru

Нет, не нашел.
FileDateToDateTime конвертит из LongInt'а, в масштабах LongInt'а (от - 2147483648 до 2147483647)
m

а у меня конкретно QWord, с масштабами QWord ( [0..18446744073709551615] ), как его туда "впихнуть"?
Простое

FileDateToDateTime(LongInt(QWordValue));

увы не помогает. Куда еще ...

Снег Север писал(а):Значения параметров наверняка где-то расписаны

Нашел инфу, спасибо, курю)
https://tickets.puppetlabs.com/browse/P ... ent-363096

Формат FILETIME, нужно как то сконвертировать его хотя бы в SYSTEMTIME.
https://docs.microsoft.com/en-us/window ... systemtime

Похоже всё что нужно нашел, пойду опробую. Результат сохраню для истории тут.
https://www.freepascal.org/docs-html/rt ... etime.html

Здравствуйте.

Возникла тут такая необходимость уточнять, когда в последний раз были синхронизированы часы на компьютере (сейчас Windows, но в принципе интересны и Linux станции).

В Windows существует штатная консольная команда:

w32tm /query /status

Которая в принципе возвращает нужное нам ...

Теме внезапный ап.
Я так понимаю, что штатный TPageControl так и не научился рисовать кнопку закрытия вкладки на самом табе под Windows.
Пытался сделать это самостоятельно, и дошел до следующих изысканий:

TPageControl.TabRect(i);

возвращает нам нужные координаты самого таба, с отрицательными ...

Brainenjii
спасибо. Код переписал. Заработало.
Странно, что с destroy тоже работает.

Ну да ладно. Тему считаю можно закрыть.

Здравствуйте.

Есть TToolBar собранный визуально с кнопками (т.е. в самом редакторе Lazarus, например. А быть может и собранными кнопками runtime).

Хочу создаваемые/удаляемые кнопки runtime.

Начал с того, что бросил в визуальном редакторе на банальную ToolBar1 одну кнопку.

Затем хочу ее удалить ...

Maxizar огромное спасибо!
Оказывается, этот код правильный:



if fsBold then Font.Styles := [fsBold];
if fsItalic then Font.Styles := Font.Styles + [fsItalic];
if fsUnderline then Font.Styles := Font.Styles + [fsUnderline];



я его ...

Много лет уже знаком с Паскалем, однако с этим моментом как-то не приходилось сталкиваться. А теперь не знаю как быть и откуда начинать искать (возможно не правильно формулирую вопрос).

Итак ситуация, есть входящие данные вида (упрощаю информацию, для понимания):

fsBold : boolean;
fsItalic ...

Application.ProcessMessages
Нужен в Windows для основного потока программы потому, что иначе сама Windows (в том числе и XP, просто не так наглядно, как Vista/7 - а лишь повесив надпись в титлбар програмного окна что-то вроде "программа не отвечает") начинает считать ее повисшей. Если-же будет ...

я просто оставлю это здесь:
http://www.opennet.ru/opennews/art.shtml?num=31397

Этот код я публикую под ЖПЛ:
for i:=0 to 100 do
begin
bla_bla_bla(i);
end;

Будьте добры открывать исходники всех программ которые используют его и его модификации.

Моя политика такая, если я выкладываю код делайте с ним всё, что душе угодно, используйте как хотите, иначе смысла в этом нет ...

:idea: во-первых, для системных юзверьских папок, насколько я знаю, в фрипаскале запилены соответствующие функции, надо только поискать, они где-то в SysUtils или в FileUtil
Это да. Есть SysUtils.GetUserDir , однако как нам в Windows узнать путь до папок: Рабочий стол , Мои документы , Recent и ...

В коде проекта вероятно придется вносить изменения, так как если, к примеру, был использован WinAPI, то программа не сможет быть собрана обычным путем для Linux.
(Мне лично всегда приходится использовать WinAPI при написании программ, хотя-бы для того, что-бы узнать где у нас %userprofile% . В Linux ...

VirtualBox + Ubuntu

hinst Спасибо!

Работает так (проект дефолтный, для теста. На форму кидаются нужные компоненты):


uses
{...}
Windows;

{...}
function AnsiFromOem(sIn: string): string;
var
s: string;
begin
s:=sIn;
OemToAnsi(PChar(s),PChar(s));
Result := s;
end ...