ExpressQuantumGrid Suite

[tFeniks]

Итак, уважаемые программисты! Давайте в этой теме будем делиться своими наработками по работе с ExpressQuantumGrid Suite. Предлагаю на ваше рассмотрение свой код, предназначенный для вставки изображения в ячейку грида из рессурса. Изображение зависит от параметра, который указан в другой ячейке.

procedure TForm3.cxGrid1DBTableView1DBColumn27CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
 var
  ARec: TRect;
  APicture: TPicture;
    begin
  inherited;
   if AViewInfo.GridRecord.Values[cxGrid1DBTableView1DBColumn7.Index] = 'Автомобили легковые'
   then
   begin
 ACanvas.Canvas.FillRect( AViewInfo.Bounds );
    APicture := TPicture.Create;
    APicture.Bitmap.LoadFromResourceName(HInstance, 'Car');
    ACanvas.Canvas.StretchDraw(AViewInfo.Bounds,APicture.Bitmap);
    APicture.Free;
    ADone := True;
  end;
   if AViewInfo.GridRecord.Values[cxGrid1DBTableView1DBColumn7.Index] = 'Автомобили грузовые'
   then
   begin
 ACanvas.Canvas.FillRect( AViewInfo.Bounds );
    APicture := TPicture.Create;

    APicture.Bitmap.LoadFromResourceName(HInstance, 'Truck');
    ACanvas.Canvas.StretchDraw(AViewInfo.Bounds,APicture.Bitmap);
    APicture.Free;
    ADone := True;
  end;
  if AViewInfo.GridRecord.Values[cxGrid1DBTableView1DBColumn7.Index] = 'Мотоциклы'
   then
   begin
 ACanvas.Canvas.FillRect( AViewInfo.Bounds );
    APicture := TPicture.Create;
   APicture.Bitmap.LoadFromResourceName(HInstance, 'Bike');
    ACanvas.Canvas.StretchDraw(AViewInfo.Bounds,APicture.Bitmap);
    APicture.Free;
    ADone := True;
  end;
  if AViewInfo.GridRecord.Values[cxGrid1DBTableView1DBColumn7.Index] = 'Автобусы'
   then
   begin
 ACanvas.Canvas.FillRect( AViewInfo.Bounds );
    APicture := TPicture.Create;
    APicture.Bitmap.LoadFromResourceName(HInstance, 'AUTOBUS');
    ACanvas.Canvas.StretchDraw(AViewInfo.Bounds,APicture.Bitmap);
    APicture.Free;
    ADone := True;
  end;
end;

[tFeniks]

Второй код предназначен для нумерации строк в гриде

