D2009 Превью не понятно почему так.

Konst

При переходе на 2009 в Дизайнере все русские буквы отображаются нормально
в ChartName забит русский текст

Но если запустить в Превью то почему то
в ChartName приходит - 'РўРµСС‚'
И печатается уже с этими безобразием.
Как это лечется?

  TfrxTest = class(TfrxView)
  private
     FChartName: String;
  public
    constructor Create(AOwner: TComponent); override;
    procedure Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX, OffsetY: Extended); override;
    procedure DrawChartText; virtual;

  published

    property ChartName  :String read FChartName write FChartName;

  end;

implementation

uses frxChBoxRTTI, frxDsgnIntf, frxRes, StrUtils;

constructor TfrxTest.Create(AOwner: TComponent);
begin
  inherited;
  Font.Name  := 'Tahoma';
  Font.Color := clWindowText;
  Font.Style := [];
  Font.Size  := 10;
  Font.CharSet := RUSSIAN_CHARSET;

end;


procedure TfrxTest.Draw(Canvas: TCanvas; ScaleX, ScaleY, OffsetX,
  OffsetY: Extended);
begin
  BeginDraw(Canvas, ScaleX, ScaleY, OffsetX, OffsetY);
  DrawChartText;
end;



procedure TfrxTest.DrawChartText;
var
  s: String;
begin
   with FCanvas do
   begin
        s := FChartName; // В дизайнере нормально а в превью нет русских символов.
   end;

end;

initialization

  frxObjects.RegisterCategory('Схема', nil, '', 6);
  frxObjects.RegisterObject1(TfrxTest, nil, '', 'Схема', 0, -1);
end.

-=Den=-

Поправил.
Новый билд будет предположительно завтра утром.

Konst

написал: »

Поправил.
Новый билд будет предположительно завтра утром.

Спасибо. скажи в каком месте...

а то мне сильно много перелапачивать надо будет.
Скрипт с профайлером + навороченное TfsSyntaxMemo + в Дизайнере..

-=Den=-

frxClass.pas -> TfrxComponent.AllDiff :
Заменить s := TStringStream.Create('') на :

{$IFDEF Delphi12}
  s := TStringStream.Create('', TEncoding.UTF8);
{$ELSE}
  s := TStringStream.Create('');
{$ENDIF}

Konst

написал: »

Заменить s := TStringStream.Create('') на :

Все нормально - Работает.

Спасибо.