» Использование DevExpress (часть 4)

vladman, начинаю "догонять". У меня стиль №2 для отдельной строки имеет свойства по-умолчанию, а стиль №1 для всго верт. грида имеет изменённые свойства. Поэтому грид и закрашивает всё подряд.
Я вот сделал так. У стиля №2 для отдельной строки изменил цвет на clWindow (был clDefault) и теперь доволен, как слон, т.к. теперь строка отличается от всего грида. Но всё рано считаю это багом, а не фичей. Ведь я назначил отдельный стиль отдельной строке? Назначил. Пусть даже со свойствами по-умолчанию. А значит строка должна отличаться от общего стиля грида.

Добавлено:
в вертикальном гриде есть ещё в стилях свойство StyleSheet. Там невозможно выбрать стиль почему-то.

Добавлено:
Всё, допёр.

Добавлено:

Цитата:

Достаточно выполнить поиск в исходных кодах ExpressBars 6 строки "class function BarToolbarBrush" и вы сразу бы заметили что TdxBarItemControlEnhancedPainter был переименован либо включен в TdxBarPainter.

Ну там не только это. Там хватает несовместимостей. А я в девках не на столько опытный

Добавлено:
Проблема с сортировкой в cxGrid (bunded).
Есть функция, которая выводит некоторые колонки грида в текст для дальнейшей печати информации на матричном принтере (в итоге получается copy %1 prn).
Эта функция имеет входной параметр DataSet: TDataSet.

Итак. Пользователь сортирует грид по колонке цена. Нажимает печать.
В функцию передаётся датасет:

