Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBChart, как он меня достал!!! [D5, Win95/98, Win2k]

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

Ученик (2002-08-13 23:06:00) [1]
В Delphi 6 Tee Chart 5.0

Nazareth (2002-08-13 22:54:00) [2]
А как насчет того, чтобы поделиться с колегой полноценной версией?

Ученик (2002-08-13 22:44:00) [3]
Жаль, а обновить с http://www.steema.com/?

Nazareth (2002-08-13 22:28:00) [4]
Мой DBChart такого свойства не имеет. У меня Tee Chart Pro 4.02

Ученик (2002-08-13 22:15:00) [5]
Может поможет это DBChart.LeftAxis.LabelsAlign - alOpposite

Nazareth (2002-08-13 21:48:00) [6]
Я, наверное уже всем надоел со своим 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;

Nazareth (2002-08-13 17:28:00) [7]
Работает!!! Огромное спасибо. С меня пиво.

MBo (2002-08-13 12:35:00) [8]
1. while canvas.textwidth(labeltext)<40 do
labeltext:=labeltext+" "
2. руками писать в нужном месте

Nazareth (2002-08-13 10:41:00) [9]
Получается, но неровно, так как arial и подобные шрифты не моноширинные. Может есть еще какие-нибудь варианты?

MBo (2002-08-13 08:32:00) [10]
if (sender=chart1.leftaxis) then
labeltext:=labeltext+stringofchar(" ",4-length(labeltext));

Nazareth (2002-08-12 15:39:00) [11]
Нельзя ли немного поконкретнее, хотя бы набросок?

MBo (2002-08-12 13:38:00) [12]
OnGetAxisLabel

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »