D2009 Превью не понятно почему так.
При переходе на 2009 в Дизайнере все русские буквы отображаются нормально
в ChartName забит русский текст
Но если запустить в Превью то почему то
в ChartName приходит - 'РўРµСС‚'
И печатается уже с этими безобразием.
Как это лечется?
в 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.
Комментарии
Новый билд будет предположительно завтра утром.
Спасибо. скажи в каком месте...
а то мне сильно много перелапачивать надо будет.
Скрипт с профайлером + навороченное TfsSyntaxMemo + в Дизайнере..
Заменить s := TStringStream.Create('') на :
Все нормально - Работает.
Спасибо.