![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прям как в Microsoft Excel...
TIF © (2006-11-06 15:51:00)Хочу завести в программе табличку, да такую, чтобы ячейки в ней были разноцветные, текст можно было форматировать (для КАЖДОЙ ячейки в отдельности). Посоветуйте компонент, или технологию, как это сделать? Такое чудо
TIF (2006-11-06 16:14:00) [1]
> Быстрее самому как в [5] сделать, чем еще с этим EhLib разбиратся.
мда, немного согласен,но не до конца
Percent (2006-11-06 16:13:00) [2]В образовательном смысле-конечно.
На то и "Начинающим".
Чтобы пнуть на путь истинный.
В образовательном смысле, конечно...
RebroFF (2006-11-06 16:11:00) [3]
> Быстрее самому как в [5] сделать, чем еще с этим EhLib разбиратся.
В образовательном смысле-конечно.
Ученик чародея (2006-11-06 16:07:00) [4]
> TIF © (06.11.06 15:58) [7]
>
>
> > EhGrid из EhLib,
>
>
> ???
>
> это стандарнтный компонент делфи? или что это?
Быстрее самому как в [5] сделать, чем еще с этим EhLib разбиратся.
RebroFF (2006-11-06 16:02:00) [5]
> это стандарнтный компонент делфи?
Нет.
> или что это?
Библиотека компонентов, в состав которой входит отличный грид с кучей свойств.
http://www.ehlib.com
TIF (2006-11-06 15:58:00) [6]
> EhGrid из EhLib,
???
это стандарнтный компонент делфи? или что это?
KilkennyCat (2006-11-06 15:57:00) [7]> Посоветуйте компонент, или технологию, как это сделать?
> Такое чудо
Чудо сделать нельзя... Чуда надо ждать, в него можно верить, и еще на него можно надеятся...
TIF (2006-11-06 15:56:00) [8]
> StringGrid?
с ним и работаю: с канвасом запутался, глючно перерисовывает. и стоит щёлкнуть мышкой, как стринггрид перерисовывается. Как тогда перерисовывание отключить?
И всё-таки там нельзя сделать выравнивание по ширине, например. а хотелось бы
Ученик чародея (2006-11-06 15:56:00) [9]Событие OnDrawColumnCell, свойство DefaultDrawing=False;
А далее рисуешь на Canvas, который передается в событии.
Пример:
procedure TPlanEditForm.DBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
inherited;
try
if SDQuery.RecordCount>0 then
begin
//
if AnsiSameText(Column.field.FieldName,'Operation_Max_Delay') then
PaintOperationDelayToGrid(Rect,Column.Field,DBGrid.Canvas);
//
if Column.field.DataType=ftString then
PaintStringToGrid(Rect,Column.Field,DBGrid.Canvas);
end;
except on E:Exception do;
end;
end;
RebroFF (2006-11-06 15:55:00) [10]EhGrid из EhLib, а дальше [1]
Плохиш (2006-11-06 15:53:00) [11]
> или технологию
Голова - руки - клавиатура - программа.
PS. Думаешь просто так екзел столько места на диске занимает?
default (2006-11-06 15:53:00) [12]StringGrid?