Нашел в Интернете еще один пример суммы прописью для FastReport. Переделал его и получилось следующее:
- 2 функции для написания на русском и английском.
При небольшой обработке их легко приспособить под другие языки.
- 3 вида валют: рубли, доллары, евро.
Можно добавить другие валюты.
- дробную часть (копейки, центы) можно отображать цифрами или прописью.
- во вложении пример использования функций как в программе, так и в отчете.

P.S.
Кстати, дабы не засорять код и легко переносить одни и те же функции/процедуры из одного проекта в другой можно воспользоваться следующим способом:
1) сохраните скрипт в отдельный файл .pas и положите его в папку "Script" проекта.
2) в программе на вкладке "Скрипт" в самом верху укажите

uses 'ваш файл.pas'

Эта строка обязательно должны быть самой первой!
Все. Теперь вы спокойно можете использовать функции, процедуры, переменные из данного файла в своей программе. (Совет: для удобного редактирования этого файла можно использовать специальные редакторы для программистов, которые поддерживают подсветку кода, напр., AkelPad, NotePad++, RJ TextEd и другие.).
Плюсы:
- все сторонние часто используемые фрагменты кода находятся в одном файле, которые легко переносятся из одного проекта в другой.
- если необходимо внести правки в функцию/процедуру достаточно открыть данный файл, а затем скопировать его с заменой во все свои проекты.
Минусы:
- файл не шифруется. В качестве простенькой защиты можно поменять или удалить расширение. Но при этом его все равно можно будет открыть в любом текстовом редакторе.

Переделал свой пример. Переписал процедуру на функцию. Теперь он точно работает

Спасибо! Результат обалденный! В новом проекте вообще отказался от верхнего меню. С кнопками проект и визуально и функционально стал значительно лучше.

Ну никак!... Ваш скрипт проекта:

Переделал свой пример. Переписал процедуру на функцию. Теперь он точно работает на версии 1.46. Постарался подробно описать, что за что отвечает и добавил несколько примеров кнопок.
Примечание: есть проблема с отображением иконок при дезактивированном состоянии. Как это решить пока не знаю..
P.S.
Еще раз переделал пример. Разобрался почему некорректно отображаются глифы в неактивном режиме. Для этого в функцию добавил еще одно свойство. Также добавил комментарий, как добиться корректной работы. Единственное, что в комменте забыл указать - файл bmp нужно создавать без альфа-канала! Т.е. максимально 24бит. Добавил больше сотни изображений-примеров (скопировал из папки Delphi).

чтобы активировать кнопку наберите функцию и в нужном месте напишите true или false

Ну никак!... Ваш скрипт проекта:

var
AppPath:String = ExtractFilePath(Application.ExeName);
Btn:TBitBtn; //объявляем глобальную переменную

procedure Form1_OnShow (Sender: string; Action: string);
begin
  ButtonCreate('btnNew',Form1.Panel1,42,42,0,0,alLeft,blGlyphLeft,'', AppPath+'Images\Glyphs\add_card.bmp',@Test,True,True, False);
  ButtonCreate('btnEdit',Form1.Panel1,42,130,50,0,alLeft,blGlyphLeft,'Редактировать', AppPath+'Images\Glyphs\allsoft.bmp',@Test2,True,True,False);
  ButtonCreate('btnTest',Form1.Panel2,70,60,50,0,alTop,blGlyphTop,'Новая кнопка', AppPath+'Images\Glyphs\allsoft.bmp','',True,True,True);

end;

procedure Test();
begin
  ShowMessage('Test');
end;

procedure Test2();
begin
   ShowMessage('Вы нажали на кнопку "Редактировать"');
end;



