FreePascal.ru

Запуск -> Очистить и собрать

Прошу прощения, забыл про опции:

TsWorksheet.Options:= TsWorksheet.Options + [soHasFrozenPanes];

Вот рабочий пример:

procedure Test;
var
WBook: TsWorkbook;
WSheet: TsWorksheet;
i,j: Cardinal;
begin
WBook:= TsWorkbook.Create;
try
WSheet:= WBook ...

Закрепление

Как поправить?
PROGRAM TEST1;

TYPE
FUNIN = FUNCTION : INTEGER;

function MyFunc: Integer;
begin
MyFunc:= 100; // здесь Ваш расчет нужного значения
end;

VAR
SGETMAXY : FUNIN;
K7:INTEGER;
BEGIN
SGETMAXY:= @MyFunc;
K7:=SGETMAXY DIV 50;
END.

Процедурный тип мало ...

Решение в лоб - подбирать такой Font.Size, для которого Canvas.TextWidth или Canvas.TextHeight будет максимально приближено к нужному значению. Но тут есть нюансы.

Доступные шрифты есть в Screen.Fonts. Далее копать в сторону характеристик шрифта, чтобы понять, что он моноширинный.

С шашечками ехать

прошу прощения, смотрел со смарта, видимо, не заметил
тем не менее, английский вариант поднял наверх, спасибо за совет

Добавлено спустя 18 минут 29 секунд:
(Сообщение удалено автором в связи с неадекватной реакцией топикстартера)
(Сообщение удалено автором в связи с неадекватной реакцией ...

Имеешь ввиду, что надо поменять местами: английский вверх, а русский вниз? Так там оба варианта - и русский и английский - даже на смартфоне на одном экране видны. Или принципиально важно, чтобы английский выше был?

За компонент спасибо.
У них там закидывание файлов какое-то время назад сильно упростилось и стало похоже на работу с обычным файловым менеджером. Если неохота заморачиваться с командами svn, то можно открыть github в браузере, ткнуть на кнопочку "Upload files" перетащить в окошко браузера файл или ...

Я не профессиональный программист, просто хобби. Раньше использовал delphi, но для различных программок для облегчения жизни на работе нужно было что-то свободное, поэтому перешел на fpc/lazarus. А так на домашних компах перешел на Linux, в то время как на работе все на windows, выбор оказался как ...

Модули являются портом для Lazarus модулей ExprDraw и ExprMake для отрисовки математических формул на TCanvas, написанных Антоном Григорьевым на Delphi 5 и опубликованных в 2002 году.
В оригинале использовались функции GDI/Windows API и проприетарный шрифт Times New Roman, что исключало/затрудняло ...

Поддерживаю. Грид шикарный, но последние строки при wordwrap реально пропадают.

А Вы используете FileUtil.UTF8ToSys или LazUTF8.UTF8ToSys? Сейчас нет лазаруса под рукой - посмотрите функции модуля LazUTF8