Работа с DBGrid

[alexmai]

dbGrid1.SelectedIndex:= 0; //здесь можно указать любой номер Объясни в чем принципиальная разница? Подключен DataSource вот только свойства Fields я так и не нашел у него

Свойство Fields у Dataset ( датасэтом у тебя является SQLQUERY ) , а не DataSource
Во вторых работать надо только с dataset, в гриде информация может быть не актуальна
Выделеная строка грида это соответствующая запись в наборе данных Dataset
поэтому работать надо с dаtaset, причем после модификации записей делать
SQLQUERY1.refresh чтобы обновить таблицу грида

[avis]

понял, спасибо

[alexs]

ОБъясняю по буквам
dbGrid1.SelectedIndex:= 0;
гриду задаёш номер столбца
ShowMessage(dbGrid1.SelectedField.AsString);
обращаешся через указатели с полю
хотя конструкция и выглядит небольшой - на самом деле это не поля - а свойства и в реальном коде тут будет очень много вызовов всяких функция и адресной арифметики для получения доступа к нужному тебе полю

а правильно надо обращаться через DataSet (вернее его наследника) (ты так и не сказал конкретно что ты используеш)
поля находятся в нём и обращением к нему ты сразу отсекаеш этап из 2-х компонентов.
Твой код - это:
DBGrid -> DataSourse -> DataSet -> Field
А я говорю про:
DataSet -> Field
Разница есть?

DataSource вот только свойства Fields я так и не нашел у него

DataSource - это прослока между набором данных и визуальными компонентами
тебя, как прикладного программиста, она вобще не должна волновать. Положил но форму, связала данны и забыл про неё.
А для работы с данными используй методы твоего DataSet-а.

[dunin]

Как раскрасить грид?

В Delphi делал так:

Код: Выделить всё

procedure TMainForm.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);

  var
    GholdColor, MholdColor: TColor;
begin

GholdColor := tDBGrid(Sender).Canvas.Brush.Color; //сохраняем оригинальный цвет
MholdColor := tDBGrid(Sender).Canvas.Font.Color;
  if (not (gdFocused in State)) and (not (gdSelected in State)) then begin
      //if TigerGrid then
      if (tDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 0) then begin
        tDBGrid(Sender).Canvas.Brush.Color := GridColor; //clBtnFace;
      end;
   end;
tDBGrid(Sender).DefaultDrawColumnCell (Rect, DataCol, Column, State);
tDBGrid(Sender).Canvas.Brush.Color := GholdColor;
tDBGrid(Sender).Canvas.Font.Color := MholdColor;
end;

В lazarus не работает. Где грабли?

[dunin]

Как раскрасить грид?
...

Ни кто не знает?
Может у кого-нибудь пример раскраски Grid-а найдется?

[Ustas]

На первый взгляд, в DBGrid нет возможности отображать стоку в ячейки в несколько строк, с переносом. Да и на второй, я ничего не нашел... В Delphi для этого я пользовался RxDBGrid. В Lazarus`е есть какие нибудь наработки в этом вопросе?

[Attid]

RxDBGrid

есть в лазарусе. ставьте компоненты, на форуме есть тема про RX

[Ustas]

RxDBGrid

есть в лазарусе. ставьте компоненты, на форуме есть тема про RX

Вопрос не про RX был, а про "несколько строк в ячейке". Кстати, в RxDBGRid пакета RxLib я тоже не нашел нужного.

[Brainenjii]

DBGrid'ом не пользовался, так что не уверен, что поможет, но для TDrawGrid'a:

Код: Выделить всё

Function GetHeight(Const aCanvas: TCanvas; Const aRect: TRect; Const aString: String): Integer;
Begin
  If aCanvas.TextWidth(aString) > aRect.Right - aRect.Left Then
    Result := aCanvas.TextHeight(aString) * Ceil((aRect.Right - aRect.Left) / aCanvas.TextWidth(aString))
  Else
    Result := aCanvas.TextHeight(aString);
End;

Procedure TFormMain.DrawGridMainDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
Var
  Style: TTextStyle;
Begin
  Style.Wordbreak := TRUE;
  Style.SingleLine := FALSE;
  Style.Opaque := TRUE;
  With DrawGridMain.Canvas Do
    Case aCol Of
      0:
        Begin
          DrawGridMain.RowHeights[aRow] := Max(DrawGridMain.RowHeights[aRow], GetHeight(DrawGridMain.Canvas,
            aRect, 'Очень-очень длинная строка'));
          Brush.Color := $FFAAFF;
          FillRect(aRect);
          TextRect(aRect, aRect.Left, aRect.Top, 'Очень-очень длинная строка', Style);
        End;
      1:
        Begin
          DrawGridMain.RowHeights[aRow] := Max(DrawGridMain.RowHeights[aRow], GetHeight(DrawGridMain.Canvas,
            aRect, 'Очень-очень длинная строка2'));
          Brush.Color := $AAFFAA;
          FillRect(aRect);
          TextRect(aRect, aRect.Left, aRect.Top, 'Очень-очень длинная строка2', Style);
        End;
    End;
End;


Как-то так ^_^ За работоспособность не ручаюсь - не могу пока лазаря дома собрать ^_^ 2.4.0 не сдаётся ^_^

[alexs]

а про "несколько строк в ячейке"

Просто переопредели отрисовку ячейки - и рисуй в ней во сколько хочеш строк. Не забудь высоту ячейки установить побольше.

[dunin]

Как раскрасить грид?
...

Ни кто не знает?
Может у кого-нибудь пример раскраски Grid-а найдется?

Примера тоже ни у кого нет?

[Brainenjii]

Вот теперь с раскраской ^_^

[Ustas]

а про "несколько строк в ячейке"

Просто переопредели отрисовку ячейки - и рисуй в ней во сколько хочеш строк. Не забудь высоту ячейки установить побольше.

Да я тоже к тому-же склоняюсь. Хотел это на черный день оставить. Видно, он уже начался давно, а я все сплю...

Спасибо всем!!!

А раскрасить:

Код: Выделить всё

procedure TForm.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Column.FieldName = 'ПОЛЕ' then
    begin
      TDBGrid(Sender).Canvas.FillRect(Rect);
      // фон
      TDBGrid(Sender).Canvas.Brush.Color := myColor1;
      // цвет
      TDBGrid(Sender).Canvas.Font.Color := myColor2;
      // а можно еще и написать заместо выводимого
      if Column.Field.AsInteger = 1 then
        TDBGrid(Sender).Canvas.TextOut(Rect.Left, Rect.Top, 'Люблю бисквитные торты и ...');
   end;
end;


[alexs]

Да я тоже к тому-же склоняюсь. Хотел это на черный день оставить. Видно, он уже начался давно, а я все сплю...

Если получится универсально и красиво (многострочный текст) - то можно интегрировать в RxDBGrid

[Ustas]

Если получится универсально и красиво (многострочный текст) - то можно интегрировать в RxDBGrid

http://www.delphimaster.ru/articles/str ... index.html
http://www.delphisources.ru/pages/faq/b ... bgrid.html

DrawText неплохо рисует. А что бы универсально и красиво получилось надо править исходники. Вот тут автору и флаг в руки.