Код: PrintToMatrix(TcxGridDBTableView(TcxGrid(TcxGridSite(ActiveControl).Container).ActiveView).DataController.DataSet,

Вопрос по cxTrackBar.

При клике мышкой слева или справа от ползунка он перемещается на 1 позицию соответственно.
Можно ли сделать так, что нажал кнопку мыши, держишь ее и ползунок перемещается непрерывно?
Или хотя бы определить слева или справа произошел клик?

sam291074

Цитата:

При клике мышкой слева или справа от ползунка он перемещается на 1 позицию соответственно.
Можно ли сделать так, что нажал кнопку мыши, держишь ее и ползунок перемещается непрерывно?

Можно. Обрабатывайте события onMouseDown и onMouseUp, в которых включайте и выключайте таймер соответственно. Таймер настройте на срабатывание, например, каждые 100мс и при срабатывании увеличивайте или уменьшайте свойство Position вашего cxTrackBar.

Цитата:

Или хотя бы определить слева или справа произошел клик?

Вот как раз это не "хотя бы", а самое нетривиальное в этой проблеме. Чуть позже постараюсь что-то придумать по этому поводу.
ЗЫ. Обратите внимание на свойство cxTrackBar.Properties.ThumbStep со значением cxtsJump.

X11
Доступ к отсортированным данным:

Код:
for i := 0 to View1.ViewData.RecordCount - 1 do
if View1.ViewData.Records[i].IsData then
begin
r[2]:=View1.ViewData.Records[i].Values[View1amount.Index]; // значение поля
r[3]:=View1.ViewData.Records[i].DisplayTexts[View1unit_id.Index]; // видимое значение для lookup editor
end;

afiget, спасибо. Я понял. Нужно создать в памяти набор данных и в него "залить" данные из грида.

sam291074

Цитата:

Или хотя бы определить слева или справа произошел клик?

В случае горизонтальной ориентации контрола попробуйте так:

Код: Type
TcxTrackBarAccess = class(TcxCustomTrackBar);
TcxTrackBarViewInfoAccess = class(TcxCustomTrackBarViewInfo);
....
procedure <YourForm>.<YourcxTrackBar>MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if TcxTrackBarViewInfoAccess(TcxTrackBarAccess(Sender).ViewInfo).ThumbRect.Left < X then
Self.Caption := 'After'
else Self.Caption := 'Before';
end;

Доброго времени суток, подскажи пож как отсортировать данные в cxGrid при заполнении. Данные заполняются из xml файла через clientdataset. Свойство SortByDisplayText у колонки не помогло. Спасибо.

У каждой колонки есть SortIndex

Добавлено:
А SortByDisplayText влияет на то, КАК будет отсортирована колонка. По тем данным которые видит пользователь или по тем данным которые физически хранятся в наборе данных?

Спасибо, а какой индекс поставить чтобы по возрастанию сортировались записи? И есть ли значение на какое событие вешать?

Добавлено:
Спасибо уже нашел:
cxGrid2DBTableView1ddd.SortIndex := 0;
cxGrid2DBTableView1ddd.SortOrder:=soAscending;

Добрый день.

Столкнулся с такой проблемой.

Создал cxDataBandedTable хочу сохранить настройки таблицы порядок столбцов но ничего не получается.

Сохраняю
cxDataBandedTable.Bands.Items[i].Position.BandIndex
cxDataBandedTable.Bands.Items[i].Position.ColIndex

Востанавливаю. Строки стоят не так как я их сохранил. VisibleColIndex тоже непомог


подскажите кто нибудь делал чтото подобное или пользуетесь cxPropertiesStore

OwnerZ
Посмотрите методы TcxCustomGridView.StoreTo... и TcxCustomGridView.RestoreFrom... Т.е.
TcxCustomGridView.RestoreFromRegistry
TcxCustomGridView.RestoreFromStorage
TcxCustomGridView.RestoreFromStream
TcxCustomGridView.StoreToIniFile
TcxCustomGridView.StoreToRegistry
TcxCustomGridView.StoreToStorage
TcxCustomGridView.StoreToStream
Example: TcxCustomGridView.StoreToRegistry, TcxCustomGridView.RestoreFromRegistry:
ms-help://borland.bds5/ExpressQuantumGrid6.BDS5/ExpressQuantumGrid6/Example_StoreToRegistry_RestoreFromRegistry.htm

X11

По поводу поиска с подсветкой попробуй так:


Код: procedure TForm1.SpeedButton1Click(Sender: TObject);
var
I, FoundPos, StartPosition: integer;
AColumn : TcxGridDBColumn;
ATextToFind : String;
AEdit : TcxRichEdit;
AFind : Boolean;
begin
ATextToFind := 'Limited';
with cxGrid1DBTableView1 do
begin
AColumn := GetColumnByFieldName('Event_Description');
for I := 0 to ViewData.RecordCount - 1 do
if ViewData.Rows[I].IsData then
begin
ViewData.Rows[I].Focused := True;
with Controller.EditingController do
begin
ShowEdit(AColumn);
AEdit := TcxRichEdit(Edit);
StartPosition := 0;
AFind := True;
while AFind do
begin
FoundPos := AEdit.FindText(ATextToFind, StartPosition, Length(AEdit.Text), [stWholeWord]);
if (FoundPos >= 0) then
begin
AEdit.SelStart := FoundPos;
AEdit.SelLength := Length( ATextToFind);
AEdit.SelAttributes.Color:=clRed;
AEdit.SelLength:=0;
StartPosition := FoundPos + 1;
end
else
AFind := False;
end;
end;
end;
end;
end;

vladman
Спасибо, воспользовался вариантом с таймером.

Цитата:

vladman

Full Member    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модераторуOwnerZ
Посмотрите методы TcxCustomGridView.StoreTo... и TcxCustomGridView.RestoreFrom... Т.е.
TcxCustomGridView.RestoreFromRegistry
TcxCustomGridView.RestoreFromStorage
TcxCustomGridView.RestoreFromStream
TcxCustomGridView.StoreToIniFile
TcxCustomGridView.StoreToRegistry
TcxCustomGridView.StoreToStorage
TcxCustomGridView.StoreToStream
Example: TcxCustomGridView.StoreToRegistry, TcxCustomGridView.RestoreFromRegistry:
ms-help://borland.bds5/ExpressQuantumGrid6.BDS5/ExpressQuantumGrid6/Example_StoreToRegistry_RestoreFromRegistry.htm

СПАСИБО. Я разобрался надо было хранить ещё третий параметр Index

но я забил и воспользовался cxPropertiesStore



У меня возник другой вопрос как проверить DataType Колонки в CxGrid что нить такое
if Grid.Columns[i].Field.DataType =


Только найти немогу подскажите куда смотреть. Спасибо


Добавлено:
А ещё такой вопрос? Как пробежатся по конкретному столбцу и вытащить все данные из него.

Спасибо

OwnerZ

Цитата:

У меня возник другой вопрос как проверить DataType Колонки в CxGrid что нить такое

<YourcxGridDBColumn>.DataBinding.ValueType


Цитата:

А ещё такой вопрос? Как пробежатся по конкретному столбцу и вытащить все данные из него.

Код: for i := 0 to <YourcxGridTableView>.DataController.RecordCount - 1 do
<YourValue> := <YourcxGridTableView>.DataController.Values[i, <YourGridColumn>.Index] =

Цитата:

vladman

Спасибо больше.


Добавлено:

Цитата:

vladman

Подскажи пожалуйста а как узнать есть ли у колонки в Summary колонки и сколько их там

Спасибо

OwnerZ

Цитата:

Подскажи пожалуйста а как узнать есть ли у колонки в Summary колонки и сколько их там

Если вы имели ввиду FooterSummary, то решение может выглядеть так:

Код: vSummaryCount := 0;
for i := 0 to <YourcxGridDBTableView>.DataController.Summary.FooterSummaryItems.Count - 1 do
if TcxGridDBTableSummaryItem(<YourcxGridDBTableView>.DataController.Summary.FooterSummaryItems[i]).Column = <YourcxGridDBColumn> then inc(vSummaryCount);

Скажите пожалуйста, как сделать кнопки в inplaced editor'e(ну у combobox например) в tcxdbverticalgrid транспарентными? Т.е. если я вставляю глиф вместо стандартного треугольника, то он получается на белом фоне, а не прозрачном.
____
Сам нашел: GetImage вместо GetBitmap.

Подскажите пож где можно скачать DevExpress для BDS 2009. FastReport 4+ тоже интересуют.
Спасибо.

victorman2010
Внимательнее шапку читать. http://forum.ru-board.com/topic.cgi?forum=35&topic=43303&start=2480

vladman

Спасибо большое за Summary.

Порыскал по форуму но так и не нашел.

Подскажите пожалуйста как программно снять "выделение". С выделенных строк.

OwnerZ

Цитата:

Порыскал по форуму но так и не нашел.
Подскажите пожалуйста как программно снять "выделение". С выделенных строк.

Можно рыскать и в хелпе.
TcxCustomDataController.ClearSelection - ms-help://borland.bds5/ExpressDataController.BDS5/ExpressDataController/IDH_TcxCustomDataController_ClearSelection.htm
т.е. <YourcxGridTableView>.DataController.ClearSelection;

Цитата:

vladman

Блиннн точна вот про
ClearSelection даже неподумал как то все время наоборот искалось Selection.Clear

Ещё раз спасибо.

У TcxImage есть свойство Caption, можно как-то заставить TcxImage показать Caption, например под картинкой?

Добавлено:
У TcxImage есть свойство Hint, но нет свойства showhint. ParentShowHint установил в false, но hint не показывается.
Dev 47

Добрый день. Есть маленькая проблемка, не понимаю в чем она.
После того, как кидаю на форму компонент dxComponentPrinter, форма при запуске создается где-то около 5-8 секунд. Не пойму в чем проблема. Как-нибудь можно это решить? Причем такое происходит не только на моем компе, но и на других компах тоже.

X11

Цитата:

У TcxImage есть свойство Caption, можно как-то заставить TcxImage показать Caption, например под картинкой?

Use the Caption property to specify the text displayed within an image editor. This text is visible only if the image editor contains no image (the Picture property has no assigned image).
А вообще можно поставить под картинкой label и выводить в него текст из TcxImage Caption

Добавлено:

Цитата:

У TcxImage есть свойство Hint, но нет свойства showhint. ParentShowHint установил в false, но hint не показывается.
Dev 47

Такое свойство есть, но оно не published а public. выполните <YourcxImage>.ShowHint := True; в onCreate формы.

Добрый день, поставил devExpress v48 (CodeGear 2009). Все стало без проблем, только компонента dxStatusBar нету (переустановил еще раз, тоже самое). В чем может быть проблема? Спасибо.

Здраствуйте, где находятся настройки для поля группировки (на которое перетаскиваются поля таблицы)?
Можно ли его убрать?
Какое свойство меняет текст "Drag column..."

Спасибо.

fortezza

Цитата:

Здраствуйте, где находятся настройки для поля группировки (на которое перетаскиваются поля таблицы)?
Можно ли его убрать?

TableView - OptionsView - GroupByBox - false

fortezza
Нет такого свойства. Если нет желания пересобирать исходники, то можно воспользоваться, например, перезагрузкой этого сообщения из ресурсов. Или юзать TcxLocalizer.