procedure ButtonCreate (BtnName:String;BtnParent:TWinControl;BtnHeight,BtnWidth,BtnLeft,BtnTop:Integer;BtnAlign:TAlign;BtnLayout:TButtonLayout;BtnCaption,BtnGlyth,BtnProcedure:String;BtnEnabled,BtnVisible,BtnWordWrap:Boolean);
//BtnParent - компонент на котором будет размещена кнопка
//BtnHeight, BtnWidth - высота и ширина кнопки
//BtnLeft, BtnTop - координаты кнопки (слева, сверху)
// BtnAlign - выравнивание кнопки относительно компонента родителя. Может быть alNone - без выравнивания, alBottom - по нижней кромке, alClient - на весь компонент, alLeft - прижать к левой кромке, alRght - прижать к вехней кромке, alTop - по верхней кромке
//Btnlayout - расположение иконки и надписи. blGlyphBottom - иконка снизу, blGlyphLeft- иконка слева, blGlyphRight - иконка справа, blGlyphTop - иконка сверху
//BtnCaption - текст надписи
//BtnGlyth - путь к иконке в формате BMP
//BtnProcedure - процедура для срабатывания по клику
//BtnEnabled - определяет активна кнопка или нет
//BtnVisible - определяет видим компонент или нет
//BtnWordWrap - перенос слов
begin
  Btn:= TBitBtn.Create(BtnParent);
  Btn.Parent:= BtnParent;
  Btn.Name:= BtnName;
  Btn.Height:= BtnHeight;
  Btn.Width:= BtnWidth;
  Btn.Align:= BtnAlign;
  Btn.layout:= BtnLayout;
  Btn.Left:= BtnLeft;
  Btn.Top:= BtnTop;
  Btn.Caption:= BtnCaption;
  Btn.Hint:= BtnHint;
  Btn.Glyph.LoadFromFile(BtnGlyth);
  Btn.Enabled:= BtnEnabled;
  Btn.Visible:= BtnVisible;
  Btn.WordWrap:= BtnWordWrap;
  If BtnProcedure <> '' Then Btn.OnClick:= BtnProcedure;
end;

begin


end.

alex842 wrote:

Создание собственной кнопки со своей иконкой.

Никак не соображу, как в Вашем проекте сделать так:
1) изначально одна кнопка активна, две другие не активны;
2) при клике на активной кнопке она становится не активной, две другие активируются;
3) всплывающие подсказки на этих кнопках - как сделать?

К сожалению до компа доберусь нескоро, а какую версию функции выложил сюда уже не помню. Поэтому попробуйте так:
1. Проверьте в моих комментах к функции, есть ли у нее свойство enabled. Если нет, то добавьте, например, переменную BtnEnable: Boolean в функцию через точку с запятой. Затем вставьте новую строку в раздел begin...end.

Btn.Enabled:= BtnEnable;

Теперь для того, чтобы активировать кнопку наберите функцию и в нужном месте напишите true или false.
2. Также с подсказкой. Если переменной нет, то добавьте переменную BtnHint: string, и объявите её Btn.Hint:= BtnHint;

Создание собственной кнопки со своей иконкой.

Никак не соображу, как в Вашем проекте сделать так:
1) изначально одна кнопка активна, две другие не активны;
2) при клике на активной кнопке она становится не активной, две другие активируются;
3) всплывающие подсказки на этих кнопках - как сделать?

alex842 wrote:

Создание собственной кнопки со своей иконкой.

А не логичнее ли картинки кнопок загрузить в базу (размер ведь у них небольшой), а не хранить в открытой папке Images?

А как это сделать?  У меня фон для окон тоже в папке  Images хранится. Если выбрать  "сохранить изображение в базу и привязать к строке в таблице, это уже будет не фон, а загружаемая картинка.  И эти поля сохранения файлов и картинок в базу , грузятся именно в базу?

alex842 wrote:

Создание собственной кнопки со своей иконкой.

А не логичнее ли картинки кнопок загрузить в базу (размер ведь у них небольшой), а не хранить в открытой папке Images?

Возможно. Нужно будет посмотреть.

Создание собственной кнопки со своей иконкой.

А не логичнее ли картинки кнопок загрузить в базу (размер ведь у них небольшой), а не хранить в открытой папке Images?

• удаление стандартных пунктов главного меню;

• добавление собственных пунктов в главное меню

• удаление стандартного меню грида

• перевод стандартного меню грида

• добавление собственных пунктов в меню грида

Некоторые (свои же процедуры) немного доделал, кое-что поменял. В целом они стали проще в применении.

P.S. Нашёл на форуме, ещё пару опций, которые связаны с настройкой интерфейса. Решил добавить в этот же пример.

frmOptionsdbCore.TabDatabaseLoc.TabVisible := False; //скрываем вкладку "Файл базы данных" в окне настроек.
frmOptionsdbCore.TabSettings.TabVisible := False; //скрываем вкладку "Настройки" в окне настроек.

Файл перезалил.

ничего не понял. посмотрел скрипт, запустил проект. вижу три кнопки. все нажимаются, но результата нет. можно поподробней? я чего то недопонимаю...

Правая кнопка работает. Для двух других процедуры не прописаны.

Good job your buttons and good idea
MVD will display an aspect of increasingly professional

JB