freepascal.ru

alexs писал(а):И, кстати, логичнее тогда заводить свойство SelectedFont. Если уж управлять шрифтом выделенной ячейки - то управлять полностью.

alexs писал(а):Для отображения символа валюты - он должен быть в UTF8

zoltanleo писал(а):А сложно будет такое свойство добавить?

zoltanleo писал(а):как-то не лежит у меня душа менять системные настройки ОСи,

alexs писал(а): Я в том посте прям готовую процедуру дал. Достаточно её вызвать и установить переменные.

alexs писал(а):Я формат обычно выставляю в поле из DataSet-а.

procedure TForm1.MDcurrGetText(Sender: TField; var aText: string;
  DisplayText: Boolean);
begin
  Application.UpdateFormatSettings:= False;

  if Sender.DataSet.RecNo mod 2 > 0
    then
      begin
        CurrencyFormat:= 2;
        ThousandSeparator:= ',';
        DecimalSeparator:= '.';
        CurrencyString:= '$';
      end
    else
      begin
        ThousandSeparator:= ' ';
        DecimalSeparator:= ',';
        CurrencyFormat:= 3;
        CurrencyString:= 'руб';
      end;

  aText:= FloatToStrF(Sender.AsFloat,ffCurrency,10,2);
end; 

alexs писал(а):И, кстати, логичнее тогда заводить свойство SelectedFont. Если уж управлять шрифтом выделенной ячейки - то управлять полностью.

zoltanleo писал(а):Я внес некоторые правки (r.6148), глянь аттач, плз

zoltanleo писал(а):Alex, ты живой?

alexs писал(а):Можно стандартный диф? который получается по svn diff

alexs писал(а):давай всёже я сделаю selectedFont

alexs писал(а):Готово