DBChart, как он меня достал!!!

← →
Nazareth (2002-08-12 10:15) [0]

Всем привет. Очень срочно!!!
Может кто-нибудь знает, как можно выровнять лэйбы на левой оси координат компонента TDbChart по левому краю (по умолчанию - по правому)?

← →
MBo © (2002-08-12 13:38) [1]

OnGetAxisLabel

← →
Nazareth (2002-08-12 15:39) [2]

Нельзя ли немного поконкретнее, хотя бы набросок?

← →
MBo © (2002-08-13 08:32) [3]

if (sender=chart1.leftaxis) then
labeltext:=labeltext+stringofchar(" ",4-length(labeltext));

← →
Nazareth (2002-08-13 10:41) [4]

Получается, но неровно, так как arial и подобные шрифты не моноширинные. Может есть еще какие-нибудь варианты?

← →
MBo © (2002-08-13 12:35) [5]

1. while canvas.textwidth(labeltext)<40 do
labeltext:=labeltext+" "
2. руками писать в нужном месте

← →
Nazareth (2002-08-13 17:28) [6]

Работает!!! Огромное спасибо. С меня пиво.

← →
Nazareth (2002-08-13 21:48) [7]

Я, наверное уже всем надоел со своим dbchart"ом. Извиняюсь.
Теперь на экране все ОК, но когда вывожу график на печать, то лэйбы опять прижимаются к правому краю.
Печатаю я следующим образом:
procedure TMainForm.PrintChart(Chart: TDBChart; KOtstup, PrRes: Integer; NMax, NMin: Double);
var
Rect : TRect;
TempMax, TempMin : Double;
begin
TempMax := Chart.LeftAxis.Maximum;
TempMin := Chart.LeftAxis.Minimum;
Chart.LeftAxis.Maximum := NMax;
Chart.LeftAxis.Minimum := Nmin;
Chart.PrintResolution := PrRes;

{ настроить поля для печати }
Rect.Left := Printer.PageWidth DIV KOtstup;
Rect.Right := Printer.PageWidth - (Printer.PageWidth DIV KOtstup);
Rect.Top := Printer.PageHeight div KOtstup;
Rect.Bottom := Printer.PageHeight - (Printer.PageHeight div KOtstup);

// печать
Chart.PrintRect(Rect);
Chart.LeftAxis.Maximum := TempMax;
Chart.LeftAxis.Minimum := TempMin;
end;

← →
Ученик © (2002-08-13 22:15) [8]

Может поможет это DBChart.LeftAxis.LabelsAlign - alOpposite

← →
Nazareth (2002-08-13 22:28) [9]

Мой DBChart такого свойства не имеет. У меня Tee Chart Pro 4.02

Жаль, а обновить с http://www.steema.com/ ?

← →
Nazareth (2002-08-13 22:54) [11]

А как насчет того, чтобы поделиться с колегой полноценной версией?

В Delphi 6 Tee Chart 5.0

DBChart, как он меня достал!!! Найти похожие ветки