procedure TForm3.cxGrid1DBTableView1CustomDrawIndicatorCell(
  Sender: TcxGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var
   AText: string;
  ARect: TRect;

  begin
  if not (AViewInfo is TcxGridIndicatorRowItemViewInfo) then
    exit;
  ACanvas.Brush.Color := AViewInfo.Params.Color;
  ACanvas.FillRect(AViewInfo.Bounds);
  ACanvas.Pen.Color := clBlack;
  ACanvas.Canvas.Rectangle(AViewInfo.Bounds);
  ARect := AViewInfo.Bounds;
  InflateRect(ARect, 0, -1);
  AText := GetIndicatorText(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord);
  DrawText(ACanvas.Handle, PChar(AText), Length(AText), ARect, DT_VCENTER or DT_CENTER);
  ADone := True;

end;

Добавлено через 2 минуты
Третий код - для расскрашивания строк грида разными цветами, в зависимости от значения определённого параметра.

procedure TForm3.cxGrid1DBTableView1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
   inherited;
   if AViewInfo.GridRecord.Values[cxGrid1DBTableView1Edits.Index] = TRUE
   then
   begin
      ACanvas.Canvas.Brush.Color := clLime;
      ACanvas.Canvas.Font.Color := clBlack;
   end
   else
   begin
      ACanvas.Canvas.Font.Color := clBlack;
   end;
   begin
      if AViewInfo.GridRecord.Values[cxGrid1DBTableView1Autom.Index] = '1'
      then
      begin
         ACanvas.Canvas.Brush.Color := clLime;
         ACanvas.Canvas.Font.Color := clBlack;
      end;
         begin
      if AViewInfo.GridRecord.Values[cxGrid1DBTableView1DBColumn22.Index] = '' then
      if  AViewInfo.GridRecord.Values[cxGrid1DBTableView1DBColumn24.Index] = ',000000000' then
      if AViewInfo.GridRecord.Values[cxGrid1DBTableView1DBColumn25.Index] = ',,,,,,,,'  then
      begin
      ACanvas.Canvas.Brush.Color := clRed;
      ACanvas.Canvas.Font.Color := clYellow;
      end;
      end;
      ADone := False;
   end;
end;

[Mechanist]

Могу предложить простой способ построчной раскраски грида (применяется обычно для улучшения читаемости таблиц):

procedure TMainForm.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
 V: Variant;
begin
 if (cxchkbColour.Checked) then
    begin
    if Odd(AViewInfo.GridRecord.Index) and
       not TcxGridDataCellViewInfo(AViewInfo).IsMerging and // IsMerged - ХЗ что это, но в данном обработчике всегда возвращало False
       not TcxGridDataCellViewInfo(AViewInfo).Selected
       // and not(TcxGridColumn(AViewInfo.Item).Options.Grouping) - излишне
       then
       ACanvas.Brush.Color:=clLtGray;
    V:=cxGrid1DBTableView1.DataController.Values[AViewInfo.GridRecord.RecordIndex,
     AViewInfo.Item.Index];
    if not VarIsNull(V) then
       if (Pos('-',VarToStr(V)) > 0) then ACanvas.Brush.Color:=clRed;
    end;
end;

где cxchkbColour.Checked - проверка установки галочки отвечающей за раскраску.

Этот код так же делает подсветку красным фоном в случае вывода отрицательного значения (первый знак - "-").

[Durilka]

Вообще-то, у класса TcxCustomGridTableView есть свойство
property Styles: TcxCustomGridTableViewStyles;

А у класса TcxCustomGridTableViewStyles есть свойства
ContentEven и ContentOdd - это стили для четных и нечетных строк.

А так же есть стандартный обработчик OnGetContentStyle - это если надо в индивидуальном порядке "раскрасить" ячейки грида...

[Alienka]

Скажите, а есть ли в DevExpress компонент для построения диаграмм?

[Shureg]

Alienka,
просто выбираешь вид view типа chart

[neonman]

Подскажите как сделать чтобы в cxTDateTime... не отображалось время (только дата)? Собственно и с гридом такая же проблема. Свойства:
Kind = Date
ShowTime = false
Время исчезает только при наличии фокуса на элементе управления, после потери фокуса время добавляется к дате.
Тип данных поля в БД timestamp (дата + время).

[Testudo]

У полей таблиц БД есть поле Format. Задай туда dd.mm.yy и будет у тебя только дата, без времени.

Подскажите, как впихнуть в dxDBGrid юникод?

[DrLo]

Цитата: Сообщение от Testudo Подскажите, как впихнуть в dxDBGrid юникод?

А это разве в принципе возможно? dx - ы же не юникодные

[Testudo]

Нет ничего невозможного, друг мой.
Поимев сексуальные отношения с компонентом, в течение часа нашел способ отображения юникодного текста в таблице.
Но сделать корректное отображение и при редактировании не смог. Где-то находил и даже пробовал один способ - заменить их InplaceEdit TNTшным. Но сейчас не могу найти. Правда для меня это не особо важно. Главное - получилось отобразить текст.

[DrLo]

Цитата: Сообщение от Testudo нашел способ отображения юникодного текста в таблице

Супер!!! Ты б для страждущих поделился свои сексуальным опытом - может кому и помогло бы.

[Testudo]

Вот что я сделал в самом проекте. Работает и без TNT, но писать приходится в обработчике каждой колонки с юникодом:

procedure TForm1.dxDBGrid1comandNameCustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
var ws:WideString;
begin
ACanvas.Font.Name := 'Tahoma';
if VarIsNull(ANode.Values[2]) then ws:='' else ws:=ANode.Values[2];
if ASelected or AFocused then
 begin
 ACanvas.Brush.Color:=TdxDBGrid(ANode.Owner).HighlightColor;
 ACanvas.Font.Color:=TdxDBGrid(ANode.Owner).HighlightTextColor;
 end else begin
 ACanvas.Brush.Color:=TdxDBGrid(ANode.Owner).Color;
 ACanvas.Font.Color:=TdxDBGrid(ANode.Owner).Font.Color;
 end;
ACanvas.FillRect(ARect);
InflateRect(ARect, -2, -1);
DrawTextW(ACanvas.Handle,@ws[1],length(ws),ARect,DT_LEFT+DT_TOP);
ADone:=true;
end;

И еще, не помню уже где (пройдись отладчиком, увидишь) в компоненте есть определение, принадлежит ли тип данных колонки к простым. В этом случае он будет читаться из Variant'а, иначе - из строки. ftWideString естественно к простым не относится, вот его и нужно к ним отнести (где то в начале есть определение-список простых типов, просто добавить туда).

[neonman]

Не подскажете как сделать в ExpressQuantumGrid вычисляемое поле (перемножить два других поля)? Вычисление в запросе не предлагать...
Сделал вычисляемое поле в БД (Firebird), но, думаю, будет оптимальнее считать это поле на клиенте.

Добавлено через 56 минут
Разобрался... Сделать это можно создав в DataSet вычисляемое поле и добавив обработчик на событие OnCalcFields. Иногда нужно лучше поискать...

[neonman]

Еще вопрос по этому гриду. Лучше опишу задачу:
-запрос заранее неизвестен, поля, естественно, тоже
-нужно отобразить результаты запроса в гриде
В результате получаю одно пустое поле, повторенное столько раз, сколько записей.
Стандартный грид это умеет по-умолчанию. Как сделать в этом?
Спасибо.

[nyckneykov]

Здравствуйте! У меня вопрос ... не давно у меня захателос ставит RichEdit в TcxDBTreeList, что бы сделат видимы текст как форматираны, за примера мне нужно сделат bold первы из двух или трех строка. Но, не успел. Компонент не работыет как я хочу... Кто то столкивался с такой проблем?