If I define 2 custom axes (horizontal and vertical) and set each to be partner axis for the other:
Code: Select all
ax:= TChartAxis.Create(master);
ax.Horizontal:= TRUE;
ax.StartPosition:= 25;
ax.EndPosition:= 75;
ax.PositionPercent:= 25;
ax.Title.Text:= 'Custom Horizontal';
hax:= ax;
ax:= TChartAxis.Create(master);
ax.StartPosition:= 25;
ax.EndPosition:= 75;
ax.PositionPercent:= 25;
ax.Title.Text:= 'Custom Vertical';
{ this causes stack overflow in syste.UnicodeFromLocakleChars: }
ax.PartnerAxis:= hax;
ax.UsePartnerAxis:= TRUE;
hax.PartnerAxis:= ax;
hax.UsePartnerAxis:= TRUE;
{}
Code: Select all
function UnicodeFromLocaleChars(CodePage, Flags: Cardinal; LocaleStr: _PAnsiChr;
LocaleStrLen: Integer; UnicodeStr: PWideChar; UnicodeStrLen: Integer): Integer; overload;
{$IFDEF MSWINDOWS}
begin
Result := MultiByteToWideChar(CodePage, Flags, LocaleStr, LocaleStrLen, UnicodeStr, UnicodeStrLen);
end;
{$ENDIF MSWINDOWS}
Am I doing something wrong? Any workaround?
Roumen